#!/usr/bin/perl -w
use strict;
use 5.010;

# gensitemapxml.pl - assume public directory tree of apache default indexed directories

BEGIN
{
    say '<?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">'

}

my $base = 'https://users.aalto.fi/~ltuuri';
my @paths = `find . -type d -printf '%p\t%TY-%Tm-%Td\n'`;

for my $line (@paths)
{
    chomp $line;
    my ($path, $lastmod) = split(/\t/, $line);
    $path =~ s,^\.,,;   # remove trailing  .
    say
" <url>
  <loc>${base}${path}/</loc>
  <lastmod>$lastmod</lastmod>
 </url>";

}


END
{
    say '</urlset>'
}