egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-11-17T09:36:17-04:00 https://forum.eggheads.org/app.php/feed/topic/6132 2003-11-17T09:36:17-04:00 2003-11-17T09:36:17-04:00 https://forum.eggheads.org/viewtopic.php?p=30182#p30182 <![CDATA[more than one arg]]>

Code: 

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)

Statistics: Posted by Sir_Fz — Mon Nov 17, 2003 9:36 am

]]> 2003-11-17T06:37:19-04:00 2003-11-17T06:37:19-04:00 https://forum.eggheads.org/viewtopic.php?p=30172#p30172 <![CDATA[more than one arg]]>
Note, try feeding your script somthing like "!d test {test"

Note the error.

Your working with strings, but treating them like lists.

Statistics: Posted by ppslim — Mon Nov 17, 2003 6:37 am

]]> 2003-11-17T02:08:28-04:00 2003-11-17T02:08:28-04:00 https://forum.eggheads.org/viewtopic.php?p=30163#p30163 <![CDATA[more than one arg]]>
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: 

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 !

Statistics: Posted by Guest — Mon Nov 17, 2003 2:08 am

]]>