more than one arg

Darky · Post by **Darky** » Mon Nov 17, 2003 2:08 am

Hi all

I'm beginning tcl scripting, so I have quite a lot of questions .. But today I have just one

I have a trigger in my script that calls a bash script
However I need 2 args for my bash script, and I just find out how to grab one, exemple here :

Code: Select all

proc pub:distance { nick uhost hand chan arg } {
if {[llength $arg]==0} {
                putserv "PRIVMSG $chan :Give 2 planets !"
} else {
                catch {string trim [exec /home/darky/scripts/planet $arg $arg2 ]} distance
                putserv "privmsg $chan :$distance\r"
        }
        return 0
}

The proc is called like this
!d ARG-1 ARG-2

Thanks for your help !

ppslim · Post by **ppslim** » Mon Nov 17, 2003 6:37 am

$arg contains the entire string passed to the proc.

Note, try feeding your script somthing like "!d test {test"

Note the error.

Your working with strings, but treating them like lists.

Post by **Sir_Fz** » Mon Nov 17, 2003 9:36 am

Code: Select all

proc pub:distance { nick uhost hand chan arg } { 
if {[llength $arg] >= 2} { 
  catch {string trim [exec /home/darky/scripts/planet [lindex [split $arg] 0] [lindex [split $arg] 1]]} distance 
  putserv "privmsg $chan :$distance\r"
} else { 
  putserv "PRIVMSG $chan :Give 2 planets !"
}

notice the "lindex" 0 for first arg and 1 for second arg. (unless you're using pubm or msgm bind)