Changeset 7aa1fa5 for perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

Timestamp:

Nov 26, 2010, 4:59:22 AM (14 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

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

Children:

2ff0693

Parents:

b31f1c9

git-author:

Nelson Elhage <nelhage@MIT.EDU> (11/07/10 08:30:32)

git-committer:

David Benjamin <davidben@mit.edu> (11/26/10 04:59:22)

Message:

Download Twitter consumer keys from barnowl.mit.edu

[davidben@mit.edu: Fetch keys lazily in case Twitter is not configured.]
Reviewed-by: Anders Kaseorg <andersk@mit.edu>

File:

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

perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

@@ -31 +31 @@
 use POSIX qw(asctime);
 
-use constant BARNOWL_CONSUMER_KEY    => "9Py27vCQl6uB5V7ijmp31A";
-use constant BARNOWL_CONSUMER_SECRET => "GLhheSim8P5cVuk9FTM99KTEgWLW0LGl7gf54QWfg";
+use LWP::UserAgent;
+use URI;
+use JSON;
+
+use constant CONSUMER_KEY_URI => 'http://barnowl.mit.edu/twitter-keys';
+our $oauth_keys;
+
+sub fetch_keys {
+    my $ua = LWP::UserAgent->new;
+    $ua->timeout(5);
+    my $response = $ua->get(CONSUMER_KEY_URI);
+    if ($response->is_success) {
+        $oauth_keys = eval { from_json($response->decoded_content) };
+    } else {
+        warn "[Twitter] Unable to download OAuth keys: $response->status_line\n";
+    }
+}
 
 sub fail {
@@ -57 +72 @@
         $cfg->{show_mentions} = $val;
     }
+
+
+    if (!defined($oauth_keys)) {
+        fetch_keys();
+    }
+    my $keys = $oauth_keys->{URI->new($cfg->{service})->canonical} || {};
 
     $cfg = {
@@ -65 +86 @@
         publish_tweets   => 0,
         show_mentions    => 1,
-        oauth_key        => BARNOWL_CONSUMER_KEY,
-        oauth_secret     => BARNOWL_CONSUMER_SECRET,
+        oauth_key        => $keys->{oauth_key},
+        oauth_secret     => $keys->{oauth_secret},
         %$cfg,
        };