TCL Clock

Clock

set clock_chans {
    "*"
}
# Minutes
set interval 30

bind pub - chas say_time
timer $interval stime

proc stime {} {
    global interval clock_chans
    set Kalimera [time]
    foreach zaek $clock_chans {
	putserv "PRIVMSG $zaek :Chasut e $Kalimera :>"
    }
    timer $interval stime
}
proc say_time {nick uhost hand kanal kom} {
    set chas [time]
    puthelp "PRIVMSG $kanal :Chasut e $chas ;>"
    return 0
}