Changeset 5d59c1e for perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm

Timestamp:

May 29, 2010, 1:42:02 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

2f25537

Parents:

d27ecf3

git-author:

Nelson Elhage <nelhage@mit.edu> (05/26/10 22:46:35)

git-committer:

Nelson Elhage <nelhage@mit.edu> (05/29/10 13:42:02)

Message:

Twitter: Handle new-style retweets better

File:

• perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm (modified) (1 diff)

perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm

@@ -17 +17 @@
 sub service { return (shift->{"service"} || "http://twitter.com"); }
 sub account { return shift->{"account"}; }
+sub retweeted_by { shift->{retweeted_by}; }
 sub long_sender {
     my $self = shift;
     $self->service =~ m#^\s*(.*?://.*?)/.*$#;
     my $service = $1 || $self->service;
-    return $service . '/' . $self->sender
+    my $long = $service . '/' . $self->sender;
+    if ($self->retweeted_by) {
+        $long = "(retweeted by " . $self->retweeted_by . ") $long";
+    }
+    return $long;
 }