scripts/filelog.itcl

   1 # vim: foldmarker=<<<,>>>
   2
   3 class tlc::Filelog {
   4         inherit tlc::Log
   5
   6         constructor {args} {}
   7         destructor {}
   8
   9         public {
  10                 variable filename
  11         }
  12
  13         protected {
  14                 method output {level msg}
  15         }
  16
  17         private {
  18                 variable fp
  19         }
  20 }
  21
  22
  23 configbody tlc::Filelog::filename { #<<<1
  24         if {[info exists fp]} {
  25                 catch {close $fp}
  26                 unset fp
  27         }
  28
  29         set fp  [open $filename a]
  30 }
  31
  32
  33
  34 body tlc::Filelog::constructor {args} { #<<<1
  35         eval configure $args
  36
  37         if {![info exists filename]} {
  38                 error "Must specify -filename"
  39         }
  40 }
  41
  42
  43 body tlc::Filelog::destructor {} { #<<<1
  44         if {[info exists fp]} {
  45                 close $fp
  46         }
  47 }
  48
  49
  50 body tlc::Filelog::output {level msg} { #<<<1
  51         if {$level >= $threshold} {
  52                 puts $fp "[clock format [clock seconds] -format {%d/%m/%Y %T}] $level $msg"
  53                 flush $fp
  54         }
  55 }
  56
  57