From 040b34c73c69215ef3a93a474fd46cae3a622033 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 May 2017 23:59:57 +0200
Subject: [PATCH] sitemap: warn about undeclared pages

---
 tools/mksitemap | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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';
-- 
2.30.0