#!/usr/local/bin/perl --
use Jcode;
use Net::TrackBack;
require 'cgi-lib.pl';
&ReadParse(*input);
$p=new Net::TrackBack;
if ($ENV{'REQUEST_METHOD'} eq "POST" and $input{send}){
$data{ping_url}=$input{ping_url};
$data{title}=$input{title};
$data{url}=$input{url};
$data{excerpt}=$input{excerpt};
$data{blog_name}=$input{blog_name};
$data{charset}=$input{charset};
$p->send_ping(\%data);
if ($p->is_success) { $result= "A SUCCESS!\n"; }
elsif ($p->is_error) { $result="A FAILURE.\n". $p->message ."\n"; }
}
unless($input{ping_url}){
@ping=$p->discover($input{entry});
$input{ping_url}=$ping[0];
}
my $title=Jcode::convert($input{title},"euc",Jcode::getcode($input{title}));
my $excerpt=Jcode::convert($input{excerpt},"euc",Jcode::getcode($input{excerpt}));
my $blog_name=Jcode::convert($input{blog_name},"euc",Jcode::getcode($input{blog_name}));
print "Content-Type: text/html;\n\n";
print << "HTML";
trackback sender
トラックバックは送るとこちらからは訂正できません。
記入事項がただしいかどうか確認してから送ってください。
とくに、相手記事のトラックバック用urlは間違えないでください。
*がついているのは必須項目です。
$result
HTML