Googleのブログ検索にPingを送る

Perl


Googleのブログ検索にPingを送る - GIGAZINE

APIも公開されているので誰かに全自動の方法を作って欲しいかも。


みてみたらただのweblogUpdates.extendedPingだった。


Perlならこれで。

use XMLRPC::Lite;
my $ping_url = 'http://blogsearch.google.com/ping/RPC2';
my $title = 'spiritlooseのはてなダイアリー';
my $url = 'http://d.hatena.ne.jp/spiritloose/';
my $rss = 'http://d.hatena.ne.jp/spiritloose/rss';
XMLRPC::Lite
 ->proxy($ping_url)
 ->call('weblogUpdates.extendedPing', $title, $url, $url, $rss);

REST版は

use URI;
use LWP::Simple;
my $uri = URI->new('http://blogsearch.google.com/ping');
$uri->query_form(
	name       => 'spiritlooseのはてなダイアリー',
	url        => 'http://d.hatena.ne.jp/spiritloose/',
	changesURL => 'http://d.hatena.ne.jp/spiritloose/rss',
);
get($uri);


でOK。

はてなダイアリーでも送ってくれないかな。