#!/usr/bin/perl
#発表申し込み CSV書き込みソース
require "cgi-lib.pl";
&ReadParse;
$bgcolor = "#FFFFFF"; #背景色の設定
$fcolor="#000000"; #文字色の設定
$meibo="entry01.csv"; #CSVファイル名の設定
$href="http://bigjohn.ce.fukui-nct.ac.jp/sccj2011au/index.html"; #戻る先のURL
$align = "center";
open(FILE, ">> $meibo") && flock(FILE,2);
print FILE "$in{'name'},$in{'name_furigana'},$in{'company'},$in{'email'},$in{'tel'},$in{'telext'},$in{'zip'},$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 " \発\表\申\し込みが完了しました。ありがとうございました。