Code:

bind dcc m endcc dcc_whoisbind bot - aubot bot_whoisproc dcc_whois {hand idx text} {set idx [string tolower [lindex $text 0]]putallbots "aubot $idx"}proc bot_whois {hand idx arg} {global swi_idx set idx [join [lrange [split $arg] 0 end]]dccbroadcast "#$hand# endcc $idx"if {$idx == ""} {dccbroadcast "Usage: .swhois \[server\] <nickmask>"} else {set swi_idx $idxswi_wibindall                putserv "WHOIS $idx"}}#processus de whois proc raw:swi_wi301 {from key arg} {global swi_idxset awaymessage [string trimleft [join [lrange [split $arg] 2 end]] :]if {[valididx $swi_idx]} {dccbroadcast "Away         : $awaymessage"}}proc raw:swi_wi311 {from key arg} {global swi_idxset nick [lindex [split $arg] 1]set username [lindex [split $arg] 2]set hostname [lindex [split $arg] 3]set realname [string trimleft [join [lrange [split $arg] 5 end]] :]if {[valididx $swi_idx]} {dccbroadcast "--- Whois $nick"dccbroadcast "Nick         : $nick"dccbroadcast "Realname     : $realname"dccbroadcast "Address      : $username@$hostname"}}proc raw:swi_wi312 {from key arg} {global swi_idxset server [lindex [split $arg] 2]set serverinfo [string trimleft [join [lrange [split $arg] 3 end]] :]if {[valididx $swi_idx]} {dccbroadcast "Server       : $server"dccbroadcast "Serverinfo   : $serverinfo"}}proc raw:swi_wi313 {from key arg} {global swi_idxif {[valididx $swi_idx]} {dccbroadcast "IRC Operator : yes"}}proc raw:swi_wi317 {from key arg} {global swi_idxset idletime [lindex [split $arg] 2]set signontime [lindex [split $arg] 3]if {[catch {set idletime [duration $idletime]}]} { set idletime "$idletime seconds"  }if {[valididx $swi_idx]} {dccbroadcast "Idle         : $idletime"if {[swi_isnum $signontime]} { dccbroadcast "Signon time  : [ctime $signontime]" }}}proc raw:swi_wi318 {from key arg} {global swi_idxif {[valididx $swi_idx]} {dccbroadcast "--- End of Whois"}swi_wiunbindall}proc raw:swi_wi319 {from key arg} {global swi_idxset channels [string trimleft [join [lrange [split $arg] 2 end]] :]if {[valididx $swi_idx]} {dccbroadcast "Channels     : $channels"}}proc raw:swi_wi401 {from key arg} {global swi_idxset nick [lindex [split $arg] 1]if {[valididx $swi_idx]} {dccbroadcast "--- Whois $nick"dccbroadcast "No such nick/channel"}}proc raw:swi_wi402 {from key arg} {global swi_idxif {[valididx $swi_idx]} {dccbroadcast "--- Whois"dccbroadcast "No such server"dccbroadcast "--- End of Whois"}swi_wiunbindall}#autres processus ...proc swi_isnum {number} {if {($number != "") && (![regexp \[^0-9\] $number])} {return 1} else {return 0}}proc swi_wibindall { } {bind raw - 301 raw:swi_wi301bind raw - 311 raw:swi_wi311bind raw - 312 raw:swi_wi312bind raw - 313 raw:swi_wi313bind raw - 317 raw:swi_wi317bind raw - 318 raw:swi_wi318bind raw - 319 raw:swi_wi319bind raw - 401 raw:swi_wi401bind raw - 402 raw:swi_wi402}proc swi_wiunbindall { } {unbind raw - 301 raw:swi_wi301unbind raw - 311 raw:swi_wi311unbind raw - 312 raw:swi_wi312unbind raw - 313 raw:swi_wi313unbind raw - 317 raw:swi_wi317unbind raw - 318 raw:swi_wi318unbind raw - 319 raw:swi_wi319unbind raw - 401 raw:swi_wi401unbind raw - 402 raw:swi_wi402}proc swi_wwbindall { } {bind raw - 314 raw:swi_ww314bind raw - 369 raw:swi_ww369bind raw - 402 raw:swi_ww402bind raw - 406 raw:swi_ww406}proc swi_wwunbindall { } {unbind raw - 314 raw:swi_ww314unbind raw - 369 raw:swi_ww369unbind raw - 402 raw:swi_ww402unbind raw - 406 raw:swi_ww406}