summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-07-19 19:55:54 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-07-19 19:55:54 +0000
commitf11388b24b8b320c94df808ceab25f650baa3b1e (patch)
treea32aec5962de2f5b98210b16cfa701b5971b085c /Master
parentb9a603bdf47b82670147ce25d05239c2fbe65209 (diff)
Extra output while loading repositories, as proposed by Norbert
git-svn-id: svn://tug.org/texlive/trunk@51676 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index c30e620665e..2066b34ad22 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -6877,6 +6877,7 @@ sub setup_one_remotetlpdb {
# - if that does not work assume we are offline or target not reachable,
# so warn the user and use saved, but note that installation will
# not work
+ info("$prg: Start loading tlpdb from $location\n");
my $local_copy_tlpdb_used = 0;
if ($location =~ m;^(https?|ftp)://;) {
@@ -6959,9 +6960,11 @@ END_NO_INTERNET
}
}
if (!defined($remotetlpdb)) {
+ info("$prg: Failed loading tlpdb from $location\n");
return(undef, $loadmediasrcerror . $location);
}
if ($opts{"require-verification"} && !$remotetlpdb->is_verified) {
+ info("$prg: Failed loading tlpdb from $location\n");
tldie("Remote TeX Live database ($location) is not verified, exiting.\n");
}
@@ -6981,6 +6984,7 @@ END_NO_INTERNET
my $texlive_minrelease = $remotetlpdb->config_minrelease;
my $rroot = $remotetlpdb->root;
if (!defined($texlive_release)) {
+ info("$prg: Failed loading tlpdb from $location\n");
return(undef, "The installation repository ($rroot) does not specify a "
. "release year for which it was prepared, goodbye.");
}
@@ -6988,6 +6992,7 @@ END_NO_INTERNET
my $texlive_release_year = $texlive_release;
$texlive_release_year =~ s/^(....).*$/$1/;
if ($texlive_release_year !~ m/^[1-9][0-9][0-9][0-9]$/) {
+ info("$prg: Failed loading tlpdb from $location\n");
return(undef, "The installation repository ($rroot) does not specify a "
. "valid release year, goodbye: $texlive_release");
}
@@ -6997,12 +7002,14 @@ END_NO_INTERNET
my $texlive_minrelease_year = $texlive_minrelease;
$texlive_minrelease_year =~ s/^(....).*$/$1/;
if ($texlive_minrelease_year !~ m/^[1-9][0-9][0-9][0-9]$/) {
+ info("$prg: Failed loading tlpdb from $location\n");
return(undef, "The installation repository ($rroot) does not specify a "
. "valid minimal release year, goodbye: $texlive_minrelease");
}
# ok, all numeric and fine, check for range
if ($TeXLive::TLConfig::ReleaseYear < $texlive_minrelease_year
|| $TeXLive::TLConfig::ReleaseYear > $texlive_release_year) {
+ info("$prg: Failed loading tlpdb from $location\n");
return (undef, "The TeX Live versions supported by the repository
$rroot
($texlive_minrelease_year--$texlive_release_year)
@@ -7014,6 +7021,7 @@ do not include the version of the local installation
# of the main remote repository, then
# warn that one needs to call update-tlmgr-latest.sh --update
if ($is_main && $TeXLive::TLConfig::ReleaseYear < $texlive_release_year) {
+ info("$prg: Failed loading tlpdb from $location\n");
return (undef, "Local TeX Live ($TeXLive::TLConfig::ReleaseYear)"
. " is older than remote repository ($texlive_release_year).\n"
. "Cross release updates are only supported with\n"
@@ -7023,6 +7031,7 @@ do not include the version of the local installation
} else {
# $texlive_minrelease not defined, so only one year is valid
if ($texlive_release_year != $TeXLive::TLConfig::ReleaseYear) {
+ info("$prg: Failed loading tlpdb from $location\n");
return(undef, "The TeX Live versions of the local installation
and the repository are not compatible:
local: $TeXLive::TLConfig::ReleaseYear
@@ -7065,6 +7074,7 @@ FROZEN
}
}
+ info("$prg: Finished loading tlpdb from $location\n");
return($remotetlpdb);
}