#!/usr/bin/perl #発表申し込み　入力確認ページ require "cgi-lib.pl"; &ReadParse; $bgcolor = "#FFFFFF"; #背景色 $fcolor="#000000"; #文字色 $align = "center"; print "Content-type: text/html\n\n"; print"SCCJ 秋季年会 \発\表\申\し込み内容の確認

\発\表\申\込内容の確認
 氏名 $in{'name'}
 氏名（フリガナ） $in{'name_furigana'}
 所属 $in{'company'}
 E-mail $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'}
    

"; $back="entry01backup.csv"; open(FILE, ">> $back") && flock(FILE,2); print FILE "$in{'name'},$in{'company'},$in{'email1'},$in{'theme'},$in{'presen'},$in{'gai'},$in{'shu'}\n"; close(FILE);