しゃある通信

---

#06-04 [hack]weblogUpdates.pingしてみる
Bulkfeeds: Developer's API - RSS Directory & Search のRSS 登録/更新通知をするために「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