summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-12 06:07:51 +0000
committerNorbert Preining <preining@logic.at>2016-04-12 06:07:51 +0000
commitd473704fbfda13f0731dd1feeb08c68c16874dd2 (patch)
treec3cacc5f4e307a9f82106f367f3d4ee0afb5fe77 /Master
parentdd4bdccfb5d96b72900478b3d07651d6b7382e6a (diff)
introduce ChecksumProgram to compute the checksum
git-svn-id: svn://tug.org/texlive/trunk@40430 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLConfig.pm6
-rwxr-xr-xMaster/tlpkg/bin/tl-update-containers10
2 files changed, 11 insertions, 5 deletions
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) {