From 1b755b563f68fc06ce7d97f86da4be2f09d39bf2 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 1 Mar 2005 18:07:33 +0000
Subject: [PATCH] short and sweet

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1202 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/Rss.pl | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/src/Modules/Rss.pl b/src/Modules/Rss.pl
index 153d07e..a9c39e9 100644
--- a/src/Modules/Rss.pl
+++ b/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);
 }
-- 
2.39.5