This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

i need some help plz

Old posts that have not been replied to for several years.
Locked
S
SnOoPDoGg187

Post by SnOoPDoGg187 »

i'm using badchan 1.0 by Bass of Undernet's #eggdrop (bass@tclslave.net) and it's giving me this error

Tcl error [bc_whois]: unmatched open brace in list

i can't figure out what's wrong with it..
i'm running a windrop version 1.6.3 on win xp..

i found the code that's doing it just don't know how to fix it..

bind raw - 319 bc_whois
proc bc_whois {from key args} {
global bchan bcqueue bcnicks
# putlog "319: $args"
set args [join $args]
set nick [string tolower [lindex $args 1]]
if {[info exists bcnicks($nick)]} {set chan $bcnicks($nick)} {return 0}
set chans [string tolower [lrange $args 2 e]]
if {[lsearch $bchan(exempt) $chan] == -1 && $bchan(global) != ""} {set bans $bchan(global)} {set bans ""}
if {[lsearch $bchan(chans) $chan] > -1} {set bans "$bans $bchan($chan)"}
foreach tok $chans {
set tok [string trimleft $tok ":@+"]
foreach ban $bans {
if {[string match [lindex $ban 0] $tok]} {
putlog "badchan: match! $nick k/b'd from $chan because [lrange $ban 1 e]"
putlog "args: $args, ban: $ban"
if {[onchan $nick $chan]} {newchanban $chan [bmaskhost [getchanhost $nick $chan]] badchan "[lrange $ban 1 e]" 10}
return 0
}
}
}
return 0
}

as far as i can see this is what's causing it.. if someone could tell me how to fix it i'd appreciate it alot : )

thanks
SnOoP
p
ppslim
Revered One
Posts: 3914
Joined: Sun Sep 23, 2001 8:00 pm
Location: Liverpool, England

Post by ppslim »

changing
set args [join $args]
to
set args [split [join $args]]
S
SnOoPDoGg187

Post by SnOoPDoGg187 »

thanks ppslim that fixed it.. thanks for the help i appreciate it

SnOoP
Locked