egghelp/eggheads community

Tcl Error extra characters after close-quote

2003-07-15T06:51:23-04:00

Ok Thx to all guys 4 help

But i still have one question how can i finde if a variable like $nick is the Nick of the Current Bot or of an Bot in the Botnet?

Statistics: Posted by minotaur — Tue Jul 15, 2003 6:51 am

Tcl Error extra characters after close-quote

2003-07-15T04:35:58-04:00

I dont understand you very well whats the problem can you give me an example?

There are a couple of things in your script minotaur.

What stdragon means is that "if" constructs are made with curly braces, not with "(" and ")". This is the actual reason for the error message you are having.

Example:

Code:

RIGHT: if { test } { ... }WRONG: if ( test ) { ... }

Additionally, you have an "if([onchan "Q" $chan]) {". So, first you need to replace the "(" with a "{" and the ")" with a "}".
But also you need to include an extra space.

Example:

Code:

RIGHT: if { test } { ... }WRONG: if{ test } { ... }WRONG: if { test }{ ... }(note the subtle differences)

Third, your script introduces a global variable "recoverbot", but you test on the variable "recoverprot".

Code:

proc ssystem:need {chan type} {    global recoverbot    if ($recoverprot == "1") {   [snip]

Note that this if-statement also uses "(" and ")", which is wrong.

Statistics: Posted by egghead — Tue Jul 15, 2003 4:35 am

Tcl Error extra characters after close-quote

2003-07-15T03:45:22-04:00

you usually get this eror because there is a missing " or in your case you have too many "" in your script.

try not to put more than a leadind " and a triling " in a same command

exemple :

Code:

"op" {       putserv "PRIVMSG Q :OP $chan"       return 1

here you should not put op between "" since you got "PRIVMSG Q :OP $chan" already between ""

hope it helps

Pitchat

Statistics: Posted by Pitchat — Tue Jul 15, 2003 3:45 am

Tcl Error extra characters after close-quote

2003-07-15T03:13:29-04:00

I dont understand you very well whats the problem can you give me an example?

Statistics: Posted by minotaur — Tue Jul 15, 2003 3:13 am

Tcl Error extra characters after close-quote

2003-07-14T20:19:26-04:00

Just a guess, but it's probably because you used parenthesis ( ) instead of curly braces { } in all your if statements.

Statistics: Posted by stdragon — Mon Jul 14, 2003 8:19 pm

Tcl Error extra characters after close-quote

2003-07-14T20:10:45-04:00

Code:

proc ssystem:need {chan type} {global recoverbotif ($recoverprot == "1") {if([onchan "Q" $chan]) { switch -- $type { "op" {    putserv "PRIVMSG Q :OP $chan"    return 1  } "unban" {    putserv "PRIVMSG Q :UNBANALL $chan"    return 1  } "invite" {    putserv "PRIVMSG Q :INVITE $chan"    return 1  } "limit" {    putserv "PRIVMSG Q :CHANFLAGS -impkl $chan"    return 1  }} }if([onchan "L" $chan]) { switch -- $type { "op" {    putserv "PRIVMSG L :OP $chan"    return 1  } "unban" {    putserv "PRIVMSG L :UNBANALL $chan"    return 1  } "invite" {    putserv "PRIVMSG L :INVITE $chan"    return 1  } "limit" {    putserv "PRIVMSG L :CLEARCHAN $chan"    return 1  }} } }}

and then the error

[02:13] Tcl error [ssystem:need]: extra characters after close-quote

But i dont know why do you know the reason whats wrong???

Statistics: Posted by minotaur — Mon Jul 14, 2003 8:10 pm