From c31d3e77ca464bd4228d5dc76235c1be4e7489d8 Mon Sep 17 00:00:00 2001
From: Uriel <u@berlinblue.org>
Date: Wed, 29 Jul 2009 01:41:18 +0200
Subject: [PATCH] Implement the sitemaps.org standard 'protocol' with
 sitemap.xml.

---
 tpl/sitemap.tpl | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/tpl/sitemap.tpl b/tpl/sitemap.tpl
index 334f7e5..b84d209 100644
--- a/tpl/sitemap.tpl
+++ b/tpl/sitemap.tpl
@@ -2,6 +2,7 @@
 
 %{
 tmpfile=/tmp/werc_sitemap_$pid.txt
+tmpfilex=/tmp/werc_sitemapx_$pid.txt
 saveddf=$dirfilter
 
 fn listDir {
@@ -21,6 +22,7 @@ fn listDir {
             n=`{echo /$u|sed 's/[\-_]/ /g; s,.*/([^/]+)/?$,\1,'}
             echo '<li><a href="'$u'">'^$"n^'</a>' $"desc '</li>' 
             echo $base_url^$u >> $tmpfile
+            echo '<url><loc>'$base_url^$u'</loc></url>' >> $tmpfilex
             if(test -d $i)
                 @{ listDir $i }
         }
@@ -28,9 +30,30 @@ fn listDir {
     }
 }
 
+
 fltr_cache listDir $sitedir/
 
-if(test -s $tmpfile)
+if(test -s $tmpfile) {
     mv $tmpfile $sitedir/sitemap.txt &
+}
+if not if(test -f $tmpfile)
+    rm $tmpfile
+
+if(test -s $tmpfilex) {
+    {
+        echo '<?xml version="1.0" encoding="UTF-8"?>
+<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">'
+
+        cat $tmpfilex
+        rm $tmpfilex &
+        echo '</urlset>'
+        # TODO Enable automaic search engine update notification.
+        #hget 'http://google.com/ping?sitemap='^`{url_encode $base_url'/sitemap.gz'} > /dev/null
+    
+    } | gzip > $sitedir/sitemap.gz &
+    #} > $sitedir/sitemap.xml &
+}
+if not if(test -f $tmpfilex)
+    rm $tmpfilex
 
 %}