Changeset 8c6e2c1 for perl/modules

Timestamp:

Sep 8, 2010, 9:32:01 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

ad7cc2f

Parents:

2c5ee3e

Message:

Twitter: Allow users to specify their own consumer key/secret.

Location:

perl/modules/Twitter

Files:

• README (modified) (1 diff)
• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (2 diffs)

perl/modules/Twitter/README

@@ -117 +117 @@
     username, regardless of whether or not this account is following
     the sender. Has no effect if poll_for_tweets is false.
+
+* oauth_key, oauth_secret (strings, default barnowl's consumer credentials)
+    These are the OAuth consumer key and secret to use to negotiate an
+    OAuth connection to Twitter. These credentials must be enabled for
+    "xAuth".

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

@@ -65 +65 @@
         publish_tweets   => 0,
         show_mentions    => 1,
-        %$cfg
+        oauth_key        => BARNOWL_CONSUMER_KEY,
+        oauth_secret     => BARNOWL_CONSUMER_SECRET,
+        %$cfg,
        };
 
@@ -87 +89 @@
         $username = delete $twitter_args{username};
         $password = delete $twitter_args{password};
-        $twitter_args{consumer_key}    = BARNOWL_CONSUMER_KEY;
-        $twitter_args{consumer_secret} = BARNOWL_CONSUMER_SECRET;
+        $twitter_args{consumer_key}    = $cfg->{oauth_key};
+        $twitter_args{consumer_secret} = $cfg->{oauth_secret};
     } else {
         BarnOwl::error("Please upgrade your version of Net::Twitter::Lite to support xAuth.");