diff options
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index a0e98f8d616..13da7e23c30 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -103,6 +103,7 @@ use TeXLive::TLUtils; use TeXLive::TLWinGoo; use TeXLive::TLDownload; use TeXLive::TLConfFile; +use TeXLive::GPG; TeXLive::TLUtils->import(qw(member info give_ctan_mirror win32 dirname mkdirhier copy log debug tlcmp)); use TeXLive::TLPaper; @@ -5880,6 +5881,12 @@ END_NO_INTERNET } } if (!$local_copy_tlpdb_used) { + # TODO verification + # here we should add code to download the remote .sha256.gpg (.asc?) + # and verify it. + my $path = "$location/$InfraLocation/$DatabaseName.sha256.asc"; + my $fh = TeXLive::TLUtils::download_file($path, "|"); + # TODO verify ... $remotetlpdb = TeXLive::TLPDB->new(root => $location); } if (!defined($remotetlpdb)) { |