#------------------------------------------------------
#  contactformチェック
#------------------------------------------------------
sub contactform{
	&get_contactform;
	&validate;
	if($errflg eq 0){
		&form_header;
		&chk_dsp_contactform;
		}
	else{
		&form_header;
		&err_dsp_contactform;
		}
	
}

#------------------------------------------------------
#  メール送信用
#------------------------------------------------------
sub mail_contactform{
	&get_contactform;
	&mail_dispform;
	&mail_sendform;
}

#------------------------------------------------------
#  変数 読み込み
#------------------------------------------------------
sub get_contactform{

	$a_shimei		= $in{'a_shimei'};		#お名前
	$b_furigana		= $in{'b_furigana'};		#フリガナ
	$g_yuubin		= $in{'g_yuubin'};		#郵便番号
	$c_tel			= $in{'c_tel'};			#電話番号
	$d_email		= $in{'d_email'};		#E-mailアドレス
	$e_question		= $in{'e_question'};		#お問い合わせ内容
	$f_doui			= $in{'f_doui'};		#個人情報の同意

}

#------------------------------------------------------
#  チェック用の画面
#------------------------------------------------------
sub chk_dsp_contactform{
	
print <<"EOF";
			<h3 class="Information">お問い合せフォーム　>　入力確認</h3>
			<form method="post" action="/cgi-bin/_form.cgi" id="entry" name="entry">
			<input type="hidden" id="stmode" name="stmode" value="send"/>
			<table class="contact">
				<tr>
					<th>お名前<span class="red">（必須）</span></th>
					<td>$a_shimei<input name="a_shimei" type="hidden" id="a_shimei" value=\"$a_shimei\" /></td>
				</tr>
				<tr>
					<th>フリガナ<span class="red">（必須）</span></th>
					<td>$b_furigana<input name="b_furigana" type="hidden" id="b_furigana" value=\"$b_furigana\" /></td>
				</tr>
				<tr>
					<th>郵便番号<span class="red">（必須）</span></th>
					<td>$g_yuubin<input name="g_yuubin" id="g_yuubin" type="hidden" value=\"$g_yuubin\" /></td>
				</tr>
				<tr>
					<td colspan="2"><span class="red">電話番号かE-mailアドレスどちらかを必ず入力して下さい。</span></td>
				</tr>
				<tr>
					<th>電話番号</th>
					<td>$c_tel<input name="c_tel" type="hidden" id="c_tel" value=\"$c_tel\" /></td>
				</tr>
				<tr>
					<th>E-mailアドレス</th>
					<td>$d_email<input name="d_email" type="hidden" id="d_email" value=\"$d_email\" /></td>
				</tr>
					<th>お問い合わせ内容<span class="red">（必須）</span></th>
					<td>$e_question<input name="e_question" type="hidden" id="e_question" value=\"$e_question\" ></td>
				<tr>
					<th>個人情報の取り扱いに<br />ついて <span class="red">（必須）</span></th>
					<td>$f_doui<input name="f_doui" type="hidden" id="f_doui" value=\"$f_doui\" /></td>
				</tr>
			</table>
			<p>以上の内容で良ければ、下の送信ボタンを押して下さい。<br />
			後日、担当者からご連絡致します。</p>
			<input type="submit" name="Submit" value="送信" onClick="return validate()" />
			</form>

EOF

  }
  
#------------------------------------------------------
#  エラー用の画面
#------------------------------------------------------
sub err_dsp_contactform{
  
	$k_team_shoukai =~ s/<br>//g; #エラーの場合、textareaにそのまま<br>タグが表示されるため


	print <<"EOF";
			<h3 class="Information">お問い合せフォーム　>　入力エラー</h3>
			<p class="red">※入力された内容が正しくありません。正しく入力して下さい。</p>
			<form method="post" action="/cgi-bin/_form.cgi" id="entry" name="entry">
			<input type="hidden" id="stmode" name="stmode" value="check"/>
			<table>
				<tr>
					<th>お名前<span class="red">（必須）</span></th>
					<td><p class="red">$erra_shimei</p><input name="a_shimei" id="a_shimei" type="text" size="20" onChange="return shimeiCheck(this)" value=\"$a_shimei\" />（例：船具太郎）</td>
				</tr>
				<tr>
					<th>フリガナ<span class="red">（必須）</span></th>
					<td><p class="red">$errb_furigana</p><input name="b_furigana" id="b_furigana" type="text" size="40" onChange="return shimeiKanaCheck(this)" value=\"$b_furigana\" />（例：セングタロウ）</td>
				</tr>
				<tr>
					<th>郵便番号<span class="red">（必須）</span></th>
					<td><p class="red">$errg_yuubin</p><input name="g_yuubin" id="g_yuubin" type="text" size="7" onChange="return yuubinNoCheck(this)" value=\"$g_yuubin\" />（例:8070806）</td>
				</tr>
				<tr>
					<td colspan="2"><span class="red">電話番号かE-mailアドレスどちらかを必ず入力して下さい。</span></td>
				</tr>
				<tr>
					<th>電話番号</th>
					<td><p class="red">$errc_tel</p><input name="c_tel" id="c_tel" type="text" size="20" onChange="return telCheck(this)" value=\"$c_tel\" />（例:0936934510）</td>
				</tr>
				<tr>
					<th>E-mailアドレス</th>
					<td><p class="red">$errd_email</p><input name="d_email" id="d_email" type="text" size="50" onChange="return mailAddressCheck(this)" value=\"$d_email\" /></td>
				</tr>
				<tr>
					<th>お問い合わせ内容<span class="red">（必須）</span></th>
					<td><p class="red">$erre_question</p><textarea name="e_question" id="e_question" cols="50" rows="15" onChange="return shitsumonCheck(this)">$e_question</textarea></td>
				</tr>
				<tr>
					<th>個人情報の取り扱いに<br />ついて <span class="red">（必須）</span></th>
					<td>
<div class="kojinjyouhou">
	<p class="text-right">株式会社シーコット<br />
		代\表\取\締\役社長&nbsp;中山&nbsp;信太郎</p>
	<p class="text-center font18 kojin-title">個人情報の取り扱いについて</p>
	<p class="kou font14">1. 個人情報の定義について</p>
	<p class="kou-naiyou">当ウェブサイトでの個人情報とは、当社が運営・管理するウェブサイトの ご利用に際し、ご利用者からご提供頂く氏名、電話番号、メールアドレス等、特定の個人を識別することのできる情報を言います。</p>
	<p class="kou font14">2. 個人情報の取得と使用目的について</p>
	<p class="kou-naiyou">個人情報の取得と利用の目的および活用範囲は以下の通りです。<br />
	・お問い合わせに対するご回答</p>
	<p class="kou font14">3. 個人情報の管理について</p>
	<p class="kou-naiyou">ご利用者からご提供頂いた個人情報は、ご利用者ご本人の同意を得ずに第三者に開示することは、原則いたしません。<br />
	提供先・提供情報内容を特定したうえで、ご利用の同意を得た場合に限り、開示します。<br />
	（法律の適用を受ける場合、法的効力のある要求は除きます。）</p>
	<p class="kou font14">4. 個人情報の照会・訂正・削除について</p>
	<p class="kou-naiyou">ご利用者ご本人が個人情報の照会・訂正・削除等を希望される場合は 直接当社にご連絡いただければ、適切に対応させていただきます。</p>
	<p class="kou font14">5. その他</p>
	<p class="kou-naiyou">当社のウェブサイトにリンクされている他のウェブサイトにおける ご利用者の個人情報の安全確保については、当社は責任を負いかねます。<br />
	当プライバシーポリシーはご利用者により安心してご利用いただくために 必要に応じて変更することがあります。</p>
	<p class="text-right">以上</p></div>
	<p class="error">$errf_doui</p>
EOF

	if($f_doui eq ""){
		print <<"EOF";
		<input type="checkbox" name="f_doui" id="f_doui" value="同意する" onClick="return kojin_chg()"><label for="l_kojin_doui">同意する<span class="red">*</span></label>
EOF

	}elsif($f_doui eq "同意する"){
		print <<"EOF";
		<input type="checkbox" name="f_doui" id="f_doui" value="同意する" checked onClick="return kojin_chg()"><label for="l_kojin_doui">同意する<span class="red">*</span></label>
EOF

	}
		print <<"EOF";

					</td>
				</tr>
			</table>
				
				
			<input type="submit" name="soushin" value="送信確認" onClick="return validate()" disabled="disabled"/>　<input type="button" value="リセット" onClick="return reset_form()" />
			</form>

EOF

}
  
#------------------------------------------------------
#  メール送信用の画面
#------------------------------------------------------
sub mail_dispform{
	
print <<"EOF";
		<h3 class="Information">お問い合せフォーム　>　送信完了</h3>
			<p>送信完了しました。
			お問い合わせありがとうございます。<br /><br />
			担当者よりご連絡させていただきますので、今しばらくお待ちください。</p>
			<p><a href="/ja/">株式会社シーコットトップページ</a>に戻る</p>

EOF
	
	&form_footer;
	
}

#------------------------------------------------------
#  メール送信
#------------------------------------------------------
sub mail_sendform{
	
$e_question =~ s/<br>/\n/g;

$message = <<"EOM";
-----------------------------------------------------------<br><br>
[ホームページからのお問い合わせ]<br><br>
お名前 : <br>$a_shimei<br><br>
フリガナ : <br>$b_furigana<br><br>
郵便番号 : <br>$g_yuubin<br><br>
電話番号 : <br>$c_tel<br><br>
E-mailアドレス : <br>$d_email<br><br>
お問い合わせ内容 : <br>$e_question<br><br>
個人情報の同意 : <br>$f_doui<br><br>

-----------------------------------------------------------
EOM

$henshin = <<"EOME";
$a_shimei様<br><br>
お問い合わせ有難う御座います。<br><br>
下記の内容でお問い合わせを受付致しました。<br><br>
後日、担当よりご連絡致しますので少々お待ちください。<br><br>
尚、お問い合わせの受付が深夜や休日の場合、ご連絡が遅くなる場合が御座いますので\予\めご了承下さいますようお願い\申\し上げます。<br><br>
-----------------------------------------------------------<br><br>
【お問い合わせ内容】
お名前 : <br>$a_shimei<br><br>
フリガナ : <br>$b_furigana<br><br>
郵便番号 : <br>$g_yuubin<br><br>
電話番号 : <br>$c_tel<br><br>
E-mailアドレス : <br>$d_email<br><br>
お問い合わせ内容 : <br>$e_question<br><br>
個人情報の同意 : <br>$f_doui<br><br>
-----------------------------------------------------------<br><br>
株式会社シーコット<br>
〒807-0806<br>
福岡県北九州市八幡西区御開3丁目32番1号<br>
TEL:093-693-4510<br>

EOME

	# デバッグ
	if ($debugFlg){
		print "$message";
		print "$e_question";
	}

	# 本文内容編集
	$message =~ s/<br>/\n/g;
	$message =~ s/<([^>]|\n)*>//g;
	$message =~ s/&lt;/</g;
	$message =~ s/&gt;/>/g;
	$message =~ s/&amp;/&/g;
	$message =~ s/&quot;/"/g;
	
	$henshin =~ s/<br>/\n/g;
	$henshin =~ s/<([^>]|\n)*>//g;
	$henshin =~ s/&lt;/</g;
	$henshin =~ s/&gt;/>/g;
	$henshin =~ s/&amp;/&/g;
	$henshin =~ s/&quot;/"/g;

	# メールタイトルを定義
	$mail_subject = "[ホームページからの問合せ]";
	$henshin_subject = "お問い合わせ受付致しました【株式会社シーコット】";

	# メールアドレスを定義
	$mailfrom = $address;
	
	# JISコード変換
	&jcode::convert(*$mail_subject, "jis");
	&jcode::convert(*$henshin_subject, "jis");
	&jcode::convert(*$message, "jis");
	&jcode::convert(*$henshin, "jis");

	#担当者へメール
	if ($sendmailFlg){
		open(MAIL, "| '$sendmail' -t -i -F'$mailfrom'") or &error("Mail Sending failure");
		print MAIL "From: " . $a_shimei . "\n";
		print MAIL "To: " . $mailfrom . "\n";
		print MAIL "Subject: " . $mail_subject . "\n";
		print MAIL $message;

		close(MAIL);
	}

	#お客様へ自動返信
	if ($sendmailFlg){
		open(MAIL, "| '$sendmail' -t -i -F'$mailfrom'") or &error("Mail Sending failure");
		print MAIL "From: " . $a_shimei . "\n";
		print MAIL "To: " . $d_email . "\n";
		print MAIL "Subject: " . $henshin_subject . "\n";
		print MAIL $henshin;

		close(MAIL);
	}
}

1;