#! c:/perl/bin/perl
#
# Copyright(c) 2003-2006 Hideki Kanayama, All rights reserved.
use Jcode;
if ($ENV{"REQUEST_METHOD"} eq "GET"){
$data=$ENV{"QUERY_STRING"};
$method = 'GET';
} elsif ($ENV{"REQUEST_METHOD"} eq "POST"){
read(STDIN,$data,$ENV{"CONTENT_LENGTH"});
$method = 'POST'
}
print "Content-Type: text/html\n\n";
$code = 'sjis';
if ($data ne ''){
($what,$value) = split(/=/,$data);
$value =~ s/%25/%/g;
$value =~ tr/+/ /;
$unpacked = $value;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($code,$match)= getcode($value);
}
%charset = (sjis, "Shift_JIS",
jis, "ISO-2022-JP",
euc, "EUC-JP",
utf8, "UTF-8",
ascii, "ISO-8859-1",
);
if ($code eq 'ascii'){
$backpage = 'Back to Top';
} elsif ($code ne '') {
$backpage = jcode('解説ページへ')->$code;
} else {
$backpage = jcode('解説ページへ')->utf8
}
print "\n";
print "\n";
print "\n";
print "$backpage\n";
print "
$unpacked = $value
\n" if ($value ne '');
print <
END
my $lang = 0;
my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
my $lastupdatedyear = 2006;
print "pack.cgi
\n";
print "\n";
print "\n";