diff options
author | Norbert Preining <preining@logic.at> | 2008-01-10 10:53:59 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-10 10:53:59 +0000 |
commit | 5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 (patch) | |
tree | 09714be5b47fa1659d69008e5fb3e574f5e106d7 /Master/tlpkg/bin/tlpsrc2container | |
parent | fdf785af06cac0cef5125a27f55f2b12bacb6d9a (diff) |
add logging facilities, see extra email
git-svn-id: svn://tug.org/texlive/trunk@6176 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2container')
-rwxr-xr-x | Master/tlpkg/bin/tlpsrc2container | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2container b/Master/tlpkg/bin/tlpsrc2container index f8bec749499..a65aa9975ef 100755 --- a/Master/tlpkg/bin/tlpsrc2container +++ b/Master/tlpkg/bin/tlpsrc2container @@ -28,7 +28,7 @@ chomp (my $opt_master = `cd $::mydir/../.. && pwd`); my $opt_catalogue = ""; my $opt_type = "zip"; my $opt_outputdir = "./zip"; -our $opt_debug = 0; +my $opt_debug = 0; my $help = 0; GetOptions( @@ -41,6 +41,11 @@ GetOptions( pod2usage(-exitstatus => 0, -verbose => 2) if $help; +if ($opt_debug) { + $::LOGLEVELFILE = $::LOG_DDDEBUG; + $::LOGLEVELTERMINAL = $::LOG_DDDEBUG; +} + exit(&main ()); sub main @@ -60,10 +65,10 @@ sub main my $tlc = undef; if (! -d $opt_catalogue) { - warn "$0: -c /Cat/a/logue not given, continuing without it.\n"; + tllog ($::LOG_NORMAL, "$0: -c /Cat/a/logue not given, continuing without it.\n"); } else { require TeXLive::TeXCatalogue; # not at compile time, for now anyway. - warn "$0: reading TeX Catalogue tree $opt_catalogue ...\n"; + tllog ($::LOG_NORMAL, "$0: reading TeX Catalogue tree $opt_catalogue ...\n"); $tlc = TeXLive::TeXCatalogue->new( "location" => $opt_catalogue ); } @@ -74,7 +79,7 @@ sub main @ARGV = glob ("*.tlpsrc"); } - warn "$0: reading Master tree $opt_master ...\n"; + tllog ($::LOG_NORMAL, "$0: reading Master tree $opt_master ...\n"); my $tltree = TeXLive::TLTREE->new( "svnroot" => $opt_master ); $tltree->init_from_svn; |