##########################################################################
#         Public IP Info v0.3 by Hawkee - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
           #
#----------------------------------------------------------------------- #
# This script uses 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
       #
#                                     #
#               grtz HWK @ undernet                    #
#########################################################################

set ipinfo(useaccount)       1         ;#set this to 1 if you have a ip2location.com account and you want to use it
set ipinfo(i2lmail)      "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"   ;#set the login e-mail address from ip2location.com
set ipinfo(i2lpass)      "mypass"      ;#set the account password from ip2location.com

set ipinfo(cachefile)       "ipinfo.cache"      ;#the cache file
set ipinfo(cacherefresh)    "7"         ;#the time (in days) to refresh the info for an IP

set ver "0.3"



#### END OF SETTINGs
#### edit with caution from here on





catch {array unset ipinfocache}
unset -nocomplain COOKIES
unset -nocomplain ::ipinfo(loginfailure)

package require http


set ipinfo(islogged) 0


proc 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 token
   set login [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
3000]
   set logindata [::http::data $login]

   ::http::cleanup $login


   ## making sure we got the login method right
   if {[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 "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 state
      set cookies [list]

       foreach {name value} $state(meta) {
             if {$name eq "Set-Cookie"} {lappend cookies [lindex [split $value {;}] 0];}
       }

      ::http::cleanup $dologin
      putlog "IP INFO: LOGGED IN"
      return $cookies
   }

   putlog "IP INFO: FAILED - THE AUTH MECHANISM NOT compatible -- please e-mail: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 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 $headers
         set ::ipinfo(islogged) 1
      } else {
         set ::ipinfo(loginfailure) 1
         putlog "IP INFO: ERROR: LOGIN FAIL -- please check message";
      }

   } elseif {![info exists ::ipinfo(loginfailure)]} {
      set headers $::COOKIES
   }

}

      set http_req [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
3000 -headers $headers]

   set data [::http::data $http_req]

   ::http::cleanup $http_req

   if {[regexp {<span id="dgLookup__ctl2_lblICountry">([^<]+)</span></td>} $data -> country]} {
      regexp {<span id="dgLookup__ctl2_lblICity">([^<]+)</span></td>} $data -> city
      regexp {<span id="dgLookup__ctl2_lblIISP">([^<]+)</span></td>} $data -> isp
      regexp {<span id="dgLookup__ctl2_lblIDomain">([^<]+)</span></td>} $data -> domain

      set 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 ipinfocache

if {[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:save
      return $info
   } else {
   return $ipinfocache($host)
   }
} else {
   set info [ipinfo:getinfo $host]
   ipinfo:save
   return $info
}

}

proc ipinfo:save {} {
global ipinfo ipinfocache

set write [open $ipinfo(cachefile) w]
puts $write   [list array set ipinfocache [array get ipinfocache]]
close $write

}

proc ipinfo:read {} {
global ipinfo ipinfocache

if {[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:save
putlog "IPinfo: cache file written - first time use"
}

}

ipinfo:read

bind pub -|- !ipinfo ipinfo:parser

putlog "Public IP Info $ver by HAWKEE Successfuly loaded"

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set ipinfo(i2lmail)      
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

set ipinfo(i2lpass)      "mypass"