Weblogs.com Ping Gateway to はてなアンテナ

Movable Type などの Blog ツールは、Weblogs.Com などの Ping Server に更新を通知する機能を持っています。この更新通知は、Weblogs.Com Ping Specs にあるような XML-RPC の API を通じて行われており、日本では ping.bloggers.jp や MyBlog Japan などがこの XML-RPC Server の仕様を実装しています。

今回のレシピでは、この Ping Server を実装して、受けとった Ping を はてなアンテナ に更新通知するプロキシをつくってみます。

Weblogs.Com の XML-RPC Ping Spec は xmlrpc.com で解説されています(*1) 。

weblogUpdates.ping (weblogname, weblogurl) returns struct

To tell Weblogs.Com that a weblog has changed, call weblogUpdates.ping on rpc.weblogs.com, port 80, path /RPC2.

It takes two parameters, both strings. The first is the name of the weblog, the second is its URL.

We read the weblog to determine if it has changed, therefore the weblog must already be updated when you call weblogUpdates.ping.

It returns a struct that indicates success or failure. It has two elements, flerror and message. If flerror is false, it worked. If it's true, message contains an English-language description of the reason for the failure.

それ以外を整理すると、

サンプルコード

my $server = XMLRPC::Transport::HTTP::CGI
    ->dispatch_to('weblogUpdates')
    ->handle;

package weblogUpdates;

use LWP::Simple;
use URI::Escape;

my $HatenaURL;
BEGIN { $HatenaURL = "http://a.hatena.ne.jp/check?url=%s"; }

sub ping {
    my($class, $blog_name, $blog_url) = @_;
    my $api_url = sprintf $HatenaURL, uri_escape($blog_url);
    if (LWP::Simple::get($api_url)) {
        return { flerror => XMLRPC::Data->type(boolean => 0) };
    } else {
        return { flerror => XMLRPC::Data->type(boolean => 1),
                 message => "request failed." };
    }
}

はてなアンテナの更新通知については、http://a.hatena.ne.jp/check に記述がある API を使用しました。

更新通知用APIについて
※このページをはてなアンテナに対して能動的に更新を通知するためのAPIとして公開します。お使いの掲示板CGIなどで、ページ更新時にアクセスして頂くことで迅速な更新の反映が可能となります。
※アクセスURL http://a.hatena.ne.jp/check?url=チェックしたいページのエンコード済みURL

このスクリプト (ping_to_hatena) を CGI として動作させる URL (たとえば http://blog.example.com/ping_to_hatena) に設置し、Blog の Ping 通知先にその URL を記述すれば、Blog の更新をはてなアンテナに即座に反映させることができるというわけです。

Listings

#!/usr/local/bin/perl -w
# ping_to_hatena - Weblogs.Com Ping Server Gateway to Hatena Antenna

use strict;
use XMLRPC::Transport::HTTP;

my $server = XMLRPC::Transport::HTTP::CGI
    ->dispatch_to('weblogUpdates')
    ->handle;

package weblogUpdates;

use LWP::Simple;
use URI::Escape;

my $HatenaURL;
BEGIN { $HatenaURL = "http://a.hatena.ne.jp/check?url=%s"; }

sub ping {
    my($class, $blog_name, $blog_url) = @_;
    my $api_url = sprintf $HatenaURL, uri_escape($blog_url);
    if (LWP::Simple::get($api_url)) {
        return { flerror => XMLRPC::Data->type(boolean => 0) };
    } else {
        return { flerror => XMLRPC::Data->type(boolean => 1),
                 message => "request failed." };
    }
}

posted at: 05:29 by miyagawa | category: Weblogs.Com Pings | permalink
Trackback (4) | Printer Friendly | Email this blog