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
  29 # vim:ts=4:sw=4:expandtab:tw=80