+ my $tag = $path[1];
+ $tag =~ s/^H/#/;
+ my @list = Blerg::Database::tag_list($tag, 0, -1);
+ @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');
+ if (substr($tag, 0, 1) eq '#') {
+ print_rss(tag => $tag, @list);
+ } else {
+ print_rss(ref => $tag, @list);
+ }