package log; # $Id$ use diagnostics; use strict; use vars qw(*LOG *LOG2); use c; #-##################################################################################### #- 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 { c::syslog(c::LOG_INFO()|c::LOG_LOCAL1(), "@_") } 1; .6.33'>distro/mes5-2.6.33 Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/ko.po
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2003-05-16 15:55:38 +0000
committerPablo Saratxaga <pablo@mandriva.com>2003-05-16 15:55:38 +0000
commit411e0e9d500d91cf111fb93209acd7d461ee2453 (patch)
tree2ad2bc9508b90d8be8a0dc571ee75b43be5b0019 /perl-install/share/po/ko.po
parent1af0da3b2f30c11993aaefd4a9271768cb2e1bf3 (diff)
downloaddrakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar
drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar.gz
drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar.bz2
drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar.xz
drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.zip
updated pot file
Diffstat (limited to 'perl-install/share/po/ko.po')
-rw-r--r--perl-install/share/po/ko.po23308
1 files changed, 11693 insertions, 11615 deletions
diff --git a/perl-install/share/po/ko.po b/perl-install/share/po/ko.po
index bb648cc04..7a1851275 100644
--- a/perl-install/share/po/ko.po
+++ b/perl-install/share/po/ko.po