texlive[53842] Master/texmf-dist/scripts/texlive/tlmgr.pl: show link

[commits+preining at tug.org]

Revision: 53842
          http://tug.org/svn/texlive?view=revision&revision=53842
Author:   preining
Date:     2020-02-19 08:28:40 +0100 (Wed, 19 Feb 2020)
Log Message:
-----------
show link to verification explanation web page on errors

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2020-02-19 02:16:47 UTC (rev 53841)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2020-02-19 07:28:40 UTC (rev 53842)
@@ -6900,8 +6900,10 @@
   }
   # from here on only in non-machine-readable mode and not silent
   info("$prg: package repositories\n");
+  my $show_verification_page_link = 0;
   my $verstat = "";
   if (!$remotetlpdb->virtual_get_tlpdb('main')->is_verified) {
+    $show_verification_page_link = 1;
     $verstat = ": ";
     $verstat .= $VerificationStatusDescription{$remotetlpdb->virtual_get_tlpdb('main')->verification_status};
   }
@@ -6912,8 +6914,13 @@
     if ($t ne 'main') {
       $verstat = "";
       if (!$remotetlpdb->virtual_get_tlpdb($t)->is_verified) {
+        my $tlpdb_ver_stat = $remotetlpdb->virtual_get_tlpdb($t)->verification_status;
         $verstat = ": ";
-        $verstat .= $VerificationStatusDescription{$remotetlpdb->virtual_get_tlpdb($t)->verification_status};
+        $verstat .= $VerificationStatusDescription{$tlpdb_ver_stat};
+        # if the db is not verified *but* was signed, give the page link info
+        if ($tlpdb_ver_stat != $VS_UNSIGNED) {
+          $show_verification_page_link = 1;
+        }
       }
       info("\t$t = " . $repos{$t} . " (" .
         ($remotetlpdb->virtual_get_tlpdb($t)->is_verified ? "" : "not ") .
@@ -6920,6 +6927,9 @@
         "verified$verstat)\n");
     }
   }
+  if ($show_verification_page_link) {
+    info("For more about verification, see https://texlive.info/verification.html.\n");
+  }
   return 1;
 }