#!/usr/bin/perl
# dir-index.cgi - print a "directory index" for LEDE download pages.
#
# See the README.md file for a description of the files this script generates
use strict;
use warnings;
use Fcntl ':mode';
use JSON;
# htmlenc - html-encode the argument
sub htmlenc {
my $s = shift;
if (defined($s) && length($s)) {
$s =~ s!([<>"])!sprintf '&#%u;', ord $1!eg; # "
}
return $s;
}
# getchecksums - read the checksum file and return a hash for all the named files and their checksums
sub getchecksums {
my $filename = shift;
my %sums;
if (open(my $fh, '<:encoding(UTF-8)', $filename)) {
while (my $row = <$fh>) {
chomp $row;
if ($row =~ m!^([a-f0-9]+) [ *](.+)$!) {
$sums{$2} = $1;
}
elsif ($row =~ m!SHA256\((.+)\)= ([a-f0-9]+)$!) {
$sums{$1} = $2;
}
}
}
return %sums;
}
# printentry - print a
row for a target file (not in an ordinary directory)
# $entry - full path to the file
# $prefix - empty string if it's a meta-file;
# otherwise, it's the prefix to remove from the displayed file name
# $checksums - reference to the checksums for this directory
sub printentry {
my $entry = shift;
my $prefix = shift;
my $checksums = shift;
my ($basename) = $entry =~ m!([^/]+)$!; # / strip off path info
my $size = "-";
my $checksum = $checksums->{$basename};
if (!$checksum) { # if not present in hash, use "-"
$checksum = "-";
}
my @s = stat $entry;
my $link = (-l $entry) # if it's a symlink
? sprintf(' -> %s', htmlenc(readlink($entry))) # add '->' to the link
: ''; # (is this ever used?)
my $date = scalar localtime $s[9];
if (S_ISDIR($s[2])) {
$size = "-";
$checksum = "-";
$basename = $basename."/";
}
else {
$size = sprintf('%.1f KB', $s[7] / 1024);
}
my $imagename = $basename;
if ($prefix && (index($basename, $prefix) == 0)) { # if there's a prefix, and it matches at front
$imagename = substr($basename, length($prefix)); # trim it off
}
# All preparatory work complete: here are the variables
# $entry: "./SampleData/config.seed"
# $basename: "config.seed"
# $imagename: $basename, or shortened version of image name
# $link: "" or "-> actual-file-following-link"
# $checksum: the sum, or "-"
# $size: the size ("1234.5 KB") or "-"
# $date: in the form "Tue Feb 21 04:03:38 2017"
# Output the html for the row
print '