vBulletin LTS

### vb.tcl
###
### Our vb.tcl script does the following:
###  -- auto - Keeps an array of IRC Nickname => status.  Status of '3' is 'IDENTIFIED.'
###  -- auto - Sets nickstatus list every other minute to a file for Woogy to read
###  -- !whois checks an IRC handle to see what CB Username it belongs to
###  -- !rwhois checks a vBulletin Username to see what IRC handle it has (can be multiple names)
###  -- FUNCTION: isIdentified - returns true if a nick is ID'd with the Bot, false otherwise.
###
###  NOTE: Find and replace the following:
###  -- http://link.to.your.forum/irc.script.php
###  -- #YourChannel
###  NOTE: If you have Bots on your channel (including the Bot running this!), change the
###        isBot procedure below.
putlog "% Loading Nickname functions"
###############################################################################
###                   Binds (these call the procedures)                     ###
###############################################################################
bind pub - !whois doWhois
bind pub - !rwhois doRWhois
bind notc - "*STATUS*" doSetStatus
bind time - "* * * * *" doSendNames
bind time - "* * * * *" doGetNames
bind time - "* * * * *" doSetNames
###############################################################################
###                Procedures called by public bind events                  ###
###############################################################################
proc doWhois {nick host hand chan text} {
  package require http
  set url http://link.to.your.forum/irc.script.php
  set querystring [http::formatQuery "do" "whois" "whois" $text]
  set token [http::geturl $url -query $querystring]
  set data [http::data $token]
  http::cleanup $token
  putquick "PRIVMSG #YourChannel :$data"
  putloglev p $chan "$data"
  return $data
}
proc doRWhois {nick host hand chan text} {
  package require http
  set url http://link.to.your.forum/irc.script.php
  set querystring [http::formatQuery "do" "rwhois" "whois" $text]
  set token [http::geturl $url -query $querystring]
  set data [http::data $token]
  http::cleanup $token
  putquick "PRIVMSG #YourChannel :$data"
  putloglev p $chan "$data"
  return $data
}
### bind time - "0/2/4/6/8 * * * *" doSendNames
###  -- (once per two minutes)
### saves nickstatus to nickstatus.txt once every other minute (even minutes)
proc doSendNames {min hour day month year} {
  global nickstatus
  set out [open "nickstatus.txt" w]
  puts $out [array get nickstatus]
  close $out
  global nicktime
  set out [open "nicktime.txt" w]
  puts $out [array get nicktime]
  close $out
}
### bind time - "* * * * *" doSetNames
###  -- (once per minute)
### Check each name in the status and time lists
### If the STATUS is 3, add the name to the list send to the database
### If the user has not been checked for 30 minutes, unset them from the arrays
### Set namelist to server (displays in "Who's Online")
proc doSetNames {min hour day month year} {
  global nickstatus
  global nicktime
  set identifiedUsers ""
  foreach userraw [chanlist "#YourChannel"] {
    set username [doGetSafe $userraw]
    if {[info exists nickstatus($username)]} {
      if {$nickstatus($username) == 3} {
        lappend identifiedUsers $username
      }
      if {$nicktime($username) < [clock seconds] - 1800} {
        unset nickstatus($username)
        unset nicktime($username)
      }
    }
  }
  set NamesSet [setVBNames $identifiedUsers]
  putlog "doSetNames: Users -- $identifiedUsers"
}
proc doGetSafe {mystring} {
  return $mystring
}
### Get Names on channel, send Status request to NickServ for each name on nicklist without STATUS of 3, once per minute
### bind time - "* * * * *" doGetNames
###  -- (once per minute)
### If: NICK IS NOT A BOT
###  -- nick does not exist, OR
###  -- nick is not level 3 OR
###  -- nicktime last checked is over 10 minutes
###    THEN -- send a STATUS request to NickServ.
### All nicks (except bots)
proc doGetNames {min hour day month year} {
  global nickstatus
  global nicktime
  foreach userraw [chanlist "#YourChannel"] {
    set username [doGetSafe $userraw]
    set NickIsBot [isBot $username]
    set NickExists [info exists nickstatus($username)]
    set NowTime [clock seconds]
    if {$NickExists} {
      set NickNotIdentified [expr ($nickstatus($username) != 3)]
      set NickLastTime $nicktime($username)
    } else {
      set NickNotIdentified 1
      set NickLastTime 0
    }
    set NickTimesOut [expr $NickLastTime + 600 - $NowTime]
    set NickTimedOut [expr $NickTimesOut < 0]
    ##putlog " --- STATUS Checking :$username -- $NickIsBot - $NickExists - $NickNotIdentified - $NickTimedOut"
    if {!$NickIsBot} {
      if {(!$NickExists || $NickNotIdentified || $NickTimedOut)} {
        puthelp "PRIVMSG NickServ :STATUS $username"
        putlog "doGetNames: Checking $username"
      }
    }
  }
}
### bind notc - "*STATUS*" doSetStatus
### Answers NickServ's status response notice, setting nickstatus and nicktime appropriately.
proc doSetStatus {nick host handle text dest} {
  global nickstatus
  global nicktime
  if {[string tolower $nick] != [string tolower "NickServ"]} {
    return 0;
  }
  regexp {STATUS ([^ ]*) ([0-3])} $text hmm NS_name NS_status
  set nickstatus($NS_name) $NS_status
  set nicktime($NS_name) [clock seconds]
  putlog "doSetStatus: User -- $NS_name"
}
###############################################################################
###              Helper Functions (not called by bind events)               ###
###############################################################################
### If a user is in the global nickstatus as Identified, return true, else return false
proc isIdentified {nick} {
  global nickstatus
  if {[info exists nickstatus($nick)]} {
    if {$nickstatus($nick) == 3} {
      return 1
    }
  }
  return 0
}
### Returns true if nick is a Bot's nickname, else false
proc isBot {nick} {
  if {[string tolower $nick] == [string tolower "Bot1"]} {
    return 1
  }
  if {[string tolower $nick] == [string tolower "Bot2"]} {
    return 1
  }
  if {[string tolower $nick] == [string tolower "Internets"]} {
    return 1
  }
  if {[string tolower $nick] == [string tolower "Quotes"]} {
    return 1
  }
  if {[string tolower $nick] == [string tolower "Stats"]} {
    return 1
  }
  return 0
}
### Sends the IRC Active users list to our page
proc setVBNames {iduserlist} {
  package require http
  set url http://link.to.your.forum/irc.script.php
  set querystring [http::formatQuery "do" "irc_activity_check" "users" $iduserlist]
  set token [http::geturl $url -query $querystring]
  set data [http::data $token]
  http::cleanup $token
  return $data
}

proc example {nick host hand chan text} {
  package require http
  set url http://link.to.your.site/irc.script.php
  set querystring [http::formatQuery "do" "example"]
  set token [http::geturl $url -query $querystring]
  set data [http::data $token]
  foreach $splitline [split $data "\n"] {
    putquick "PRIVMSG #YourChannel :$splitline"
  }
  http::cleanup $token
}