Displaying the time...

NewzUK · Post by **NewzUK** » Fri Sep 05, 2003 5:20 am

Hi - I have this script that plays to the channel at the top of every hour:

bind time - "00 * * * *" put:hour
proc put:hour { min hour day month year } {
putserv "PRIVMSG #NewsRoom :\0030,4» LIVE \0030,12> Breaking News & Market Action 24/7 \0031,15> http://www.247newsroom.com \00312,12 \003"}

I'd like to add to the message (after the 'LIVE') the current US Eastern time (16 hours behind my local time) and GMT time (12 hours behind my local time).

If anyone could help me with the asctime and calc commands that would be great! Thanks =)

GodOfSuicide · Post by **GodOfSuicide** » Fri Sep 05, 2003 5:59 am

this code should help you out..

Code: Select all

proc gettime { offset } {
set hour [clock format [clock seconds] -format "%H"]
set therest [clock format [clock seconds] -format "%M:%S"]
set time_ret [expr $hour + $offset]
if {[expr $time_ret > 23]} { set time_ret [expr $time_ret - 24] }
if {[expr $time_ret < 0]} { set time_ret [expr $time_ret + 24] }
return $time_ret:$therest
}

you can use this with [gettime -16] for US Estern and with [gettime -12] for gmt

i know this can be done in a lower number of lines, but this way its easy to understand for everybody

Post by **user** » Fri Sep 05, 2003 6:01 am

or just add/subtract the number of seconds from [clock seconds] before formatting it

NewzUK · Post by **NewzUK** » Fri Sep 05, 2003 6:05 am

thanks GOS - so do I just insert [gettime -16] etc into my hourly msg line for it to display...sorry if that's a dumb question!

GodOfSuicide · Post by **GodOfSuicide** » Fri Sep 05, 2003 6:14 am

Code: Select all

bind time - "00 * * * *" put:hour 
proc put:hour { min hour day month year } { 
putserv "PRIVMSG #NewsRoom :\0030,4» LIVE ([gettime -16] US Eastern and [gettime -13] GMT) \0030,12> Breaking News & Market Action 24/7 \0031,15> http://www.247newsroom.com \00312,12 \003"
}

you can strip the seconds by removing ":%S" from the gettime proc
and dont forget to load the gettime proc,best is if you add it to the same .tcl as your current script

btw : they way user thought about it :

Code: Select all

proc gettime { offset } {
return [clock format [expr [clock seconds] + [expr $offset] * 60 * 60] -format "%H:%M:%S"]
}

then the date is correct too

NewzUK · Post by **NewzUK** » Fri Sep 05, 2003 6:17 am

cool - thanks for that. will report back when the clock strikes the next hour!

NewzUK · Post by **NewzUK** » Fri Sep 05, 2003 7:02 am

works a treat - thanks very much!

GodOfSuicide · Post by **GodOfSuicide** » Fri Sep 05, 2003 8:30 am

you're welcome