From d473704fbfda13f0731dd1feeb08c68c16874dd2 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 12 Apr 2016 06:07:51 +0000 Subject: introduce ChecksumProgram to compute the checksum git-svn-id: svn://tug.org/texlive/trunk@40430 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLConfig.pm | 6 ++++++ Master/tlpkg/bin/tl-update-containers | 10 +++++----- 2 files changed, 11 insertions(+), 5 deletions(-) (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/TeXLive/TLConfig.pm b/Master/tlpkg/TeXLive/TLConfig.pm index d2dba83146b..1242ce98b30 100644 --- a/Master/tlpkg/TeXLive/TLConfig.pm +++ b/Master/tlpkg/TeXLive/TLConfig.pm @@ -51,6 +51,7 @@ BEGIN { $PartialEngineSupport $F_OK $F_WARNING $F_ERROR $F_NOPOSTACTION $ChecksumLength + $ChecksumProgram ); @EXPORT = @EXPORT_OK; } @@ -219,6 +220,11 @@ our $F_NOPOSTACTION = 4; # method used in TLUtils::tlchecksum and TLUtils::tldigest $ChecksumLength = 128; +# The program generating the checksum for the file given as first +# argument +$ChecksumProgram = "sha512sum"; + + 1; diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index 74e4e340ad7..743d18a0c8b 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -277,7 +277,7 @@ sub main $obj->srccontainersize($s); } if ($m ne "") { - $obj->srccontainersha256($m); + $obj->srccontainerchecksum($m); } } else { # no src files in the package, so remove old .source containers @@ -300,7 +300,7 @@ sub main $obj->doccontainersize($s); } if ($m ne "") { - $obj->doccontainersha256($m); + $obj->doccontainerchecksum($m); } } else { # no doc files in the package, so remove old .doc containers @@ -318,7 +318,7 @@ sub main $obj->containersize($s); } if ($m ne "") { - $obj->containersha256($m); + $obj->containerchecksum($m); } } # if the container has been build relocatable we save that information @@ -385,10 +385,10 @@ sub main chomp (my $olddir = `pwd`); if (chdir("$opt_location/tlpkg/")) { xsystem("md5sum texlive.tlpdb > texlive.tlpdb.md5"); - xsystem("sha256sum texlive.tlpdb > texlive.tlpdb.sha256"); + xsystem("$TeXLive::TLConfig::ChecksumProgram texlive.tlpdb > texlive.tlpdb.checksum"); xchdir($olddir); } else { - tlwarn("Cannot chdir to $opt_location/tlpkg/ for md5/sha256 hash creation\n"); + tlwarn("Cannot chdir to $opt_location/tlpkg/ for md5/checksum hash creation\n"); } if (! @ARGV) { -- cgit v1.2.3