egghelp/eggheads community

Regarding time and clock scan/seconds

2010-04-05T19:57:23-04:00

Ah, thank you! I don't actually need this bind anymore, but its still nice to know how to do for future use.

Statistics: Posted by Luminous — Mon Apr 05, 2010 7:57 pm

Regarding time and clock scan/seconds

2010-03-31T16:47:25-04:00

[12:45pm] .tcl set myoffset 1
[12:45pm] Tcl: 1
[12:45pm] .tcl set timeLeftTilMidnigt [duration [expr {[clock scan "tomorrow 00:00"] - [clock seconds] - ($myoffset * 3600)}]]
[12:45pm] Tcl: 10 hours 14 minutes 10 seconds
...
[12:49pm] .tcl set myoffset 0
[12:49pm] Tcl: 0
[12:49pm] .tcl set timeLeftTilMidnigt [duration [expr {[clock scan "tomorrow 00:00"] - [clock seconds] - ($myoffset * 3600)}]]
[12:49pm] Tcl: 11 hours 10 minutes 6 seconds

Pretty simple..

Code:

set myoffset 1bind pub - !time time:leftproc time:left {nick host hand chan text} {   putserv "PRIVMSG $nick :Time left until midnight is: [duration [expr {[clock scan "tomorrow 00:00"] - [clock seconds] - ($::myoffset * 3600)}]]"}

Statistics: Posted by speechles — Wed Mar 31, 2010 4:47 pm

Regarding time and clock scan/seconds

2010-03-31T10:44:38-04:00

http://tcl.tk/man/tcl8.5/TclCmd/clock.htm#M10

% clock scan "Tomorrow"
1270076400
% clock format [clock scan "Tomorrow"]
Thu Apr 01 00:00:00 BST 2010
% clock scan "24 hours"
1270132959
% clock format [clock scan "24 hours"]
Thu Apr 01 15:42:48 BST 2010
% clock format [clock scan "23 hours"]
Thu Apr 01 14:43:05 BST 2010
%

Statistics: Posted by TCL_no_TK — Wed Mar 31, 2010 10:44 am

Regarding time and clock scan/seconds

2010-03-30T20:28:48-04:00

Worth noting that paste.tcl-help.net reports no errors on this:

Code:

bind pub * !time time:leftproc time:left {nick host hand chan text} {    set tartime [clock scan "00:00:00"]    set mytime [clock scan "%T"]    set offset [duration [expr {$mytime - 3600}]]    set difftime [duration [expr {$offset -  $tartime}]]    if {$offset != $tartime} {putserv "PRIVMSG $nick :Time left until tomorrow is $difftime"    }}

But I get an error in partyline when I load the command "Tcl error [time:left]: unable to convert date-time string "%T": syntax error (characters 0-0)"

Do I need to specify the format?

Statistics: Posted by Luminous — Tue Mar 30, 2010 8:28 pm

Regarding time and clock scan/seconds

2010-03-30T16:09:04-04:00

I need a script that will display, on a public !command, how many hours:mins:secs is left until a specified time. In this case 12:00. However, I need to deduct 1 hour from my time to cover the timezone difference before announcing time before midnight. But I am confused as to what I actually need to use to do this. I was looking at this thread: http://forum.egghelp.org/viewtopic.php? ... light=zone which is where I learned about clock scan/seconds, but I am unsure of how to use these to do what I need.

This is what i have so far. Have not tested it, as I am not sure I even did the bind properly:

Code:

bind pub * !time time:left proc time:left {nick host hand chan} {   set tartime [clock scan "00:00:00"]   set mytime [clock scan "%T"   set offset [duration [expr $mytime - 3600]] ; #I assume I would subtract an hour by seconds   set difftime [duration [expr $offset -  $tartime]       if {$offset != $tartime} {          putserv "PRIVMSG $nick :Time left until midnight is $difftime"        }}

Please advise, thanks.

Statistics: Posted by Luminous — Tue Mar 30, 2010 4:09 pm