require "cgi-lib.pl";
require "jcode.pl";
&ReadParse;
print "Content-type: text/html\n\n";
print "\n\n";
print "ありがとうございました\n";
print "\n\n";
print "ありがとうございました
\n\n";
$name=$in{'name'};
$adrs=$in{'adrs'};
$tel=$in{'tel'};
$number=$in{'number'};
$year=$in{'year'};
$month=$in{'month'};
$day1=$in{'day1'};
$comment=$in{'comment'};
&jcode'convert(*adrs,"sjis");
&jcode'convert(*name,"sjis");
&jcode'convert(*tel,"sjis");
&jcode'convert(*comment,"sjis");
open(IN,">>cache/bosyuu.txt");
print IN "------募集------\n";
print IN "氏名：$name\n";
print IN "住所：$adrs\n";
print IN "$year\n";
print IN "$month\n";
print IN "$day1\n";
print IN "$which\n";
print IN "pr\n";
print IN "$comment\n";
close(IN);
print "\n\n";