From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Sun, 23 Sep 2012 03:29:03 +0000 (+0000)
Subject:  * add search command
X-Git-Url: http://lab.mitty.jp/git/?a=commitdiff_plain;h=52c76fd42f32a43fdb145980161126a4e7503065;p=lab.git

 * add search command
 * load search keyword from config.yaml and do OR search

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@164 7d2118f6-f56c-43e7-95a2-4bb3031d96e7
---

diff --git a/Dev/twitter/dump_timeline.pl b/Dev/twitter/dump_timeline.pl
index 72f7881..0564d5d 100755
--- a/Dev/twitter/dump_timeline.pl
+++ b/Dev/twitter/dump_timeline.pl
@@ -18,7 +18,7 @@ use Encode;
 my $help = sub {
     die <<EOM;
 usage: $0
-    [{u}ser_timeline(default)|{r}etweeted_by_me|{m}sentions
+    [{u}ser_timeline(default)|{r}etweeted_by_me|{m}sentions|{s}earch
         [screen_name
             [number_of_pages|all
                 [dump]
@@ -70,6 +70,19 @@ eval {
         elsif ($method eq 'mentions' || $method eq 'm') {
             $res = $bot->mentions($param);
         }
+        elsif ($method eq 'search' || $method eq 's') {
+            my $key;
+            foreach my $word (@{ $conf->{hashtag} }) {
+                if ($key) {
+                    $key .= " OR $word";
+                }
+                else {
+                    $key = $word;
+                }
+            }
+            $param->{q} = $key;
+            $res = $bot->search($param)->{results};
+        }
         else {
             warn "$0: unknown method '$method'";
             &{$help};