X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=results2html;h=1e8ea802226110c44f73f6b883ddd2b288e2bbdd;hb=3947fa2b295fea167dd92cd9be4df92a891aadda;hp=a5a7688e5a8b040e534be21267409628eb6f635b;hpb=6d7df444997670f97a367b89fab6c0f5d8ecc4fd;p=pspp
diff --git a/results2html b/results2html
index a5a7688e5a..1e8ea80222 100755
--- a/results2html
+++ b/results2html
@@ -3,6 +3,7 @@
use strict;
use warnings;
+use Digest::SHA;
use File::Spec;
use HTML::Entities qw();
use URI::Escape;
@@ -175,7 +176,17 @@ foreach my $p (@products) {
print INDEX encode_entities ($p->{NAME}), ": " if defined ($p->{NAME});
print INDEX "{HREF}), "\">";
print INDEX encode_entities ($p->{PRODUCT});
- print INDEX "\n";
+ print INDEX "\n";
+ if ($p->{PRODUCT} =~ /\.tar\.gz$/) {
+ my $sha = Digest::SHA->new(1);
+ $sha->addfile($p->{PRODUCT});
+ print INDEX "
sha1: ", $sha->hexdigest, "\n";
+
+ $sha = Digest::SHA->new(256);
+ $sha->addfile($p->{PRODUCT});
+ print INDEX "
sha256: ", $sha->hexdigest, "\n";
+ }
+ print INDEX "\n";
}
print INDEX "\n";