egghelp/eggheads community

Tcl Errors - Quotation Marks

2002-09-19T14:43:50-04:00

OK, I removed all other scripts from the config, and started it with stdragon's method in place.

IT WORKED!

I'm assuming another similar script was interfering, but I will sort that out...

Thanks guys, you've made my day

Cheers,

Mike

Statistics: Posted by mike-c — Thu Sep 19, 2002 2:43 pm

Tcl Errors - Quotation Marks

2002-09-19T14:30:19-04:00

OK, this is very weird... I realise it shouldn't be line 2, which I got afer a .rehash... so I did a .restart, and it still showed as line 2 (Yes, I'm sure it is the right file)

I did remove the first one...

I'm trying a complete shutdown & startup now..

Mike

Statistics: Posted by mike-c — Thu Sep 19, 2002 2:30 pm

Tcl Errors - Quotation Marks

2002-09-19T14:27:57-04:00

You replaced the one line, but you must have forgotten to delete the first one.

Statistics: Posted by stdragon — Thu Sep 19, 2002 2:27 pm

Tcl Errors - Quotation Marks

2002-09-19T14:27:50-04:00

I've just taught of something. If stdragon's solutions doesn't help, try my regsub but dont escape quotes at all... just remove them. (I assume this will not affect functionality, because you never actualy use that sstring for output.)

regsub -all \" $text "" text

Statistics: Posted by darko`` — Thu Sep 19, 2002 2:27 pm

Tcl Errors - Quotation Marks

2002-09-19T14:27:47-04:00

THis seems odd.

Can you paste your new script.

Some things to check. Are you editing the correct file?
Are you doing .rehash?

Statistics: Posted by ppslim — Thu Sep 19, 2002 2:27 pm

Tcl Errors - Quotation Marks

2002-09-19T14:25:31-04:00

Ok, I replaced that line, and it still errors. Here is the output of '.tcl putlog $errorInfo'...

Code:

list element in quotes followed by "," instead of space    while executing"join $text"    (procedure "handle_lamer" line 2)    invoked from within"handle_lamer $_raw1 $_raw2 $_raw3"Tcl:

I hope this is of some use.

Cheers,

Mike

Statistics: Posted by mike-c — Thu Sep 19, 2002 2:25 pm

Tcl Errors - Quotation Marks

2002-09-19T14:11:55-04:00

Ok delete the first line (set text [join $text]) and change "set text [lrange $text 1 end]" to "set text [join [lrange $text 1 end]]"

Also, when you're looking at errors, it's helpful if you type ".tcl putlog $errorInfo" right after the error. Then include that output in your post.

Statistics: Posted by stdragon — Thu Sep 19, 2002 2:11 pm

Tcl Errors - Quotation Marks

2002-09-19T13:42:34-04:00

Nope, I still get the same error......

Code:

foo "bar", foobar

causes

Code:

Tcl error [handle_lamer]: list element in quotes followed by "," instead of space

This is really annoying me

Cheers,

Mike

Statistics: Posted by mike-c — Thu Sep 19, 2002 1:42 pm

Tcl Errors - Quotation Marks

2002-09-19T13:25:05-04:00

Umm, just try to escape unnececery quotes by removing the first line in handle_lamer that goes [join $text] blah.. and replace it with

regsub -all \" $text \\" text

I haven't tried putting it in the script myself but it should help.

Statistics: Posted by darko`` — Thu Sep 19, 2002 1:25 pm

Still no solution...

2002-09-18T18:24:31-04:00

Ok, I've been playing with this for months now, and the TCL FAQ entry on the main forum page reminded me of it... Here is the full code I have. I would really appreciate it if someone could offer a solution.

Code:

bind raw -|- "NOTICE" handle_lamerbind raw -|- "PRIVMSG" handle_lamer# Ban time for kickbanset flood_time 60# Percentage of CAPS allowed in string (0 - 1)set capsp 0.8# Percentage of !?!?! characters allowed in string (0 - 1)set screamp 0.5# Allowed color/control code count (0=not allowed at all)set numcolor 0global lamersproc del_floodvars {key} {    global lamers    array get lamers    catch {unset lamers($key!wt)}    catch {unset lamers($key!w2)}    catch {unset lamers($key!w3)}    return 0}proc handle_lamer {nick keyword text} {    set text [join $text]    global lamers flood_time capsp screamp numcolor    set nick [split $nick !]    set nick [lindex $nick 0]    set text [split $text]    set chan [lindex $text 0]    if {![validchan $chan]} { return 0 }    if {([isop $nick $chan])||([nick2hand $nick]!="*")} { return 0 }    set text [lrange $text 1 end]    set n [md5 $nick]    set screams [regexp -all -- {[!,?]} $text]    set caps [regexp -all -- {[A-Z,Å,Ä,Ö]} $text]     set colors [regexp -all -- "\003" $text]    incr colors [regexp -all -- "\026" $text]    incr colors [regexp -all -- "\033" $text]    set strlen [string length $text]    set retval 0    if {![info exists lamers($n!wt)]} {set lamers($n!wt) [md5 $text]set lamers($n!w2) 1utimer $flood_time "del_floodvars $n"if {($colors>$numcolor)||(([expr $caps/$strlen.0]>$capsp)||([expr $screams/$strlen.0]>$screamp)&&($strlen>3))} {    set lamers($n!w3) 1    putserv "NOTICE $nick :Colours, control codes, and excess CAPS are forbidden" -next} else {    set lamers($n!w3) 0}    } else {        if {[utimerexists "del_floodvars $n"]==""} { utimer $flood_time "del_floodvars $n" }if {$lamers($n!wt)==[md5 $text]} {    set lc $lamers($n!w2)    incr lc    set lamers($n!w2) $lc    if {$lc==2} {putserv "NOTICE $nick :Please do not repeat" -next    } elseif {$lc==3} {putserv "KICK $chan $nick :Do not repeat - Final Warning" -nextset retval 1    } elseif {$lc>3} {newchanban $chan [maskhost [getchanhost $nick $chan]] "Sentinel" "Repetition warnings ignored, banned."putserv "KICK $chan $nick :Repeating is not allowed" -nextputserv "MODE $chan +b [maskhost [getchanhost $nick $chan]]" -nextset retval 1    }} else {    set lamers($n!wt) [md5 $text]    set lamers($n!w2) 1}if {($colors>$numcolor)||(([expr $caps/$strlen.0]>$capsp)||([expr $screams/$strlen.0]>$screamp)&&($strlen>3))} {            set lc $lamers($n!w3)            incr lc            set lamers($n!w3) $lc            if {$lc==2} {                putserv "KICK $chan $nick :Colours, control codes, and excess CAPS are forbidden - Final Warning" -nextset retval 1            } elseif {$lc>2} {                newchanban $chan [maskhost [getchanhost $nick $chan]] "Sentinel" "Colours, control codes, and excess CAPS are forbidden"                putserv "KICK $chan $nick :Colours/control codes/CAPS warning ignored, banned." -next                putserv "MODE $chan +b [maskhost [getchanhost $nick $chan]]" -nextset retval 1    }}    }    return $retval}

Thanks,

Mike

Statistics: Posted by mike-c — Wed Sep 18, 2002 6:24 pm

Tcl Errors - Quotation Marks

2002-09-05T12:57:13-04:00

Eh who knows, it's hard to say without all the code involved. You shouldn't do [join $text] unless $text has already been split in the past. I'm sure you would have included that if it had been, so removing that line was the correct thing to do. If it makes the script break, the error ie elsewhere.

Statistics: Posted by stdragon — Thu Sep 05, 2002 12:57 pm

Tcl Errors - Quotation Marks

2002-09-05T12:37:48-04:00

Hi,

I removed the line

Code:

set text [join $text]

and now the script doesn't do anything... it's as though it's not even loaded

Thanks for your ideas.

Cheers,

Mike

Statistics: Posted by mike-c — Thu Sep 05, 2002 12:37 pm

Tcl Errors - Quotation Marks

2002-09-05T12:31:48-04:00

Just delete the line that says [join $text]

Statistics: Posted by stdragon — Thu Sep 05, 2002 12:31 pm

Tcl Errors - Quotation Marks

2002-09-05T12:22:21-04:00

Hi,

Thanks for your replies... I think the method suggested (split) is already in place...

Code:

proc handle_lamer {nick keyword text} {    set text [join $text]    set nick [split $nick !]    set nick [lindex $nick 0]    set text [split $text]    set chan [lindex $text 0]    set text [lrange $text 1 end]

I'll have a read through that other thread, and see if I can find a solution there.

Cheers,

Mike

Statistics: Posted by mike-c — Thu Sep 05, 2002 12:22 pm

Tcl Errors - Quotation Marks

2002-09-05T12:15:49-04:00

Find places that say lindex $text 1, and change it to lindex [split $text] 1

Statistics: Posted by stdragon — Thu Sep 05, 2002 12:15 pm