egghelp/eggheads community

clearing ban list

2001-10-17T21:37:00-04:00

Who knows, put some debugging statements in your proc to see what's going on. Maybe it's a config problem.

Put stuff like this in:
putlog "there are $numbanlist bans"

inside your if test
putlog "inside if"

in your else
putlog "in else instead"

in your loop
putlog "removing ban [lindex $bans $i]"

etc...
then you can see what's going wrong

Statistics: Posted by stdragon — Wed Oct 17, 2001 9:37 pm

clearing ban list

2001-10-17T17:06:00-04:00

I have made a code like this,
but why it doesnt work

set maxbans 100
bind mode - "*+b*" auto_unban
proc auto_unban {nick uhost hand chan mode victim} {
global botnick maxbans banfull
set numbanlist [llength [banlist $chan]]
if { $numbanlist >= $maxbans && [botisop $chan]} {
set bans [banlist $chan]
for {set i 0} {$i < 10} {incr i} {
killchanban $chan [lindex $bans $i]
}
}
}
return 1
putlog "bansfull.tcl"

Statistics: Posted by Guest — Wed Oct 17, 2001 5:06 pm

clearing ban list

2001-10-17T07:35:00-04:00

To get the banlist:
set bans [banlist #channel]

To unset a ban:
killchanban #channel

To unset the first 10 bans:
set bans [banlist #channel]
for {set i 0} {$i < 10} {incr i} {
killchanban #channel [lindex $bans $i]
}

Statistics: Posted by stdragon — Wed Oct 17, 2001 7:35 am

clearing ban list

2001-10-16T10:47:00-04:00

anyone can help me coding the tcl script to clearing banlist. 10 old banlist will be removed if banlist reach 100 (full)

Statistics: Posted by Guest — Tue Oct 16, 2001 10:47 am