OMB+ Скрипты. Логирование
Хотелось бы рассмотреть чуть подробнее процедуру логирования. В принципе, ничего сложного как всегда нет. Итак, вот какие процедуры использую я.
|
proc createLogFile {flnm} { global workdir set LogFileName $workdir\$flnm.log if { [catch {set fileHandle [open $LogFileName w]} FileError] } { puts “Could not open $LogFileName for writingn$FileError” exit 1 } return $fileHandle }
proc log {info} { global LogFile puts “$info” if { [lsearch [info globals] “LogFile” ] >= 0 } { puts $LogFile “$info” flush $LogFile } }
proc closeLogFile {} { global LogFile close $LogFile unset LogFile } |
А вот пример их использования:
|
log “log only to screen” set workdir {C:\Logs} set LogFile [createLogFile "TESTLOG" ] log “log to screen and log file closeLogFile |
“