Code:

###########################################################################         Public IP Info v0.3 by Hawkee - lowraider1@gmail.com           ##----------------------------------------------------------------------- ## This script uses www.ip2location.com to check info for an ip adresses  ##  It with both with and without ip2location account                 ### Using it without a ip2location.com account limits the script# functionality to 50 lookup's per day.## If don't have a ip2location.com account your can register one for free ## and get 200 look-up per day.#      ## See the ip2location setting bellow                                ##          ## Changes from version 0.2:                 ##-fixed some bugs                                           ##             -code optimizations           ##-updated the recognition format#-more error information#-implemented ip2location.com account                       ##          ##                 ## Works on all channels, and it can be used by all users. Requires TCL   ## HTTP PACK          ##                 ## USAGE: !ipinfo <IP>   ## HAVE PHUN          ## Email me with suggestions and bug reports at lowraider1@gmail.com    ##          ##grtz HWK @ undernet                 ##########################################################################set ipinfo(useaccount) 1;#set this to 1 if you have a ip2location.com account and you want to use itset ipinfo(i2lmail)"myemail@domain.com";#set the login e-mail address from ip2location.comset ipinfo(i2lpass)"mypass";#set the account password from ip2location.comset ipinfo(cachefile) "ipinfo.cache";#the cache fileset ipinfo(cacherefresh) "7";#the time (in days) to refresh the info for an IPset ver "0.3"#### END OF SETTINGs#### edit with caution from here oncatch {array unset ipinfocache}unset -nocomplain COOKIESunset -nocomplain ::ipinfo(loginfailure)package require httpset ipinfo(islogged) 0proc ipinfo:parser {nick uhost hand chan args} {set ip [string trimright [lindex $args 0] "."]if {![regexp {^(?:(?:[01]?\d?\d|2[0-4]\d|25[0-5])(\.|$)){4}$} $ip]} {puthelp "privmsg $chan :$nick NO/Invalid IP pattern. USAGE: !ipinfo 193.193.193.193"putlog "IP INFO $chan $nick - INVALID IP PATTERN"return}set infoip [ipinfo:output $ip]if {[string equal [lindex $infoip 0] -]} {puthelp "privmsg $chan :$nick No information found for IP: \00302$ip\003 please redefine your IP"putlog "IP INFO $chan $nick - No results - SOMETHING MAY WENT WRONG"return}set country [lindex $infoip 0]set city [lindex $infoip 1]set isp [lindex $infoip 2]set domain [lindex $infoip 3]puthelp "privmsg $chan :$nick IP information for \00302$ip\003: \002Country:\002 \00304$country\003, \002City:\002 \00304$city\003, \002ISP\002: \00302$isp\003, \002Domain:\002 \00302$domain\003"putlog "IPinfo request:  $nick on $chan"}proc ipinfo:dologin {} {## getting login tokenset login [::http::geturl "http://www.ip2location.com/login.aspx" -timeout 3000]set logindata [::http::data $login]::http::cleanup $login## making sure we got the login method rightif {[regexp {<input type="hidden" name="__VIEWSTATE" value="([^<]+)" />} $logindata -> logtok]} {set logque [::http::formatQuery __VIEWSTATE $logtok btnLogin.x 35 btnLogin.y 17 txtEmailAddress $::ipinfo(i2lmail) txtPassword $::ipinfo(i2lpass) chkRememberMe on]set dologin [::http::geturl "http://www.ip2location.com/login.aspx" -timeout 3000 -query $logque]if {[regexp {<span id="lblMessage" class="fontredsmall">(Invalid(.*))</span></center>} [::http::data $dologin]]} {putlog "IP INFO: FAILED - INVALID ACCOUNT DETAILS (mail or password)"return 0;}upvar \#0 $dologin stateset cookies [list] foreach {name value} $state(meta) {    if {$name eq "Set-Cookie"} {lappend cookies [lindex [split $value {;}] 0];} }::http::cleanup $dologinputlog "IP INFO: LOGGED IN"return $cookies} putlog "IP INFO: FAILED - THE AUTH MECHANISM NOT compatible -- please e-mail: lowraider1@gmail.com with this issue"return 0;}proc ipinfo:cookies {cookielist} {return [list Cookie [join $cookielist {; }]]}proc ipinfo:getinfo {host} {global ipinfo ipinfocache::http::config -useragent "Mozilla/5.0 ; Gecko"set headers {}if {$::ipinfo(useaccount)} {if {!$::ipinfo(islogged)} {putlog "IP INFO: NOT LOGGED TRYING TO LOG IN";set logstats [ipinfo:dologin]if {$logstats != 0} {set headers [ipinfo:cookies $logstats]set ::COOKIES $headersset ::ipinfo(islogged) 1} else { set ::ipinfo(loginfailure) 1putlog "IP INFO: ERROR: LOGIN FAIL -- please check message";}} elseif {![info exists ::ipinfo(loginfailure)]} {set headers $::COOKIES}}   set http_req [::http::geturl "http://www.ip2location.com/$host" -timeout 3000 -headers $headers]set data [::http::data $http_req]::http::cleanup $http_reqif {[regexp {<span id="dgLookup__ctl2_lblICountry">([^<]+)</span></td>} $data -> country]} {regexp {<span id="dgLookup__ctl2_lblICity">([^<]+)</span></td>} $data -> cityregexp {<span id="dgLookup__ctl2_lblIISP">([^<]+)</span></td>} $data -> ispregexp {<span id="dgLookup__ctl2_lblIDomain">([^<]+)</span></td>} $data -> domainset info [list $country $city $isp $domain [unixtime]]set ipinfocache($host) $info} else {putlog "IP INFO: Lookup FAILURE";set info {-}}return $info}proc ipinfo:output {host} {global ipinfo ipinfocacheif {[info exists ipinfocache($host)]} {if {[expr {(60*60*24)*$ipinfo(cacherefresh)}] < [expr {[unixtime] - [lindex $ipinfocache($host) 4]}]} {putlog "IPinfo: refreshing cache data for $host"set info [ipinfo:getinfo $host]ipinfo:savereturn $info} else {return $ipinfocache($host)}} else {set info [ipinfo:getinfo $host]ipinfo:savereturn $info}}proc ipinfo:save {} {global ipinfo ipinfocacheset write [open $ipinfo(cachefile) w]puts $write[list array set ipinfocache [array get ipinfocache]]close $write}proc ipinfo:read {} {global ipinfo ipinfocacheif {[file exists $ipinfo(cachefile)]} {if {![catch {source $ipinfo(cachefile)} cacheerror]} {putlog "IPinfo: cache file successfully loaded"} else {putlog "IPinfo: cache file failed to load -: $cacheerror"putlog "IPinfo: trying to fix cache file: reset" ; ipinfo:save}} else {ipinfo:saveputlog "IPinfo: cache file written - first time use"}}ipinfo:readbind pub -|- !ipinfo ipinfo:parserputlog "Public IP Info $ver by HAWKEE Successfuly loaded" 

Code:

   } else {      # we have no output at all, declare      puthelp "privmsg $chan :$text returns no useful information for me to reply with... ;/"      # if we are logged in, this doesn't count against our quota so add back the 1 we took away. ;)      if {$::whereisLogged > 0} { incr ::whereisRemain 1 }   }

Code:

... snipped irrelevant parts ...   # get data, to check if we are logged in or not   set html [::http::data $http]   # copy the html to a file here, this may be a stupid ad.   # Need to do this so users can give the html for the   # GOLD MEMBER and other accounts..         set c [open "whereis-tcl.html" w]   puts $c $html   close $c   # bypass the stupid ad trying to get you to become a pay member....   if {[regexp -nocase {"/member/">} $html]} {     catch {set http [::http::geturl "http://www.ip-adress.com/member/" -headers [list Referer [string map {" " "%20"} $value] Cookie [join $::whereisCookies {;}]] -timeout [expr 1000 * 10]]} error     # error condition 1: invalid http session     if {![string match -nocase "::http::*" $error]} {        putserv "privmsg $chan :\002Whereis\002: Login Failed: [string totitle $error] \( http://www.ip-adress.com/member \)"        set ::whereisLogged 0        return 0     }     # error condition 2: http error     if {![string equal -nocase [::http::status $http] "ok"]} {        putserv "privmsg $chan :\002Whereis\002: Login Failed: [string totitle [::http::status $http]] \( http://www.ip-adress.com/member \)"        set ::whereisLogged 0        return 0     }     # get html     set html [::http::data $http]   }   # cleanup http token   ::http::cleanup $http   # cleanse html of problematic undisplayable characters   regsub -all {(?:\n|\t|\v|\r|\x01)} $html " " html   # check that 'login failed' isn't within the html   if {![string match -nocase "*login failed*" $html]} {      # wasn't found, we must be logged in. ;)     # do we have any quota left?     if {![regexp -nocase {<div class="row2">.*?<span class="limit.*?>(.*?)</span.*?<span class="limit.*?>(.*?)</span.*?<span class="limit.*?>(.*?)</span><br>} $html - daily remain extra]} {       # no, are we a gold member account?       if {![regexp -nocase {Gold Member<br>} $html]} {         # no, we should message we are exceeded...         putserv "privmsg $chan :\002Whereis\002: Account quota appears to have been exceeded..."         # then we should logout         set lf [whereisLogout $nick $uhost $hand $chan $text]         # and return 0 to indicate logged out         return 0       } else {         # yes, we are a gold member, set some fake variables         set daily 999 ; set remain 999 ; set extra 0       }     }     # yes, set state as logged in     set ::whereisLogged 1... snip ...

Code:

       # no, are we a gold member account?       if {![regexp -nocase {Gold Member<br>} $html]} {