X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=Dev%2Ftwitter%2Fdump_timeline.pl;h=48a1412fab8784e67ca0eb9e0d49762e64cf0844;hb=c1b8ad4f4aa627d9318108dba6f0f54c472e8565;hp=0564d5dadf240fc88e711cca71cc2b4ec7e91b38;hpb=52c76fd42f32a43fdb145980161126a4e7503065;p=lab.git

diff --git a/Dev/twitter/dump_timeline.pl b/Dev/twitter/dump_timeline.pl
index 0564d5d..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;
@@ -98,8 +98,11 @@ eval {
             foreach my $status (@{$res}) {
                 my $text = "";
                 $text .= "(". $status->{id} . ") ";
-                $text .= $status->{user}{screen_name} . "|";
-                $text .= $status->{user}{name};
+                $text .= ($status->{user}{screen_name}) ?
+                    $status->{user}{screen_name} : $status->{from_user};
+                $text .= "|";
+                $text .= ($status->{user}{name}) ?
+                    $status->{user}{name} : $status->{from_user_name};
                 $text .= " [" . $status->{created_at} . "]";
                 $text .= " ".  $status->{text};
                 $text =~ s/\n//;
@@ -139,6 +142,7 @@ sub login {
     my $bot = Net::Twitter::Lite->new(
         consumer_key    => $conf->{consumer_key},
         consumer_secret => $conf->{consumer_secret},
+        legacy_lists_api => 0,
     );
     
     $bot->access_token($conf->{access_token});