egghelp/eggheads community

unmatched open brace in list

2007-06-30T01:25:32-04:00

Code:

bind join - * do_jn_msg proc do_jn_msg {nick uhost hand chan} { global botnick jn_msg_done badwordsif {$nick == "X" || $nick == $botnick} { return 0 } if {[info exists jn_msg_done($nick:$chan)]} { return 0 } set jn_msg_done($nick:$chan) 1 timer 3 [list unset jn_msg_done($nick:$chan)] puthelp "NOTICE $nick :Welcome to $chan" foreach x $badwords {if {[string match -nocase *$x* $nick]} {set bannick($nick) "$nick!*@*"putserv "KICK $chan $nick :BaD NIcK MaTcH FRoM [string toupper $x]"return 0} }}

working now

Statistics: Posted by Reynaldo — Sat Jun 30, 2007 1:25 am

unmatched open brace in list

2007-06-28T03:12:12-04:00

i think the problem is, i dont know how to use list command

Code:

if {[matchattr $cflag B]} { list badnick_chk $nick $uhost $hand $chan }

list adds backslashes and/or braces as appropriate to give the correct form for a command.

Statistics: Posted by Reynaldo — Thu Jun 28, 2007 3:12 am

unmatched open brace in list

2007-06-27T18:51:55-04:00

Unless you post full code and full errorInfo (.set errorInfo) I'm not going to help you.

Statistics: Posted by Sir_Fz — Wed Jun 27, 2007 6:51 pm

unmatched open brace in list

2007-06-26T22:16:49-04:00

this's proc for ban/kick badnick

Code:

proc badnick_chk {nick uhost hand chan} {global bannick notc botnick badwordsforeach x $badwords {if {[string match -nocase *$x* $nick]} {set bannick($nick) "$nick!*@*"putsrv "KICK $chan $nick :Badnick match from [string toupper $x]"return 1}}return 0}

i'm using channel flag: here's the code if badnick is enabled on specific channel

Code:

if {[matchattr $cflag B]} { badnick_chk $nick $uhost $hand $chan }

then return tcl error: unmatched open brace in list

if $nick with special character joined

* {asshole (~user@host) has joined #

i think with that code will return like this:

if {[matchattr $cflag B]} { badnick_chk {asshole $uhost $hand $chan }

Statistics: Posted by Reynaldo — Tue Jun 26, 2007 10:16 pm

unmatched open brace in list

2007-06-26T06:35:52-04:00

Code:

foreach x $badwords { if {[string match -nocase *$x* $nick]} {  set bannick($nick) "$nick!*@*"  putserv "KICK $chan $nick :Badword detected"  break }}

Statistics: Posted by Sir_Fz — Tue Jun 26, 2007 6:35 am

unmatched open brace in list

2007-06-26T00:56:19-04:00

Yes, it's alist of badwords for nick and swearing text

Statistics: Posted by Reynaldo — Tue Jun 26, 2007 12:56 am

unmatched open brace in list

2007-06-26T00:39:20-04:00

I mean it's a list right?

Statistics: Posted by Sir_Fz — Tue Jun 26, 2007 12:39 am

unmatched open brace in list

2007-06-25T20:43:53-04:00

badwords - [censored] fukker asshole

Statistics: Posted by Reynaldo — Mon Jun 25, 2007 8:43 pm

unmatched open brace in list

2007-06-24T08:10:12-04:00

[string tolower $badwords] is not a list, what is $badwords?

Statistics: Posted by Sir_Fz — Sun Jun 24, 2007 8:10 am

unmatched open brace in list

2007-06-23T22:13:20-04:00

Code:

foreach x [string tolower $badwords] {if {[string match "*$x*" [string tolower $nick]]} {set bannick($nick) "$nick!*@*"putserv "KICK $chan $nick :Badword detected"}

added that lines, will return the error. when user with special character joining channel.

Statistics: Posted by Reynaldo — Sat Jun 23, 2007 10:13 pm

unmatched open brace in list

2007-06-23T17:08:34-04:00

The code I gave you must not give such an error. Did you rehash after loading it? Also, a full errorInfo (.set errorInfo) is much more helpful.

Statistics: Posted by Sir_Fz — Sat Jun 23, 2007 5:08 pm

unmatched open brace in list

2007-06-23T05:51:20-04:00

Code:

bind join - * do_jn_msg proc do_jn_msg {nick uhost hand chan} {   global botnick jn_msg_done     if {$nick == "X" || $nick == $botnick} {     return 0   }   if {[info exists jn_msg_done($nick:$chan)]} {     return 0   }   set jn_msg_done($nick:$chan) 1   timer 3 [list unset jn_msg_done($nick:$chan)]  puthelp "NOTICE $nick :Welcome to $chan"   return 0 }

Tcl error [do_jn_msg]: unmatched open brace in list

still error, it happen when user with special character joined. like {user or }user or \user.

Statistics: Posted by Reynaldo — Sat Jun 23, 2007 5:51 am

unmatched open brace in list

2007-06-23T05:00:52-04:00

That's because you're passing a string instead of a list to [timer]. Replace:

Code:

timer 3 "unset jn_msg_done($nick:$chan)"

with

Code:

timer 3 [list unset jn_msg_done($nick:$chan)]

And remove the [filt $nick] line it's not necessary.

Statistics: Posted by Sir_Fz — Sat Jun 23, 2007 5:00 am

unmatched open brace in list

2007-06-22T23:23:28-04:00

Code:

bind join - * do_jn_msgproc do_jn_msg {nick uhost hand chan} {  global botnick jn_msg_done  set nick [filt $nick]  if {$nick == "X" || $nick == $botnick} {    return 0  }  if {[info exists jn_msg_done($nick:$chan)]} {    return 0  }  set jn_msg_done($nick:$chan) 1  timer 3 "unset jn_msg_done($nick:$chan)"  puthelp "NOTICE $nick :Welcome to $chan"  return 0}

Tcl error [do_jn_msg]: unmatched open brace in list

$nick join with special character will return that error.

Statistics: Posted by Reynaldo — Fri Jun 22, 2007 11:23 pm

unmatched open brace in list

2007-06-22T20:49:44-04:00

pushmode is for modes and not for kicks. Your problem is with using lists and strings, it's not recommended to solve it using regexp filtering.

Statistics: Posted by Sir_Fz — Fri Jun 22, 2007 8:49 pm