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, 5 insertions, 9 deletions

diff --git a/Master/tlpkg/bin/check-file-coverage b/Master/tlpkg/bin/check-file-coverage
index 75026b9e064..3ecc64f7ced 100755
--- a/Master/tlpkg/bin/check-file-coverage
+++ b/Master/tlpkg/bin/check-file-coverage
@@ -19,7 +19,7 @@ use TeXLive::TLPSRC;
 use TeXLive::TLPOBJ;
 use TeXLive::TLPDB;
 use TeXLive::TLTREE;
-use TeXLive::TLUtils qw(dirname tllog);
+use TeXLive::TLUtils qw(dirname info debug);
 use Getopt::Long;
 use Pod::Usage;
 use File::Path;
@@ -38,21 +38,17 @@ my @IgnorePatterns = qw!
   tlpkg/texlive.tlpdb
 !;
 
+TeXLive::TLUtils::process_logging_options();
+
 chomp (my $opt_master = `cd $::mydir/../.. && pwd`);
-my $opt_debug = 0;
 my $help = 0;
 
 GetOptions(
     "master=s" => \$opt_master,	# location of the TL tree
-    "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 ());
 
 
@@ -95,7 +91,7 @@ sub main
     }
   }
 
-  tllog($::LOG_DEBUG, "reading Master tree $opt_master, patience...\n");
+  debug("reading Master tree $opt_master, patience...\n");
   my $tltree = TeXLive::TLTREE->new( "svnroot" => $opt_master );
   $tltree->init_from_svn;