# Description: shows whois in current window instead of status

procs raw_311 raw_312 raw_313 raw_314 raw_317 raw_319 raw_401 raw_406

proc raw_311 {header line} {
    Echo [current] "\[ whois \] [lindex $header 3] is [lindex $header 4]@[lindex $header 5] ($line)" whois default
}

proc raw_312 {header line} {
    global last
    if {$last == "314"} {
        Echo [current] "\[ whowas \] [lindex $header 3] was on server [lindex $header end] until $line" whowas default
    } else {
        Echo [current] "\[ whois \] [lindex $header 3] on server [lindex $header end] ($line)" whois default
    }
}

proc raw_313 {header line} {
    Echo [current] "\[ whois \] [lindex $header end] $line" whois default
}

proc raw_314 {header line} {
    Echo [current] "\[ whowas \] [lindex $header 3] was [lindex $header 4]@[lindex $header 5] ($line)" whowas default
}

proc raw_317 {header line} {
    if {[lindex $header 5] != ""} {
        Echo [current] "\[ whois \] [lindex $header 3] has been idle [dur [lindex $header 4]], signed on [clock format [lindex $header end] -format "%m/%d/%y at %H:%M:%S"]" whois default
    } else {
        Echo [current] "\[ whois \] [lindex $header 3] has been idle [dur [lindex $header 4]]" whois default
    }
}

proc raw_319 {header line} {
    Echo [current] "\[ whois \] [lindex $header end] on channels [string trim $line]" whois default
}

proc raw_401 {header line} {
    Echo [current] "( 401 ) [lindex $header end] $line" numeric
    Send "WHOWAS [lindex $header end]"
}

proc raw_406 {header line} {
    Echo [current] "( 406 ) [lindex $header end] $line" numeric
}

proc unload { } {

}