1 files changed, 34 insertions, 39 deletions

diff --git a/perl-install/log.pm b/perl-install/log.pm
index b049f5d49..a0f7bd41d 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -1,60 +1,55 @@
-package log; # $Id$
+package log;
 
 use diagnostics;
 use strict;
-use c;
-
 
-#-#####################################################################################
-#- Globals
-#-#####################################################################################
-my $logOpen = 0;
-my $logDebugMessages = 0;
+use c;
 
+my ($LOG, $LOG2);
 
-#-######################################################################################
-#- Functions
-#-######################################################################################
-sub F() { *LOG }
 
 sub l {
-    $logOpen or openLog();
-    if ($::isStandalone) {
-	c::syslog(join "", @_);
+    if ($::testing) {
+	print STDERR @_, "\n";
     } elsif ($::isInstall) {
-	print LOG "* ", @_, "\n";
-	print LOG2 "* ", @_, "\n";
+	if (!$LOG) {
+	    open $LOG, '>>', '/tmp/ddebug.log';
+	    open $LOG2, '>', '/dev/tty3' if !$::local_install;
+	    select((select($LOG),  $| = 1)[0]);
+	    select((select($LOG2), $| = 1)[0]) if !$::local_install;
+	}
+	print $LOG "* ", @_, "\n";
+	print $LOG2 "* ", @_, "\n" if $LOG2;
+    } elsif ($::isStandalone) {
+	#- openlog was done in standalone.pm
+
+	c::syslog(c::LOG_WARNING(), join("", @_));
     } else {
 	print STDERR @_, "\n";
     }
 }
-sub ld { $logDebugMessages and &l }
-sub w { &l }
 
-sub openLog(;$) {
-    if ($::isStandalone) {
-	c::openlog("DrakX");
-    } elsif ($::isInstall) {
-	if ($_[0]) { #- useLocal
-	    open LOG, "> $_[0]";# or die "no log possible :(";
-	} else {
-	    open LOG, "> /dev/tty3" or open LOG, ">> /tmp/install.log";# or die "no log possible :(";
-	}
-	open LOG2, ">> /tmp/ddebug.log";# or die "no log possible :(";
-	select((select(LOG),  $| = 1)[0]);
-	select((select(LOG2), $| = 1)[0]);
-    }
-    exists $ENV{DEBUG} and $logDebugMessages = 1;
-    $logOpen = 1;
+sub openLog {
+    my ($file) = @_;
+    open $LOG, "> $file";
+    select((select($LOG),  $| = 1)[0]);
 }
 
 sub closeLog() { 
-    if ($::isStandalone) {
+    if ($LOG) { 
+	close $LOG; 
+	close $LOG2 if $LOG2;
+    } elsif ($::isStandalone) {
 	c::closelog();
-    } else { close LOG; close LOG2; }
+    }
+}
+
+sub explanations {
+    if ($::isStandalone) {
+        c::syslog(c::LOG_INFO()|c::LOG_LOCAL1(), "@_");
+    } else {
+        l(@_);
+    }
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
 1;