Posted to tcl by dkf at Wed Sep 12 10:35:43 GMT 2007view pretty
proc nihl:raw:354 {from keyword arg} { putlog "INC: [lindex $arg 2]" set ::auth [list [lindex $arg 2]] } proc read_auth {nick} { global auth set auth {} bind raw - 354 nihl:raw:354 after 1 [list putquick "WHO $nick n%na"] if {$auth eq ""} { vwait auth } return $auth }