I use antiproxy.tcl, done by metroid, and i m happy with it. But the proxy database it checks online arent that accurate, resulting of banning some innocent people. I request help for adding an exemption list. In this list we can have hotmasks like :
*!*@*.users.undernet.org
*!*@41.2??.*
*!*@*.ca
*!*@196.2*
etc, all kind of hostmasks
I think this is the proc to modify to check if the adress is the exemption list :
Code: Select all
proc proxy::checkuser {nickname hostname handle channel} {
checkstats $channel
if {[channel get $channel antiproxy] && [botisop $channel] && ![string match *users.quakenet.org* $hostname] && ![matchattr $handle fomn|fomn $channel] && ![isbotnick $nickname]} {
channel set $channel antijoins "[expr [channel get $channel antijoins] + 1]"
regexp {.*\@(.*)} $hostname -> hostname
if [regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $hostname] {
[namespace current]::check $hostname $hostname 1 $nickname $hostname $channel
} else {
dnslookup $hostname [namespace current]::check $nickname $hostname $channel
}
}
}
Code: Select all
![string match *users.undernet.org* $hostname]
It s the one with the nice ASCII art