sub decode_basic_auth {
my ($q) = @_;
- my $authorization =
my ($method, $base64) = split(/\s+/, $q->http('Authorization'));
if (!defined $method) {
return;
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>