diff options
author | Norbert Preining <preining@logic.at> | 2008-05-19 08:37:41 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-19 08:37:41 +0000 |
commit | 5177658bbbdaa8778cff3a2ac4fabb765bbcd8fe (patch) | |
tree | b00bfdb0be26f8f7ce3d626ac084b987c608c511 /Master/tlpkg/bin/tlpsrc2container | |
parent | 58c870fa77e1ede0e7b21a7791d0fa5b8fd1542b (diff) |
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
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2container')
-rwxr-xr-x | Master/tlpkg/bin/tlpsrc2container | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2container b/Master/tlpkg/bin/tlpsrc2container index a65aa9975ef..80a9b22328a 100755 --- a/Master/tlpkg/bin/tlpsrc2container +++ b/Master/tlpkg/bin/tlpsrc2container @@ -17,6 +17,7 @@ use strict; use TeXLive::TLPSRC; use TeXLive::TLPOBJ; use TeXLive::TLTREE; +use TeXLive::TLUtils; use Cwd; use Getopt::Long; use Pod::Usage; @@ -28,24 +29,20 @@ chomp (my $opt_master = `cd $::mydir/../.. && pwd`); my $opt_catalogue = ""; my $opt_type = "zip"; my $opt_outputdir = "./zip"; -my $opt_debug = 0; my $help = 0; +TeXLive::TLUtils::process_logging_options(); + GetOptions( "all!" => \$opt_all, "master=s" => \$opt_master, # location of the tree "catalogue=s" => \$opt_catalogue, # location of the TeX Catalogue "outputdir=s" => \$opt_outputdir, "type=s" => \$opt_type, - "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 ()); sub main @@ -65,10 +62,10 @@ sub main my $tlc = undef; if (! -d $opt_catalogue) { - tllog ($::LOG_NORMAL, "$0: -c /Cat/a/logue not given, continuing without it.\n"); + info("$0: -c /Cat/a/logue not given, continuing without it.\n"); } else { require TeXLive::TeXCatalogue; # not at compile time, for now anyway. - tllog ($::LOG_NORMAL, "$0: reading TeX Catalogue tree $opt_catalogue ...\n"); + info("$0: reading TeX Catalogue tree $opt_catalogue ...\n"); $tlc = TeXLive::TeXCatalogue->new( "location" => $opt_catalogue ); } @@ -79,7 +76,7 @@ sub main @ARGV = glob ("*.tlpsrc"); } - tllog ($::LOG_NORMAL, "$0: reading Master tree $opt_master ...\n"); + info("$0: reading Master tree $opt_master ...\n"); my $tltree = TeXLive::TLTREE->new( "svnroot" => $opt_master ); $tltree->init_from_svn; |