is it correct?

honeybee · Post by **honeybee** » Fri May 12, 2006 9:41 am

I'm trying to make a time check bind to hit routine:check proc after every 3 hours. i guess its not the correct way, btw. with current version of tcl we can directly do it instead of making bind for everyhour and checking inside the proc?

bind time - "*0 * * * *" routine:check
bind time - "* */3 * * *" routine:check

Post by **Sir_Fz** » Fri May 12, 2006 11:14 am

Code: Select all

bind time - "00 *" routine:check

proc routine:check {m h args} {
 if {[scan $h %d]%3 != 0} {return 0}
 # do your stuff here
}

honeybee · Post by **honeybee** » Fri May 12, 2006 1:25 pm

Thanks, i was thinking to use.

Code: Select all

if {[expr $hour % 3]} { return }

De Kus · Post by **De Kus** » Fri May 12, 2006 6:32 pm

which basicly does the same, since the expression will return doing nothing, if the reminder is not 0...

Post by **Sir_Fz** » Fri May 12, 2006 7:02 pm

Yes, but the number needs to be converted to decimal because 08 and 09 are not valid octal numbers.

De Kus · Post by **De Kus** » Sat May 13, 2006 1:42 pm

oh, I didnt preconceive that. You are totally right. I wondered why you used scan to get the integer

. Alternately you could simply use [string trimleft $h 0]

. I'd guess it would be faster.

StarZ|De_Kus ?calc 08 % 3
-[-RO^Bot-]- Fehler: expected integer but got "08" (looks like invalid octal number)