add robots.txt and generate sitemap.xml

dwimperl · Nov 9, 2013 · 32a3523 · 32a3523
1 parent 1e42e38
commit 32a3523
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,2 +1,3 @@
 *.swp
 html/*.html
+html/sitemap.xml
diff --git a/bin/generate.pl b/bin/generate.pl
@@ -4,16 +4,22 @@
 use autodie;
 
 use Template;
+use DateTime;
 my $tt = Template->new({
 	INCLUDE_PATH => 'tt',
 	START_TAG    => '<%',
 	END_TAG      => '%>',
 	EVAL_PERL    => 0,
 });
+my $now = DateTime->now->ymd;
 
 my @pages = map { substr $_, 6 } glob "pages/*.html";
 #print "@pages";
 
+my $sitemap = qq{<?xml version="1.0" encoding="UTF-8"?>\n};
+$sitemap .=   qq{<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">\n};
+
+
 foreach my $p (@pages) {
 	open my $fh, '<', "pages/$p";
 	my %params = ( content => '' );
@@ -35,4 +41,16 @@
 		}
 	}
 	$tt->process('page.tt', \%params, "html/$p") or die $tt->error;
+	$sitemap .= qq{  <url>\n};
+	$sitemap .= qq{    <loc>http://dwimperl.com/$p</loc>\n};
+	$sitemap .= qq{    <lastmod>$now</lastmod>\n};
+	$sitemap .= qq{  </url>\n};
 }
+
+$sitemap .= "</urlset>\n";
+
+if (open my $out, '>', 'html/sitemap.xml') {
+	print $out $sitemap;
+}
+
+
diff --git a/html/robots.txt b/html/robots.txt
@@ -0,0 +1 @@
+Sitemap: http://dwimperl.com/sitemap.xml