bind time all 4 h

ranny · Post by **ranny** » Wed Dec 07, 2005 3:08 pm

Hello,

I want to send a message in a channel all 4 hours.

I have this code

bind time - "00 00 *" myproc
bind time - "00 04 *" myproc
bind time - "00 08 *" myproc
bind time - "00 12 *" myproc
bind time - "00 16 *" myproc
bind time - "00 20 *" myproc

There's a more simple solution, shorter

thx

]Kami[ · Post by **]Kami[** » Wed Dec 07, 2005 3:51 pm

timer ?

De Kus · Post by **De Kus** » Wed Dec 07, 2005 4:24 pm

You probably mean something like that?! Use your brain, all your hours have a remainder of 0 if you divide them by 4

.

Code: Select all

bind time - "00 *" myproc

proc myproc {min h d m y} {
   if {[expr {$h % 4}] == 0} {
      ...
   }
}

ranny · Post by **ranny** » Wed Dec 07, 2005 5:49 pm

De Kus wrote:You probably mean something like that?! Use your brain, all your hours have a remainder of 0 if you divide them by 4 .
Code: Select all
bind time - "00 *" myproc

proc myproc {min h d m y} {
   if {[expr {$h % 4}] == 0} {
      ...
   }
}

Yes,thx De Kus.
I use my brain and i see your error

The good code is

Code: Select all

if {[expr {[string trimleft $h 0] % 4}] == 0} {
      ...
   }

thx

Post by **Sir_Fz** » Wed Dec 07, 2005 6:47 pm

No need to trim and no need to use expr inside the if statement.

.tcl if {04%4 == 0} { putlog yes }
[23:50] yes