{}'s in nick cause tcl error...

[WulfMan72]

I'm having an issue with nicks that have {}'s in them

an example of the problem comes from nicks like "{nick}X"

I used:

Code: Select all

set who [lindex [split $args] 0]

but whenever the nick follows the format listed above, I get the error:
Tcl error [kick]: list element in braces followed by "X" instead of space

is there a way to set the nick as a variable and not get this error?

[Sir_Fz]

use arg instead of args because args has a special use in Tcl.

[WulfMan72]

hmmmm tried that Fz, same results, still getting the tcl error.

I'm using a winegg "eggdrop1.6.17"

dunno if that makes a difference, but it also doesn't seem to like the "read" command

[Sir_Fz]

Show us the code.

[WulfMan72]

Code: Select all

bind pub f kick, kick
proc kick {nick host hand chan arg} {
  set who [lindex [split $arg] 0]
  set reason [lrange $arg 1 end]
    if {![onchan $who $chan]} {
      putchan $chan "$who is not in the channel" 
    } else {
   if {[botisop $chan]} {putkick $chan $who $reason}
  }
return 0
}

this code is working for all nicks accept ones with the {}'s in them

[Sir_Fz]

Although this shouldn't happen (I tested it with a dcc command), try

Code: Select all

set who [string map {\{ \\\{ \} \\\}} $who]

after setting who [lindex [split $arg] 0].

[WulfMan72]

tried that, same error

here's the revised code just to make sure I did it right:

Code: Select all

bind pub f kick, kick
proc kick {nick host hand chan arg} {
  set who [lindex [split $arg] 0]
  set who [string map {\{ \\\{ \} \\\}} $who]
  set reason [lrange $arg 1 end]
    if {![onchan $who $chan]} {
      putchan $chan "$who is not in the channel" 
    } else {
   if {[botisop $chan]} {putkick $chan $who $reason}
  }
return 0
}

and error message again:
[17:55] Tcl error [kick]: list element in braces followed by "B" instead of space

[Sir_Fz]

Just noticed

Code: Select all

set reason [lrange $arg 1 end]

should be

Code: Select all

set reason [join [lrange [split $arg] 1 end]]

Also, show us what .set errorInfo returns to know exactly where the error occurs.

[WulfMan72]

ok, updated the line for setting the reason variable, and tried to do the .set errorinfo, this is what I got:

#Wulf# set errorinfo
Error: can't read "errorinfo": no such variable

[Sir_Fz]

Capital I, errorInfo.

[Alchera]

From eggdrop.conf:

# Comment these two lines if you wish to enable the .tcl and .set commands.
# If you select your owners wisely, you should be okay enabling these.
unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set

[WulfMan72]

ok, I shut the bot down completely and restarted it, went to test it again, and now I'm not getting a tcl error, but I'm getting this in the channel as the bots output:

\{nickname\}X is not in the channel

here's the code as it stands now:

Code: Select all

bind pub f kick, kick
proc kick {nick host hand chan arg} {
  set who [lindex [split $arg] 0]
  set who [string map {\{ \\\{ \} \\\}} $who]
  set reason [join [lrange [split $arg] 1 end]]
    if {![onchan $who $chan]} {
      putchan $chan "$who is not in the channel" 
    } else {
   if {[botisop $chan]} {putkick $chan $who $reason}
  }
return 0
}

[Sir_Fz]

You can remove the 2nd 'set who...'

[WulfMan72]

ahhhhhh perfect, that worked!!!
ty much Fz, I really appreciate the help

[BarkerJr]

So, it was all due to forgetting to convert a list to a string before using it as a string?