egghelp/eggheads community

Some help on arrays

2005-05-10T10:15:28-04:00

missing close-brace: possible unbalanced brace in comment

Most likely you have a commented line (one of those with a # in front ) somewhere else in the script, that you didnt paste here.

Statistics: Posted by greenbear — Tue May 10, 2005 10:15 am

Some help on arrays

2005-05-10T04:33:30-04:00

you are missing a close bracet at the end of the proc, and your switch expression will most like cause this:
tcl: evaluate (.tcl): switch -- hello {case "hello" {return 2}}
Tcl error: extra switch pattern with no body

Statistics: Posted by De Kus — Tue May 10, 2005 4:33 am

Some help on arrays

2005-05-10T04:05:32-04:00

Try changing $arg to [split $arg]

Statistics: Posted by Sir_Fz — Tue May 10, 2005 4:05 am

Some help on arrays

2005-05-09T21:29:49-04:00

Yea, I got it working, I just chaned user to user_account ..

Now this is saying:

missing close-brace: possible unbalanced brace in comment

Code:

proc command:lookup {nick uhost hand chan arg} {if {[isop $nick $chan]} {   set command [lindex $arg 0]   switch -- $command {      case "chaninfo" {         set chan_name [lindex $arg 1]         putnotc $nick "Looking up channel information for [lindex $arg 1]"         set get_chaninfo [mysql_query "SELECT * FROM bot_channels WHERE chan_name='$chan_name'"]         if {[info exist get_chaninfo]} {            foreach chan_info $get_chaninfo {               set channel_bot [lindex $chan_info 3]               set channel_trigger [lindex $chan_info 4]               set channel_greeting [lindex $chan_info 5]               set channel_owner_host [lindex $chan_info 2]               set channel_id [lindex $chan_info 0]         }         set get_chanowner [mysql_query "SELECT * FROM bot_users WHERE user_host='$channel_owner_host'"]         foreach owner_info $get_chanowner {            set channel_owner_account [lindex $owner_info 1]         }         putnotc $nick "[lindex $arg 1] Information"         putnotc $nick "Bot: $channel_bot"         putnotc $nick "Trigger: $channel_trigger"         putnotc $nick "Greeting: $channel_greeting"         putnotc $nick "Owner: $channel_owner_account"         putnotc $nick "ID# $channel_id"        } else {           putnotc $nick "There is not database entry for [lindex $arg 1]"         }      }   } else {      putnotc $nick "Error(1): You lack access to use botnet commands"   }}

Statistics: Posted by daltonc — Mon May 09, 2005 9:29 pm

Some help on arrays

2005-05-09T18:08:52-04:00

Maybe it's an argument to your proc? What De Kus said is really the only way this error could be happening.. you already have a variable called user and it's not an array.

Statistics: Posted by stdragon — Mon May 09, 2005 6:08 pm

Some help on arrays

2005-05-09T15:35:20-04:00

mmmm, nope. That little piece of code isnt in a proc. Its like an on startup event. Its not working though 'dalton' is in my database as a name. Its saying cant set user(dalton): variable isnt array.

As this is an on start event it is the first time I Set the variable.

Statistics: Posted by daltonc — Mon May 09, 2005 3:35 pm

Some help on arrays

2005-05-09T03:45:51-04:00

you probably initialized the var like 'set user ""' or something like that, but you musn't. you can use 'set user() ""', but however it redudant. each element needs to be initialized to not cause an error, so you need to check 'info exists user(element)' anyway, if you want to read and not sure about the existens.

Statistics: Posted by De Kus — Mon May 09, 2005 3:45 am

Some help on arrays

2005-05-09T02:57:56-04:00

seems you are trying to append/prepend array entries to a non-array variable. I dont recognize this syntax: set user($user_name) I'm no TCL wizkid but if that doesn't mean anythng you have your bug

Statistics: Posted by Galadhrim — Mon May 09, 2005 2:57 am

Some help on arrays

2005-05-08T21:49:57-04:00

how come this isnt working? Its saying.. can't set "user(blah)": variable isn't array

Code:

set get_users [mysql_query "SELECT * FROM bot_users"] foreach user_info $get_users {   set user_name [lindex $user_info 2]   set user($user_name) [lindex $user_info 3]   set user_email($user_name) [lindex $user_info 4] }

Statistics: Posted by daltonc — Sun May 08, 2005 9:49 pm