Changeset 63 in lab


Ignore:
Timestamp:
Oct 4, 2010 9:56:16 PM (13 years ago)
Author:
mitty
Message:
  • add new hash members to return value of or_search and mentions_ids
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/twitter/twitterbot.pl

    r61 r63  
    1313use FindBin qw($Bin); 
    1414use YAML::Tiny; 
     15use Date::Parse qw(str2time); 
    1516 
    1617sub VERBOSE () { $ARGV[0] eq 'verbose' }; 
     
    143144            ); 
    144145        } 
     146        VERBOSE and warn Dumper($res); 
    145147        if ($res->{results}) { 
    146             VERBOSE and warn Dumper($res); 
    147148            foreach my $tweet (@{$res->{results}}) { 
    148149                my $res = $bot->show_status($tweet->{id}); 
     150                VERBOSE and warn Dumper($res); 
     151                 
     152                my $id = { 
     153                    date        => str2time($res->{created_at}), 
     154                    screen_name => $res->{user}{screen_name}, 
     155                    status_id   => $res->{id}, 
     156                    text        => $res->{text}, 
     157                }; 
    149158                if ($res->{retweeted_status}) { 
    150                     $ids->{$tweet->{id}}{type} = 'retweet'; 
     159                    $id->{type} = 'retweet'; 
    151160                } 
    152161                else { 
    153                     $ids->{$tweet->{id}}{type} = 'search'; 
    154                 } 
    155                 VERBOSE and warn Dumper($res); 
     162                    $id->{type} = 'search'; 
     163                } 
     164                $ids->{$tweet->{id}} = $id; 
    156165            } 
    157166        } 
     
    192201            map { 
    193202                $_->{id} => { 
    194                     type => 'mention', 
     203                    date        => str2time($_->{created_at}), 
     204                    screen_name => $_->{user}{screen_name}, 
     205                    status_id   => $_->{id}, 
     206                    text        => $_->{text}, 
     207                    type        => 'mention', 
    195208                } 
    196209            } @{$res} 
Note: See TracChangeset for help on using the changeset viewer.