Code:

set whoisinfo(version) "20.18"set whoisinfo(trigger) "!infoip"set whoisinfo(port) 43set whoisinfo(ripe) "whois.ripe.net"set whoisinfo(arin) "whois.arin.net"set whoisinfo(apnic) "whois.apnic.net"set whoisinfo(lacnic) "whois.lacnic.net"set whoisinfo(afrinic) "whois.afrinic.net"bind pub - $whoisinfo(trigger) pub_whoisinfo##  Here's the first line to addsetudef flag whoisinfoproc whoisinfo_setarray {} {global queryset query(netname) "(none)"set query(country) "(none)"set query(orgname) "(none)"set query(orgid) "(none)"set query(range) "(none)"}proc whoisinfo_display { chan } {global queryputlog "Firstline: $query(firstline)"puthelp "PRIVMSG $chan :2Range: 04$query(range) |02 Netname: 14$query(netname) | Organisation: 10$query(orgname) |02 Country: 15$query(country)"}proc pub_whoisinfo {nick uhost handle chan search} {global whoisinfoglobal query### Here's the second edit.        if {![channel get $chan whoisinfo]} {               return 0           }###  end of additional lines #####    whoisinfo_setarray if {[whoisinfo_whois $whoisinfo(arin) $search]==1} {if {[string compare [string toupper $query(orgid)] "RIPE"]==0} {if {[whoisinfo_whois $whoisinfo(ripe) $search]==1} {whoisinfo_display $chan} } elseif {[string compare [string toupper $query(orgid)] "APNIC"]==0} {if {[whoisinfo_whois $whoisinfo(apnic) $search]==1} {whoisinfo_display $chan} } elseif {[string compare [string toupper $query(orgid)] "LACNIC"]==0} {if {[whoisinfo_whois $whoisinfo(lacnic) $search]==1} {whoisinfo_display $chan} } elseif {[string compare [string toupper $query(orgid)] "AFRINIC"]==0} {if {[whoisinfo_whois $whoisinfo(afrinic) $search]==1} {whoisinfo_display $chan} } else {whoisinfo_display $chan}} else {if { [info exist query(firstline)] } {puthelp "PRIVMSG $chan :\[\002Whois\002\] Firstline: $query(firstline)"} else {puthelp "PRIVMSG $chan :\[\002Whois\002\] Error?"}}}proc whoisinfo_whois {server search} {global whoisinfoglobal queryset desccount 0set firstline 0set reply 0putlog "Whois: $server:$whoisinfo(port) -> $search"if {[catch {set sock [socket -async $server $whoisinfo(port)]} sockerr]} {      puthelp "PRIVMSG $chan :\[\002Whois\002\] Error: $sockerr. Try again later."      close $sockreturn 0    }puts $sock $searchflush $sockwhile {[gets $sock whoisline]>=0} {putlog "Whois: $whoisline"if {[string index $whoisline 0]!="#" && [string index $whoisline 0]!="%" && $firstline==0} {if {[string trim $whoisline]!=""} {set query(firstline) [string trim $whoisline]set firstline 1}}if {[regexp -nocase {netname:(.*)} $whoisline all item]} {set query(netname) [string trim $item]set reply 1} elseif {[regexp -nocase {owner-c:(.*)} $whoisline all item]} {set query(netname) [string trim $item]set reply 1 } elseif {[regexp -nocase {country:(.*)} $whoisline all item]} {set query(country) [string trim $item]set reply 1} elseif {[regexp -nocase {descr:(.*)} $whoisline all item] && $desccount==0} {set query(orgname) [string trim $item]set desccount 1set reply 1} elseif {[regexp -nocase {orgname:(.*)} $whoisline all item]} {set query(orgname) [string trim $item]set reply 1} elseif {[regexp -nocase {owner:(.*)} $whoisline all item]} {set query(orgname) [string trim $item]set reply 1} elseif {[regexp -nocase {orgid:(.*)} $whoisline all item]} {set query(orgid) [string trim $item]set reply 1} elseif {[regexp -nocase {inetnum:(.*)} $whoisline all item]} {set query(range) [string trim $item]set reply 1} elseif {[regexp -nocase {netrange:(.*)} $whoisline all item]} {set query(range) [string trim $item]set reply 1}}close $sockreturn $reply}putlog "whoisinfo.tcl v$whoisinfo(version) by JeFFOsZ: loaded."

Code:

set whoisinfo(version) "20.18"set whoisinfo(trigger) "!infoip"set whoisinfo(port) 43set whoisinfo(ripe) "whois.ripe.net"set whoisinfo(arin) "whois.arin.net"set whoisinfo(apnic) "whois.apnic.net"set whoisinfo(lacnic) "whois.lacnic.net"set whoisinfo(afrinic) "whois.afrinic.net"bind pub - $whoisinfo(trigger) pub_whoisinfoproc whoisinfo_setarray {} {global queryset query(netname) "(none)"set query(country) "(none)"set query(orgname) "(none)"set query(orgid) "(none)"set query(range) "(none)"}proc whoisinfo_display { chan } {global queryputlog "Firstline: $query(firstline)"puthelp "PRIVMSG $chan :2Range: 04$query(range) |02 Netname: 14$query(netname) | Organisation: 10$query(orgname) |02 Country: 15$query(country)"}proc pub_whoisinfo {nick uhost handle chan search} {global whoisinfoglobal querywhoisinfo_setarray if {[whoisinfo_whois $whoisinfo(arin) $search]==1} {if {[string compare [string toupper $query(orgid)] "RIPE"]==0} {if {[whoisinfo_whois $whoisinfo(ripe) $search]==1} {whoisinfo_display $chan} } elseif {[string compare [string toupper $query(orgid)] "APNIC"]==0} {if {[whoisinfo_whois $whoisinfo(apnic) $search]==1} {whoisinfo_display $chan} } elseif {[string compare [string toupper $query(orgid)] "LACNIC"]==0} {if {[whoisinfo_whois $whoisinfo(lacnic) $search]==1} {whoisinfo_display $chan} } elseif {[string compare [string toupper $query(orgid)] "AFRINIC"]==0} {if {[whoisinfo_whois $whoisinfo(afrinic) $search]==1} {whoisinfo_display $chan} } else {whoisinfo_display $chan}} else {if { [info exist query(firstline)] } {puthelp "PRIVMSG $chan :\[\002Whois\002\] Firstline: $query(firstline)"} else {puthelp "PRIVMSG $chan :\[\002Whois\002\] Error?"}}}proc whoisinfo_whois {server search} {global whoisinfoglobal queryset desccount 0set firstline 0set reply 0putlog "Whois: $server:$whoisinfo(port) -> $search"if {[catch {set sock [socket -async $server $whoisinfo(port)]} sockerr]} {      puthelp "PRIVMSG $chan :\[\002Whois\002\] Error: $sockerr. Try again later."      close $sockreturn 0    }puts $sock $searchflush $sockwhile {[gets $sock whoisline]>=0} {putlog "Whois: $whoisline"if {[string index $whoisline 0]!="#" && [string index $whoisline 0]!="%" && $firstline==0} {if {[string trim $whoisline]!=""} {set query(firstline) [string trim $whoisline]set firstline 1}}if {[regexp -nocase {netname:(.*)} $whoisline all item]} {set query(netname) [string trim $item]set reply 1} elseif {[regexp -nocase {owner-c:(.*)} $whoisline all item]} {set query(netname) [string trim $item]set reply 1 } elseif {[regexp -nocase {country:(.*)} $whoisline all item]} {set query(country) [string trim $item]set reply 1} elseif {[regexp -nocase {descr:(.*)} $whoisline all item] && $desccount==0} {set query(orgname) [string trim $item]set desccount 1set reply 1} elseif {[regexp -nocase {orgname:(.*)} $whoisline all item]} {set query(orgname) [string trim $item]set reply 1} elseif {[regexp -nocase {owner:(.*)} $whoisline all item]} {set query(orgname) [string trim $item]set reply 1} elseif {[regexp -nocase {orgid:(.*)} $whoisline all item]} {set query(orgid) [string trim $item]set reply 1} elseif {[regexp -nocase {inetnum:(.*)} $whoisline all item]} {set query(range) [string trim $item]set reply 1} elseif {[regexp -nocase {netrange:(.*)} $whoisline all item]} {set query(range) [string trim $item]set reply 1}}close $sockreturn $reply}putlog "whoisinfo.tcl v$whoisinfo(version) by JeFFOsZ: loaded."