RSS Pingの送信（XMLRPC::Lite）

RSS Ping送信サンプル

ブログ名、ブログURL、RSS URL、Ping先などを変更してご利用下さい。

#!/usr/bin/perl

use XMLRPC::Lite;

# ここを変更して下さい

$title = 'blog title';
$url = 'http://blogurl-hoge.jp/';
$rss = 'http://blogurl-hoge.jp/rss.xml';
$pingurl = 'http://rpc.reader.livedoor.com/ping';


$result = XMLRPC::Lite
 ->proxy($pingurl)
 ->call('weblogUpdates.extendedPing',
        $title, $url, $url, $rss);

print $pingurl;
print "\n";
print $result;
print "\n";

exit;