egghelp/eggheads community

Re: 2 scripting problems

2005-06-29T11:27:38-04:00

Thanks!

Aside from a couple of formatting errors I had in the rest of the script, they now work perfectly!

Statistics: Posted by LiquidZoo — Wed Jun 29, 2005 11:27 am

Re: 2 scripting problems

2005-06-29T04:29:43-04:00

First off, how do I execute a linux command (date -u) and store it inside a variable that I can later call in the middle of a block of text for a response? Say I wanted to call the variable gmtTime, and I want the block of text to be "The current time is $gmtTime (GMT)"

you can simply use 'set gmtTime [exec date -u]' for that. However, date -u returns the UTC time (GMT 0 time without daylight timeshift). If you prefer GMT 0 with posible daylight timeshift you should simply use 'set gmtTime [ctime [unixtime]]'.

if {[strlwr $message_chan]==[strlwr $chan]}{

you are getting "Tcl error: extra characters after close-brace" here, right?
you are missing the white space between the close and open brace at the end of the line.

Statistics: Posted by De Kus — Wed Jun 29, 2005 4:29 am

2 scripting problems

2005-06-29T03:35:43-04:00

I have 2 probably simple, but unbelievably annoying problems, each with a script I am trying to modify for my own needs.

First off, how do I execute a linux command (date -u) and store it inside a variable that I can later call in the middle of a block of text for a response? Say I wanted to call the variable gmtTime, and I want the block of text to be "The current time is $gmtTime (GMT)"

The second one appears to have a bracket out of place, but I can't for the life of me figure out where. Each time I remove a closing bracket (or brace, whatever you want to call them) it throws up a new error. Here is the relavent proc from the script:

Code:

proc pub:nerf { nick uhost handle channel testes } {set who [lindex [split $testes] 0]global xmsgset excuse [lindex $xmsg [rand [llength $xmsg]]]if {[strlwr $message_chan]==[strlwr $chan]}{if {$who == ""} {  putserv "NOTICE $nick :Usage: !nerf "  return 1  }  putserv "PRIVMSG $channel :\001ACTION [subst $excuse]\001"}}putlog "NERF! Loaded"

Can anyone please help me out with these 2 issues?

Statistics: Posted by LiquidZoo — Wed Jun 29, 2005 3:35 am