しゃある通信

#06-04 [hack]weblogUpdates.pingしてみる
Bulkfeeds: Developer's API - RSS Directory & SearchRSS 登録/更新通知をするために「Perlモジュール/Net::TrackBack - Track Backの送受信を行うためのPerlモジュール。」を利用して weblogUpdates.ping してみるようにしてみた。

スクリプトはこんな感じで。

use Jcode;
use Net::TrackBack;

$pageuri = 'http://sharl.hauN.org/d/';
$pagetitle = 'しゃある通信';

$data{ping_url}  = 'http://bulkfeeds.net/rpc';
$data{url}       = $pageuri;
$data{blog_name} = jcode($pagetitle)->utf8;

my $p = new Net::TrackBack;
$p->send_ping(\%data);
if ($p->is_success) {
    print $p->message ."\n";
}
表紙生成時に送るようにMakefileに書いておしまい。



マクロミルへ登録

© 2005 Kazuya 'Sharl' Masuda
(C)Willoo Entertainment Inc. (C)Konami Digital Entertainment 株式会社ウィローエンターテイメント及び株式会社コナミデジタルエンタテインメントの著作権を侵害する行為は禁止されています。 0.038317 cached