From 287b49c4c00ca9912cc78e2fd2f0cb98f5e6f292 Mon Sep 17 00:00:00 2001 From: mitty Date: Sat, 11 Sep 2010 03:49:29 +0000 Subject: [PATCH] * delete old style client * read configuration from YAML format file git-svn-id: https://lab.mitty.jp/svn/lab/trunk/twitter@46 7d2118f6-f56c-43e7-95a2-4bb3031d96e7 --- get_oauth.pl | 9 +++++++-- nt_bot.pl | 13 ++++++++----- twitbot.pl | 11 ----------- 3 files changed, 15 insertions(+), 18 deletions(-) delete mode 100755 twitbot.pl diff --git a/get_oauth.pl b/get_oauth.pl index 6f840ab..505d228 100755 --- a/get_oauth.pl +++ b/get_oauth.pl @@ -4,8 +4,13 @@ use warnings; use utf8; 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( traits => ['API::REST', 'OAuth'], diff --git a/nt_bot.pl b/nt_bot.pl index 3fec52e..623560b 100755 --- a/nt_bot.pl +++ b/nt_bot.pl @@ -4,10 +4,13 @@ use warnings; use utf8; use Net::Twitter; -my $consumer_key = 'CONSUMER_KEY'; -my $consumer_key_secret = 'CONSUMER_KEY_SECRET'; -my $access_token = 'ACCESS_TOKEN'; -my $access_token_secret = 'ACCESS_TOKEN_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( traits => ['API::REST', 'OAuth'], @@ -17,4 +20,4 @@ my $nt = Net::Twitter->new( $nt->access_token($access_token); $nt->access_token_secret($access_token_secret); -my $res = $nt->update({ status => "test tweet!" }); +my $res = $nt->update({ status => "Perl から Twiitter を更新するテストですよー" }); diff --git a/twitbot.pl b/twitbot.pl deleted file mode 100755 index b53c6dc..0000000 --- a/twitbot.pl +++ /dev/null @@ -1,11 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use YAML::Tiny; -use Net::Twitter; - -my $config = (YAML::Tiny->read('config.yml'))->[0]; -my $twit = Net::Twitter->new(username => $config->{'username'}, password => $config->{'password'}); - -$twit->update('Perl から Twiitter を更新するテストですよー'); -- 1.7.9.5