egghelp/eggheads community

Problem on switch of strings

2005-02-05T12:21:17-04:00

or .tcl set errorInfo

Statistics: Posted by Sir_Fz — Sat Feb 05, 2005 12:21 pm

Problem on switch of strings

2005-02-05T11:59:33-04:00

type
Code:
.tcl errorInfo
after you get that error on the bot for more specific information.

try

Code:

.set errorInfo

instead cause errorInfo is a variable not a command

Statistics: Posted by Ofloo — Sat Feb 05, 2005 11:59 am

Problem on switch of strings

2005-02-05T11:21:07-04:00

this is the full code, the same error, the same results....

Code:

proc add_new {n u h c args} {  set found 0  set args [split [lindex $args 0]]  set cmd [lindex $args 0]    set user [lindex $args 1]  set c [string tolower $c]  set chans [string tolower $::chans]  if {[lsearch -exact $chans $c] != -1} {makelog $n ".addnew"global newflagsset h "$n!*@*"set exflags $newflagsif { [matchattr [finduser $h] "X" $c] } {switch -- $cmd {"friend" {if{$user == ""} {puthelp "NOTICE $n :Command: .addnew friend "} else {set found 1set newop $userset newhost "$newop!*@*"set utype "friend"set exflags "-jmnptxAGX+fo|-mnACGNVX+foF"}}"little" {if {[[matchattr [finduser $h] "V" $c] || [matchattr [finduser $h] "A" $c]]} {if{$user == ""} {puthelp "NOTICE $n :Command: .addnew little "} else {set found 2set newop $userset newhost "$newop!*@*"set utype "little"set exflags "-jmnptxAGX+fo|-mnACGNVX+foCX"set acclevel 5}} { puthelp "NOTICE $n :You can't do this command"}}"medium" {if { [matchattr [finduser $h] "A" $c] } {if{$user == ""} {puthelp "NOTICE $n :Command: .addnew medium "} else {set found 2set newop $userset newhost "$newop!*@*"set utype "medium"set exflags "-jmnptxAGX+fo|-mnACGNVX+foVX"set acclevel 10}} { puthelp "NOTICE $n :You can't do this command"}}"admin" {if {[matchattr [finduser $h] "G" $c]} {if{$user == ""} {puthelp "NOTICE $n :Command: .addnew admin "} else {set found 2set newop $userset newhost "$newop!*@*"set utype "admin"set exflags "-jmnptxAGX+fo|-nACGNVX+fmoANVX"set acclevel 12}} { puthelp "NOTICE $n :You can't do this command"}}"gadmin" {if {[matchattr [finduser $h] "G" $c]} {if{$user == ""} {puthelp "NOTICE $n :Command: .addnew admin "} else {set found 1set newop $userset newhost "$newop!*@*"set utype "gadmin"set exflags "+fhjmnoptxAGX|+flmnoAGNVX"putserv "NOTICE $n :REMEMBER: I can't add user to access list!"}} { puthelp "NOTICE $n :You can't do this command"}}default { puthelp "NOTICE $n :Command: \002.addnew "}}} { puthelp "NOTICE $n :You can't do this command"}if {$found > 0} {if {[validuser $newop] == 1} {if {[lsearch [getuser $newop hosts] $newhost] == "-1"} {putserv "NOTICE $n :$newop isn't on bd, adding..."if{$found == 2} {putserv "CHANSERV ACCESS $c ADD $newop $acclevel"}chattr $newop $exflags $csetuser $newop hosts $newhostreturn 1} {putserv "NOTICE $n :$newop is on bd, changing flags..."if{$found == 2} {putserv "CHANSERV ACCESS $c ADD $newop $acclevel"}chattr $newop $exflags $creturn 1 }}  if {[finduser $newhost] != "*"} { putserv "NOTICE $n :$newop\[$newhost\] is [finduser $newhost]"if{$found == 2} {putserv "CHANSERV ACCESS $c ADD $newop $acclevel"}chattr [finduser $newhost] $exflags $creturn 1} {if{$found == 2} {putserv "CHANSERV ACCESS $c ADD $newop $acclevel"}adduser $newop $newhostchattr [finduser $newhost] $exflags $creturn 1}if {[chattr $newop $exflags $c] == "*"} {putserv "NOTICE $n :Error adding flags to $newop."return 1}save}  }}

tnks, Heckel

Statistics: Posted by HecKel — Sat Feb 05, 2005 11:21 am

Re: Problem on switch of strings

2005-02-05T10:42:32-04:00

try

Code:

proc add_new {n u h c arg} {  set arg [split $arg]  set cmd [lindex $arg 0]  switch -- $cmd {"friend" {adduser [lindex $arg 1] "[lindex $arg 1]!*@*"chattr "[finduser [lindex $arg 1]!*@*]" "+f" $c}"op" {adduser [lindex $arg 1] "[lindex $args 1]!*@*"chattr "[finduser [lindex $arg 1]!*@*]" "+o" $c}"voice" {adduser [lindex $arg 1] "[lindex $arg 1]!*@*"chattr "[finduser [lindex $args 1]!*@*]" "+v" $c}(...) }

all quotes seem correct here, the error might be from another switch in the proc.

Statistics: Posted by Sir_Fz — Sat Feb 05, 2005 10:42 am

Problem on switch of strings

2005-02-05T10:42:10-04:00

You have a misplaced quotation mark, change

Code:

[finduser "[lindex $args 1]!*@*"]

Code:

[finduser "[lindex $args 1]!*@*]"

Statistics: Posted by greenbear — Sat Feb 05, 2005 10:42 am

Problem on switch of strings

2005-02-05T10:33:51-04:00

type

Code:

.tcl errorInfo

after you get that error on the bot for more specific information.

Statistics: Posted by ^DooM^ — Sat Feb 05, 2005 10:33 am

Problem on switch of strings

2005-02-05T10:11:53-04:00

I have a code similar this one:

Code:

proc add_new {n u h c args} {  set args [lindex $args 0]  set args [split $args " "]    switch [lindex $args 0] {"friend" {adduser [lindex $args 1] "[lindex $args 1]!*@*"chattr [finduser "[lindex $args 1]!*@*"] "+f" $c}"op" {adduser [lindex $args 1] "[lindex $args 1]!*@*"chattr [finduser "[lindex $args 1]!*@*"] "+o" $c}"voice" {adduser [lindex $args 1] "[lindex $args 1]!*@*"chattr [finduser "[lindex $args 1]!*@*"] "+v" $c}(...)  }

I already try to view the [lindex $args 0] by notice and the value is correct, but nothing happens on the switch..., btw, the egg return this error

[02:32] Tcl error [add_new]: extra characters after close-quote

tnks, HecKel

Statistics: Posted by HecKel — Sat Feb 05, 2005 10:11 am