texlive[53746] Master/texmf-dist/scripts/texlive/tlmgr.pl: better

commits+preining at tug.org commits+preining at tug.org
Mon Feb 10 11:14:57 CET 2020


Revision: 53746
          http://tug.org/svn/texlive?view=revision&revision=53746
Author:   preining
Date:     2020-02-10 11:14:56 +0100 (Mon, 10 Feb 2020)
Log Message:
-----------
better error message for expired keys and signatures

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-10 02:09:35 UTC (rev 53745)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2020-02-10 10:14:56 UTC (rev 53746)
@@ -7050,10 +7050,14 @@
         tldie("$prg: verification of checksum for $location failed: $msg\n");
       } elsif ($ret == $VS_EXPKEYSIG) {
         # do nothing, try to get new tlpdb and hope sig is better?
-        debug("$prg: good signature bug gpg key expired, continuing anyway!\n");
+        tlwarn("Verification problem of the TL database at $location:\n");
+        tlwarn("--> $VerificationStatusDescription{$ret}\n");
+        # debug("$prg: good signature bug gpg key expired, continuing anyway!\n");
       } elsif ($ret == $VS_REVKEYSIG) {
         # do nothing, try to get new tlpdb and hope sig is better?
-        debug("$prg: good signature but from revoked gpg key, continuing anyway!\n");
+        tlwarn("Verification problem of the TL database at $location:\n");
+        tlwarn("--> $VerificationStatusDescription{$ret}\n");
+        #debug("$prg: good signature but from revoked gpg key, continuing anyway!\n");
       } elsif ($ret == $VS_VERIFIED) {
         $remotetlpdb = TeXLive::TLPDB->new(root => $location,
           tlpdbfile => $loc_copy_of_remote_tlpdb);



More information about the tex-live-commits mailing list.