X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp;a=blobdiff_plain;f=results2html;h=b330c871abbdae8a74df08a6fa36cb5d52eb6c3b;hp=4e3224fca3ba9589f147706469845ed5692612e0;hb=HEAD;hpb=9869b64641f5197bd495a5e62cdbb3f985adbeee diff --git a/results2html b/results2html index 4e3224fca3..b330c871ab 100755 --- a/results2html +++ b/results2html @@ -3,10 +3,15 @@ use strict; use warnings; +use Digest::SHA; use File::Spec; -use HTML::Entities; +use HTML::Entities qw(); use URI::Escape; +sub encode_entities { + return HTML::Entities::encode_entities($_[0], "<&>'\""); +} + my $gitweb_url = 'http://benpfaff.org/cgi-bin/gitweb.cgi?p=pspp;a=blob;f=[FILE];hb=[BRANCH]#l[LINE]'; open (LOG, '<', "LOG"); @@ -15,6 +20,7 @@ open (LOG_HTML, '>', "log.html"); print LOG_HTML < + @@ -74,7 +80,7 @@ while () { $p{HREF} = $href; $p{LN} = $ln; push (@products, \%p); - push (@{$steps[$#steps]{CHILDREN}}, \%p); + push (@{$steps[$#steps]{CHILDREN}}, \%p) if @steps; if (defined ($name) && $name eq 'source distribution') { open (DIST, '-|', "zcat $product | tar tf -"); @@ -145,6 +151,7 @@ open (INDEX, '>','index.html'); print INDEX < + @@ -170,7 +177,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";