Code:

[16:13] Whois: whois.arin.net:43 -> 93.24.58.127

Code:

<@nagger> Error

Code:

############################### whoisinfo.tcl v0.1############################################################# SETTINGS############################### versionset whoisinfo(version) "0.1"# triggerset whoisinfo(trigger) "!ip"# whois portset whoisinfo(port) 43# ripe serverset whoisinfo(ripe) "whois.ripe.net"# arin serverset whoisinfo(arin) "whois.arin.net"# apnic serverset whoisinfo(apnic) "whois.apnic.net"# lacnic serverset whoisinfo(lacnic) "whois.lacnic.net"# afrinic serverset whoisinfo(afrinic) "whois.afrinic.net"############################### BINDS##############################bind pub - $whoisinfo(trigger) pub_whoisinfo############################### CODE##############################proc 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 :\[\002IP Whois\002\] Range: $query(range), Netname: $query(netname), Organisation: $query(orgname), Country: $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."