#!/usr/local/bin/perl
# O.C.T.作ナリよ、一応。
require './jcodeLE.pl';
$| = 1;
&top_frame if $ENV{'QUERY_STRING'} eq 'enter';
$string = &decode;
$string2 = &jtoa($string);
$string2 = &atoj($string) if $string2 eq $string;
&output($string2);
exit;
sub top_frame {
print qq(Content-type: text/html\n\n);
print qq(日本語<->アルベド語変換);
print qq();
print qq();
print qq();
print qq();
exit;
}
sub decode {
my $buffer = $ENV{'QUERY_STRING'};
my @pairs = split(/&/,$buffer);
my($name2,$value);
my $string;
foreach $pair (@pairs) {
($name2, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis'); #'
$value =~ s/\t/ /g;
$value =~ s/変換結果\n);
print qq($string);
}
__END__