#! /usr/bin/perl
require "cgi-lib.pl";
&ReadParse;
$bgcolor = "#FFFFFF";
$fcolor="#000000";
$align = "center";
$meibo="entry01.csv";
$href="/$in{'Subj'}/index.html";
open(FILE, ">> $meibo") && flock(FILE,2);
print FILE "$in{'name'},$in{'name_furigana'},$in{'company'},$in{'email1'},$in{'tel1'},$in{'tel2'},$in{'tel3'},$in{'telext'},$in{'zip_1'},$in{'zip_2'},$in{'addr'},$in{'theme'},$in{'presen'},$in{'gai'},$in{'shu'},$in{'comment'}\n";
close(FILE);
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print " 登録完了通知 \n";
print "\n";
print "
\n";
print " 登録完了\n";
print "";
print "";
sub error
{
print "Content-type: text/html\n\n";
print "\n";
print "
\n";
print "
\n";
print " @_ \n";
print "
\n";
print "トップページへ\n";
print "\n";
print "\n";
exit;
}