#################################################################################
#                                                                               #
#                     Eggdrop Proxy/Tor Koruması v3.0                           #
# Bu TCL ile sunucunuza bağlanan kullanıcılarınızı web üzerinden kontrol edip   #
#                  Online Proxy/Tor taraması yaptırabilirsiniz.                 #
#                 Proxy/Tor Taraması v3.0 - Written By CLubber                  #
#                                                                               #
#################################################################################
 
 
bind raw * notice connection
proc connection {from keyword arg} {
  global botnick
  if {[string match -nocase "*Client connecting on port*" $arg]} {
    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 ip [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
  if {![regexp {[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}} $ip]} {
    set ip [dnslookup $ip dienes]
  }
    set connect [::http::geturl http://dronebl.org/lookup?ip=$ip] 
    set files [::http::data $connect] 
    if {[string match -nocase "*There have been listing*" $files]} {
      putquick "GLINE *@$ip 24h Tor Koruması v3.0 Coded By CLubber"
      ::http::cleanup $files 
    }
    if {[string match -nocase "*No incidents regarding*" $files]} {
      ::http::cleanup $files 
    }
    if {[string match -nocase "*Please seek a life instead of*" $files]} {
      ::http::cleanup $files 
    }
  }
}
 
proc dienes {ip host status} { 
  if {!$status} {return}
  return $ip
}
 
putlog "Eggdrop Proxy/Tor Koruması v3.0 - Written By CLubber" 

source scripts/http.tcl