Posted to tcl by mjanssen at Mon Jun 11 17:42:39 GMT 2007view pretty

putlog "binding time.."
bind time - "* * * * *" itsnow
proc itsnow  {minute hour day month year} {
    putlog "it's now $hour:$minute $day-$month-$year"
}