#Spam Checker by aLoNe
bind raw * notice spam:connection
proc spam:connection {from keyword arg} {
  global spam
  if {[string match -nocase "*Client connecting on port*" $arg]} {
    set mecukefendi "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">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 baksuna]
    }
    set connect [::http::geturl $mecukefendi$ip] 
    set files [::http::data $connect] 
    if {![string match -nocase "*not listed in*" $files]} {
      putquick "GZLINE *@$ip 12h Spam Koruması v1.0 Coded By aLoNe"
      putquick "privmsg #Opers :Banlanan Proxy/Spam IP: $ip"
      ::http::cleanup $files 
    }
  }
}

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

putlog "Spam Koruması v1.0 Coded By aLoNe"