トラックバックピンを送ったら
#3. Error: Incorrect Hash.
とエラーメッセージが表示されて失敗してしまいました。
エラーメッセージの文面から考えると、コマンドラインの引数が合わないと予想されるんですが ・・・・
ソースを見てみました。
こんな具合です。
>>
if($ping_url =~ /\?/){
$req = HTTP::Request->new(GET => $ping_url .'&'.$arg);
}else{$req = HTTP::Request->new(POST => $ping_url);
$req->content_type('application/x-www-form-urlencoded');
$req->content ($arg);
}
my $res = $ua->request($req);
my($e, $msg) = $res->content =~ m!<error>(\d+).*<message>(.+?)</message>!s;
$e ? mes_out("Error: $msg") : mes_out("Ping OK.");
後でいろいろと調べてみるかと ・・・・