short and sweet

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1202 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/blootbot/src/Modules/Rss.pl b/blootbot/src/Modules/Rss.pl
index 153d07e2e5b66f175c78efc8a15907a0538b3d8d..a9c39e98df3d1123a785a43be15b600cd4b27519 100644 (file)
--- a/blootbot/src/Modules/Rss.pl
+++ b/blootbot/src/Modules/Rss.pl
@@ -10,16 +10,7 @@ package Rss;
 use strict;
 
 sub Rss::Titles {
-       my @list;
-
-       foreach (@_) {
-               next unless (/<title>(.*?)<\/title>/);
-               my $title = $1;
-               $title =~ s/&amp\;/&/g;
-               push(@list, $title);
-       }
-
-       return @list;
+ return join(' ',@_)=~m/<title>\s*(.*?)\s*<\/title>/gi;
 }
 
 sub Rss::Rss {
@@ -27,11 +18,8 @@ sub Rss::Rss {
        my @results = &::getURL($message);
        my $retval  = "i could not get the rss feed.";
 
-       if (scalar @results) {
-               my $prefix      = "Titles: ";
-               my @list        = &Rss::Titles(@results);
-               $retval         = &::formListReply(0, $prefix, @list);
-       }
+       my @list        = &Rss::Titles(@results) if (scalar @results);
+       $retval         = &::formListReply(0, 'Titles: ', @list) if (scalar @list);
 
        &::performStrictReply($retval);
 }