Changeset 8c6e2c1 for perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

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.

File:

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

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.");