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  return join(' ',@_)=~m/<title>\s*(.*?)\s*<\/title>/gi;
  14 }
  15
  16 sub Rss::Rss {
  17         my ($message) = @_;
  18         my @results = &::getURL($message);
  19         my $retval  = "i could not get the rss feed.";
  20
  21         my @list        = &Rss::Titles(@results) if (scalar @results);
  22         $retval         = &::formListReply(0, 'Titles: ', @list) if (scalar @list);
  23
  24         &::performStrictReply($retval);
  25 }
  26
  27 1;
  28 # vim: ts=2 sw=2