Update Ping

20行のPerlスクリプトで誤魔化す。いちいち手動で送るわけで。

Myblog japanとか言うのが出来たらしい。日本のblogポータルということのようです。今のところは、pingはMovable Typeからのみとかなってるけど、XMLRPC::Liteを使って、

my $response = XMLRPC::Lite->proxy('http://ping.myblog.jp')
  ->call('weblogUpdates.ping',
    'blogのタイトル',
    'blogのURL',
    'blogの最新記事のURL',
    'blogのRSSのURL',
  )->result;

と、やってやればいけそうな気がする。誰か試して(ぉ。

書き忘れた。このスクリプトを使い始めたので、BlogRollingにpingを送るようになりました。それだけ。