From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Sun, 23 Sep 2012 03:58:48 +0000 (+0000)
Subject:  * add legacy_lists_api => 0 to new()
X-Git-Url: http://lab.mitty.jp/git/?a=commitdiff_plain;h=43d739e1bca5a73407ee3433a578c641e796106a;p=lab.git

 * add legacy_lists_api => 0 to new()

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

diff --git a/Dev/twitter/dump_timeline.pl b/Dev/twitter/dump_timeline.pl
index e800ac7..d7b2058 100755
--- a/Dev/twitter/dump_timeline.pl
+++ b/Dev/twitter/dump_timeline.pl
@@ -142,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});
diff --git a/Dev/twitter/show_status.pl b/Dev/twitter/show_status.pl
index 22fa3d0..ee45ace 100755
--- a/Dev/twitter/show_status.pl
+++ b/Dev/twitter/show_status.pl
@@ -12,7 +12,9 @@ use utf8;
 use Net::Twitter::Lite;
 use Data::Dumper;
 
-my $bot = Net::Twitter::Lite->new;
+my $bot = Net::Twitter::Lite->new(
+    legacy_lists_api => 0,
+);
 
 my $dump;
 if (defined $ARGV[0] and $ARGV[0] eq "-d") {
diff --git a/Dev/twitter/twitterbot.pl b/Dev/twitter/twitterbot.pl
index ae37ea6..bb7baa0 100755
--- a/Dev/twitter/twitterbot.pl
+++ b/Dev/twitter/twitterbot.pl
@@ -178,6 +178,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});
diff --git a/Dev/twitter/update_timeline.pl b/Dev/twitter/update_timeline.pl
index 1afcdf4..633db89 100755
--- a/Dev/twitter/update_timeline.pl
+++ b/Dev/twitter/update_timeline.pl
@@ -94,6 +94,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});