projects
/
privoxy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cae3149
)
create-package-feed.pl: Use SHA-256 instead of SHA-1
author
Fabian Keil
<fk@fabiankeil.de>
Sat, 16 Jul 2016 11:43:02 +0000
(11:43 +0000)
committer
Fabian Keil
<fk@fabiankeil.de>
Sat, 16 Jul 2016 11:43:02 +0000
(11:43 +0000)
utils/create-package-feed.pl
patch
|
blob
|
history
diff --git
a/utils/create-package-feed.pl
b/utils/create-package-feed.pl
index
e505086
..
d4acad2
100644
(file)
--- a/
utils/create-package-feed.pl
+++ b/
utils/create-package-feed.pl
@@
-2,7
+2,7
@@
#< LICENSE: WTFPL >
use warnings;
use strict;
#< LICENSE: WTFPL >
use warnings;
use strict;
-use Digest::SHA
1
;
+use Digest::SHA;
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
@@
-27,7
+27,7
@@
my $wday;
my $yday;
my $isdst;
my $target;
my $yday;
my $isdst;
my $target;
-my $target_sha
1
;
+my $target_sha
256
;
my $target_uri;
my $target_time;
my $target_line;
my $target_uri;
my $target_time;
my $target_line;
@@
-53,14
+53,14
@@
while (my $fi1 = readdir($D1)) {
$target = $scan_dir . $fi1 . '/' . $fi2 . '/' . $fi3;
next if (!-e $target); # skip if file is not exist
$target = $scan_dir . $fi1 . '/' . $fi2 . '/' . $fi3;
next if (!-e $target); # skip if file is not exist
- # Get SHA-
1
hash
+ # Get SHA-
256
hash
my $filedata;
open($filedata, "<", $target)
or die "Can't open '$target' to generate checksum $!";
my $filedata;
open($filedata, "<", $target)
or die "Can't open '$target' to generate checksum $!";
- my $sha
1 = Digest::SHA1->new
;
- $sha
1
->addfile($filedata);
+ my $sha
256 = Digest::SHA->new("SHA-256")
;
+ $sha
256
->addfile($filedata);
close($filedata);
close($filedata);
- $target_sha
1 = $sha1
->hexdigest;
+ $target_sha
256 = $sha256
->hexdigest;
# URI and Time
$target_uri = $fi1 . '/' . $fi2 . '/' . $fi3;
# URI and Time
$target_uri = $fi1 . '/' . $fi2 . '/' . $fi3;
@@
-72,8
+72,8
@@
while (my $fi1 = readdir($D1)) {
$target_line .=
'<description><![CDATA['
. $target_uri
$target_line .=
'<description><![CDATA['
. $target_uri
- . ' (SHA-
1
: '
- . $target_sha
1
+ . ' (SHA-
256
: '
+ . $target_sha
256
. ')]]></description>';
$target_line .=
'<link>'
. ')]]></description>';
$target_line .=
'<link>'