Changeset 6babb75

Timestamp:

Jan 28, 2009, 1:27:41 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

c1e5316

Parents:

b4b5a7e

Message:

Apply Jesse's @reply patch.

Location:

lib/BarnOwl

Files:

• Message/Twitter.pm (modified) (1 diff)
• Module/Twitter.pm (modified) (3 diffs)

lib/BarnOwl/Message/Twitter.pm

@@ -22 +22 @@
         return $self->replysendercmd;
     } else {
-        return 'twitter';
+        return 'twitter-atreply '.$self->sender;
     }
 }

lib/BarnOwl/Module/Twitter.pm

@@ -238 +238 @@
 }
 
+sub twitter_atreply {
+    my $to  = shift;
+    my $msg = shift;
+    twitter("@".$to." ".$msg);
+}
+
 BarnOwl::new_command(twitter => \&cmd_twitter, {
     summary     => 'Update Twitter from BarnOwl',
@@ -250 +256 @@
     description => 'Send a Twitter Direct Message to USER'
    });
+
+BarnOwl::new_command( 'twitter-atreply' => sub { cmd_twitter_atreply(@_); },
+    {
+    summary     => 'Send a Twitter @ message',
+    usage       => 'twitter-atreply USER',
+    description => 'Send a Twitter @reply Message to USER'
+    }
+);
+
 
 sub cmd_twitter {
@@ -268 +283 @@
 }
 
+sub cmd_twitter_atreply {
+    my $cmd  = shift;
+    my $user = shift;
+    BarnOwl::start_edit_win("Reply to \@" . $user, sub { twitter_atreply($user, shift) });
+}
+
 eval {
     $BarnOwl::Hooks::receiveMessage->add("BarnOwl::Module::Twitter::handle_message");