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
}