egghelp/eggheads community

gettime error

2004-02-02T05:25:12-04:00

I just copied and pasted the above script into the bot, and my half-hour message said the time of the previous top of the hour (said 6:00ET when should have been 6:30)

Just to confirm I have hourly and half hourly msgs...

Statistics: Posted by NewzUK — Mon Feb 02, 2004 5:25 am

gettime error

2004-02-02T05:04:09-04:00

NewzBoy.

The code strikelight posted should and does work.

It is a well known workaround to other problems related to the time bind.

You apear to be using the time bind, and it would also apear you are failing to post the whole of your put:hour code.

How do we know this?

Because of this line.

Code:

bind time - "00 * * * *" put:hour

This would run once and hour on the hour. However, you have been sugesting that your code runs at 08:30. Which is pretty must 1/2 an hour too late (or early).

Another note, you should be quoting your string in full if your are returning more than one thing. Keeps things safe.

Code:

return "${time_ret}:${therest}"

Statistics: Posted by ppslim — Mon Feb 02, 2004 5:04 am

why do all that weird stuff?

2004-02-02T04:58:36-04:00

Code:

proc gettime {{offset 0}} {clock format [expr {[clock seconds]+($offset*3600)}] -format %H:%M}

Statistics: Posted by user — Mon Feb 02, 2004 4:58 am

gettime error

2004-02-01T20:46:11-04:00

Here are the facts... what you were told, works....

Code:

% proc gettime { offset } { set hour [string trimleft [clock format 1075708800 -format "%H"] 0]set therest [clock format 1075708800 -format "%M"] set time_ret [expr $hour + $offset] if {$time_ret > 23} { set time_ret [expr $time_ret - 24] } if {$time_ret < 0} { set time_ret [expr $time_ret + 24] } return $time_ret:$therest } % gettime -189:00% gettime -1314:00%(note: 1075708800 is 08:00 GMT as per your description of where the error occurs)

So there are the facts.. the conclusion: you didn't do what you were told, thus you didn't want help from the get go.

Statistics: Posted by strikelight — Sun Feb 01, 2004 8:46 pm

gettime error

2004-02-01T20:15:46-04:00

LOL I did do what you suggested - why would I not if I was seeking to solve my problem? The reason I didn't post the error again is because it was exactly the same as before so there was no need to 'prove' anything.

Your help did not fix the problem - and now I've just seen it produces the error more than it did before, so your code failed and made the problem worse. So have reverted back to original version.

No pride here - just the facts!

There's no need to act all superior to those of us who are't scripting experts - this is supposed to be a 'help' forum - not to use your knowledge (questionable in this case) to try to make others feel stupid.

Statistics: Posted by NewzUK — Sun Feb 01, 2004 8:15 pm

gettime error

2004-02-01T18:34:50-04:00

If you had done what you said you had done, you would have nothing to hide. But apparently, you are too proud to admit you faltered in doing something you said, when you didn't. That is what anyone can conclude, from the lack of information provided on your behalf.

Statistics: Posted by strikelight — Sun Feb 01, 2004 6:34 pm

gettime error

2004-02-01T18:25:54-04:00

excuse me - 'prove it'?

I said I did it, and it didn't work.

I don't need it that badly that I'll put up with some kind of arrogant inquisition.

Thanks anyway.

Statistics: Posted by NewzUK — Sun Feb 01, 2004 6:25 pm

gettime error

2004-02-01T18:17:36-04:00

Prove you have done what you said, by both showing your newly altered code, and also issue a '.tcl set errorInfo' on your partyline, after the error is generated.

Statistics: Posted by strikelight — Sun Feb 01, 2004 6:17 pm

gettime error

2004-02-01T18:11:20-04:00

yes I did - and it still gives the error.

oh well - looks like it's in the too hard basket!

Statistics: Posted by NewzUK — Sun Feb 01, 2004 6:11 pm

gettime error

2004-02-01T14:24:23-04:00

Welp, then you didn't change your "set hour" line in your gettime proc, with the one involving the "string trimleft" that I gave you.

Statistics: Posted by strikelight — Sun Feb 01, 2004 2:24 pm

gettime error

2004-02-01T04:26:25-04:00

This is one of them - it runs the BBC News script. There's another one I have called put:half (for a half hourly message) which just sends a message to the channel and this also gets the error message.

bind time - "00 * * * *" put:hour
proc put:hour { min hour day month year } {
putserv "PRIVMSG #NewsRoom :12,12 0,4 >Newsroom LIVE 7,7 0,12 World Headlines @ [gettime -18]ET / [gettime -13]GMT "
bbc:parse "http://news.bbc.co.uk/2/low.html" 1 #NewsRoom #NewsRoom
}

Thanks.

Statistics: Posted by NewzUK — Sun Feb 01, 2004 4:26 am

gettime error

2004-02-01T04:21:18-04:00

When I looked at the code you pasted, I had (incorrectly) assumed you has pasted the corresponding code related to the error. However, I was in error. You have not shown us the put:hour procedure.

Statistics: Posted by strikelight — Sun Feb 01, 2004 4:21 am

gettime error

2004-02-01T04:03:05-04:00

thanks strikelight - I made those changes, but unfortunatly 08:00 GMT just came and went and I got the same error:

[08:00] Tcl error [put:hour]: expected integer but got "08" (looks like invalid octal number)

Statistics: Posted by NewzUK — Sun Feb 01, 2004 4:03 am

Re: gettime error

2004-01-31T13:44:22-04:00

Hi there

I have this proc which I use in a couple of scripts to display the time in various timezones by inserting:

[gettime -5]
for example for USET. However at a few times in the day I get this error, and the message is not displayed:

[09:00] Tcl error [put:hour]: expected integer but got "09" (looks like invalid octal number)

The proc is:

proc gettime { offset } {
set hour [clock format [clock seconds] -format "%H"]
set therest [clock format [clock seconds] -format "%M"]
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
}

It works mostly, but at 08:00 08:30 09:00 and 21:00 GMT it seems to produce this error.

If anyone can spot anything wrong or other help I'd appreciate it...

Code:

set hour [string trimleft [clock format [clock seconds] -format "%H"] 0]

Also, you don't need to add command substitution to evaluate the range of time_ret ...

ie.

Code:

if {$time_ret > 23} { ... }andif {$time_ret < 0} { ...}

will suffice

Statistics: Posted by strikelight — Sat Jan 31, 2004 1:44 pm

gettime error

2004-01-31T05:31:09-04:00

Hi there

I have this proc which I use in a couple of scripts to display the time in various timezones by inserting:

[gettime -5]
for example for USET. However at a few times in the day I get this error, and the message is not displayed:

[09:00] Tcl error [put:hour]: expected integer but got "09" (looks like invalid octal number)

The proc is:

proc gettime { offset } {
set hour [clock format [clock seconds] -format "%H"]
set therest [clock format [clock seconds] -format "%M"]
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
}

It works mostly, but at 08:00 08:30 09:00 and 21:00 GMT it seems to produce this error.

If anyone can spot anything wrong or other help I'd appreciate it...

Statistics: Posted by NewzUK — Sat Jan 31, 2004 5:31 am