summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-11 07:46:38 +0000
committerNorbert Preining <preining@logic.at>2008-01-11 07:46:38 +0000
commit43663f4060aae93588ba974aa42f8a4337d5f331 (patch)
treecab6465a45f34b07cdcbd4cac56e8844e0ae038c /Master/install-tl.pl
parenta085c27f4e2244e388b7cac1fc3eacd6bc2b90f6 (diff)
more decent logging, and less rogue terminal output
git-svn-id: svn://tug.org/texlive/trunk@6185 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl23
1 files changed, 16 insertions, 7 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 9ebd7078066..7c69aed78ab 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -665,10 +665,11 @@ sub do_postinst_stuff {
$path = $ENV{'PATH'};
}
if (win32()) {
- $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'};$vars{'TEXDIR'}/tlpkg/bin;$path";
+ $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'};$path";
} else {
- $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'}:$vars{'TEXDIR'}/tlpkg/bin:$path";
+ $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'}:$path";
}
+ tllog($::LOG_NORMAL,"Setting PATH to $path\n");
$ENV{'PATH'} = "$path";
# Step 3: Make Perl find the right modules
if (win32()) {
@@ -687,14 +688,21 @@ sub do_postinst_stuff {
my $perlint = (win32() ? "$vars{'TEXDIR'}/tlpkg/tlperl/bin/perl.exe" : "");
# for arch != win32 $perlint is empty so the usual perl invocation is done
if (win32()) {
+ tllog($::LOG_NORMAL, "running ${perlint} $vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil\n");
`"${perlint}" "$vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil"`;
+ tllog($::LOG_NORMAL, "running ${perlint} $vars{'TEXDIR'}/tlpkg/bin/generate-updmap\n");
`"${perlint}" "$vars{'TEXDIR'}/tlpkg/bin/generate-updmap"`;
+ tllog($::LOG_NORMAL, "running ${perlint} $vars{'TEXDIR'}/tlpkg/bin/generate-language\n");
`"${perlint}" "$vars{'TEXDIR'}/tlpkg/bin/generate-language"`;
} else {
- `generate-fmtutil`;
- `generate-updmap`;
- `generate-language`;
- }
+ tllog($::LOG_NORMAL, "running $vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil\n");
+ `"$vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil"`;
+ tllog($::LOG_NORMAL, "running $vars{'TEXDIR'}/tlpkg/bin/generate-updmap\n");
+ `"$vars{'TEXDIR'}/tlpkg/bin/generate-updmap"`;
+ tllog($::LOG_NORMAL, "running $vars{'TEXDIR'}/tlpkg/bin/generate-language\n");
+ `"$vars{'TEXDIR'}/tlpkg/bin/generate-language"`;
+ }
+ tllog($::LOG_NORMAL, "running mktexlsr $vars{'TEXDIR'}/texmf-dist $vars{'TEXDIR'}/texmf $vars{'TEXDIR'}/texmf-local\n");
`mktexlsr "$vars{'TEXDIR'}/texmf-dist" "$vars{'TEXDIR'}/texmf" "$vars{'TEXDIR'}/texmf-local"`;
# my $updmap = (win32() ? "$perlint $vars{'TEXDIR'}/bin/win32/updmap-sys.pl" : "updmap-sys");
# `$updmap --nohash`;
@@ -705,13 +713,14 @@ sub do_postinst_stuff {
$pathext .= ";.texlua";
$ENV{'PATHEXT'} = $pathext;
}
+ tllog($::LOG_NORMAL, "running updmap-sys\n");
`updmap-sys --nohash`;
+ tllog($::LOG_NORMAL, "re-running mktexlsr $vars{'TEXMFSYSVAR'}\n");
`mktexlsr "$vars{'TEXMFSYSVAR'}"`;
# old installer:
#$config && texconfig-sys init
#$config || echo "PLEASE RUN texconfig or texconfig-sys to make new formats."
-
}
# we have to adjust the texmf.cnf file to the paths set in the configuration!