# why use bind time when you have timer ? :)

set interval 2

set message "Hello all :)"

if {![string match "*time:announce*" [timers]]} { timer $interval [list time:announce] }

proc time:announce {} {
  global message
  foreach c [channels] {
    putserv "PRIVMSG $c :$message"
  }
}