Posted to tcl by Maxwell- at Fri Nov 09 20:03:01 GMT 2007view raw

  1. File1: biig_lib.tcl
  2.  
  3. proc debugLogging { debug logMessage } {
  4.  
  5. if {$debug} {
  6. set procName [lindex [info level -1] 0]
  7. set dateTime [clock format [clock seconds] -format %Y%m%d%H%M%S]
  8. return "\[DEBUG\]\[$dateTime\]\[$procName\] $logMessage"
  9. } else {
  10. return ""
  11. }
  12.  
  13. }
  14.  
  15. File2: test.tcl
  16.  
  17. #!/hci/quovadx/qdx5.2/integrator/bin/tcl
  18.  
  19. set debug 1
  20. set message "test test test"
  21. puts [debugLogging $debug $message]
  22.  
  23. Command Line:
  24.  
  25. ./test.tcl