#!/usr/bin/perl

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

require '../tool.pl';

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

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

%m_MailTo = (
	'札幌校' => 'bodycare@hands-one.com',
	'名古屋校' => 'bcs@taiseikan.net'
#	'札幌校' => 'matsumoto@act-system.com',
#	'名古屋校' => 'matsumoto@act-ist.com'
);
#$m_MailTo = 'yamamura@istnet.co.jp';
$m_MailSubject = '[ボディケアスクール お問い合わせ]';

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

$m_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{'rdoMailToSapporoOn'} = 'checked' if ($FORM{'MailTo'} eq '札幌校');
	$FORM{'rdoMailToNagoyaOn'} = 'checked' if ($FORM{'MailTo'} eq '名古屋校');

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

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

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


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

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

	# =問合せ先
	unless ($FORM{'MailTo'})
	{
		$m_ERROR_MESSAGE .= '<LI>お問い合わせ先が未入力です。';
	}

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

	if ($m_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);

	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{$FORM{'MailTo'}}, $subj, $msg);

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