#!/usr/local/bin/perl

require './jcode.pl';
$req_method = $ENV{'REQUEST_METHOD'};

$htmlfile = "/home/htdocs/hikkosi/thanks.htm";

($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$year += 1900;
$month = ($mon + 1);

if ($req_method eq "GET") {
	$form_info = $ENV{'QUERY_STRING'};
} elsif ($req_method eq "POST") {
	$formsize = $ENV{'CONTENT_LENGTH'};
	read (STDIN,$form_info,$formsize);
}

$value = $form_info;
@form_data = split(/&/,$form_info);
foreach $pair (@form_data) {
	($form_name,$value) = split(/=/,$pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	$code = &jcode'convert(*value,'jis');
	$FORM{$form_name} = $value;
}

	&yurikoMailForm;
	&ResaultHtml;
exit(0);

sub yurikoMailForm {
	open(MAIL,"|mail hikkosi\@esaka.co.jp");
	print MAIL "\n$FORM{'subject'}\n\n";
	print MAIL "$FORM{'sendedtime'} $year$FORM{'idnen'} $month$FORM{'idtuki'} $mday$FORM{'idhi'} $hour$FORM{'ji'} $min$FORM{'fun'}\n\n";
	print MAIL <<EofMailFormat;

$FORM{'idno1'} = $FORM{'no1'}
$FORM{'idmaisuu1'} = $FORM{'maisuu1'}
$FORM{'idgreeting1'} = $FORM{'greeting1'}\n
$FORM{'idno2'} = $FORM{'no2'}
$FORM{'idmaisuu2'} = $FORM{'maisuu2'}
$FORM{'idgreeting2'} = $FORM{'greeting2'}\n
$FORM{'idno3'} = $FORM{'no3'}
$FORM{'idmaisuu3'} = $FORM{'maisuu3'}
$FORM{'idgreeting3'} = $FORM{'greeting3'}\n

$FORM{'subject3'} 
$FORM{'idzip'} = $FORM{'zip2'}
$FORM{'idpre'} = $FORM{'pre2'}
$FORM{'idadd'} = $FORM{'add2'}
$FORM{'idaddfri'} = $FORM{'addfri2'}
$FORM{'idtell'} = $FORM{'tell2'}
$FORM{'idfax'} = $FORM{'fax'}
$FORM{'idmail'} = $FORM{'mail2'}\n

$FORM{'idname'}:$FORM{'idnamefri'}
$FORM{'name2'}:$FORM{'namefri2'}
$FORM{'name3'}:$FORM{'namefri3'}
$FORM{'name4'}:$FORM{'namefri4'}
$FORM{'name5'}:$FORM{'namefri5'}
$FORM{'name6'}:$FORM{'namefri6'}
$FORM{'name7'}:$FORM{'namefri7'}

$FORM{'idhidukekibou'} = $FORM{'hidukekibou'}
$FORM{'hikkosibi'}
$FORM{'nen2'}$FORM{'idnen'}$FORM{'tuki2'}$FORM{'idtuki'}$FORM{'hi2'}$FORM{'idhi'}
$FORM{'idmassage'} = $FORM{'massage'}

$FORM{'subject2'}  
$FORM{'idpre'} = $FORM{'pre1'}
$FORM{'idadd'} = $FORM{'add1'}
$FORM{'idname'} = $FORM{'name1'}
$FORM{'idtell'} = $FORM{'tell1'}
$FORM{'idotodoke'}

$FORM{'nen'}$FORM{'idnen'}$FORM{'tuki'}$FORM{'idtuki'}$FORM{'hi'}$FORM{'idhi'}
$FORM{'idtime'} = $FORM{'time'}\n\n

EofMailFormat
	close(MAIL);
}
sub ResaultHtml {
	open (IN,$htmlfile) || die "Cannot open $htmlfile for reading\n";
	print "Content-type: text/html\n\n";
	while(<IN>) { print$_; }
	close(IN);
}