projects
/
blerg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Release notes for 1.9.1
[blerg.git]
/
rss.cgi
diff --git
a/rss.cgi
b/rss.cgi
index
11e1982
..
3eed7e2
100755
(executable)
--- a/
rss.cgi
+++ b/
rss.cgi
@@
-19,7
+19,6
@@
sub xml_escape {
sub decode_basic_auth {
my ($q) = @_;
sub decode_basic_auth {
my ($q) = @_;
- my $authorization =
my ($method, $base64) = split(/\s+/, $q->http('Authorization'));
if (!defined $method) {
return;
my ($method, $base64) = split(/\s+/, $q->http('Authorization'));
if (!defined $method) {
return;
@@
-109,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}});
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>
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>
<pubDate>$post_time</pubDate>
<guid>${baseurl}get/$author/$i->{record}</guid>
<link>${baseurl}#$author/$i->{record}</link>