Changeset 46 in lab for trunk/twitter/get_oauth.pl

Timestamp:

Sep 11, 2010 12:49:29 PM (14 years ago)

Author:

mitty

Message:

• delete old style client
• read configuration from YAML format file

File:

• trunk/twitter/get_oauth.pl (modified) (1 diff)

trunk/twitter/get_oauth.pl

@@ -5 +5 @@
 use Net::Twitter;
 
-my $consumer_key = 'CONSUMER_KEY';
-my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
+use YAML::Tiny;
+my $config = (YAML::Tiny->read('config.yml'))->[0];
+
+my $consumer_key = $config->{'consumer_key'};
+my $consumer_key_secret = $config->{'consumer_key_secret'};
+my $access_token = $config->{'access_token'};
+my $access_token_secret = $config->{'access_token_secret'};
 
 my $nt = Net::Twitter->new(