Google Blog Search に ping を送る Perl スクリプト

  Google Blog Search に ping を送ることができるようになったらしいので，XMLRPC::Lite を使って ping を送るスクリプトを書いてみました．

#!/usr/local/bin/perl

use strict;
use warnings;
use XMLRPC::Lite;

our $endpoint = 'http://blogsearch.google.com/ping/RPC2';

my @parameters = (
    'cl.pocari.org',
    'http://cl.pocari.org/',
    'http://cl.pocari.org/',
    'http://cl.pocari.org/cl.rdf',
);

my $result = XMLRPC::Lite
    -> proxy($endpoint)
    -> call('weblogUpdates.extendedPing', @parameters)
    -> result;

print qq/$result->{message}($result->{flerror})\n/;

  Movable Type だと「更新Ping/トラックバックの設定」に http://blogsearch.google.com/ping/RPC2 を追加すれば OK っぽいです．
  では，これは何かというと，手動で ping を送る必要のある chalower 向けだったりします．

  ちなみに，ちゃんと ping が送られたかは http://blogsearch.google.com/changes.xml にアクセスすればわかります．
  でも，XML のパースエラーでブラウザで表示できないときもあります．
  その場合は，wget とかで取得して確認してみてください．

- ref.: Got blog? Will ping.
  http://googleblog.blogspot.com/2006/10/got-blog-will-ping.html

- ref.: About Google Blog Search Pinging Service API
  http://www.google.com/help/blogsearch/pinging_API.html

- ref.: Google Blog Search Help
  http://www.google.com/help/blogsearch/about_pinging.html