;# IP-host eşleşmesinde yapılacak işlemde kullanılacak kullanıcıyı uzaklaştırma sebebiniz:
set sebep "IP/hostunuzda Tor proxy tespit edildi... bizi tercih ettiğiniz için teşekkür ederiz... selametle..."

;# yakalanan tor IP-hostları için yapılacak işlem:
set method "gzline"

;# yapılan işlem için gereken uzaklaştırma süresi:
set sure "30m"

;# anons yaptırılacak oda olacak mı ( 1 = evet - 0 = hayır)
set anons "1"

;# anons kanalı olacaksa adı ne olacak:
set anonsknl "#anons"

;# yakalanan her tor için bu sayıdan itibaren saydırılacak:
set torno "0"

;############burdan sonrasını değişmemelisiniz.####################################################################

;# tor IP'lerin olduğu birinci dosya: 
set csvfile1 "Tor_ip_list_ALL.csv"

;# tor IP-host ve diğer tüm bilgilerinin olduğu dosya:
set csvfile2 "Tor_query_EXPORT.csv"

;##########################ayarlar bitti###########################################################################

bind raw * notice notc:serv
bind time - "30 *" csv:wget

proc notc:serv {from keyword arg} {
  if {![string match -nocase "*client connecting*" $arg] || [string match -nocase "*!*@*" $from]} { return 0;}
     set ip [string range [lindex [split [lindex [split $arg] 9] @] 1] 0 end-1]
     set stamp "[clock format [expr {3600 + [clock seconds]}] -format "Tarih: %d/%m/%Y - Saat: %H:%M:%S - %z"]"
     set ::tip $ip ;set ::tstamp $stamp
  if {[regexp {^(?:(?:[01]?\d?\d|2[04]\d|25[0-5])(\.|$)){4}$} $ip]} {
     tor:ip:file
     } else {
     tor:hosts:file tor
     }
  return 0
}

proc tor:ip:file {} {
     set ip $::tip ;set stamp $::tstamp
     set fp [open $::csvfile1 "r"] 
     set data [read -nonewline $fp] 
      close $fp 
     set lines [split $data "\n"]
  if {[lsearch -nocase -index 0 $lines $ip] == -1} {
     putcmdlog "$ip ile ilgili $::csvfile1 dosyasında eşleşme bulunmadı. $stamp"
     tor:hosts:ip:file tor
     } else {
      incr ::torno
     putquick "$::method *@[lindex $lines [lsearch -nocase -index 0 $lines $ip] 0] $::sure :$::sebep:[concat $::torno - $stamp]"
  if {$::anons != "0"} {
     puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]"
      return 0
      }
   }
}
 
proc tor:hosts:ip:file {tor} {
     set ip $::tip ;set stamp $::tstamp
     set torip [lindex [split $tor ,] 4]
     set fp [open $::csvfile2 "r"] 
     set data [read -nonewline $fp] 
      close $fp 
     foreach line [split $data "\n"] {
  if {$ip != $torip} {
     putcmdlog "$ip ile ilgili $::csvfile2 dosyasında eşleşme bulunmadı. $stamp"
       return 0 
     } else {
      incr ::torno
      putquick "$::method *@$ip $::sure :$::sebep:[concat $::torno - $stamp]"
  if {$::anons != "0"} {
     puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]"
      return 0
      }
    }
  }
}

proc tor:hosts:file {tor} {
     set ip $::tip ;set stamp $::tstamp
     set torhost [lindex [split $tor ,] 5]
     set fp [open $::csvfile2 "r"] 
     set data [read -nonewline $fp] 
      close $fp 
     foreach line [split $data "\n"] {
  if {$ip != $torhost} {
     putcmdlog "$ip ile ilgili $::csvfile2 dosyasında eşleşme bulunmadı. $stamp"
       return 0 
     } else {
      incr ::torno
     putquick "$::method *@$ip $::sure :$::sebep:[concat $::torno - $stamp]"
  if {$::anons != "0"} {
     puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]"
      return 0
      }
    }
  }
}

proc csv:wget {minute hour day month year} {
     set torips "wget -N http://torstatus.blutmagie.de/ip_list_all.php/Tor_ip_list_ALL.csv DEBUG"
     set torhosts "wget -N http://torstatus.blutmagie.de/query_export.php/Tor_query_EXPORT.csv DEBUG"
     eval exec $torips
     utimer 1 [list eval exec $torhosts]
  }
  
putlog "ok...."

bind dcc n tcl *dcc:tcl
 bind dcc n set *dcc:set