Removing many bans at the same time

[Pitchat]

When you get the banlist with the .bans all commands it list the bans and bind them to a number like : [ 47] *!*@.cox.net (perm) (sticky)

i wonder if it is possible to unban many bans at once using something like .-ban 1-10 where it will unban the bans between 1 and 10

did`nt find anything in the forum or the tcl archive about it

thanks

[Sir_Fz]

Not sure if this's the best way to do it, but here you go:

Code: Select all

bind dcc - remban rem:ban

proc rem:ban {hand idx text} {
set firstban [lindex [split $text] 0]
set lastban [lindex [split $text] 1]
foreach ban [lrange [banlist] [incr firstban -1] [incr lastban -1]] {
killban [lindex $ban 0]
 }
}

syntax: .remban <first ban number> <last ban number>

example: .remban 1 20 will remove all bans from 1 to 20 including bans 1 and 20.

[Pitchat]

thanks a lot it works juste fine !!

only a small glitch but easy to solve

[18:33] Tcl error [rem:ban]: expected integer but got ""
this is when no value is entered : .remban

thanks again !

[Sir_Fz]

Add some checks to it, pretty simple.

[Pitchat]

yep it is

that i can hadle at least that .......

thanks again