Google Blog Search に ping を送る Perl スクリプト
2006-10-10-2: [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