#!/usr/bin/perl

use Encode;
use MIME::Base64;

#Perl 5.8.5はUTF-8を使えるので、以下３ライブラリは使用しない
#require 'cgi-lib.pl';
#require 'jcode.pl';
#require 'mimew.pl';

#Perl 5.8.5だから使えないみたいです。 5.8.6以降だったらね
# use UTF-8
# encode('MIME-Header-ISO_2022_JP', );

################################################################################
# sendmailのパス
$SENDMAIL = "/usr/lib/sendmail";

# 問い合わせ選択肢
@qitems = ('お問い合わせ種別を選択してください', 'キャリア採用', 'パートナー募集', 'その他お問い合わせ', '商品説明依頼・見積依頼');

# ボタンテキスト　Form　CGI　に送られる　sendchk　の　Value
@buttonvalues = ('内容確認', '送信', '修正');

# 丸星からmailフォームのユーザーへmail送信する際のfrom　<>の文字列結合ができない何か方法あるんだろうけど[]を使う
$MAILFROM = 'info@maruboshi.co.jp';

# 丸星がmailフォームから問合せを受け取る際のメールのsubject
$SUBJECT = "お問い合わせ";

# mailフォームの名前で受け付ける最大文字数(byte数ではなく文字数)
$MAX_NAME_LENGTH = 128;

# mailフォームのフリガナで受け付ける最大文字数(byte数ではなく文字数)
$MAX_KANA_NAME_LENGTH = 128;

# mailフォームのメールアドレスで受け付ける最大文字数(byte数ではなく文字数)
$MAX_MAILADDRESS_LENGTH = 254;

# mailフォームのメールアドレスで受け付ける最大文字数(byte数ではなく文字数)
$MAX_INQUIRY_LENGTH = 1000;

#入力エラーフラグ初期化
$errorflg = "0";
$errorname1 = "";
$errorname2 = "";
$madderror = "";
$madderror2 = "";
$errorqkind = "";
$errorbikou = "";

$pagestatus = 0;
#問い合わせ種別初期化
$kindnum = 0;
$qname = "";

#送信されたデータを受け取る
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN, $alldata, $ENV{'CONTENT_LENGTH'});
} else {
  $alldata = $ENV{'QUERY_STRING'};
}
#引数分解
foreach $data (split(/&/, $alldata)) {
  ($key, $value) = split(/=/, $data);

  $value =~ s/\+/ /g;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg;
  $value =~ s/\t//g;

  $input{"$key"} = $value;
}

# 各ページのボタンの表示名で動作が変わるので、修正時注意！
if ($input{'sendchk'} ne "")
{
	#"内容確認"
	if ($input{'sendchk'} eq $buttonvalues[0]){
		$pagestatus = 1;
#	}elsif ($input{'sendchk'} eq "2"){
#		$pagestatus = 2;
#　　入力チェックでページ推移
	#"送信"
	}elsif ($input{'sendchk'} eq $buttonvalues[1]){
		$pagestatus = 3;
	#"修正"
	}elsif ($input{'sendchk'} eq $buttonvalues[2]){
		$pagestatus = 5;
		# errorflag 判定をスキップして入力画面に推移させる
	}

}
################################################################################
# HTML 出力
# Expires: Thu, 01 Dec 1994 16:00:00 GMT
################################################################################
#ヘッダー書き出し
print <<HTML00;
Content-type: text/html
Pragma: no-cache
Cache-Control: no-cache
Expires: -1

HTML00

################################################################################
# DEBUG COMMENT
# print 'TEST0099-'.$pagestatus; 
################################################################################

################################################################################
# 入力チェック
################################################################################
if (($pagestatus == 1) or ($pagestatus == 5)) {
	#お名前
	if($input{'inpname1'} eq ""){
		$errorname1 = "お名前を入力して下さい";
		$errorflg = "1";
	}
	elsif (length($input{'inpname1'}) >= $MAX_NAME_LENGTH) {
		$errorname1 = "お名前で入力可能な文字数は" . $MAX_NAME_LENGTH . "文字までです。";
		$errorflg = "1";
	}

	#フリガナ（カタカナ）
	if (length($input{'inpname2'}) >= $MAX_KANA_NAME_LENGTH) {
		$errorname2 = "フリガナ（カタカナ）で入力可能な文字数は" . $MAX_KANA_NAME_LENGTH . "文字までです。";
		$errorflg = "1";
	}

	#メールアドレス
	if($input{'madd'} eq ""){
		$madderror = "メールアドレスを入力してください";
		$errorflg = "1";
	}
	elsif (length($input{'madd'}) >= $MAX_MAILADDRESS_LENGTH) {
		$madderror = "メールアドレスで入力可能な文字数は" . $MAX_MAILADDRESS_LENGTH . "文字までです。";
		$errorflg = "1";
	}
	elsif(!isMailAddress($input{'madd'}) ) {
		$madderror = "メールアドレス入力に不足があります";
		$errorflg = "1";
	}
	
	#メールアドレス2
	if ($input{'madd2'} eq ""){
		$madderror2 = "メールアドレスを入力してください";
		$errorflg = "1";
	}
	elsif (length($input{'madd2'}) >= $MAX_MAILADDRESS_LENGTH) {
		$madderror2 = "メールアドレスで入力可能な文字数は" . $MAX_MAILADDRESS_LENGTH . "文字までです。";
		$errorflg = "1";
	}
	elsif (!isMailAddress($input{'madd2'})){
		$madderror2 = "メールアドレス入力に不足があります";
		$errorflg = "1";
	}
	elsif ($input{'madd'} ne $input{'madd2'}) {
		$madderror2 = "メールアドレスとメールアドレス（確認用）の入力内容が一致しません";
		$errorflg = "1";
	}

	#問い合わせ種別チェック
	if (($input{'qkind'} eq "") or ($input{'qkind'} < 1) or ($input{'qkind'} > 4)) {
		$errorqkind = $qitems[0]; #"お問い合わせ種別を選択してください";
		$errorflg = "1";
	}
	else {
		$kindnum = $input{'qkind'};
		#"キャリア採用", "パートナー募集", "その他お問い合わせ", "商品説明依頼・見積依頼";
		$qname = $qitems[$kindnum]; 
		#######################################
		# DEBUG COMMENT
		# print '<br />'.$qname;
	}

	#問い合わせ詳細
	if (($input{'bikou'} eq "") or (length($input{'bikou'}) < 1)) {
		$errorbikou = "お問い合わせ詳細を入力してください";
		$errorflg = "1";
	}
	elsif (length($input{'bikou'}) >= $MAX_INQUIRY_LENGTH) {
		$errorbikou = "文字数が" . $MAX_INQUIRY_LENGTH . "文字を超えています。<br>文字数を" . $MAX_INQUIRY_LENGTH . "文字以下に減らして再度送信をお願いします<br>";
		$errorbikou .= length($input{'bikou'}) . "文字書かれています</div>";
		$errorflg = "1";
	}

	if (($pagestatus == 1) and ($errorflg == "0"))
	{
		$pagestatus = 2;
	} else {
		#print '<br/>pagestatus 5 -> 1</br/>'; 
		$pagestatus = 1;
	}
}
################################################################################
# HTML ファイル本体出力
################################################################################
# ===================================================================
# 共通ヘッダ
# -------------------------------------------------------------------
print <<HTML00;
<!-- #HEADER01_START# -->
<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="utf-8">
<meta http-equiv="x-ua-compatible" content="IE=11;IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<link href="./css/whitebase.css" rel="stylesheet">
<title>お問い合わせフォーム 2018－丸星株式会社</title>
</head>
<body>
<div class="container">
<h1>お問い合わせフォーム</h1>
<form class="form-horizontal form-input" action="contact_form.cgi" method="post">
<div class="l-baseSection">
<div class="contact_step">
<ol class="c-form__steps">
<!-- #HEADER01_END# -->
<!-- #STEP_STATUS_START# -->
<!-- class="is-current" -->
<!-- class="is-checked" -->
HTML00

# -------------------------------------------------------------------
# ページ推移ステータス ー 入力 ー
# -------------------------------------------------------------------
if ($pagestatus < 2){
	print '<li class="is-current">';
} elsif ($pagestatus == 2){
	print '<li class="is-checked">';
} else { #pagestatus == 3
	print '<li class="is-checked">';
}

print <<HTML00;
<em>入力</em>
</li>
HTML00

# -------------------------------------------------------------------
# ページ推移ステータス ー 確認 ー
# -------------------------------------------------------------------
if ($pagestatus < 2){
	print '<li>';
} elsif ($pagestatus == 2){
	print '<li class="is-current">';
} else { #pagestatus == 3
	print '<li class="is-checked">';
}

print <<HTML00;
<em>確認</em>
</li>
HTML00

# -------------------------------------------------------------------
# ページ推移ステータス ー 完了 ー
# -------------------------------------------------------------------
if ($pagestatus < 2){
	print '<li>';
} elsif ($pagestatus == 2){
	print '<li>';
} else { #pagestatus == 3
	print '<li class="is-current">';
}

print <<HTML00;
<em>完了</em>
</li>
<!-- #STEP_STATUS_END# -->
<!-- #HEADER02_START# -->
</ol>
</div>
</div>
<!-- #HEADER02_END# -->
HTML00

# ===================================================================
# 内容 ー お問い合わせ種別
# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー ー 2 確認 ー
# -------------------------------------------------------------------
if ($pagestatus < 3)
{
print <<HTML00;
<!-- #INPUT&CHECK&CONFIRM_START# -->
<h2>内容</h2>
<hr>
<div class="form-group">
<div class="col-sm-1"></div>
<label class="col-sm-4 control-label" for="InputSelect" placeholder="$qitems[0]">
HTML00
}

# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー
# -------------------------------------------------------------------
if ($pagestatus < 2)
{
print <<HTML00;
<div class="label mustinput">
必須
</div>
HTML00
} 
# -------------------------------------------------------------------
#  ー 2 確認 ー
# -------------------------------------------------------------------
elsif ($pagestatus eq 2)
{
print <<HTML00;
<div class="label checkmark">
&nbsp;
</div>
HTML00
}

# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー ー 2 確認 ー
# -------------------------------------------------------------------
if ($pagestatus < 3)
{
print <<HTML00;
　お問い合わせ種別</label>
<div class="col-sm-5">
<!-- #INPUT&CHECK&CONFIRM_END# -->
HTML00
} 

# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー （問い合わせの種別ドロップダウンリスト）
# -------------------------------------------------------------------
if ($pagestatus < 2)
{
#　お問い合わせの種別を選択してください
print <<HTML00;
<!-- #INPUTSELECT_START# -->
<select name="qkind" class="form-control" id="InputSelect">
<option value="0">$qitems[0]</option>
HTML00

#　商品説明依頼・見積依頼
print '<option value="4"';
if ($kindnum == 4)
{
	print ' selected'; 
	#　チェック・修正入力時の選択状態
}
print '>'.$qitems[4].'</option>';

#　キャリア採用
print '<option value="1"';
if ($kindnum == 1)
{
	print ' selected';
}
print '>'.$qitems[1].'</option>';

#　パートナー募集
print '<option value="2"';
if ($kindnum == 2)
{
	print ' selected';
}
print '>'.$qitems[2].'</option>';

#　その他お問い合わせ
print '<option value="3"';
if ($kindnum == 3)
{
	print ' selected';
}
print '>'.$qitems[3].'</option>';

print <<HTML00;
</select>
<!-- #INPUTSELECT_END# -->
HTML00
}
# -------------------------------------------------------------------
#  ー 1 入力チェック ー ワーニング（問い合わせの種別ドロップダウンリスト）
# -------------------------------------------------------------------
if (($pagestatus == 1) and ($errorflg == "1") and ($errorqkind ne ""))
{
print <<HTML00;
<!-- #CHECKMESSAGE01_START# -->
<div class="label label-danger">$errorqkind</div>
<!-- #CHECKMESSAGE01_END# -->
HTML00
}
# -------------------------------------------------------------------
#  ー 2 確認 ー 問い合わせの種別ー選択結果
# -------------------------------------------------------------------
if ($pagestatus == 2)
{
print <<HTML00;
<!-- #CONFIRMITEM1_START# -->
<p class="well-sm">$qname</p>
<input name="qkind" value="$kindnum" type="hidden">
<!-- #CONFIRMITEM1_END# -->
HTML00
}
if ($pagestatus < 3)
{
print <<HTML00;
</div>
</div>
HTML00
}

# ===================================================================
# 内容 ー お問い合わせ詳細
# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー ー 2 確認 ー
# -------------------------------------------------------------------
if ($pagestatus < 3)
{
print <<HTML00;
<div class="form-group">
<div class="col-sm-1"></div>
<label class="col-sm-4 control-label" for="InputTextarea">
HTML00
}

if ($pagestatus < 2)
{
print <<HTML00;
<div class="label mustinput">
必須
</div>
HTML00
} 
elsif ($pagestatus eq 2)
{
print <<HTML00;
<div class="label checkmark">
&nbsp;
</div>
HTML00
}

if ($pagestatus < 3)
{
print <<HTML00;
　お問い合わせ詳細
<br>
<!--
<small>※キャリア採用・パートナー募集の場合は、必ず応募職種を明記のうえ、お問い合わせください。</small>
-->
<small>※キャリア採用に関するお問い合わせは、フォームを使わず、人事担当宛てにメールをお願いいたします。<br>
<a href="mailto:chihiro-takahashi@cmc.co.jp">丸星株式会社 人事担当</a></small>
</label>
<div class="col-sm-5">
HTML00
}

if ($pagestatus < 2)
{
print <<HTML00;
<!-- #INPUTITEM2_START# -->
<textarea name="bikou" placeholder="その他ご質問等ございましたらお気軽にご記入ください。" rows="5" class="form-control" id="InputTextarea">$input{'bikou'}</textarea>
<!-- #INPUTITEM2_END# -->
HTML00
}

if (($pagestatus == 1) and ($errorflg == "1")  and ($errorbikou ne ""))
{
print <<HTML00;
<!-- #CHECKMESSAGE02_START# -->
<div class="label label-danger">$errorbikou</div>
<!-- #CHECKMESSAGE02_END# -->
HTML00
}

if ($pagestatus == 2)
{
my $bikou =	enter2Br($input{'bikou'});
print <<HTML00;
<!-- #CONFIRMITEM2_START# -->
<p class="well-sm">$bikou</p>
<input name="bikou" value="$input{'bikou'}" type="hidden" />
<!-- #CONFIRMITEM2_END# -->
HTML00
}
if ($pagestatus < 3)
{
print <<HTML00;
</div>
</div>
HTML00
}

# ===================================================================
# 連絡先 ー お名前
# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー ー 2 確認 ー
# -------------------------------------------------------------------
if ($pagestatus < 3)
{
print <<HTML00;
<h2>連絡先</h2>
<hr>
<div class="form-group">
<div class="col-sm-1"></div>
<label class="col-sm-4 control-label" for="InputText">
HTML00
}

# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー
# -------------------------------------------------------------------
if ($pagestatus < 2)
{
print <<HTML00;
<div class="label mustinput">
必須
</div>
HTML00
} 
# -------------------------------------------------------------------
#  ー 2 確認 ー
# -------------------------------------------------------------------
elsif ($pagestatus eq 2)
{
print <<HTML00;
<div class="label checkmark">
&nbsp;
</div>
HTML00
}


if ($pagestatus < 3)
{
print <<HTML00;
　お名前</label>
<div class="col-sm-5">
HTML00
}

if ($pagestatus < 2)
{
print <<HTML00;
<!-- #INPUTITEM3_START# -->
<input type="text" class="form-control" name="inpname1" id="InputText" value="$input{'inpname1'}" placeholder="例：丸星　太郎" />
<!-- #INPUTITEM3_END# -->
HTML00
}

if (($pagestatus == 1) and ($errorflg == "1")  and ($errorname1 ne ""))
{
print <<HTML00;
<!-- #CHECKMESSAGE03_START# -->
<div class="label label-danger">$errorname1</div>
<!-- #CHECKMESSAGE03_END# -->
HTML00
}

if ($pagestatus == 2)
{
print <<HTML00;
<!-- #CONFIRMITEM3_START# -->
<p class="well-sm">$input{'inpname1'}</p>
<input name="inpname1" value="$input{'inpname1'}" type="hidden">
<!-- #CONFIRMITEM3_END# -->
HTML00
}

if ($pagestatus < 3)
{
print <<HTML00;
</div>
</div>
HTML00
}

# ===================================================================
# 連絡先 ー フリガナ（カタカナ）
# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー ー 2 確認 ー
# -------------------------------------------------------------------
if ($pagestatus < 3)
{
print <<HTML00;
<div class="form-group">
<div class="col-sm-1"></div>
<label class="col-sm-4 control-label" for="InputText">
HTML00
}

if ($pagestatus eq 2)
{
print <<HTML00;
<div class="label checkmark">
&nbsp;
</div>
HTML00
}


if ($pagestatus < 3)
{
print <<HTML00;
　フリガナ（カタカナ）</label>
<div class="col-sm-5">
HTML00
}

if ($pagestatus < 2)
{
print <<HTML00;
<!-- #INPUTITEM4_START# -->
<input type="text" class="form-control" name="inpname2" value="$input{'inpname2'}" id="InputText" placeholder="例：マルボシ タロウ">
<!-- #INPUTITEM4_END# -->
HTML00
}

if (($pagestatus == 1) and ($errorflg == "1")  and ($errorname2 ne ""))
{
print <<HTML00;
<!-- #CHECKMESSAGE04_START# -->
<div class="label label-danger">$errorname2</div>
<!-- #CHECKMESSAGE04_END# -->
HTML00
}

if ($pagestatus == 2)
{
print <<HTML00;
<!-- #CONFIRMITEM4_START# -->
<p class="well-sm">$input{'inpname2'}</p>
<input name="inpname2" value="$input{'inpname2'}" type="hidden">
<!-- #CONFIRMITEM4_END# -->
HTML00
}

if ($pagestatus < 3)
{
print <<HTML00;
</div>
</div>
HTML00
}

# ===================================================================
# 連絡先 ー メールアドレス
# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー ー 2 確認 ー
# -------------------------------------------------------------------
if ($pagestatus < 3)
{
print <<HTML00;
<div class="form-group">
<div class="col-sm-1"></div>
<label class="col-sm-4 control-label" for="Email">
HTML00
}

if ($pagestatus < 2)
{
print <<HTML00;
<div class="label mustinput">
必須
</div>
HTML00
} 
elsif ($pagestatus eq 2)
{
print <<HTML00;
<div class="label checkmark">
&nbsp;
</div>
HTML00
}


if ($pagestatus < 3)
{
print <<HTML00;
　メールアドレス</label>
<div class="col-sm-5">
HTML00
}

if ($pagestatus < 2)
{
print <<HTML00;
<!-- #INPUTITEM5_START# -->
<input type="text" class="form-control" name="madd" id="Email" value="$input{'madd'}"  placeholder="例：taro\@maruboshi.co.jp" />
<!-- #INPUTITEM5_END# -->
HTML00
}

if (($pagestatus == 1) and ($errorflg == "1")  and ($madderror ne ""))
{
print <<HTML00;
<!-- #CHECKMESSAGE05_START# -->
<div class="label label-danger">$madderror</div>
<!-- #CHECKMESSAGE05_END# -->
HTML00
}

if ($pagestatus == 2)
{
print <<HTML00;
<!-- #CONFIRMITEM5_START# -->
<p class="well-sm">$input{'madd'}</p>
<input name="madd" value="$input{'madd'}" type="hidden">
<!-- #CONFIRMITEM5_END# -->
HTML00
}

# ===================================================================
# 連絡先 ー メールアドレス（確認用）
# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー
# -------------------------------------------------------------------
if ($pagestatus < 2)
{
print <<HTML00;
</div>
</div>
<div class="form-group">
<div class="col-sm-1"></div>
<label class="col-sm-4 control-label" for="InputText">
<div class="label mustinput">必須</div>　メールアドレス（確認用）</label>
<div class="col-sm-5">
HTML00
}

if ($pagestatus < 2)
{
print <<HTML00;
<!-- #INPUTITEM6_START# -->
<input type="text" class="form-control" name="madd2" value="$input{'madd2'}" id="InputText" placeholder="例：taro\@maruboshi.co.jp">
<small>メールアドレスに誤りがないか確認するため、再度ご記入ください。</small>
<br>
<!-- #INPUTITEM6_END# -->
HTML00
}

if (($pagestatus == 1) and ($errorflg == "1")  and ($madderror2 ne ""))
{
print <<HTML00;
<!-- #CHECKMESSAGE06_START# -->
<div class="label label-danger">$madderror2</div>
<!-- #CHECKMESSAGE06_END# -->
HTML00
}

if ($pagestatus == 2)
{
print <<HTML00;
<!-- #CONFIRMITEM5_START# -->
<input name="madd2" value="$input{'madd2'}" type="hidden">
<!-- #CONFIRMITEM5_END# -->
HTML00
}
#print <<HTML00;
#<!-- #CONFIRMITEM5_START# -->
#<p class="well-sm">"$input{'madd2'}"</p>
#<input name="madd2" value="$input{'madd2'}" type="hidden">
#<!-- #CONFIRMITEM5_END# -->
#HTML00

if ($pagestatus < 3)
{
print <<HTML00;
<br>
</div>
</div>
HTML00
}

# ===================================================================
# 「内容確認」ボタン
#　<input type="hidden" name="sendchk" value="1">
#　各ページsendchkのvalueをボタンテキスト（内容確認）に変更
# -------------------------------------------------------------------
#  ー 0 初回 ー ー 1 入力 ー
# -------------------------------------------------------------------
if ($pagestatus < 2) 
{
print <<HTML00;
<!-- #INPUTBUTTON_START# -->
<div class="form-group">
<div class="col-sm-offset-4 col-sm-4">
<input name="sendchk" class="btn btn-block btn-xxl btn-custom center-block" value="$buttonvalues[0]" type="submit" />
</div>
<div class="col-sm-offset-4 col-sm-4">
<p> 入力内容をご確認の上、「$buttonvalues[0]」ボタンを押してください。</p>
</div>
</div>
<!-- #INPUTBUTTON_END# -->
HTML00
}

# ===================================================================
# 「送信」「修正」ボタン
#　<input type="hidden" name="sendchk" value="1">
#　各ページsendchkのvalueをボタンテキスト（送信,　修正）に変更
# -------------------------------------------------------------------
#  ー 2 確認 ー
# -------------------------------------------------------------------
if ($pagestatus == 2)
{
print <<HTML00;
<!-- #CONFIRMBUTTON_START# -->
<div class="form-group">
<div class="col-sm-offset-2 col-sm-4">
<input name="sendchk" class="btn-xxl btn btn-block btn-custom center-block" value="$buttonvalues[1]" type="submit" />
</div>
<div class="col-sm-4">
<input name="sendchk" class="btn-xxl btn btn-block btn-xxl btn-custom center-block" value="$buttonvalues[2]" type="submit" />
</div>
</div>
<!-- #CONFIRMBUTTON_END# -->
HTML00
}

# ===================================================================
# 問い合わせ完了ページ
# -------------------------------------------------------------------
#  ー 3 完了 ー
# -------------------------------------------------------------------
if ($pagestatus == 3)
{
##########################################
# 受付メール送信
responseMail();
##########################################

print <<HTML00;
<!-- #FINISH01_START# -->
<hr>
<h3>お問い合わせありがとうございました</h3>
<hr>
<div class="form-group">
<div class="col-sm-3">
担当者へのメール送信が完了いたしました。<br>
追って担当者からご連絡させていただきます。<br>
また、完了メールを
<!-- #FINISH01_END# -->
HTML00
}

if ($pagestatus == 3)
{
print <<HTML00;
<!--#YOURMAILADDRESS_START#-->
<div class="well-sm">$input{'madd'}</div>
<!--#YOURMAILADDRESS_END#-->
HTML00
}

if ($pagestatus == 3)
{
print <<HTML00;
<!-- #FINISH02_START# -->
までお送りさせていただきましたのでご確認ください。<br>
※完了メールが届かない場合は入力されたアドレスに不足もしくは<br>
弊社からの送信メールが迷惑メールに分類されている可能性があります。<br>
ご確認くださいますようお願いいたします。<br>                        
</div>
</div>
<!-- #FINISH02_END# -->
HTML00
}

print <<HTML00;
<!-- #FOOTER_START# -->
<div class="form-group form-privacy">
<div class="col-sm-3">
<p>お客さまの個人情報、お問い合わせいただいた内容は厳重に取扱い、プライバシー保護に努めます。
<br/>
<a href="http://www.maruboshi.co.jp/privacy_policy.html">プライバシーポリシーについて</a>
</p>
</div>
</div>
</form>
HTML00

print <<HTML00;
<div class="copyright">Copyright &copy; 2017 Maruboshi Co., Ltd. EST. 1954.</div>
</div>
</body>
</html>
<!-- #FOOTER_END# -->
HTML00

exit 0;

sub escape {
	my $str = shift;
	my $tmp;

	$tmp = $str;

	$tmp =~ s/\r\n|\n\r/\n/g;
	$tmp =~ s/\r/\n/g;
	$tmp =~ s/\&/&amp;/g;
	$tmp =~ s/\</&lt;/g;
	$tmp =~ s/\>/&gt;/g;
	$tmp =~ s/\"/&quot;/g;
	$tmp =~ s/\'/&apos;/g;

	$str = $tmp;
	return $str;
}

sub enter2Br {
	my $str = shift;
	my $tmp;

	$tmp = $str;
	$tmp =~ s/\n/<br \/>\n/g;
	$str = $tmp;
	return $str;
}

sub isMailAddress {
  my $str = shift || return(undef);

  #-- メールアドレスか --#
  if( $str =~ /^([a-zA-Z0-9\.\-\+\/_]{1,})@([a-zA-Z0-9\.\-\/_]{1,})\.([a-zA-Z0-9\.\-\/_]{1,})$/ ){
    return(1);
  }
  #-- メールアドレスではないか --#
  else{
    return(0);
  }
}

################################################################################
# 受付メール
################################################################################
sub responseMail {
# ===================================================================
# 訪問入力者返信メール
# -------------------------------------------------------------------

#　送信先（訪問入力者）アドレス
my $mailto01 = '=?utf-8?B?' . encode_base64($input{'inpname1'}, "") . '?= <' . $input{'madd'} . '>';

#　メール件名
my $subject01 = '=?utf-8?B?' . encode_base64($SUBJECT . '受付完了', "") . '?=';

# 送信元
my $mailfrom01 = '=?utf-8?B?' . encode_base64('丸星株式会社[Web]', "") . '?= <' . $MAILFROM . '>';

#　動作確認後メール送信履歴としてBCCを追加
#　BCC: $mailfrom01
my $ResponseHeader = <<MAIL00;
To: $mailto01
From: $mailfrom01
Subject: $subject01
Mime-Version: 1.0
Content-type: text/plain; charset=UTF-8
Content-Transfer-Encoding: base64

MAIL00

my $ResponseBody = <<MAIL00;
丸星株式会社ホームページからのお問い合わせを受付させていただきました。
追って担当者から連絡、または資料を送付いたしますので
もうしばらくお待ちくださいますようお願いいたします。
この度は、お問い合わせありがとうございました。

このメールにお心当たりが無い場合は
お手数ですが当メールは破棄くださいますようお願いいたします。

--------------------------------------------------
 〒104-0061
 東京都中央区銀座 3-11-9
 丸星株式会社
 Tel  03-4213-9800 (代)
 Fax  03-4213-9801
--------------------------------------------------

MAIL00

$ResponseBody = encode_base64($ResponseBody, "");

open(MAIL, "| $SENDMAIL -i -t -f $MAILFROM") or die("ERROR: exec sendmail.");
print MAIL $ResponseHeader,
$ResponseBody;
close MAIL;

# ===================================================================
# 担当者受付メール
# -------------------------------------------------------------------
# キャリア採用 問合せ受信メールアドレス
#my $CAREER_TO_MAILADDRESS = 'k-mori@man.cmc.co.jp, info@maruboshi.co.jp, safe.bcp.maruboshi@gmail.com';
# パートナー募集 問合せ受信メールアドレス
#my $PARTNER_TO_MAILADDRESS = 'info@maruboshi.co.jp, safe.bcp.maruboshi@gmail.com';
# その他お問い合わせ 問合せ受信メールアドレス
#my $ETC_TO_MAILADDRESS = 'info@maruboshi.co.jp, safe.bcp.maruboshi@gmail.com';
# 商品説明依頼・見積依頼 問合せ受信メールアドレス
#my $SALES_TO_MAILADDRESS = 'taguchi@maruboshi.co.jp, info@maruboshi.co.jp, safe.bcp.maruboshi@gmail.com';

@receiptions = ('info@maruboshi.co.jp', 'info@maruboshi.co.jp', 'y-honda@maruboshi.co.jp, taguchi@maruboshi.co.jp, k-oikawa@maruboshi.co.jp, info@maruboshi.co.jp');
#@receiptions = ('mig11.local.master+akaishi@gmail.com', 'mig11.local.master+info@gmail.com', 'mig11.local.master+taguchi@gmail.com');

# CC
my $cc_address = 'ta-ando@maruboshi.co.jp, t-inoue@maruboshi.co.jp';
#my $cc_address = 'mig11.local.master+cc@gmail.com';

# お問い合わせ種別
my $kind_nbr = $input{'qkind'};

# お問い合わせ種別担当者メールアドレス
if ($kind_nbr == 1)
{
# キャリア採用 問合せ受信メールアドレス
	$mailto01 = $receiptions[0];
} 
elsif ($kind_nbr == 2)
{
# パートナー募集 問合せ受信メールアドレス
	$mailto01 = $receiptions[1];
}
elsif ($kind_nbr == 3)
{
# その他お問い合わせ 問合せ受信メールアドレス
	$mailto01 = $receiptions[1];
}
elsif ($kind_nbr == 4)
{
# 商品説明依頼・見積依頼 問合せ受信メールアドレス
	$mailto01 = $receiptions[2];;
}

#my $subject00 = encode('MIME-Header', 'ホームページに問い合わせがありました');
$subject01 = '=?utf-8?B?' . encode_base64('ホームページに問い合わせがありました', "") . '?=';

$ResponseHeader = <<MAIL00;
To: $mailto01
Cc: $cc_address
From: $mailfrom01
Subject: $subject01
Content-type: text/plain; charset=UTF-8
Content-Transfer-Encoding: base64

MAIL00

$ResponseBody = <<MAIL00;
--------------------------------------------------
お名前 : $input{'inpname1'}
フリガナ（カタカナ）: $input{'inpname2'}
メールアドレス : $input{'madd'}
--------------------------------------------------
お問い合わせ種別 : $qitems[$kind_nbr]
--------------------------------------------------
$input{'bikou'}
--------------------------------------------------

MAIL00

$ResponseBody = encode_base64($ResponseBody, "");

open(MAIL, "| $SENDMAIL -i -t -f $MAILFROM") or die("ERROR: exec sendmail.");
print MAIL $ResponseHeader,
$ResponseBody;
close MAIL;
}