Changeset 513da71 for lib/BarnOwl/Module

Timestamp:

Aug 4, 2009, 2:23:28 AM (15 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

Location:

lib/BarnOwl/Module

Files:

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

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);
 }
 

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -252 +252 @@
 }
 
+sub twitter_follow {
+    my $self = shift;
+
+    my $who = shift;
+
+    my $user = $self->{twitter}->create_friend($who);
+    # returns a string on error
+    if (defined $user && !ref $user) {
+        BarnOwl::message($user);
+    } else {
+        BarnOwl::message("Following " . $who);
+    }
+}
+
+sub twitter_unfollow {
+    my $self = shift;
+
+    my $who = shift;
+
+    my $user = $self->{twitter}->destroy_friend($who);
+    # returns a string on error
+    if (defined $user && !ref $user) {
+        BarnOwl::message($user);
+    } else {
+        BarnOwl::message("No longer following " . $who);
+    }
+}
+
 1;