Changeset e960958 in lab.git for Dev/twitter
- Timestamp:
- Jun 21, 2013 3:48:34 PM (11 years ago)
- Branches:
- master
- Children:
- 0f8acb5
- Parents:
- a5b6bf1
- Location:
- Dev/twitter
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
Dev/twitter/dump_timeline.pl
ra5b6bf1 re960958 10 10 # You can catch and process these exceptions by using eval blocks and testing $@ 11 11 ## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING 12 use Net::Twitter::Lite ;12 use Net::Twitter::Lite::WithAPIv1_1; 13 13 use FindBin qw($Bin); 14 14 use YAML::Tiny; … … 134 134 135 135 sub login { 136 # make Net::Twitter::Lite object and login136 # make Net::Twitter::Lite::WithAPIv1_1 object and login 137 137 # param => hash object of configration 138 # ret => Net::Twitter::Lite object138 # ret => Net::Twitter::Lite::WithAPIv1_1 object 139 139 140 140 my $conf = shift @_; 141 141 142 my $bot = Net::Twitter::Lite ->new(142 my $bot = Net::Twitter::Lite::WithAPIv1_1->new( 143 143 consumer_key => $conf->{consumer_key}, 144 144 consumer_secret => $conf->{consumer_secret}, -
Dev/twitter/get_oauth.pl
r8333ea0 re960958 3 3 use warnings; 4 4 use utf8; 5 use Net::Twitter::Lite ;5 use Net::Twitter::Lite::WithAPIv1_1; 6 6 7 7 use YAML::Tiny; … … 13 13 my $access_token_secret = $config->{'access_token_secret'}; 14 14 15 my $nt = Net::Twitter::Lite ->new(15 my $nt = Net::Twitter::Lite::WithAPIv1_1->new( 16 16 traits => ['API::REST', 'OAuth'], 17 17 consumer_key => $consumer_key, -
Dev/twitter/show_status.pl
ra5b6bf1 re960958 10 10 # You can catch and process these exceptions by using eval blocks and testing $@ 11 11 ## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING 12 use Net::Twitter::Lite ;12 use Net::Twitter::Lite::WithAPIv1_1; 13 13 use Data::Dumper; 14 14 15 my $bot = Net::Twitter::Lite ->new(15 my $bot = Net::Twitter::Lite::WithAPIv1_1->new( 16 16 legacy_lists_api => 0, 17 17 ); -
Dev/twitter/twitterbot.pl
ra5b6bf1 re960958 10 10 # You can catch and process these exceptions by using eval blocks and testing $@ 11 11 ## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING 12 use Net::Twitter::Lite ;12 use Net::Twitter::Lite::WithAPIv1_1; 13 13 use FindBin qw($Bin); 14 14 use YAML::Tiny; … … 170 170 171 171 sub login { 172 # make Net::Twitter::Lite object and login172 # make Net::Twitter::Lite::WithAPIv1_1 object and login 173 173 # param => hash object of configration 174 # ret => Net::Twitter::Lite object174 # ret => Net::Twitter::Lite::WithAPIv1_1 object 175 175 176 176 my $conf = shift @_; 177 177 178 my $bot = Net::Twitter::Lite ->new(178 my $bot = Net::Twitter::Lite::WithAPIv1_1->new( 179 179 consumer_key => $conf->{consumer_key}, 180 180 consumer_secret => $conf->{consumer_secret}, … … 190 190 sub or_search { 191 191 # search tweets containing keywords 192 # param => Net::Twitter::Lite object, ArrayRef of keywords, since_id192 # param => Net::Twitter::Lite::WithAPIv1_1 object, ArrayRef of keywords, since_id 193 193 # ret => HashRef of status_id (timeline order is destroyed) 194 194 # or undef (none is found) … … 254 254 sub mentions_ids { 255 255 # return status_ids mentioned to me 256 # param => Net::Twitter::Lite object, since_id256 # param => Net::Twitter::Lite::WithAPIv1_1 object, since_id 257 257 # ret => HashRef of status_id (timeline order is destroyed) 258 258 # or undef (none is found) -
Dev/twitter/update_timeline.pl
ra5b6bf1 re960958 10 10 # You can catch and process these exceptions by using eval blocks and testing $@ 11 11 ## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING 12 use Net::Twitter::Lite ;12 use Net::Twitter::Lite::WithAPIv1_1; 13 13 use FindBin qw($Bin); 14 14 use YAML::Tiny; … … 86 86 87 87 sub login { 88 # make Net::Twitter::Lite object and login88 # make Net::Twitter::Lite::WithAPIv1_1 object and login 89 89 # param => hash object of configration 90 # ret => Net::Twitter::Lite object90 # ret => Net::Twitter::Lite::WithAPIv1_1 object 91 91 92 92 my $conf = shift @_; 93 93 94 my $bot = Net::Twitter::Lite ->new(94 my $bot = Net::Twitter::Lite::WithAPIv1_1->new( 95 95 consumer_key => $conf->{consumer_key}, 96 96 consumer_secret => $conf->{consumer_secret},
Note: See TracChangeset
for help on using the changeset viewer.