Mass kick Error

[tR]

When i try mass kick the followin error appears:
TCL error [ma_dccmass]: missing close-bracket

I dont found any error in the source, i think he must be in following lines:

"kick" {
putidx $idx "Mass kicking $chan"
if {$option == "none"} {
set reason $ma_reason
} else {
set reason [join [lrange [split $arg] 2 end]]
}
ma_kick $chan [join [lrange [split $arg] 2 end]]
}

someone any idea ? I run eggdrop 1.6.6. and netbots 4.05. tnx in advance

[tR]

sorry, wrong part of source i think.
The error comes from following part:

proc ma_kick {chan reason} {
global botnick ma_kicks
putserv "MODE $chan +i"
set nlist ""
foreach nick [nb_randomise [chanlist $chan]]
{
if {[isop $nick $chan] || [isvoice $nick $chan] || [matchattr [nick2hand $nick $chan] fov|fov $chan] || $nick == $botnick || [onchansplit $nick $chan]} {continue}
lappend nlist $nick
if {[llength $nlist] >= $ma_kicks} {
putserv "KICK $chan [join $nlist ,] :$reason"
unset nlist
}
}
if {[info exists nlist]} {
putserv "KICK $chan [join $nlist ,] :$reason"
}
return 0
}

i dont modified anything on netbots 4.05 source. Someone else has this error ?

[tR]

More detailed the error comes from following line:
putserv "KICK $chan [join $nlist ,] :$reason"

TCL error [ma_dccmass]: missing close-bracket
someone any idea?

[ppslim]

HMM - I thought I replied to this, Oh well.

Try changing the line to

putserv "KICK $chan [join ${nlist} {,}] :${reason}"

Should this work or fail, it sugests a buggy version of Tcl, and I recomend updating.

[tR]

I have the newest tcl Version. At least worked with following lines:
set kickusers [join $nlist ,]
putserv "KICK $chan $kickusers :$reason"
strange .... but works