RSS Pingを複数のURLに送信（XMLRPC::Lite）

RSS Ping送信サンプル

ブログ名、ブログURL、RSS URL、Ping先などを変更してご利用下さい。 Ping先を増やすには、@ping_urlにPing用URLを追加して下さい。

#!/usr/bin/perl

use XMLRPC::Lite;

#ここを変更して下さい
$title = 'blog title';
$url = 'http://blogurl-hoge.jp/';
$rss = 'http://blogurl-hoge.jp/rss.xml';

#ここを変更して下さい
@ping_url = (
    'http://rpc.reader.livedoor.com/ping',
    'http://www.bloglines.com/ping',
    'http://blogsearch.google.com/ping/RPC2',
    'http://blog.goo.ne.jp/xmlrpc.php',
    'http://rpc.technorati.jp/rpc/ping'
);

foreach $pingdest (@ping_url) {
  $result = XMLRPC::Lite
   ->proxy($pingdest)
   ->call('weblogUpdates.extendedPing',
          $title, $url, $url, $rss);

  print $pingdest;
  print "\n";
  print $result;
  print "\n=====\n";
}

exit;