From 3c7be43f71a8d4e34ad64d08f7356b8b362123f3 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 21 Nov 2002 09:44:46 +0000
Subject: [PATCH] help and working multi request

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@645 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/files/blootbot.help  | 4 ++--
 blootbot/src/Modules/Quote.pl | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/blootbot/files/blootbot.help b/blootbot/files/blootbot.help
index 1c1a92d..01dfaeb 100644
--- a/blootbot/files/blootbot.help
+++ b/blootbot/files/blootbot.help
@@ -131,8 +131,8 @@ listvalues: U: ## <regex>
 listvalues: E: ## blootbot
 
 quote: D: Frontend to yahoo's online stock market share listing
-quote: U: ## <query>
-quote: E: ## RHAT
+quote: U: ## <query...>
+quote: E: ## RHAT,MSFT
 
 topic add: D: Add your own topic
 topic add: U: ## <topic>
diff --git a/blootbot/src/Modules/Quote.pl b/blootbot/src/Modules/Quote.pl
index 61e2a80..39e1521 100644
--- a/blootbot/src/Modules/Quote.pl
+++ b/blootbot/src/Modules/Quote.pl
@@ -30,7 +30,6 @@ sub Quote {
 
     my ($reply);
     foreach my $result (@results) {
-	chomp $result;
 	# get rid of the quotes
 	$result =~ s/\"//g;
 
@@ -38,7 +37,8 @@ sub Quote {
 	    $high, $low, $volume) = split(',',$result);
 
         # add some commas
-	my $newvol = commify($volume);
+        # "+ 0" removes trailing cr/lf/etc.
+	my $newvol = commify($volume + 0);
 
 	$reply .= ' ;; ' if $reply;
 	$reply .= "$ticker: $recent ($high/$low), $date $time, " .
-- 
2.39.5