Changeset 159aaad for lib/BarnOwl/Message/Twitter.pm

Timestamp:

Jul 21, 2009, 9:27:32 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:

7430aa4

Parents:

f93b81b

git-author:

Kevin Riggle <kevinr@free-dissociation.com> (07/21/09 21:27:02)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/21/09 21:27:32)

Message:

Multiple account support

Accounts are specified as a list of hashes in the ~/.owl/twitter file.

Adds 'poll_for_tweets', 'poll_for_dms', 'publish_tweets', 'default_sender',
and 'account_nickname' options to the twitter account hashes.  They do about
what they say on the tin.

Add arguments to :twitter, :twitter-direct, and :twitter-atreply to specify
the service to use (by nickname), with sane defaults, plus documentation.

File:

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

lib/BarnOwl/Message/Twitter.pm

@@ -16 +16 @@
 sub subcontext {undef}
 sub service { return (shift->{"service"} || "http://twitter.com"); }
+sub account { return shift->{"account"}; }
 sub long_sender {
     my $self = shift;
@@ -28 +29 @@
         return $self->replysendercmd;
     } elsif(exists($self->{status_id})) {
-        return 'twitter-atreply ' . $self->sender . " " . $self->{status_id};
+        return 'twitter-atreply ' . $self->sender . " " . $self->{status_id} . " " . $self->account;
     } else {
-        return 'twitter-atreply ' . $self->sender;
+        return 'twitter-atreply ' . $self->sender . " " . $self->account;
     }
 }
@@ -36 +37 @@
 sub replysendercmd {
     my $self = shift;
-    return 'twitter-direct ' . $self->sender;
+    return 'twitter-direct ' . $self->sender . " " . $self->account;
 }