Changeset a0385ad3 for lib/BarnOwl/Module

Timestamp:

May 21, 2009, 4:51:34 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:

8496cc2

Parents:

d658c29

git-author:

Kevin Riggle <kevinr@free-dissociation.com> (05/19/09 22:54:48)

git-committer:

Nelson Elhage <nelhage@mit.edu> (05/21/09 16:51:34)

Message:

Preliminary support for other Twitter-compatible microblogging services, eg. identi.ca.

Adds an optional 'service' parameter to the configuration file, which points to the API
root URL (defaults to Twitter's).  Also adds optional 'apihost' and 'apirealm' parameters
for the domain name and port of the site to connect to, and the name of the API realm,
respectively (default to Twitters'; if service is not Twitter, attempt to guess sane
defaults).

File:

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

lib/BarnOwl/Module/Twitter.pm

@@ -94 +94 @@
 }
 
-$twitter  = Net::Twitter->new(username   => $cfg->{user} || $user,
-                              password   => $cfg->{password},
-                              source => 'barnowl');
+my $twitter_args = { username   => $cfg->{user} || $user,
+                     password   => $cfg->{password},
+                     source     => 'barnowl', 
+                   };
+if (defined $cfg->{service}) {
+    my $service = $cfg->{service};
+    $twitter_args->{apiurl} = $service;
+    my $apihost = $service;
+    $apihost =~ s/^\s*http:\/\///;
+    $apihost =~ s/\/.*$//;
+    $apihost .= ':80' unless $apihost =~ /:\d+$/;
+    $twitter_args->{apihost} = $cfg->{apihost} || $apihost;
+    my $apirealm = "Laconica API";
+    $twitter_args->{apirealm} = $cfg->{apirealm} || $apirealm;
+}
+
+$twitter  = Net::Twitter->new(%$twitter_args);
 
 if(!defined($twitter->verify_credentials())) {
@@ -189 +203 @@
                 location  => decode_entities($tweet->{user}{location}||""),
                 body      => decode_entities($tweet->{text}),
-                status_id => $tweet->{id}
+                status_id => $tweet->{id},
+                service   => $cfg->{service},
                );
             BarnOwl::queue_message($msg);
@@ -221 +236 @@
                 location  => decode_entities($tweet->{sender}{location}||""),
                 body      => decode_entities($tweet->{text}),
-                isprivate => 'true'
+                isprivate => 'true',
+                service   => $cfg->{service},
                );
             BarnOwl::queue_message($msg);
@@ -264 +280 @@
                 direction => 'out',
                 body      => $msg,
-                isprivate => 'true'
+                isprivate => 'true',
+                service   => $cfg->{service},
                );
             BarnOwl::queue_message($tweet);