#!/usr/local/bin/perl

print "Content-Type: text/html; Charset=euc-jp\n";
print "\n";

use Jcode;

$QUERY_STRING = $ENV{'QUERY_STRING'};

@Fields_Data = split(/&/, $QUERY_STRING);

foreach $Field_Data ( @Fields_Data ) {
	($Name, $Value) = split(/=/, $Field_Data);
	$Value =~ tr/+/ /;
	$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	Jcode::convert(\$Value, 'ujis', 'utf8');
	$_GET{$Name} = $Value;
}

if ( $_GET{'value'} eq '送信' ) {
	$ujis = '送信を受信しました';
}

print $ujis;