2 scripting problems

[LiquidZoo]

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: Select all

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

Can anyone please help me out with these 2 issues?

[De Kus]

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.

[LiquidZoo]

Thanks!

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