Changeset 65 in lab

Timestamp:

Oct 5, 2010 12:57:59 PM (14 years ago)

Author:

mitty

Message:

• add new hash members to return value of or_search and mentions_ids

File:

• trunk/twitter/twitterbot.pl (modified) (2 diffs)

trunk/twitter/twitterbot.pl

@@ -156 +156 @@
                     status_id   => $res->{id},
                     text        => $res->{text},
+                    user_id     => $res->{user}{id},
                 };
                 if ($res->{retweeted_status}) {
-                    $id->{type} = 'retweet';
+                    $id->{retweet_of}   = $res->{retweeted_status}{id};
+                    $id->{type}         = 'retweet';
                 }
                 else {
@@ -207 +209 @@
                     text        => $_->{text},
                     type        => 'mention',
+                    user_id     => $_->{user}{id},
                 }
             } @{$res}