pingサーバーに更新pingを送信する方法
インターネットでpingサーバーに更新pingを送信する方法を調べておりましたところ、
以下のような方法が見つかりましたので、試してみました。
すると、たまに動作するのですが、たいていの場合は以下のエラーになります。
The script did not produce proper HTTP headers.
使用しておりますサーバーはコアサーバーです。
#!/usr/bin/perl
use XMLRPC::Lite;
my $name = "サイト名";
my $url = "http://www.hogehoge.net/";
#PING送信先########################################
my @ps = (
'http://pinghoge.jp/ping/',
'http://pinghogehoge.jp/ping/',
);
###################################################
foreach (@ps) {
my $result = eval {
XMLRPC::Lite
->proxy($_)
->call('weblogUpdates.ping', $name, $url)
->result;
}
}
エラーの解決方法など、おわかりになる方がおられましたら、ご教示を頂けますと幸いです。
どうぞ宜しくお願い申し上げます。
お礼
ご丁寧にありがとうございます 現地に見に行って確認ですね! すっかり考え忘れていることでした 有難う御座います