##########################################################################
#         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"