BlogPeopleへのping

BlogPeopleへ更新通知pingをローカルから発射すると弾かれる(多分登録されているURLから登録されているURLを送信しないとダメ？)ような気がするので、LWP::Simple使って直接更新通知URLを開いて通知してやることにしました。

#!/usr/local/bin/perl

use strict;

use LWP::Simple;

my $ping_url = "http://www.blogpeople.net/weblogUpdates.jsp?key=自分のサイトの登録key";

my $response = LWP::Simple::get($ping_url);

if (!$response) {
  print "Error: Server is busy or down.\n";
}

print "\n";

exit;

こんなんで。Bookmarkletとかメンドイ。はてなアンテナもこんなようなスクリプトで通知できます。

$ping_url = "http://a.hatena.ne.jp/check?url=自分のサイトのURL";

と変えてやるだけでOK。わざわざPerlスクリプトでやる利点はバッチファイルで複数の処理を一気にできるからということのみ。