#!/usr/bin/perl

# フォームメール (メール送信プログラム)
# charcode = SJIS

require '../tool.pl';

#print "Content-type: text/html\n\nDBG:";

# ==============================
$m_CGI = 'request.cgi';

$m_MailTo = 'bcs@taiseikan.net';
#$m_MailTo = 'torisawa@act-system.com';
$m_MailSubject = '[ボディケアスクール 資料請求]';

$m_NewHtml = 'new.html';
$m_CheckHtml = 'check.html';
$m_ThanksHtml = 'thanks.html';
$m_MailText = 'mail.txt';
# ==============================

$w_ERROR_MESSAGE = '';

%FORM = &GetForm();
%COOKIE = &GetCookie();

$FORM{'CGI'} = $m_CGI;

if (exists $FORM{'-Check'})
{
	&check();
}
elsif (exists $FORM{'-Send'})
{
	&send();
}
#elsif (exists $FORM{'-Edit'})
else
{
	&edit();
}

exit;

# _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

# ==============================
# 編集
sub edit
{
	# ===メッセージ改行変換
	$FORM{'Message'} =~ s/<BR>/\n/g;

	$FORM{'ERROR_MESSAGE'} = "<UL>$w_ERROR_MESSAGE</UL>" if ($w_ERROR_MESSAGE);
	$FORM{'Name'} = $COOKIE{'Name'} unless ($FORM{'Name'});
	$FORM{'Email'} = $COOKIE{'Email'} unless ($FORM{'Email'});

	&setAddress1();
	&setBirth1();
	&setBirth2();
	&setBirth3();
	&setQ1();

	print "Content-type: text/html\n\n";
	&InsPrint($m_NewHtml, '-', %FORM);
}

# ==============================
# チェック
sub check
{
	# ===メッセージ改行変換
	$FORM{'Message'} =~ s/\n/<BR>/g;

	# 資料
#	$FORM{'check1On'} = 'checked' if ($FORM{'Check1'});
#	$FORM{'check2On'} = 'checked' if ($FORM{'Check2'});

	# 性別
	if ($FORM{'Sex'} eq 'male')
	{
		$FORM{'rdoSexMaleOn'} = 'checked';
		$FORM{'SexText'} = '男性';
	}
	elsif ($FORM{'Sex'} eq 'female')
	{
		$FORM{'rdoSexFemaleOn'} = 'checked';
		$FORM{'SexText'} = '女性';
	}


	# ===入力チェック
	# =名前
	unless ($FORM{'Name'})
	{
		$w_ERROR_MESSAGE .= '<LI>名前が未入力です。';
	}

	# =メール
#	unless ($FORM{'Email'})
#	{
#		$w_ERROR_MESSAGE .= '<LI>メールアドレスが未入力です。';
#	}
#	else
#	{
#		unless (&isEmailAddr($FORM{'Email'}))
#		{
#			$w_ERROR_MESSAGE .= '<LI>メールアドレスに誤りがあります。確認して下さい。';
#		}
#	}

	# =メッセージ
#	unless ($FORM{'Message'})
#	{
#		$w_ERROR_MESSAGE .= '<LI>メッセージが未入力です。何かメッセージを入力して下さい。';
#	}

	# =資料請求
#	unless ($FORM{'Check1'} || $FORM{'Check2'})
#	{
#		$w_ERROR_MESSAGE .= '<LI>資料請求が未入力です。';
#	}

	# =郵便番号
	unless ($FORM{'Zip1'} || $FORM{'Zip2'})
	{
		$w_ERROR_MESSAGE .= '<LI>郵便番号が未入力です。';
	}

	# =住所
	unless ($FORM{'Address1'} || $FORM{'Address2'} || $FORM{'Address3'})
	{
		$w_ERROR_MESSAGE .= '<LI>住所が未入力です。';
	}

	# =電話番号
	unless ($FORM{'Tel1'} || $FORM{'Tel2'} || $FORM{'Tel3'})
	{
		$w_ERROR_MESSAGE .= '<LI>電話番号が未入力です。';
	}

	# =生年月日
#	unless ($FORM{'Birth1'} || $FORM{'Birth2'} || $FORM{'Birth3'})
#	{
#		$w_ERROR_MESSAGE .= '<LI>生年月日が未入力です。';
#	}

	# =性別
#	unless ($FORM{'Sex'})
#	{
#		$w_ERROR_MESSAGE .= '<LI>性別が未入力です。';
#	}

	# =応募動機
	unless ($FORM{'Q1'})
	{
		$w_ERROR_MESSAGE .= '<LI>応募動機となった媒体が未入力です。';
	}


	if ($w_ERROR_MESSAGE)
	{
		&edit();
	}
	else
	{
		print "Content-type: text/html\n\n";
		&InsPrint($m_CheckHtml, '-', %FORM);
	}
}

# ==============================
# 送信
sub send
{
	# ===メッセージ改行変換
	$FORM{'Message'} =~ s/<BR>/\n/g;

	$COOKIE{'Name'} = $FORM{'Name'};
	$COOKIE{'Email'} = $FORM{'Email'};
	&SetCookie(%COOKIE);

	# 性別
	if ($FORM{'Sex'} eq 'male')
	{
		$FORM{'SexText'} = '男性';
	}
	elsif ($FORM{'Sex'} eq 'female')
	{
		$FORM{'SexText'} = '女性';
	}

	my $from = "$FORM{'Name'}";
	$from .= " <$FORM{'Email'}>" if ($FORM{'Email'});
	my $subj = $m_MailSubject;
	my $msg = &InsPrint($m_MailText, '', %FORM);

	&jcode::euc2sjis(\$from);
	&jcode::euc2sjis(\$subj);
	&jcode::euc2sjis(\$m_MailTo);

	&SendMail($from, $m_MailTo, $subj, $msg);

	print "Content-type: text/html\n\n";
	&InsPrint($m_ThanksHtml, '-', %FORM);
}


# ------------------------------

# 都道府県のセット(Address1)
sub setAddress1
{
	my $buf = '<OPTION VALUE="">▼選択';

	# 都道府県
	@aryAddress1 = (
	'北海道',
	'青森県',
	'岩手県',
	'宮城県',
	'秋田県',
	'山形県',
	'福島県',
	'茨城県',
	'栃木県',
	'群馬県',
	'埼玉県',
	'千葉県',
	'東京都',
	'神奈川県',
	'新潟県',
	'富山県',
	'石川県',
	'福井県',
	'山梨県',
	'長野県',
	'岐阜県',
	'静岡県',
	'愛知県',
	'三重県',
	'滋賀県',
	'京都府',
	'大阪府',
	'兵庫県',
	'奈良県',
	'和歌山県',
	'鳥取県',
	'島根県',
	'岡山県',
	'広島県',
	'山口県',
	'徳島県',
	'香川県',
	'愛媛県',
	'高知県',
	'福岡県',
	'佐賀県',
	'長崎県',
	'熊本県',
	'大分県',
	'宮崎県',
	'鹿児島県',
	'沖縄県'
	);
	foreach $addr (@aryAddress1)
	{
		$buf .= '<OPTION';
		$buf .= ' selected' if ($addr eq $FORM{'Address1'});
		$buf .= '>' . $addr;
	}

	$FORM{'selectAddress1'} = $buf;
}



# 生年月日のセット(Birth1)
sub setBirth1
{
	my $buf = '<OPTION VALUE="">';

	my $ye = (&date::GetNowtime())[0];
	my $ys = $ye - 80;

	$FORM{'Birth1'} = $ye - 20 unless ($FORM{'Birth1'});

	foreach $year ($ys..$ye)
	{
		$buf .= '<OPTION';
		$buf .= ' selected' if ($year eq $FORM{'Birth1'});
		$buf .= '>' . $year;
	}

	$FORM{'selectBirth1'} = $buf;
}

# 生年月日のセット(Birth2)
sub setBirth2
{
	my $buf = '<OPTION VALUE="">';

	foreach $m (1..12)
	{
		$month = sprintf("%02d", $m);
		$buf .= '<OPTION';
		$buf .= ' selected' if ($month eq $FORM{'Birth2'});
		$buf .= '>' . $month;
	}

	$FORM{'selectBirth2'} = $buf;
}

# 生年月日のセット(Birth3)
sub setBirth3
{
	my $buf = '<OPTION VALUE="">';

	foreach $d (1..31)
	{
		$day = sprintf("%02d", $d);
		$buf .= '<OPTION';
		$buf .= ' selected' if ($day eq $FORM{'Birth3'});
		$buf .= '>' . $day;
	}

	$FORM{'selectBirth3'} = $buf;
}


# 応募動機のセット(Q1)
sub setQ1
{
	my $buf = '<OPTION VALUE="">▼選択';

	# 当校への応募動機となった媒体について
	@aryQ1 = (
		'ケイコとマナブ',
		'やりたい仕事＆取りたい資格',
		'VeeSchool',
		'Vee School Web',
		'ClubVee',
		'各店舗',
		'当社HP',
		'当校HP',
		'その他'
	);
	foreach $str (@aryQ1)
	{
		$buf .= '<OPTION';
		$buf .= ' selected' if ($str eq $FORM{'Q1'});
		$buf .= '>' . $str;
	}

	$FORM{'selectQ1'} = $buf;
}