bind raw * notice spam:connection
proc spam:connection {from keyword arg} {
global spam
if {[string match -nocase "*Client connecting on port*" $arg]} {
set mecukefendi  "http://urunler.org/proxy.db" 
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 "*$ip*" $files]} {
putquick "GZLINE *@$ip +0 Spam/Advertising"
putquick "privmsg #Opers :Proxy/Spam IP: $ip"
::http::cleanup $files
}
}
}
proc baksuna {ip host status} {
if {!$status} {return}
return $ip
}