X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ff54b2f125dada0899ac2b12bf4fa9f496d03762..c0f5d2bd437dc554f08beaf3ad3ac3d836ca7656:/tools/mksitemap?ds=sidebyside

diff --git a/tools/mksitemap b/tools/mksitemap
new file mode 100755
index 0000000..cbfa8c9
--- /dev/null
+++ b/tools/mksitemap
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+use 5.014;
+use warnings;
+
+our $VERSION = '1.00';
+
+my @pages = (
+	[''],
+	[qw( readline vi digraphs charset unicode )],
+	[qw( vimperator mutt nethack mplayer )],
+	[qw( writing )],
+	[qw( source )],
+);
+
+my %freq = (
+	(map { $_ => 'yearly' } qw[ readline nethack mplayer ]),
+);
+
+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}) {
+		print '<url>';
+		print "<loc>http://sheet.shiar.nl/$page</loc>";
+		printf '<changefreq>%s</changefreq>', $freq{$page} // 'monthly';
+		printf '<priority>%.2f</priority>', $prio;
+		say '</url>';
+	}
+	$prio -= .1;
+}
+say '</urlset>';
+