commit:80f127255efae0672992f9e8d7673ae9f154f3e6
author:Chip Black
committer:Chip Black
date:Sat Mar 29 18:03:09 2014 -0500
parents:74799006801178ec48185e2e058772b876920d5d
Add titles in RSS for dumb aggregators
diff --git a/rss.cgi b/rss.cgi
line changes: +2/-0
index 3bc6172..3eed7e2
--- a/rss.cgi
+++ b/rss.cgi
@@ -108,9 +108,11 @@ HEADER
     for my $i (@items) {
         my $author = defined $i->{author} ? $i->{author} : $name;
         my $data = xml_escape(qq{<a href="${baseurl}#$author"><strong>\@$author</strong></a><br> $i->{data}});
+        my $title = xml_escape(substr($i->{data}, 0, 27)) . "...";
         my $post_time = strftime("%a, %d %b %Y %H:%M:%S %Z", localtime($i->{timestamp}));
         print <<ITEM;
     <item>
+      <title>$title</title>
       <pubDate>$post_time</pubDate>
       <guid>${baseurl}get/$author/$i->{record}</guid>
       <link>${baseurl}#$author/$i->{record}</link>