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/generate-fmtutil | |
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/generate-fmtutil')
-rwxr-xr-x | Master/tlpkg/bin/generate-fmtutil | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/generate-fmtutil b/Master/tlpkg/bin/generate-fmtutil index 79f24060e0f..c616ec9e330 100755 --- a/Master/tlpkg/bin/generate-fmtutil +++ b/Master/tlpkg/bin/generate-fmtutil @@ -18,14 +18,14 @@ use strict; use TeXLive::TLConfig; use TeXLive::TLPOBJ; use TeXLive::TLPDB; -use TeXLive::TLUtils qw/kpsewhich/; +use TeXLive::TLUtils qw/kpsewhich tllog/; use Getopt::Long; use Pod::Usage; use File::Path; use Cwd 'abs_path'; our $mydir; -our $opt_debug = 0; +my $opt_debug = 0; my $help = 0; my $dest = ""; my $localconf = ""; @@ -35,6 +35,11 @@ GetOptions("debug!", "dest=s" => \$dest, pod2usage(-exitstatus => 0, -verbose => 2) if $help; +if ($opt_debug) { + $::LOGLEVELFILE = $::LOG_DDDEBUG; + $::LOGLEVELTERMINAL = $::LOG_DDDEBUG; +} + exit (&main ()); sub main @@ -47,7 +52,7 @@ sub main } $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/fmtutil.cnf"); $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/fmtutil-local.cnf"); - print "writing fmtutil.cnf data to $dest\n"; + tllog($::LOG_NORMAL, "writing fmtutil.cnf data to $dest\n"); TeXLive::TLUtils::create_fmtutil($tlpdb, $dest, $localconf); } |