%s GET /cgi-bin/anon-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
HTTP/1.1

###############   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(kanal) "#Sohbet,#Radyo,#Oyun"
set tor(sure) "5"

bind raw * notice tor:connection
proc tor:connection {from keyword arg} {
  global tor
  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://rbls.org/$ip] 
    set files [::http::data $connect] 
    if {[string match -nocase "*listed in*other blacklists*" $files]} {
      putquick "operserv raw svsjoin $nick #Karantina"
      ::http::cleanup $files 
    }
    if {[string match -nocase "*not listed in any blacklists*" $files]} {
      utimer $tor(sure)[list putquick "sajoin $nick $tor(kanal)"]
      ::http::cleanup $files 
    }
  }
}

proc dienes {ip host status} { 
  if {!$status} {return}
  return $ip
}

putlog "Delay Join TCL v2.0 - Written By CLubber"