From e1729dfdb9c341fe0b9fed7d7b0a80691a547d82 Mon Sep 17 00:00:00 2001 From: Chmouel Boudjnah Date: Thu, 1 Jul 1999 12:29:54 +0000 Subject: "See_The_Changelog" --- perl-install/log.pm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 perl-install/log.pm (limited to 'perl-install/log.pm') diff --git a/perl-install/log.pm b/perl-install/log.pm new file mode 100644 index 000000000..0fe696f07 --- /dev/null +++ b/perl-install/log.pm @@ -0,0 +1,34 @@ +use diagnostics; +use strict; + +package log; + +my $logOpen = 0; +my $logDebugMessages = 0; + +1; + +sub fd() { fileno LOG } + +sub l { + $logOpen or openLog(); + print LOG "* ", @_, "\n"; + print LOG2 "* ", @_, "\n"; +} +sub ld { $logDebugMessages and &l } +sub w { &l } + +sub openLog(;$) { + 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 closeLog() { close LOG; close LOG2; } -- cgit v1.2.1