Experimental support for Google's pubsubhubbub

apps/blagh/app.rc

@@ -119,6 +119,12 @@ fn mkbpost {
             echo 
             echo $bptext
         }> $ddir/$"n^$"bpid/index.md 
+
+        if(! ~ $"blagh_pubsubdub_hub '') {
+            # Experimental implementation of http://pubsubhubbub.googlecode.com/svn/trunk/pubsubhubbub-core-0.1.html#anchor4
+            ifs='' { p=`{echo $req_url|sed 's/new_post$/index.atom/'|./bin/contrib/urlencode.awk }
+            hget -p 'hub.mode=publish&hub.url='^$p' $blagh_pubsubdub_hub
+        }
     }
     status=$_status
 }

apps/blagh/atom.tpl

@@ -22,6 +22,10 @@ updated = `{/bin/date --rfc-3339'=seconds' |sed 's/ /T/'}
 <feed xmlns="http://www.w3.org/2005/Atom"
     xmlns:thr="http://purl.org/syndication/thread/1.0">
 
+% if(! ~ $"blagh_pubsubdub_hub '') {
+%    echo '<link rel="hub" href="'$blagh_pubsubdub_hub'" />'
+% }
+
     <link rel="self" href="%($base_url^$req_path%)"/>
     <id>%($base_url^$req_path%)</id>
     <icon>/favicon.ico</icon>