PerlでTwitter API SSL化に対応するたった1行
手元でTwitterの古いpostを削除するスクリプトをcron実行してるのですが、Twitter APIってSSLのみ対応になったのをすっかり放置してしまっていました。
cron実行に失敗してメール通知が来たので1週間くらい経ってようやく対応。
Net::Twitterを使っているのでバージョンを上げて、アプリ側では1行追加するだけ。
my $nt = Net::Twitter->new( traits => [qw/OAuth API::RESTv1_1/], consumer_key => $config->{consumer_key}, consumer_secret => $config->{consumer_secret}, access_token => $config->{access_token}, access_token_secret => $config->{access_token_secret}, ssl => 1, # ここを追加 ); if (!defined $nt) { die "Authentication Failed: $!"; }
無事動きました。