patch-snapdl_pl 731 B

123456789101112131415161718192021
  1. $OpenBSD: patch-snapdl_pl,v 1.1 2014/06/05 20:22:42 giovanni Exp $
  2. --- snapdl.pl.orig Sun Jul 4 02:11:32 2010
  3. +++ snapdl.pl Tue May 13 16:48:57 2014
  4. @@ -208,6 +208,7 @@ HW: {
  5. print "Getting SHA256 from main mirror\n";
  6. my $SHA256 = `ftp -o - http://ftp.OpenBSD.org/pub/OpenBSD/snapshots/$hw/SHA256`;
  7. +my $SHA256sig = `ftp -o - http://ftp.OpenBSD.org/pub/OpenBSD/snapshots/$hw/SHA256.sig`;
  8. if ( $SHA256 =~ /base([0-9]{2,2}).tgz/ ) {
  9. my $r = $1;
  10. @@ -343,6 +344,8 @@ if ($pretend eq "no") {
  11. open my $index_txt, '>', 'index.txt' or die $!;
  12. print $str_index_txt;
  13. print $index_txt $str_index_txt;
  14. + open my $fh_SHA256sig, '>', 'SHA256.sig' or die $!;
  15. + print $fh_SHA256sig $SHA256sig;
  16. }