Prob in Noticeban tcl

[suchwani]

i m using noticeban tcl by pulse. there r some error in dat tcl. like when anyone deop by chanserv . then bot ban the service host.
-ChanServ:#- <nick> has deopped <nick>
* ChanServ sets mode: -o <nick>
* <bot> sets mode: +b *!*@dal.net
in netsplit sometime server send notice in channel that flood protection activited for <chan>
then bot banned the host *!*@*
twisted.ma.us.dal.net:#- flood protection activited for <chan>
* <bot> sets mode: +b *!*@*
i added services ip in bot +f flag but it wont work
can anyone fix it dat bot don't detect notice by chanserv and by any server.

bind NOTC - * NoticeBan

Code: Select all

proc NoticeBan {nick uhost handle text dest} {
global botnick 
if {![validchan $dest]} { return 0 } 
if {[matchattr $nick mo|mo $dest] || [isop $nick $dest] || [isvoice $nick $dest] || [matchattr $nick o|o $dest]} {return 0} 
if {([isbotnick $nick]) || ([string tolower $nick] == "ChanServ")} {return 0} 
set banmask "*!*@[lindex [split $uhost @] 1]"
putquick "KICK $dest $nick :Don't use channel notice, \002only\002 channel ops(@)/voices(+) can use it."
putquick "MODE $dest +b $banmask"
return 1
}

[tainted]

Adding a check to see if the user that sent the notice is actually in the channel first might help.

[egghead]

Also a bit strange:

Code: Select all

[string tolower $nick] == "ChanServ"

[Nexus6]

seems like a very old version

Code: Select all

 ([string tolower $nick] == "ChanServ")} 
change it to ([string tolower $nick] == "chanserv")} 

but even old NoticeBan.tcl didn't set *!*@* ban when server noticed channel as far as I recall checking if user is on channel is in NoticeBan1.1.tcl you can get it at
http://cord.nu/~pulse/stuff/tcl/NoticeBan1.1.zip

[suchwani]

its working now thanks for help