Tk Library Source Code

Artifact 569bf7aaf4472b5d21e891fa048d0c0a1f8c989f:

Attachment "logger.patch" to ticket [3613162fff] added by amitguptainn 2013-05-15 08:03:54.

---

==== //lib/public/tcllib-1.15/lib/tcllib1.15/log/logger.tcl#3 (text) - //lib/public/tcllib-1.15/lib/tcllib1.15/log/logger.tcl#2 (text) ==== content
@@ -29,8 +29,6 @@
     # The default global log level used for new logging services
     variable enabled "debug"
 
-    variable logfile ""
-    
     # Tcl return codes (in numeric order)
     variable RETURN_CODES   [list "ok" "error" "return" "break" "continue"]
 }
@@ -161,23 +159,13 @@
 
 	proc stdoutcmd {level text} {
 	    variable service
-	    variable logfile
-	    if { [::info exists logfile] } {
-	    	fileutil::appendTofile $logfile "\[[clock format [clock seconds]]\] \[$service\] \[$level\] \'$text\'"
-	    } else {
 	    	puts "\[[clock format [clock seconds]]\] \[$service\] \[$level\] \'$text\'"
 	    }
-	}
 
 	proc stderrcmd {level text} {
 	    variable service
-	    variable logfile
-	    if { [::info exists logfile] } {
-	    	fileutil::appendTofile $logfile "\[[clock format [clock seconds]]\] \[$service\] \[$level\] \'$text\'"
-	    } else {
 	    	puts stderr "\[[clock format [clock seconds]]\] \[$service\] \[$level\] \'$text\'"
 	    }
-	}
 
 
 	# setlevel --