set $var with $arg ...

[wubmerlin]

Hello i wan tto know if this is possible

Code: Select all

bind pub - !rules pub_rules

set public_rules "test public"
set private_rules "test private"
set pm_rules "test pm"

proc pub_rules { nick uhost hand chan arg } {
global public_rules pm_rules private_rules

if {[string tolower [lindex $arg 0]] != ""} {

#HERE IS MY PROBLEM !!!!!!
set set_rules $[string tolower [lindex $arg 0]]_rules
#END OF PROBLEM

puthelp "PRIVMSG $chan :[string toupper [lindex $arg 0]] Rules"
puthelp "PRIVMSG $chan :$set_rules"

}

I want to grabmy var with the arg, example if i type !rules public

$arg = public
i want to set:
set set_rules $$arg
Like this : set set_rules $public_rules

And i dont want set it with if $arg == public ... i want it like this b/c i have 250 rules to set and i want to clean my code ( already done with the IF )

Thanks alot !

[CrazyCat]

I think that you can have a solution with eval or subst, but I can't give you the correct syntax you need.
Peharps anyone else?

[wubmerlin]

Just for your information i just got it !

REPLACE:

Code: Select all

#HERE IS MY PROBLEM !!!!!! 
set set_rules $[string tolower [lindex $arg 0]]_rules 
#END OF PROBLEM 

BY:

Code: Select all

#NO MORE PROBLEM !!!!!! 
set set_rules [string tolower [lindex $arg 0]]_rules
set set_rules [set $set_rules]
#END  

Enjoy !