はてブの Web Hook で Twitter を更新する

はてなブックマークの Web Hook というのがリリースされましたね！

(開発者さま向け) はてなブックマーク Web Hook 機能を公開しました - はてなブックマーク日記 - 機能変更、お知らせなど
はてなブックマーク Web Hookとは - はてなキーワード
これを設定しておくと、自分がはてブしたタイミングではてブ側から CGI 等を叩いてくれます。
CGI から様々なプログラムを起動するようにしておけば、あんなことやこんなことが可能になっちゃいますね＞＜
こ、これはすごい！
ということでさっそく、自分がはてブしたページの URL を Twitter に POST する CGI を書いてみた。

ご自由にお使いください

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;

use CGI;
use Net::Twitter;

my $req = CGI->new;
$req->charset('utf-8');

if ($req->param('key') ne 'API_PASSWORD') {
        die "Authentication failed";
}

my $url    = $req->param('url');
my $title = $req->param('title');
my $comment     = $req->param('comment');

Net::Twitter->new( username => "TWITTER_USER", password => "TWITTER_PASSWORD" )->update("[Hatena::B] $comment $url $title");

print header('text/plain');
print 'ok';

ご自由にお使いください