Trackback Pingの送信（Net::Trackback）

Trackback Ping送信サンプル

トラックバックURL、ブログURL、ブログ名、記事タイトルなどを変更してご利用下さい。

#!/usr/bin/perl

use Net::Trackback::Client;
use Net::Trackback::Ping;

$client = Net::Trackback::Client->new();

$ping = new Net::Trackback::Ping;

# 以下を変更してご利用下さい
$ping->ping_url('http://www.hogezzz.jp/tburl/0');
$ping->url('http://blog.xyz999.jp/entry/aaa.html');
$ping->blog_name('blog name');
$ping->title('entry title');
$ping->excerpt('entry description');

# Trackback pingを送信する
$msg = $client->send_ping($ping);

# 結果をXMLで表示する
print $msg->to_xml;

exit;

XMLで表示されるerrorが0であれば、トラックバックは成功です。 0以外の値である場合、トラックバックは失敗です。

最近はトラックバックスパムなどが非常に多いため、多くのブログではトラックバック要求に対して様々なチェックを行っています。 送信しているトラックバックの形式が正しくても、それらのチェックで却下される場合が多いのでご注意下さい。