Posted to tcl by dkf at Wed Sep 12 10:35:43 GMT 2007view raw
- 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
- }