Miscellany

proc global_handle {chan arg} {
  global srv
  if {[ischan $chan]} {
    putlink "SJOIN [clock seconds] $chan + :$srv(nick)"
    putlink "MODE $chan +o $srv(nick)"
    putserv "PRIVMSG $chan :\002\ANNOUNCEMENT FROM $nick - $arg\002"
    putlink "SPART [clock seconds] $chan + :$srv(nick)"
    }
  return 1
}
proc global_handle_msg {nick host hand arg} {
  global botnick
  if {[llength $arg] >= 2} {
    if {[ischan [lindex $arg 0]]} {
      if {[global_handle [lindex $arg 0] [join [lrange $arg 1 end]]]} {
        putserv "NOTICE $nick :Globalling Channel [lindex $arg 0]."
      } else {
        putserv "NOTICE $nick :Was unable to global channel [lindex $arg 0]."
      }
      } else {
    putserv "NOTICE $nick :Invalid arguments. /msg $botnick help global"
    }
  }
}