diff options
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; |