src/Modules/Rss.pl

   1 #
   2 #     Rss.pl: rss handler hacked from Plug.pl
   3 #     Author: Tim Riker <Tim@Rikers.org>
   4 #  Licensing: Artistic License (as perl itself)
   5 #    Version: v0.1
   6 #
   7
   8 package Rss;
   9
  10 use strict;
  11
  12 sub Rss::Titles {
  13         my @list;
  14
  15         foreach (@_) {
  16                 next unless (/<title>(.*?)<\/title>/);
  17                 my $title = $1;
  18                 $title =~ s/&amp\;/&/g;
  19                 push(@list, $title);
  20         }
  21
  22         return @list;
  23 }
  24
  25 sub Rss::Rss {
  26         my ($message) = @_;
  27         my @results = &::getURL($message);
  28         my $retval  = "i could not get the rss feed.";
  29
  30         if (scalar @results) {
  31                 my $prefix      = "Titles: ";
  32                 my @list        = &Rss::Titles(@results);
  33                 $retval         = &::formListReply(0, $prefix, @list);
  34         }
  35
  36         &::performStrictReply($retval);
  37 }
  38
  39 1;
  40 # vim: ts=2 sw=2