From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 May 2017 21:59:57 +0000 (+0200)
Subject: sitemap: warn about undeclared pages
X-Git-Tag: v1.10~17
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/040b34c73c69215ef3a93a474fd46cae3a622033

sitemap: warn about undeclared pages
---

diff --git a/tools/mksitemap b/tools/mksitemap
index cbfa8c9..4948525 100755
--- a/tools/mksitemap
+++ b/tools/mksitemap
@@ -5,7 +5,7 @@ use warnings;
 our $VERSION = '1.00';
 
 my @pages = (
-	[''],
+	[qw( index )],
 	[qw( readline vi digraphs charset unicode )],
 	[qw( vimperator mutt nethack mplayer )],
 	[qw( writing )],
@@ -16,11 +16,16 @@ my %freq = (
 	(map { $_ => 'yearly' } qw[ readline nethack mplayer ]),
 );
 
+my %known = map { $_ => 1 } map { @{$_} } @pages;
+$known{$_} or warn "page $_ undeclared\n"
+	for grep { !/\./ } map { s/\.plp\z//r } glob '*.plp';
+
 say '<?xml version="1.0" encoding="UTF-8"?>';
 say '<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">';
 for my $group (@pages) {
 	state $prio = 1;
 	for my $page (@{$group}) {
+		$page =~ s/\Aindex\z//;
 		print '<url>';
 		print "<loc>http://sheet.shiar.nl/$page</loc>";
 		printf '<changefreq>%s</changefreq>', $freq{$page} // 'monthly';