X-Git-Url: http://git.bytex64.net/?a=blobdiff_plain;f=rss.cgi;h=3eed7e26bd90408dc44cb10c240e29d0164b8820;hb=948ce5be6ef6bba36edfb544565ca22e316afb0a;hp=11e1982b22cb7ca7414038581316a743031d32ef;hpb=c1ddc7d4eb83ca2dd17f72e88bf1e21518c1724c;p=blerg.git diff --git a/rss.cgi b/rss.cgi index 11e1982..3eed7e2 100755 --- a/rss.cgi +++ b/rss.cgi @@ -19,7 +19,6 @@ sub xml_escape { sub decode_basic_auth { my ($q) = @_; - my $authorization = 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{\@$author
$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 < + $title $post_time ${baseurl}get/$author/$i->{record} ${baseurl}#$author/$i->{record}