diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2container')
-rwxr-xr-x | Master/tlpkg/bin/tlpdb2container | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/Master/tlpkg/bin/tlpdb2container b/Master/tlpkg/bin/tlpdb2container index 55662a3a36b..0de2713777b 100755 --- a/Master/tlpkg/bin/tlpdb2container +++ b/Master/tlpkg/bin/tlpdb2container @@ -25,24 +25,19 @@ use File::Path; my $opt_all = 0; our $mydir; -my $opt_debug = 0; my $opt_outputdir = "./archive"; my $opt_relative = 0; my $help = 0; +TeXLive::TLUtils::process_logging_options(); + GetOptions("o|outputdir=s" => \$opt_outputdir, "a|all!" => \$opt_all, - "d|debug!" => \$opt_debug, "r|relative!" => \$opt_relative, "h|help|?" => \$help) or pod2usage(1); pod2usage(-exitstatus => 0, -verbose => 2) if $help; -if ($opt_debug) { - $::LOGLEVELFILE = $::LOG_DDDEBUG; - $::LOGLEVELTERMINAL = $::LOG_DDDEBUG; -} - my $srcsplit = 0; my $docsplit = 0; my $type = "lzma"; @@ -68,7 +63,7 @@ sub main if (($format eq "lzma") || ($format eq "zip")) { $type = $format; } else { - tllog($::LOG_NORMAL, "unknown container format specified in 00texlive.config: $format\nIgnoring and continuing with $type!\n"); + info("unknown container format specified in 00texlive.config: $format\nIgnoring and continuing with $type!\n"); } # get list of packages. my $last = ""; |