egghelp/eggheads community

Variable questions

2005-05-03T04:24:48-04:00

you should make the whole array global, not just 1 element.

global command

should be fine (remember my example "global chan_trigger global chan_greeting ")?!

btw. you can assemble array elemets together like:

command($chan:trigger)
command($chan:greeting)
...

this way you would only need 1 array for everything in the script ^-^.

Statistics: Posted by De Kus — Tue May 03, 2005 4:24 am

Variable questions

2005-05-02T20:41:30-04:00

Alright , fixed it! But another problem : /

Code:

proc command:main {nick uhost hand chan arg} { global chan_trigger set command "[string range $arg 1 end]" global command($chan) putlog "${command}($chan)" if {[info exist command($chan)]} {    putnotc $nick "$command($chan)"  }}

its giving me

Its not giving me an error or anything its just not outputing any data.. anyone know why?

I type @commands, so it should search for a variable called $commands($chan) and output the data the that variable has. Its not doing that.

Statistics: Posted by daltonc — Mon May 02, 2005 8:41 pm

Variable questions

2005-05-02T17:53:54-04:00

What difference does it make ? just put the global line in the appropriate place and it should not cause problems.

Statistics: Posted by Sir_Fz — Mon May 02, 2005 5:53 pm

Variable questions

2005-05-02T16:45:13-04:00

Ok, I found the problem..
chan_trigger is acting as an array. I have more than one thing set in that array. But is there a way I can make it so it wont act as an array using chan_trigger() ? I want a seprate variable for every chan_trigger($chan). Any ideas?

Statistics: Posted by daltonc — Mon May 02, 2005 4:45 pm

Variable questions

2005-05-02T16:18:53-04:00

For adding information into a MySql database you have to enclose it inside '$quotes' So his script is correct on the MySql side.

Statistics: Posted by ^DooM^ — Mon May 02, 2005 4:18 pm

Variable questions

2005-05-02T14:52:38-04:00

you are using global the wrong place. the var outside of the proc is always global, so using global is redudant. you need to use it within the proc command:main:set before used the first time, so you usually you set a global line at the beginning of the proc like:
global chan_trigger global chan_greeting

if that doesnt help:
have you confirmed $current_chan_name contains the chan name without any quotes? I know SQL likes to use single quotes, but TCL uses double quotes or curly bracets.
i mean this behavior:

tcl: evaluate (.tcl): lindex {"1" "2" "3"} 1
Tcl: 2
tcl: evaluate (.tcl): lindex {'1' '2' '3'} 1
Tcl: '2'

I don't know SQL very well, but if you would save as chan_trigger('#channel') and try to load as chan_trigger(#channel) the error would make sense .

PS: I wouldn't use string tolower, just use this for comparation:
if { [string equal -nocase $a $b] } ...

Statistics: Posted by De Kus — Mon May 02, 2005 2:52 pm

Variable questions

2005-05-02T14:34:26-04:00

rofl, alright nothing seems to be working, I've tried everything. here is my whole code for the functions:

Code:

bind pubm -|- *  command:main:set### set chan varsset get_chan_name [mysql_query "SELECT * FROM bot_channels"]putlog "*** SETTING CHANNEL VARIABLES ***"foreach row $get_chan_name {       set current_chan_name "[lindex $row 1]"       set current_chan_trigger "[lindex $row 3]"       set current_chan_greeting "[lindex $row 4]"       putlog "^B^_Starting $current_chan_name vars^_^B"       global chan_trigger($current_chan_name)       global chan_greeting($current_chan_name)       set chan_trigger([string tolower $current_chan_name]) [lindex $row 3]       putlog "Set $current_chan_name ^Btrigger^B to '$current_chan_trigger'"       set chan_greeting([string tolower $current_chan_name]) [lindex $row 4]       putlog "Set $current_chan_name ^Bgreeting^B to '$current_chan_greeting'"       set get_chan_commands [mysql_query "SELECT * FROM bot_commands WHERE command_chan='$current_chan_name'"]       foreach row2 $get_chan_commands {              set [lindex $row2 1]([string tolower $current_chan_name]) "[lindex $row2 2]"              putlog "Set $current_chan_name command ^B[lindex $row2 1]^B to '[lindex $row2 2]'"       }}### MAIN SET FUNCTION ###proc command:main:set {nick uhost hand chan arg} {  if {[string tolower [lindex [split $arg] 0]] == "${chan_trigger($chan)}set" && [string tolower [lindex $arg 1]] == "greeting"} {        if {[isop $nick $chan]} {                set greeting "[lrange $arg 2 end]"                putnotc $nick "Set Greeting to '$greeting'"              } else {                putnotc $nick "Error(1): You lack access to 'set greeting'"                putnotc $nick "Error(2): Unable to 'set greeting'"              }        } elseif {[string tolower [lindex [split $arg] 0]] == "${chan_trigger($chan)}set" && [string  tolower [lindex $arg 1]] == "trigger"} {                if {[isop $nick $chan]} {                        set new_trigger "[lrange $arg 2 end]"                        set save_trigger [mysql_query "UPDATE bot_channels SET chan_trigger='$new_trigger'"]                        putnotc $nick "Set channel trigger to '$new_trigger'"                } else {                         putnotc $nick "Error(1): You lack access to 'set trigger'"                        putnotc $nick "Error(2):  Unable to set 'trigger'"                }        } elseif {[string tolower [lindex [split $arg] 0]] == "${chan_trigger($chan)}set"} {                if {[isop $nick $chan]} {                        set command_input [string tolower [lindex $arg 1]]                        set command_input_value  "[lrange $arg 2 end]"                        set result [mysql_query "SELECT command_name FROM bot_commands WHERE command_chan='$chan' && command_name='${command_input}'"]                                if {[info exist result]} {                                        foreach row $result {                                                foreach element $row {                                                        set update_command [mysql_query "UPDATE bot_commands SET command_value='${command_input_value}'"]                                                        putnotc $nick "Set $command_input to '$command_input_value'"                                                    }                                                }                                            } else {                                                set insert_command [mysql_query "INSERT INTO bot_commands (command_chan, command_name, command_value) VALUES ('$chan', '$command_input', '$command_input_value'"]                                                putnotc $nick "Set $command_input to $command_input_value"                                            }                                        } else {                                            putnotc $nick "Error(1): You lack access to 'set $command_input'"                                            putnotc $nick "Error(2): Unable to 'set $command_input'"                                        }                                    }                                }

This is a new error I am getting, I completley restarted the bot. I know it has something do with the == "$chan_trigger($chan)" part in the main set proc. I've tried $chan_trigger(${chan}) That didnt really help at all:

[14:33] Tcl error [command:main:set]: can't read "chan_trigger($chan)": no such element in array

Statistics: Posted by daltonc — Mon May 02, 2005 2:34 pm

Variable questions

2005-05-02T13:43:01-04:00

There might be a conflict with cases. If #channel is lower case, then I suggest yo do: set chan_trigger([string tolower $chan_name]) [lindex $row 3]

Statistics: Posted by Sir_Fz — Mon May 02, 2005 1:43 pm

Variable questions

2005-05-02T13:24:11-04:00

No.. the on load event sets the variables like so $chan_trigger(#mychannel) so therefore in the command I should use $chan_trigger($chan) to get the channel. But its not working. I posted the exact error message that I got from telnet.

Statistics: Posted by daltonc — Mon May 02, 2005 1:24 pm

Variable questions

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

you should post more details about where that error happens, if you expect any help from us ^-^.

but should you be using something like that now?
set chan_trigger($chan_name) [lindex $row 3]

Statistics: Posted by De Kus — Mon May 02, 2005 12:21 pm

Variable questions

2005-05-02T09:40:18-04:00

Yup, I made it global, still doesnt work. ; /

[09:38] Tcl error [command:main:set]: can't read "chan_trigger": no such variable

Statistics: Posted by daltonc — Mon May 02, 2005 9:40 am

Variable questions

2005-05-02T03:54:32-04:00

forgot to make the var global? did you think of that the var might not be always initialized before first use?

Statistics: Posted by De Kus — Mon May 02, 2005 3:54 am

Variable questions

2005-05-01T21:57:06-04:00

Thanks man, didnt really relize I was doin that. But uhh anyways: is this correct?

if {[string tolower [lindex [split $arg] 0]] == "${chan_trigger($chan)}set" && [string tolower [lindex $arg 1]] == "greeting"} {

Its saying the $chan_trigger($chan) is not set when I know it set when I ran the script cause it says it set.

Anyideas?

Statistics: Posted by daltonc — Sun May 01, 2005 9:57 pm

Variable questions

2005-05-01T18:29:09-04:00

you can't set chan_trigger($chan_name) and chan_greeting($chan_name) since you already have set chan_trigger and chan_greeting, I suggest you erase the first sets, and set them directly to the arrays.

Statistics: Posted by Sir_Fz — Sun May 01, 2005 6:29 pm

Variable questions

2005-05-01T17:55:58-04:00

Mmmmm... didnt work. This is my actual code:

Code:

set get_chan_name [mysql_query "SELECT * FROM bot_channels"]putlog "*** SETTING CHANNEL VARIABLES ***"foreach row $get_chan_name {        set chan_name "[lindex $row 1]"       set chan_trigger "[lindex $row 3]"       set chan_greeting "[lindex $row 4]"       set chan_trigger($chan_name) "$chan_trigger"       putlog "Set $chan_name trigger to $chan_trigger"       set chan_greeting($chan_name) "$chan_greeting"}

this is my error:

[17:54] can't set "chan_trigger(#testchannel)": variable isn't array
while executing
"set chan_trigger($chan_name) "$chan_trigger""
("foreach" body line 6)
invoked from within
"foreach row $get_chan_name {
set chan_name "[lindex $row 1]"
set chan_trigger "[lindex $row 3]"
set chan_greeting "[lindex $row ..."

Statistics: Posted by daltonc — Sun May 01, 2005 5:55 pm