###############   K O M U T L A R  B Ö L Ü M Ü   ############# 
##                                                          ## 
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ## 
##      kendinize özel yapabilir yada asla değiştirmeden    ## 
##             mevcut hali ile kullanabilirsiniz            ## 
##                                                          ## 
############################################################## 

set tor(sure) "360"
set tor(klasor) "/home/irclogin/Unreal3.2.8/tor.conf"
set tor(kanal) "#Log"
set tor(sebep) "Tor kullandığınız tespit edildiği için, sunucudan uzaklaştırıldınız."

if {![string match "*tor:guncelle*" [timers]]} { 
  timer $tor(sure) tor:guncelle 
} 

proc tor:guncelle {} { 
  global botnick tor
  set cleans [open $tor(klasor) "w"] 
  close $cleans
  set writer [open $tor(klasor) "a"]
  catch {set connect [::http::geturl https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
3000]} error
  if {[string match -nocase "*couldn't open socket*" $error]} {
    putquick "PRIVMSG $tor(kanal) :Hata: Belirtilen siteye bağlanılamadı, lütfen daha sonra tekrar deneyiniz."
    ::http::cleanup $connect
    close $writer
  }
  if {[::http::status $connect] == "*timeout*"} {
    putquick "PRIVMSG $tor(kanal) :Hata: Belirtilen siteye bağlantı zaman aşımına uğradı, lütfen daha sonra tekrar deneyiniz."
    ::http::cleanup $connect
    close $writer
  }
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "\n"]
  foreach ipadres $list {
    set bantype "ban user \{ mask *@$ipadres\; reason \"$tor(sebep)\"\; \}\;\n"
    puts $writer $bantype
  }
  close $writer
  set countfile [open $tor(klasor) "r"] 
  set numara 0 
  while {[gets $countfile line] >= 0} { 
    incr numara
  } 
  close $countfile
  putquick "PRIVMSG IRC REHASH"
  putquick "PRIVMSG $tor(kanal) :› Koruma listesi güncelleniyor."
  putquick "PRIVMSG $tor(kanal) :› Eklenen IP: $numara"
  putquick "PRIVMSG $tor(kanal) :› Ban Tipi: GZLINE"
  putquick "PRIVMSG $tor(kanal) :› Eklenen Klasör: $tor(klasor)"
  ::http::cleanup $connect
  timer $tor(sure) tor:guncelle
}

putlog "UnrealIRCD TOR TCL v1.0 - Written By CLubber"

include "tor.conf";