variable textf \017\00304
variable logo \017\00304\002\[\00306W\003hois\00304\]\017
variable lineout channel users modes topic
setudef flag $whois::command
bind pub [string trimleft $whois::cmdchar]${whois::command} whois::list
bind raw 313 whois::multi
bind raw 310 whois::multi
bind raw 335 whois::multi
bind raw 671 whois::multi
bind raw 320 whois::multi
bind raw 401 whois::multi
proc whois::311 {from key text} {
if {[regexp {[\s]\s(.)\s(.)\s(.)\s\\s\:(.)$} $text wholematch nick ident host realname]} {
putserv PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Host:${whois::textf} \
$nick \(${ident}@${host}\) ${whois::tagf}Realname:${whois::textf} $realname
proc whois::multi {from key text} {
if {[regexp {\:(.)$} $text match $key]} {
putserv PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Note:${whois::textf} [subst $$key]
proc whois::312 {from key text} {
regexp {([\s])\s\:} $text match server
putserv PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Server:${whois::textf} $server
proc whois::319 {from key text} {
if {[regexp {.\:(.)$} $text match channels]} {
putserv PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Channels:${whois::textf} $channels
proc whois::317 {from key text} {
if {[regexp {.\s(\d)\s(\d)\s\:} $text wholematch idle signon]} {
putserv PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Connected:${whois::textf} \
[ctime $signon] ${whois::tagf}Idle:${whois::textf} [duration $idle]
proc whois::301 {from key text} {
if {[regexp {.\s[\s]\s\:(.)$} $text match awaymsg]} {
putserv PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Away:${whois::textf} $awaymsg
proc whois::318 {from key text} {
proc whois::307 {from key text} {
putserv PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Services:${whois::textf} Registered Nick
proc whois::list {nick host hand chan text} {
if {[lsearch exact [channel info $chan] ${whois::command}] 1} {
variable whois::channel $chan
putlog \002Loaded \017\00304\002\[\00306W\003hois\00304\]\017 \002by \
Ford_Lawnmower irc.GeekShed.net #ScriptHelp