2 # Rss.pl: rss handler hacked from Plug.pl
3 # Author: Tim Riker <Tim@Rikers.org>
4 # Licensing: Artistic License (as perl itself)
16 next unless (/<title>(.*?)<\/title>/);
18 $title =~ s/&\;/&/g;
27 my @results = &::getURL($message);
28 my $retval = "i could not get the rss feed.";
30 if (scalar @results) {
31 my $prefix = "Titles: ";
32 my @list = &Rss::Titles(@results);
33 $retval = &::formListReply(0, $prefix, @list);
36 &::performStrictReply($retval);