lindex issue

chicken · Post by **chicken** » Mon Sep 09, 2002 9:39 pm

Hi,
Sorry if this sounds newbish, but I am new. I spent some time searching here and deja but cannot seem to find an answer. I want to be able to run a command like "@hi jimmy" and have it display something out of list. The problem is that I have variables in list that I want substituted, and it does not seem that lindex can do this. Is there another way to accomplish this?

Thanks!

bind pub o @hi pub_hi

set list {
"hi $args"
"hello $args"
}

proc pub_hi {nick mask hand channel args} {
global list
puthelp "PRIVMSG $channel :[lindex $list [rand [llength $list]]]"
}

stdragon · Post by **stdragon** » Mon Sep 09, 2002 11:00 pm

Use subst to substitute variables into text the way you're doing it.

But a better idea is to use your own variable names (like %nick instead of $nick) and then use regsub to substitute in fixed values. That's a lot more secure.

chicken · Post by **chicken** » Mon Sep 09, 2002 11:15 pm

do you have an example of how to do this? I tried playing with that a little and could not get it to work either.

Thanks!

stdragon · Post by **stdragon** » Mon Sep 09, 2002 11:24 pm

If 'text' is the variable containing %nick that you want to substitute into,

regsub -all %nick $text $nick text

chicken · Post by **chicken** » Mon Sep 09, 2002 11:40 pm

works perfect! thanks!

chicken · Post by **chicken** » Tue Sep 10, 2002 12:01 am

well spoke to soon

It works the first time after a rehash or a restart, but then it just substitues the same things everytime after that. Pointers on what I am doing wrong?

Thanks

stdragon · Post by **stdragon** » Tue Sep 10, 2002 12:26 am

Dunno, maybe you're using the wrong variable?

Remember that regsub modifies the string, so copy it to a temporary variable.