unmatched open brace in list

[Reynaldo]

any idea how to kick the nick with special character like {,},[,],\

Code: Select all

putserv "KICK $chan $nick :$reason"

will return error: Tcl error procname: unmatched open brace in list.

Many thanks before.

[Alchera]

How to write eggdrop scripts that won't choke on special characters

[Reynaldo]

Code: Select all

proc filt {data} {
regsub -all -- \\\\ $data \\\\\\\\ data
regsub -all -- \\\[ $data \\\\\[ data
regsub -all -- \\\] $data \\\\\] data
regsub -all -- \\\} $data \\\\\} data
regsub -all -- \\\{ $data \\\\\{ data
regsub -all -- \\\" $data \\\\\" data
return $data
}

Thanks bro.

Here's another one:
Can we replace "putquick" command with "pushmode" command ?
because i worry if it will make it slower.

[Sir_Fz]

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.

[Reynaldo]

Code: Select all

bind join - * do_jn_msg
proc 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.

[Sir_Fz]

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

Code: Select all

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

with

Code: Select all

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

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

[Reynaldo]

Code: Select all

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.

[Sir_Fz]

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.

[Reynaldo]

Code: Select all

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.

[Sir_Fz]

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

[Reynaldo]

badwords - [censored] fukker asshole

[Sir_Fz]

I mean it's a list right?

[Reynaldo]

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

[Sir_Fz]

Code: Select all

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

[Reynaldo]

this's proc for ban/kick badnick

Code: Select all

proc badnick_chk {nick uhost hand chan} {
global bannick notc botnick badwords
foreach 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: Select all

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 }