X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/040b34c73c69215ef3a93a474fd46cae3a622033..e19a959d150b4cfee644f1a29ada1d05c826f207:/tools/mksitemap diff --git a/tools/mksitemap b/tools/mksitemap index 4948525..7b9c5a0 100755 --- a/tools/mksitemap +++ b/tools/mksitemap @@ -4,6 +4,9 @@ use warnings; our $VERSION = '1.00'; +use File::stat; +use Time::Piece; + my @pages = ( [qw( index )], [qw( readline vi digraphs charset unicode )], @@ -24,12 +27,14 @@ say ''; say ''; for my $group (@pages) { state $prio = 1; - for my $page (@{$group}) { - $page =~ s/\Aindex\z//; + for my $file (@{$group}) { + (my $page = $file) =~ s/\Aindex\z//; + $file .= '.plp'; print ''; print "http://sheet.shiar.nl/$page"; printf '%s', $freq{$page} // 'monthly'; printf '%.2f', $prio; + printf '%s', localtime(stat($file)->mtime)->date; say ''; } $prio -= .1;