#! /usr/bin/perl
#
# メール送信CGI
# Scripting by murayama@chichibu.co.jp

require 'jcode.pl';

############
# 変数設定 #
############

$request_method = $ENV{"REQUEST_METHOD"}; #リクエストメソッド
$sendmail = '/usr/sbin/sendmail';         #sendmailのパス
$mailto = 'info@asaumi.com';      #メール送信先
#$mailto = 'murayama@i-surf.co.jp';      #メール送信先
$bcc = 'order@i-surf.co.jp';
$subject = '[お問い合わせ]';                        #サブジェクト

##########################
# 入力メソッドによる選択 #
##########################
sub readData
{
	local(*queryString) = @_ if @_;
	if ($request_method eq "GET") {&readGetData(*queryString);}
	if ($request_method eq "POST") {&readPostData(*queryString);}

	return 1;
}

###########################
# method=GET の場合の処理 #
###########################
sub readGetData
{
	local(*queryString) = @_ if @_;
	$queryString = $ENV{"QUERY_STRING"};
	#if ($queryString eq "") { &error('Error','Data is Empty?'); }

	return 1;
}

############################
# method=POST の場合の処理 #
############################
sub readPostData
{
	local(*queryString) = @_ if @_;
	local($contentLength);

	# 環境変数の読みこみ
	$contentLength = $ENV{"CONTENT_LENGTH"};

	if ($contentLength)
	{
		read(STDIN,$queryString,$contentLength);
	}
	return 1;
}

########################
# フォームデータの分割 #
########################
sub parseData
{
	local(*queryString) = @_ if @_;
	local($key,$value,$curString,@tmpArray,$aName);

	# 文字列の分割
	@tmpArray = split(/&/,$queryString);

	# 文字列が無くなるまでループ
	foreach $curString (@tmpArray)
	{
		($key,$value) = split(/=/,$curString);
		if ($key ne 'start') {
			$key2 = $key;
			$value2 = $value;
			$FORM2{$key} = $value;
		}

		&decodeData(*key);
		&decodeData(*value);

		$FORM{$key} = $value;

	}
	return 1;
}

############################
# フォームデータのデコード #
############################
sub decodeData
{
	local(*queryString) = @_ if @_;

	# 変換
	$queryString =~ s/\+/ /g;
	$queryString =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/ge;
	if ($queryString =~ /\r\n/) { $queryString =~ s/\r\n/\n/g; }
	if ($queryString =~ /\n/) { $queryString =~ s/\n/\r/g; }

	&jcode'convert(*value,'sjis');

	return 1;
}

##############
# エラー処理 #
##############
sub error
{
	print <<"EOT";
	<h1><font color="#ff0000">$_[0]</font></h1>
	<h3>$_[1]</h3><p>
	もう一度ご確認の上、入力しなおしてください。<br>
	ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>
EOT
	&html_foot;
exit;
} # sub error end

################
# 入力チェック #
################
sub check {
	if (!$FORM{'name'}) { &error('Error.','お名前が入力されていません。') }
	elsif (!$FORM{'ruby'}) { &error('Error.','フリガナが入力されていません。') }
	elsif (!$FORM{'email'}) { &error('Error.','メールアドレスが入力されていません。') }
	elsif (!$FORM{'tel'}) { &error('Error.','電話番号が入力されていません。') }
	elsif (!$FORM{'subject'}) { &error('Error.','お問い合わせタイトルが入力されていません。') }
}

############
# 入力画面 #
############
sub input {

	$qno = $FORM{'qn'};

	print <<"EOT";
    <form action="mail.cgi" method="post">
    <table border="0" cellspacing="0" cellpadding="3" bordercolor="#FFCCCC">
      <tr> 
        <td align="center"><img src="parts/t-1.gif" width="154" height="19" alt="お名前"></td>
        <td> 
          <input type="text" name="name" size="40">
          <font size="2" color="#FF6666">（必須）</font></td>
      </tr>
      <tr> 
        <td align="center"><img src="parts/t-2.gif" width="154" height="19" alt="フリガナ"></td>
        <td> 
          <input type="text" name="ruby" size="40">
          <font size="2" color="#FF6666">（必須）</font></td>
      </tr>
      <tr> 
        <td align="center"><img src="parts/t-3.gif" width="154" height="17" alt="e-mail"></td>
        <td> 
          <input type="text" name="email" size="40">
          <font size="2" color="#FF6666">（必須）</font></td>
      </tr>
      <tr> 
        <td align="center"><img src="parts/t-4.gif" width="154" height="20" alt="電話番号"></td>
        <td> 
          <input type="text" name="tel" size="40">
          <font size="2" color="#FF6666">（必須）</font></td>
      </tr>
      <tr> 
        <td colspan="2" align="center"><img src="../parts/spacer.gif" width="480" height="5"></td>
      </tr>
      <tr> 
        <td align="center"><font size="2" color="#003300"><img src="parts/t-7.gif" width="154" height="21" alt="お問い合せ物件"></font></td>
        <td>
          <input type="text" name="qno" size="10" value="$qno">
          <font size="2" color="#FF6666">（複数の場合は「,」で区切ってご記入下さい）</font> </td>
      </tr>
      <tr> 
        <td align="center"><font size="2" color="#003300"><img src="parts/t-5.gif" width="154" height="19" alt="お問い合せタイトル"></font></td>
        <td>
          <input type="text" name="subject" size="40">
          <font size="2" color="#FF6666">（必須）</font></td>
      </tr>
      <tr> 
        <td valign="top" align="center"><img src="parts/t-6.gif" width="154" height="19" alt="お問い合せ内容"></td>
        <td> 
          <textarea name="text" cols="50" rows="10"></textarea>
        </td>
      </tr>
    </table>
    <img src="../parts/spacer.gif" width="450" height="10">
<table border="0" cellspacing="0" cellpadding="0" width="450">
      <tr align="right"> 
        <td colspan="2"> 
          <input type="submit" value=" 送 信 " name="action">
          <input type="reset" value=" リセット " name="reset">
        </td>
      </tr>
    </table>
    <img src="../parts/spacer.gif" width="450" height="10"> 
    <table border="0" cellspacing="0" cellpadding="5" bordercolor="#FFCCCC" width="400">
      <tr> 
        <td colspan="2"><font size="2" color="#009966">必要事項に入力の上、送信ボタンをお押し下さい。ご送信後に送信内容のページが表示されましたらブラウザの戻るボタンでお戻り下さい。 
          </font> </td>
      </tr>
    </table>
    </form>
EOT
} #sub input end

##############
# メール送信 #
##############
sub sendmail {

	if (!$FORM{'email'}) {$FORM{'email'} = $mailto;}
	if (!open(OUT,"| $sendmail $mailto $bcc")) { &error('Error.','メールは送信されませんでした。') }

	&jcode'convert(*subject,'jis');
	print OUT 'X-Mailer: CMS_Form_Mail' ."\n";
	print OUT "To: $mailto\n";
	print OUT "From: $FORM{'email'}\n";
	print OUT "Subject: $subject\n";
	print OUT "Content-Type: text/plain; charset=ISO-2022-JP\n";
	print OUT "\n\n";

	$message = "浅海住建 御中 Webからの問い合わせです。\n";
	$message .= "----------------------------------------------------\n\n";

	$message .= "-- ＜＜お問い合わせ送信者＞＞ ----------------------\n\n";
	$message .= "お名前  ：$FORM{'name'} 様\n";
	$message .= "フリガナ：$FORM{'ruby'}\n";
	$message .= "E-mail  ：$FORM{'email'}\n";
	$message .= "電話番号：$FORM{'tel'}\n";
	$message .= "----------------------------------------------------\n\n";

	$message .= "-- ＜＜お問い合わせ物件＞＞ ------------------------\n\n";
	$message .= "物件No  ：$FORM{'qno'}\n";
	$message .= "タイトル：$FORM{'ruby'}\n";

	if (!$FORM{'text'}) { $FORM{'text'} = '記入なし'}
	$FORM{'text'} =~ s/\;/\n/g;

	$message .= "お問い合わせ内容：\n";
	$message .= "$FORM{'text'}\n";
	$message .= "----------------------------------------------------\n\n";

	&jcode'convert(*message,'jis');
	print OUT "$message";

	close OUT;

} # sub sendmail end

################
# 送信終了画面 #
################
sub thanks_html
{
	&check;
	print <<"EOT";
<br><br>
お問い合わせありがとうございます。<br>
以下の内容で送信いたしましたのでご確認ください。<br>
<br>
［<a href="../index.htm">トップページへ戻る</a>］
<br><br>

    <table border="0" cellspacing="0" cellpadding="3" bordercolor="#FFCCCC">
      <tr> 
        <td align="center"><img src="parts/t-1.gif" width="154" height="19" alt="お名前"></td>
        <td> 
          <font size="2">$FORM{'name'}</font></td>
      </tr>
      <tr> 
        <td align="center"><img src="parts/t-2.gif" width="154" height="19" alt="フリガナ"></td>
        <td> 
          <font size="2">$FORM{'ruby'}</font></td>
      </tr>
      <tr> 
        <td align="center"><img src="parts/t-3.gif" width="154" height="17" alt="e-mail"></td>
        <td> 
          <font size="2">$FORM{'email'}</font></td>
      </tr>
      <tr> 
        <td align="center"><img src="parts/t-4.gif" width="154" height="20" alt="電話番号"></td>
        <td> 
          <font size="2">$FORM{'tel'}</font></td>
      </tr>
      <tr> 
        <td colspan="2" align="center"><img src="../parts/spacer.gif" width="480" height="5"></td>
      </tr>
      <tr> 
        <td align="center"><font size="2" color="#003300"><img src="parts/t-7.gif" width="154" height="21" alt="お問い合せ物件"></font></td>
        <td>
          <font size="2">$FORM{'qno'}</font></td>
      </tr>
      <tr> 
        <td align="center"><font size="2" color="#003300"><img src="parts/t-5.gif" width="154" height="19" alt="お問い合せタイトル"></font></td>
        <td>
          <font size="2">$FORM{'subject'}</font></td>
      </tr>
      <tr> 
        <td valign="top" align="center"><img src="parts/t-6.gif" width="154" height="19" alt="お問い合せ内容"></td>
        <td> 
          <font size="2">$FORM{'text'}</font>
        </td>
      </tr>
    </table>
EOT
} #sub thanks_html end

################
# HTMLヘッダー #
################
sub html_head {
	print "Content-type: text/html\n\n";
	print <<'EOT';
<html>
<head>
<title>浅海住建　-　お問い合せ　-</title>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<!-- ImageReady Preload Script (page.psd) -->
<script language="JavaScript">
<!--

function newImage(arg) {
	if (document.images) {
		rslt = new Image();
		rslt.src = arg;
		return rslt;
	}
}

function changeImages() {
	if (document.images && (preloadFlag == true)) {
		for (var i=0; i<changeImages.arguments.length; i+=2) {
			document[changeImages.arguments[i]].src = changeImages.arguments[i+1];
		}
	}
}

var preloadFlag = false;
function preloadImages() {
	if (document.images) {
		page_annai_over = newImage("../parts/page_annai-over.gif");
		page_myhome_over = newImage("../parts/page_myhome-over.gif");
		page_tyumon_over = newImage("../parts/page_tyumon-over.gif");
		page_kaiteki_over = newImage("../parts/page_kaiteki-over.gif");
		page_bukken_over = newImage("../parts/page_bukken-over.gif");
		page_accessmap_over = newImage("../parts/page_accessmap-over.gif");
		page_car_over = newImage("../parts/page_car-over.gif");
		page_home_over = newImage("../parts/page_home-over.gif");
		preloadFlag = true;
	}
}

// -->
</script>
<!-- End Preload Script -->
</head>
<body bgcolor=#FFFFFF onLoad="preloadImages();" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../parts/haikei1_01.jpg" text="#333333" link="#009900" vlink="#003333" alink="#003333">
<!-- ImageReady Slices (page.psd) -->
<!-- End ImageReady Slices -->
<div align="center">
  <table width=650 border=0 cellpadding=0 cellspacing=0>
    <tr> 
      <td> <img src="../parts/spacer.gif" width=287 height=1></td>
      <td> <img src="../parts/spacer.gif" width=59 height=1></td>
      <td> <img src="../parts/spacer.gif" width=48 height=1></td>
      <td> <img src="../parts/spacer.gif" width=3 height=1></td>
      <td> <img src="../parts/spacer.gif" width=56 height=1></td>
      <td> <img src="../parts/spacer.gif" width=3 height=1></td>
      <td> <img src="../parts/spacer.gif" width=55 height=1></td>
      <td> <img src="../parts/spacer.gif" width=3 height=1></td>
      <td> <img src="../parts/spacer.gif" width=48 height=1></td>
      <td> <img src="../parts/spacer.gif" width=5 height=1></td>
      <td> <img src="../parts/spacer.gif" width=34 height=1></td>
      <td> <img src="../parts/spacer.gif" width=20 height=1></td>
      <td> <img src="../parts/spacer.gif" width=21 height=1></td>
      <td> <img src="../parts/spacer.gif" width=8 height=1></td>
      <td></td>
    </tr>
    <tr> 
      <td rowspan=3> <img src="../parts/page-asaumi.gif" width=287 height=32 alt="浅海建設"></td>
      <td colspan=13> <img src="../parts/page_02.jpg" width=363 height=2></td>
      <td> <img src="../parts/spacer.gif" width=1 height=2></td>
    </tr>
    <tr> 
      <td colspan=2> <a href="../annai/index.htm"
				onMouseOver="changeImages('page_annai', '../parts/page_annai-over.gif'); return true;"
				onMouseOut="changeImages('page_annai', '../parts/page_annai.gif'); return true;"> 
        <img name="page_annai" src="../parts/page_annai.gif" width=107 height=16 border=0></a></td>
      <td> <img src="../parts/page_04.jpg" width=3 height=16></td>
      <td colspan=7> <a href="../myhome/index.htm"
				onMouseOver="changeImages('page_myhome', '../parts/page_myhome-over.gif'); return true;"
				onMouseOut="changeImages('page_myhome', '../parts/page_myhome.gif'); return true;"> 
        <img name="page_myhome" src="../parts/page_myhome.gif" width=204 height=16 border=0></a></td>
      <td colspan=3> <img src="../parts/page_06.jpg" width=49 height=16></td>
      <td> <img src="../parts/spacer.gif" width=1 height=16></td>
    </tr>
    <tr> 
      <td> <img src="../parts/page_07.jpg" width=59 height=14></td>
      <td colspan=5 rowspan=2> <a href="../tyumon/index.htm"
				onMouseOver="changeImages('page_tyumon', '../parts/page_tyumon-over.gif'); return true;"
				onMouseOut="changeImages('page_tyumon', '../parts/page_tyumon.gif'); return true;"> 
        <img name="page_tyumon" src="../parts/page_tyumon.gif" width=165 height=16 border=0></a></td>
      <td rowspan=2> <img src="../parts/page_09.jpg" width=3 height=16></td>
      <td colspan=4 rowspan=2> <a href="../kaiteki/index.htm"
				onMouseOver="changeImages('page_kaiteki', '../parts/page_kaiteki-over.gif'); return true;"
				onMouseOut="changeImages('page_kaiteki', '../parts/page_kaiteki.gif'); return true;"> 
        <img name="page_kaiteki" src="../parts/page_kaiteki.gif" width=107 height=16 border=0></a></td>
      <td colspan=2 rowspan=4> <img src="../parts/page_11.jpg" width=29 height=32></td>
      <td> <img src="../parts/spacer.gif" width=1 height=14></td>
    </tr>
    <tr> 
      <td colspan=2 rowspan=5> <img src="parts/page_title.jpg" width=346 height=35 alt="お問い合せ"></td>
      <td> <img src="../parts/spacer.gif" width=1 height=2></td>
    </tr>
    <tr> 
      <td colspan=3> <a href="../bukken/index.htm"
				onMouseOver="changeImages('page_bukken', '../parts/page_bukken-over.gif'); return true;"
				onMouseOut="changeImages('page_bukken', '../parts/page_bukken.gif'); return true;"> 
        <img name="page_bukken" src="../parts/page_bukken.gif" width=107 height=15 border=0></a></td>
      <td rowspan=2> <img src="../parts/page_14.jpg" width=3 height=16></td>
      <td colspan=6 rowspan=2> <a href="../accessmap/index.htm"
				onMouseOver="changeImages('page_accessmap', '../parts/page_accessmap-over.gif'); return true;"
				onMouseOut="changeImages('page_accessmap', '../parts/page_accessmap.gif'); return true;"> 
        <img name="page_accessmap" src="../parts/page_accessmap.gif" width=165 height=16 border=0></a></td>
      <td> <img src="../parts/spacer.gif" width=1 height=15></td>
    </tr>
    <tr> 
      <td colspan=3> <img src="../parts/page_16.jpg" width=107 height=1></td>
      <td> <img src="../parts/spacer.gif" width=1 height=1></td>
    </tr>
    <tr> 
      <td colspan=2 rowspan=2> <img src="../parts/page_17.jpg" width=51 height=17></td>
      <td colspan=5> <a href="../car/index.htm"
				onMouseOver="changeImages('page_car', '../parts/page_car-over.jpg'); return true;"
				onMouseOut="changeImages('page_car', '../parts/page_car.jpg'); return true;"> 
        </a><a href="../car/index.htm"
				onMouseOver="changeImages('page_car', '../parts/page_car-over.gif'); return true;"
				onMouseOut="changeImages('page_car', '../parts/page_car.gif'); return true;"><img name="page_car" src="../parts/page_car.gif" width=165 height=16 border=0></a></td>
      <td rowspan=2> <img src="../parts/page_19.jpg" width=5 height=17></td>
      <td colspan=3> <a href="../index.htm"
				onMouseOver="changeImages('page_home', '../parts/page_home-over.gif'); return true;"
				onMouseOut="changeImages('page_home', '../parts/page_home.gif'); return true;"> 
        <img name="page_home" src="../parts/page_home.gif" width=75 height=16 border=0></a></td>
      <td rowspan=2> <img src="../parts/page_21.jpg" width=8 height=17></td>
      <td> <img src="../parts/spacer.gif" width=1 height=16></td>
    </tr>
    <tr> 
      <td colspan=5> <img src="../parts/page_22.jpg" width=165 height=1></td>
      <td colspan=3> <img src="../parts/page_23.jpg" width=75 height=1></td>
      <td> <img src="../parts/spacer.gif" width=1 height=1></td>
    </tr>
  </table>
  <table border="0" cellpadding="2" cellspacing="0">
    <tr valign="top"> 
      <td align="center"> <font size="2" color="#FF0000">●</font><font size="2"><b><font color="#0000FF">お問い合せ＞</font></b>　<a href="JavaScript:history.back()">前のページへ戻る</a></font></td>
    </tr>
  </table>
  <img src="../parts/line.gif" width="650" height="1" vspace="4">
EOT
}

################
# HTMLフッター #
################
sub html_foot {
	print <<'EOT';
  <table width="100%" border="0" cellpadding="10" cellspacing="0" background="../parts/index_line4.gif">
    <tr> 
      <td align="center"><font size="2" color="#FFFFFF"><font color="#99CC99">Copyright(C)2001 
        Asaumi Jyuken. All Rights Reserved.</font></font> </td>
    </tr>
  </table>
</div>
</body>
</html>
EOT
}

################
# メインループ #
################

&readData(*data);                  # include "readGetData" "readPostData"
&parseData(*data,*dataDict);       # include "decodeData"

if ($FORM{'action'} eq ' 送 信 ') {
	&sendmail;
	&html_head;
	&thanks_html;
	&html_foot;
}
else {
	&html_head;
	&input;
	&html_foot;
}

exit;