From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Sun, 23 Sep 2012 05:32:56 +0000 (+0000)
Subject:  * add count => 200 parameter to request
X-Git-Url: http://lab.mitty.jp/git/?a=commitdiff_plain;h=c1b8ad4f4aa627d9318108dba6f0f54c472e8565;p=lab.git

 * add count => 200 parameter to request
 * mentions function still only return 50 tweets

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

diff --git a/Dev/twitter/dump_timeline.pl b/Dev/twitter/dump_timeline.pl
index d7b2058..48a1412 100755
--- a/Dev/twitter/dump_timeline.pl
+++ b/Dev/twitter/dump_timeline.pl
@@ -52,12 +52,12 @@ if (! $bot->authorized) {
 
 eval {
     my $page = 0;
-    while ($pages - $page && $page <= 160) {
+    while ($pages - $page && $page <= 20) {
         $page++;
         
         my $param = ($screen_name)
-            ? { page => $page, screen_name => $screen_name, }
-            : { page => $page, }
+            ? { page => $page, screen_name => $screen_name, count => 200, }
+            : { page => $page, count => 200, }
         ;
     
         my $res;