diff options
author | Mystery Man <unknown@mandriva.org> | 2004-11-06 08:30:59 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2004-11-06 08:30:59 +0000 |
commit | 42e38e074bf1200783849ea85e205e6614f988d7 (patch) | |
tree | 3c218a7ef3c66c8064eb2f6fa84ef44cef7b55a6 /perl-install/log.pm | |
parent | a4a67fd68bcffc42eb98871618c8f07b55157d5e (diff) | |
download | drakx-topic/a.tar drakx-topic/a.tar.gz drakx-topic/a.tar.bz2 drakx-topic/a.tar.xz drakx-topic/a.zip |
This commit was manufactured by cvs2svn to create branch 'a'.topic/a
Diffstat (limited to 'perl-install/log.pm')
-rw-r--r-- | perl-install/log.pm | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/perl-install/log.pm b/perl-install/log.pm deleted file mode 100644 index 3e8826963..000000000 --- a/perl-install/log.pm +++ /dev/null @@ -1,66 +0,0 @@ -package log; # $Id$ - -use diagnostics; -use strict; - -use c; - -my ($LOG, $LOG2); - -#-##################################################################################### -#- Globals -#-##################################################################################### -my $logOpen = 0; -my $logDebugMessages = 0; - -#-###################################################################################### -#- Functions -#-###################################################################################### -sub F() { $LOG } - -sub l { - $logOpen or openLog(); - if ($::testing) { - print STDERR @_, "\n"; - } elsif ($::isStandalone) { - c::syslog(c::LOG_WARNING(), join("", @_)); - } elsif ($::isInstall) { - print $LOG "* ", @_, "\n"; - print $LOG2 "* ", @_, "\n"; - } else { - print STDERR @_, "\n"; - } -} -sub ld { $logDebugMessages and &l } -sub w { &l } - -sub openLog(;$) { - if ($::isInstall) { - if ($_[0]) { #- useLocal - open $LOG, "> $_[0]"; #-# - } else { - open $LOG, "> /dev/tty3"; #-# - } - open $LOG2, ">> /tmp/ddebug.log"; #-# - select((select($LOG), $| = 1)[0]); - select((select($LOG2), $| = 1)[0]); - } - exists $ENV{DEBUG} and $logDebugMessages = 1; - $logOpen = 1; -} - -sub closeLog() { - if ($::isStandalone) { - c::closelog(); - } else { close $LOG; close $LOG2 } -} - -sub explanations { - if ($::isStandalone) { - c::syslog(c::LOG_INFO()|c::LOG_LOCAL1(), "@_"); - } else { - l(@_); - } -} - -1; |