Changeset 513da71 for lib/BarnOwl/Module/Twitter.pm

Timestamp:

Aug 4, 2009, 2:23:28 AM (16 years ago)

Author:

Kevin Riggle <kevinr@free-dissociation.com>

Branches:

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

Children:

4bd9327

Parents:

82e0f26

Message:

Add :twitter-follow and :twitter-unfollow commands

File:

• lib/BarnOwl/Module/Twitter.pm (modified) (3 diffs)

lib/BarnOwl/Module/Twitter.pm

@@ -218 +218 @@
 }
 
+sub twitter_follow {
+    my $account = shift;
+
+    if (defined $account) {
+        my $handle = find_account($account);
+        $handle->twitter_follow(@_);
+    } elsif (defined $default_handle) {
+        $default_handle->twitter_follow(@_);
+    }
+    else {
+        $twitter_handles[0]->twitter_follow(@_);
+    }
+}
+
+sub twitter_unfollow {
+    my $account = shift;
+
+    if (defined $account) {
+        my $handle = find_account($account);
+        $handle->twitter_unfollow(@_);
+    } elsif (defined $default_handle) {
+        $default_handle->twitter_unfollow(@_);
+    }
+    else {
+        $twitter_handles[0]->twitter_unfollow(@_);
+    }
+}
+
 BarnOwl::new_command(twitter => \&cmd_twitter, {
     summary     => 'Update Twitter from BarnOwl',
@@ -238 +266 @@
     usage       => 'twitter-atreply USER [ACCOUNT]',
     description => 'Send a Twitter @reply Message to USER on ACCOUNT (defaults to default_sender,' 
-    . "or first service if no default is provided)"
-    }
-);
-
+    . "\nor first service if no default is provided)"
+    }
+);
+
+BarnOwl::new_command( 'twitter-follow' => sub { cmd_twitter_follow(@_); },
+    {
+    summary     => 'Follow a user on Twitter',
+    usage       => 'twitter-follow USER [ACCOUNT]',
+    description => 'Follow USER on Twitter ACCOUNT (defaults to default_sender, or first service'
+    . "\nif no default is provided)"
+    }
+);
+
+BarnOwl::new_command( 'twitter-unfollow' => sub { cmd_twitter_unfollow(@_); },
+    {
+    summary     => 'Stop following a user on Twitter',
+    usage       => 'twitter-unfollow USER [ACCOUNT]',
+    description => 'Stop following USER on Twitter ACCOUNT (defaults to default_sender, or first'
+    . "\nservice if no default is provided)"
+    }
+);
 
 sub cmd_twitter {
@@ -270 +315 @@
     my $account = shift;
     BarnOwl::start_edit_win("Reply to \@" . $user . (defined $account ? " on $account" : ""), sub { twitter_atreply($account, $user, $id, shift) });
+}
+
+sub cmd_twitter_follow {
+    my $cmd = shift;
+    my $user = shift;
+    die("Usage: $cmd USER\n") unless $user;
+    my $account = shift;
+    twitter_follow($account, $user);
+}
+
+sub cmd_twitter_unfollow {
+    my $cmd = shift;
+    my $user = shift;
+    die("Usage: $cmd USER\n") unless $user;
+    my $account = shift;
+    twitter_unfollow($account, $user);
 }