summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/generate-fmtutil
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-10 10:53:59 +0000
committerNorbert Preining <preining@logic.at>2008-01-10 10:53:59 +0000
commit5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 (patch)
tree09714be5b47fa1659d69008e5fb3e574f5e106d7 /Master/tlpkg/bin/generate-fmtutil
parentfdf785af06cac0cef5125a27f55f2b12bacb6d9a (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-xMaster/tlpkg/bin/generate-fmtutil11
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);
}