package log; # $Id$ use diagnostics; use strict; use c; #-##################################################################################### #- Globals #-##################################################################################### my $logOpen = 0; my $logDebugMessages = 0; #-###################################################################################### #- Functions #-###################################################################################### sub F() { *LOG } sub l { $logOpen or openLog(); if ($::isStandalone) { c::syslog(join "", @_); } elsif ($::isInstall) { print LOG "* ", @_, "\n"; print LOG2 "* ", @_, "\n"; } 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 closeLog() { if ($::isStandalone) { c::closelog(); } else { close LOG; close LOG2; } } #-###################################################################################### #- Wonderful perl :( #-###################################################################################### 1; on value='distro/mga3'>distro/mga3 Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/resize_ntfs.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2006-03-04 17:00:36 +0000
committerOlivier Blin <oblin@mandriva.org>2006-03-04 17:00:36 +0000
commit059ebf518764b39267cb8ca3cfadb6f573eddeec (patch)
tree6e02c6da89884f966f7411a71aefce3f5a563bf7 /perl-install/diskdrake/resize_ntfs.pm
parent55ec1e42a2e4e611fd8c71f8968d1a6ad08f6c9f (diff)
downloaddrakx-059ebf518764b39267cb8ca3cfadb6f573eddeec.tar
drakx-059ebf518764b39267cb8ca3cfadb6f573eddeec.tar.gz
drakx-059ebf518764b39267cb8ca3cfadb6f573eddeec.tar.bz2
drakx-059ebf518764b39267cb8ca3cfadb6f573eddeec.tar.xz
drakx-059ebf518764b39267cb8ca3cfadb6f573eddeec.zip
check for ntfsresize in real root first