==== //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 --
