From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 1 Mar 2005 18:07:33 +0000 (+0000)
Subject: short and sweet
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0677a4f350e67b8c2201e719f490e02301db349f;p=infobot.git

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 153d07e..a9c39e9 100644
--- 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);
 }