##################################################################
#          IP Sorgulama TCL v1.0 - Written By CLubber            #
#      Bu TCL ile istediğiniz bir ip'yi sorgulayabilirsiniz.     #
#            Kullanımı: <!ipsorgula ip> şeklindedir.             #
#       TCL'nin çalışabilmesi için HTTP TCL'ye ihtiyaç vardır.   #
##################################################################
 
# Komutun Kullanılacağı Kanal
set cmd_chan "#OperLog"
 
############################################
# IP Sorgula TCL v1.0 - Written By CLubber #
############################################
bind pub - !ipsorgula msg_sorgula
proc msg_sorgula {nick uhost hand chan text} {
  global botnick cmd_chan
  if {$text == ""} {putquick "PRIVMSG $cmd_chan :Herhangi bir ip'yi sorgulamak için lütfen komutu doğru kullanınız. Kullanımı: <!ipsorgula ip> şeklindedir.";return}
  set connect [::http::geturl http://ipstats.ircfanclub.com/stats.php?ip=$text] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "\n"]
  foreach i $list {
    regexp -- {<b>Sorgulanan IP Bilgileri:</b> (.+?)</font>} $i - ip
    regexp -- {<b>Ulke:</b></font> (.+?)<br />} $i - country
    regexp -- {<b>Ulke Kodu:</b></font> (.+?)<br />} $i - code
    regexp -- {<b>Sehir:</b></font> (.+?)<br />} $i - city
    regexp -- {<b>Plaka:</b></font> (.+?)<br />} $i - plaka
    if {[info exists ip]} { 
      putquick "privmsg $cmd_chan Sorgulanan IP Bilgileri: $ip"
      unset ip
    }
    if {[info exists country]} { 
      putquick "privmsg $cmd_chan Ülke: $country"
      unset country
    }
    if {[info exists code]} { 
      putquick "privmsg $cmd_chan Ülke Kodu: $code"
      unset code
    }
    if {[info exists city]} { 
      putquick "privmsg $cmd_chan Şehir: $city"
      unset city
    }
    if {[info exists plaka]} { 
      putquick "privmsg $cmd_chan Plaka: $plaka"
      unset plaka
    }
  }
::http::cleanup $files
}
 
putlog "IP Sorgula TCL v1.0 - Written By CLubber"

source scripts/http.tcl