Changeset 33995

Show
Ignore:
Timestamp:
06/16/09 11:02:37 (4 years ago)
Author:
mash
Message:

since_id looks better http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses-friends_timeline

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/POE-Component-Client-Twitter/trunk/lib/POE/Component/Client/Twitter.pm

    r18443 r33995  
    112112 
    113113    my $uri = URI->new($heap->{args}->{apiurl} . '/friends_timeline.json'); 
    114     $uri->query_form(since => HTTP::Date::time2str($heap->{since})) if $heap->{since}; 
    115     $heap->{since} = time; 
     114    $uri->query_form( since_id => $heap->{since_id} ) if $heap->{since_id}; 
    116115 
    117116    my $req = HTTP::Request->new(GET => $uri); 
    … …  
    134133   my $data; 
    135134   $data = decode_json($response->content) if $response->is_success; 
     135   $heap->{since_id} = $data->[0]->{id}; # save the latest id and use it in next GET request 
     136 
    136137   $kernel->yield(notify => 'friend_timeline_success', $data); 
    137138}