+ if ($path[0] eq 'feed') {
+ my ($username, $password) = decode_basic_auth($q);
+ if (!defined $username) {
+ print_401;
+ next REQUEST;
+ }
+ if (!Blerg::Database::auth_check_password($username, $password)) {
+ print_401;
+ next REQUEST;
+ }
+
+ my $bb = Blerg::Database->open_existing($username);
+ my @list = $bb->subscription_list();
+ $bb->close;
+ @list = map {
+ my $b = Blerg::Database->open_existing($_->{author});
+ my $data = $b->fetch($_->{record});
+ my $timestamp = $b->timestamp($_->{record});
+ $b->close;
+ {
+ author => $_->{author},
+ record => $_->{record},
+ data => $data,
+ timestamp => $timestamp,
+ };
+ } @list;
+
+ print header(-type => 'application/rss+xml');
+ print_rss(feed => $username, @list);
+ } elsif (@path == 1) {