make sha256sums

git-svn-id: svn://tug.org/texlive/trunk@12047 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 12 insertions, 6 deletions

diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg
index 9e1f429165e..cd01a7ec912 100755
--- a/Master/tlpkg/bin/tl-update-install-pkg
+++ b/Master/tlpkg/bin/tl-update-install-pkg
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 # $Id$
 #
-# Copyright 2008 Reinhard Kotucha, Norbert Preining
+# Copyright 2008, 2009 Reinhard Kotucha, Norbert Preining, Karl Berry
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 
@@ -22,6 +22,8 @@ BEGIN {
   $installerdir=`pwd`;
   chomp ($installerdir);
   unshift (@INC, "$::installerdir/tlpkg");
+  #
+  $ENV{"PATH"} = "/usr/local/gnu/bin:$ENV{PATH}";  # for sha256sum
 }
 
 use Cwd qw(abs_path);
@@ -165,7 +167,8 @@ cleanup ();
 
 # copy files from the repository to tmpdir.
 #
-sub copy_files {
+sub copy_files
+{
   my ($dir, $file);
   for (@_) {
     if ($_ !~ m!/!) {
@@ -202,10 +205,11 @@ sub install_files
 {
   $outputdir = abs_path ($outputdir);
   info ("$0: Installing to $outputdir\n");
-  copy ("$tmpdir/install-tl-unx.tar.gz", $outputdir);
-  system ('ls', '-l', "$outputdir/install-tl-unx.tar.gz");
-  copy ("$tmpdir/install-tl.zip", $outputdir);
-  system ('ls', '-l', "$outputdir/install-tl.zip");
+  for my $f ("install-tl-unx.tar.gz", "install-tl.zip") {
+    copy ("$tmpdir/$f", $outputdir);
+    system ("cd $outputdir && sha256sum $f >$f.sha256");
+    system ('ls', '-l', "$outputdir/$f");
+  }
 
   # create unpacked installer that can run in that directory,
   # for the sake of people mirroring.
@@ -223,6 +227,8 @@ sub install_files
   xsystem ("cd $junkdir && unzip -q $outputdir/install-tl.zip");
   
   # move what we want (corresponds to the mv into savedir) and erase the rest.
+  -d "tlpkg" || mkdir ("tlpkg", 0777)
+    || die "mkdir(tlpkg) failed in $outputdir: $!";
   xsystem ("mv $junkdir/install-tl/install-tl* .");
   xsystem ("rm -rf tlpkg/TeXLive tlpkg/installer");
   xsystem ("mv $junkdir/install-tl/tlpkg/* tlpkg/");