big logging update, new logging facilities: info, debug, ddebug, tlwarn

and a way to automatically process the respective options -q and -v
via TeXLive::TLUtils::process_logging_options();


git-svn-id: svn://tug.org/texlive/trunk@8234 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 4 insertions, 7 deletions

diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm
index 72655fe04de..38c11d57780 100755
--- a/Master/tlpkg/bin/tlprm
+++ b/Master/tlpkg/bin/tlprm
@@ -21,24 +21,21 @@ use strict;
 use TeXLive::TLConfig;
 use TeXLive::TLPDB;
 use TeXLive::TLPSRC;
+use TeXLive::TLUtils;
 use Pod::Usage;
 use Getopt::Long;
 use Cwd 'abs_path';
 
-my $opt_debug = 0;
 my $opt_svn = 1;
 my $help = 0;
 
+TeXLive::TLUtils::process_logging_options();
+
 GetOptions("svn!",
-           "debug!", "help|?" => \$help) or pod2usage(1);
+           "help|?" => \$help) or pod2usage(1);
 
 pod2usage(-exitstatus => 0, -verbose => 2) if $help;
 
-if ($opt_debug) {
-  $::LOGLEVELFILE = $::LOG_DDDEBUG;
-  $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
-}
-
 exit (&main ());