和6年能登半島地震により亡くなられた方々のご冥福をお祈りするとともに、被害に遭われた皆さまに対し、心よりお見舞い申し上げます。一日も早く被災地の安全が確保され、復旧が進む事を心よりお祈り申し上げます。

IRLP tweeting with perl メモ

Yahoo GroupsのIRLP Communicationsからperl で書かれたプログラムを入手。

早速、動かしてみる。 http://twitter.com/Yumidon
Net-Twitter-Liteをインストール

# perl -MCPAN -e shell
cpan> install Net::Twitter::Lite

TwitterのOAuth申請を行う<
Consumer Key、Consumer Secretが発行されるのでφ(..)メモメモ
PINコード、Access TokenとAccess Token Secretを取得するための
get_irlptweet_oauth.plを書いてみた。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Net::Twitter::Lite;

my $consumer_key = '******';
my $consumer_key_secret = '******';
my $nt = Net::Twitter::Lite->new(
traits => ['API::REST', 'OAuth'],
consumer_key => $consumer_key,
consumer_secret => $consumer_key_secret,
);
print 'access this url by IRLP-Tweet account : '.$nt->get_authorization_url."\n";
print 'input verifier PIN : ';
my $verifier = ;
chomp $verifier;
my $token = $nt->request_token;
my $token_secret = $nt->request_token_secret;
$nt->request_token($token);
$nt->request_token_secret($token_secret);
my($at, $ats) = $nt->request_access_token(verifier => $verifier);
print "Access token : ".$at."\n";
print "Access token secret : ".$ats."\n";

IRLPサーバでPHPを動かし、リクエストトークンを取得し Twitter の承認画面へリダイレクするまでができれば、このconsumer_keyとconsumer_key_secretで他のIRLPサーバでもTweet可能になるのだろうか?
OAuth認証はクリアできてもTwitteするIRLPサーバの環境はやはりperl が必要となる。

かなり悩むが解決できず、本日はこれまで。

コメント