From f11388b24b8b320c94df808ceab25f650baa3b1e Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Fri, 19 Jul 2019 19:55:54 +0000 Subject: Extra output while loading repositories, as proposed by Norbert git-svn-id: svn://tug.org/texlive/trunk@51676 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Master') 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); } -- cgit v1.2.3