bind raw * notice ipconnection
proc ipconnection {from keyword arg} {
  global botnick 
  if {![string match -nocase "*Client connecting on port*" $arg]} {return}
  set nick [lindex $arg 9]
  set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
  set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
  set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][.]com/stats.php?ip=$host] 
  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 #Opers Sorgulanan IP Bilgileri: $ip"
      unset ip
    }
    if {[info exists country]} { 
      putquick "privmsg #Opers Ülke: $country"
      unset country
    }
    if {[info exists code]} { 
      putquick "privmsg #Opers Ülke Kodu: $code"
      unset code
    }
    if {[info exists city]} { 
      putquick "privmsg #Opers Şehir: $city"
      unset city
    }
    if {[info exists plaka]} { 
      putquick "privmsg #Opers Plaka: $plaka"
      unset plaka
    }
  }
::http::cleanup $files
}
 
putlog "IP Sorgula TCL v1.0 - Written By CLubber"