Help TCL - $arg - TNX!!

saerd · Post by **saerd** » Sat Dec 11, 2004 8:34 am

Hi all!!
I want to make a script that, when in my chan any users, type:
!find test1 test2 test3
My eggdrop MUST reply:
http://www.xxxxx.yyy/search.php=test1+test2+test3

I have created this script, but it works with only a word of search
If I type !find test1 test2 test3, hi reply me:

http://www.xxxxx.yyy/search.php=test1 test2 test3
So, i need the "+" between the words!!

Code: Select all

bind pub -|- !find pub:find

proc pub:find {nick host hand chan arg} { 
putserv "PRIVMSG $nick :http://www.xxxx.yyy/search.php=$arg"
}

Any help ?? Many thanks!!

KrzychuG · Post by **KrzychuG** » Sat Dec 11, 2004 9:08 am

try:

Code: Select all

bind pub -|- !find pub:find 
proc pub:find {nick host hand chan arg} { 
set arg [join $arg +]
putserv "PRIVMSG $nick :http://www.xxxx.yyy/search.php=$arg" 
}

demond · Post by **demond** » Sat Dec 11, 2004 9:11 am

Code: Select all

bind pub -|- !find pub:find 

proc pub:find {nick host hand chan arg} { 
set stuff [join [split $arg] +]
putserv "PRIVMSG $nick :http://www.xxxx.yyy/search.php=$stuff" 
}

saerd · Post by **saerd** » Sat Dec 11, 2004 9:26 am

It works 100%!!!
MANY THANKS!!!!
CIAO!!