LDRのpinをdel.icio.usに投げる

最近pinの管理がだるくなってきたのでメモ。

ログインからやらないとダメ。

WWW::Mechanize使わないとダメ。

$res = $mech->get('http://reader.livedoor.com/reader/');
$mech->submit_form(
    form_name => 'loginForm',
    fields =>{ livedoor_id => '<id>', password => '<pw>' }
);

$mech->post("pinのAPIのURL");

これでJSONで帰ってくる。

APIについて

これ公開APIってわけじゃないので、どっちかいうとGreaseMonkeyとか活用しろってことなんだと思う。
HTMLのソース見てればactionが/api/pin/allでPOSTしてるのでわかる、ってただそれだけのこと。