Changeset 5214546 for lib/BarnOwl/Module/Twitter

Timestamp:

Dec 19, 2009, 9:58:49 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

22fce654

Parents:

9876953

git-author:

Nelson Elhage <nelhage@mit.edu> (12/19/09 18:57:20)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/19/09 21:58:49)

Message:

Add a twitter-retweet command

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (1 diff)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -299 +299 @@
 }
 
+sub twitter_retweet {
+    my $self = shift;
+    my $msg = shift;
+
+    if($msg->service ne $self->{cfg}->{service}) {
+        die("Cannot retweet a message from a different service.\n");
+    }
+    $self->twitter_command(retweet => $msg->{status_id});
+}
+
 sub twitter_follow {
     my $self = shift;