diff options
author | Benjamin Drung <benjamin.drung@profitbricks.com> | 2017-05-29 14:07:43 +0300 |
---|---|---|
committer | Benjamin Drung <benjamin.drung@profitbricks.com> | 2017-05-29 14:07:43 +0300 |
commit | e9ccc7d86c7f8122e7059914acb01a5be2f0efe1 (patch) | |
tree | 7ac65e12d6ede82862574d3edde34686bf3716d2 | |
parent | c16ed08a49bd6b25aa2bec842d0c1ea8aa685e1c (diff) |
Write SHA1 and SHA256 in addition to MD5
Instead of just writing a MD5 file containing the md5 checksums, also
write SHA1 and SHA256 files. These files could be used for sha1sum and
sha256sum.
-rwxr-xr-x | apt-mirror | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -729,6 +729,8 @@ foreach ( keys %urls_to_download ) open FILES_ALL, ">" . get_variable("var_path") . "/ALL" or die("apt-mirror: can't write to intermediate file (ALL)"); open FILES_NEW, ">" . get_variable("var_path") . "/NEW" or die("apt-mirror: can't write to intermediate file (NEW)"); open FILES_MD5, ">" . get_variable("var_path") . "/MD5" or die("apt-mirror: can't write to intermediate file (MD5)"); +open FILES_SHA1, ">" . get_variable("var_path") . "/SHA1" or die("apt-mirror: can't write to intermediate file (SHA1)"); +open FILES_SHA256, ">" . get_variable("var_path") . "/SHA256" or die("apt-mirror: can't write to intermediate file (SHA256)"); my %stat_cache = (); @@ -814,6 +816,8 @@ sub process_index $skipclean{ remove_double_slashes( $path . "/" . $lines{"Filename:"} ) } = 1; print FILES_ALL remove_double_slashes( $path . "/" . $lines{"Filename:"} ) . "\n"; print FILES_MD5 $lines{"MD5sum:"} . " " . remove_double_slashes( $path . "/" . $lines{"Filename:"} ) . "\n" if defined $lines{"MD5sum:"}; + print FILES_SHA1 $lines{"SHA1:"} . " " . remove_double_slashes( $path . "/" . $lines{"Filename:"} ) . "\n" if defined $lines{"SHA1:"}; + print FILES_SHA256 $lines{"SHA256:"} . " " . remove_double_slashes( $path . "/" . $lines{"Filename:"} ) . "\n" if defined $lines{"SHA256:"}; if ( need_update( $mirror . "/" . $lines{"Filename:"}, $lines{"Size:"} ) ) { print FILES_NEW remove_double_slashes( $uri . "/" . $lines{"Filename:"} ) . "\n"; @@ -887,6 +891,8 @@ print "]\n\n"; close FILES_ALL; close FILES_NEW; close FILES_MD5; +close FILES_SHA1; +close FILES_SHA256; ###################################################################################### ## Main download |