[Scott Nichols] Below is a Tcl logger proc that I wrote a while back. It does the following screen puts the log to screen with a date and time in front of the screen put. If logging is on the log is saved to file with the date and time to each write. A new log file is automatically created the first log after midnight.


 proc log { value {logging true} {logPath ./} } {
    global yesterday fileid
    if { [catch {
    
        puts "[clock format $seconds -format "%D|%T|"]$value"

        if { $logging } {
            # Get the current day out of the month
            set currentday [clock seconds]
            set seconds $currentday
            set currentday [clock format $currentday -format %d]

            if { ! [info exists fileid] } {
                set fileid [open "${logPath}/ReaderBoard [clock format $seconds -format %m-%d-%y].txt" a+]
            }

             # Create new file
             if { [info exists yesterday] } {

                 if { $currentday != $yesterday } {
                     set yesterday $currentday
                     close $fileid
                     set fileid [open "${logPath}/ReaderBoard [clock format $seconds -format %m-%d-%y].txt" a+]
                 }
             } else {
                 set yesterday $currentday
             }

            puts $fileid "[clock format $seconds -format "%D|%T|"]$value"        

        }
    } errorString] } {
        puts "proc log ERROR: \"$errorString\""
    }
 }