help and working multi request

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

diff --git a/blootbot/files/blootbot.help b/blootbot/files/blootbot.help
index 1c1a92d6935e52e9c0a555ebf6fcf4d4243df691..01dfaeb53bd7c790cc1748f313b21bd4e5707157 100644 (file)
--- 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 61e2a805f099ed54520ba3315fc2e3a739ddb782..39e152180e6a9aa069899068c3b2e1c233cb7fd1 100644 (file)
--- 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, " .