vndb/yhdev
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add file download information window + SHA-256 + more checksums

Browse source 
I'm not the biggest fan of how the info window works, but it works
anyway, and it's easy to apply to *all* the download links.

Also decided to sign & checksum static binaries. Those are just as
important (if not more so) than the source tarballs.

Yes, I did verify that my copies of all the files were still in line
with the other checksums before creating the SHA256 checksums. :)

And I think I'm done fiddling with the site now; This is the last of my
planned changes. ...except that the site kinda sucks in text-mode
browsers now. Hmm. But how do I improve that?
This commit is contained in:
Yorhel 2019-03-26 18:56:46 +01:00
parent 7367b44edc
commit de0227cdbd
94 changed files with 216 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

36
dllink.pl Executable file
View file

@ -0,0 +1,36 @@
#!/usr/bin/perl -p
# This script adds an information icon to any link into /download/* - if there
# is more information to display than just the file name and size.
use autodie;
sub slurp { local $/=undef; open F, '<', shift; <F> }
sub fullsize { scalar reverse join ".", unpack "(A3)*", reverse shift }
sub size { $s=shift; $s > 1<<20 ? sprintf '%.1f MiB', $s/(1<<20) : sprintf '%.1f KiB', $s/1024 }
sub file {
($code, $lbl, $fn) = @_;
my @info;
push @info, sprintf '<em>PGP:</em> <a href="/download/%s.asc">%1$s.asc</a>', $fn if -e "$fn.asc";
push @info, sprintf '<em>MD5:</em> <code>%s</code>', (slurp "$fn.md5") =~ /^([^ ]+)/ if -e "$fn.md5";
push @info, sprintf '<em>SHA1:</em> <code>%s</code>', (slurp "$fn.sha1") =~ /^([^ ]+)/ if -e "$fn.sha1";
push @info, sprintf '<em>SHA-256:</em> <code>%s</code>', (slurp "$fn.sha256") =~ /^([^ ]+)/ if -e "$fn.sha256";
return $code if !@info;
unshift @info, sprintf '<em>Size:</em> %s (%s bytes)', size(-s $fn), fullsize(-s $fn);
unshift @info, sprintf '<em>File:</em> <a href="/download/%s">%1$s</a>', $fn;
$id = sprintf 'fileinfo_%d', rand 1<<32;
qq{<span class="fileinfo">}
. qq{<input id="$id" type="checkbox">}
. qq{<span>}
. qq{<label for="$id">close</label>}
. join('<br>', @info)
. qq{</span>}
. $code
. qq{ <label for="$id"><img src="/img/info.svg"></label>}
.qq{</span>}
}
BEGIN { chdir 'pub/download' }
s{\[([^\]]+)\]\(/download/([^\) ]+)\)}{file $&,$1,$2}eg;