#!/usr/bin/perl

#┌────────────────────────
#│ Shopping Cart - order.cgi (2004/04/01)
#│ Copyright (c) KentWeb
#│ http://www.kent-web.com/
#└────────────────────────

# 外部ファイル取り込み
require './init.cgi';
require $jcode;

# メイン処理
&decode;
#if ($mode eq "cart") { &cart; }
&cart;

#-------------------------------------------------
#  注文処理
#-------------------------------------------------
sub cart {
	# 買い物締めチェック
	if ($in{'job'} == 2 && @key == 0) {

		&header;
		print <<EOM;
<br><br>
<div align="center">
<h3 color:crimson">買い物カゴの中身が空です。</h3>
注文を行うにはメニューに戻って買い物カゴに商品を入れてください。
<p><form action="$script">
<input type=submit value="メニュー画面に戻る">
</form></div>
</body>
</html>
EOM
		exit;

	# 住所入力チェック
	} elsif ($in{'job'} == 3) {

		if ($in{'name'} eq "") { &error("名前の入力がありません"); }
		if ($in{'pref'} eq "") { &error("都道府県の選択がありません"); }
		if ($in{'addr'} eq "") { &error("住所の入力がありません"); }
		if ($in{'tel'} eq "") { &error("電話番号の入力がありません"); }
		if ($in{'email'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
			&error("E-Mailの入力が不正です");
		}

		# 支払選択の場合
		if ($in{'payment'} eq "") {
			&error('支払方法の選択がありません');
		}

		if ($in{'name2'} && $in{'pref'} eq "") {
			&error("配送先の都道府県の選択がありません");
		}
		if ($in{'name2'} && $in{'addr2'} eq "") {
			&error("配送先の住所の入力がありません");
		}
		if ($in{'name2'} && $in{'tel2'} eq "") {
			&error("配送先の電話番号が入力ありません");
		}

		# 配達月日
		if (($in{'mon'} eq "" && $in{'day'} ne "") || ($in{'mon'} ne "" && $in{'day'} eq "")) {
			&error('配達の月日が不完全です');

		} elsif ($in{'mon'} && $in{'day'}) {
			if ($in{'mon'} > 12 || $in{'mon'} < 1)
				{ &error('あり得ない月です'); }
			if ($in{'day'} > 31 || $in{'mon'} < 1)
				{ &error('あり得ない日です'); }
		}

		# 郵便番号
		if ($postno && $in{'yuno'} !~ /^\d{3}\-?\d{4}$/) {
			&error('郵便番号は7桁の数字が必要です<br>
				「3桁 - 4桁」で入力してください');
		}

	# クッキー情報格納
	} elsif ($in{'job'} == 4) {

		$in{'addr'}  =~ s/&lt;br&gt;/<br>/g;
		$in{'addr2'} =~ s/&lt;br&gt;/<br>/g;
		$in{'note'}  =~ s/&lt;br&gt;/<br>/g;

		&set_cookie($in{'comp'},$in{'name'},$in{'yuno'},$in{'addr'},$in{'tel'},$in{'fax'},$in{'email'},$in{'comp2'},$in{'name2'},$in{'yuno2'},$in{'addr2'},$in{'tel2'},$in{'fax2'},$in{'cook'},$in{'pref'},$in{'pref2'});
	}

	# 取消処理
	if ($in{'del'} ne "") {
		@k=();
		@v=();
		foreach (0 .. $#key) {
			if ($_ == $in{'del'}) { next; }
			push(@k,$key[$_]);
			push(@v,$val[$_]);
		}
		@key=@k;
		@val=@v;
	}

	&header;
	print <<EOM;
<form action="$script" target="_blank">
<input type=hidden name=mode value=note>
<input type=hidden name=job value=blank>
<input type=submit value="特定商取引法の表\示">
</form>
<div align="center">
EOM

	# 状況表示
	&order_view($in{'job'});

	# 確定処理
	if ($in{'job'} == 4) {

		# ロック開始
		&lock if ($lockkey);

		# 注文の受理
		&sendmail;

		# ロック解除
		&unlock if ($lockkey);

		# 完了メッセージ
		print "<h3>ご利用ありがとうございました</h3>\n";
		print "<form><input type=button value='トップページに戻る' onClick=window.open(\"$home\",\"_top\")>\n";
		print "</form></div></body></html>\n";
		exit;
	}

	# 注文表
	print <<EOM;
<p>
<table border=1 cellspacing=0 cellpadding=5>
<tr>
  <th nowrap class=l>商品No</th>
  <th nowrap class=l>商品名</th>
  <th nowrap class=l>数量</th>
  <th nowrap class=l>単価</th>
  <th nowrap class=l>合価</th>
  <th nowrap class=l>消費税</th>
  <th class=l>$attr1</th>
  <th class=l>$attr2</th>
  <th nowrap class=l>備考</th>
EOM

	if ($in{'job'} eq "") {
		print "<th nowrap class=l>取消</th></tr>\n";
		$colspan = 6;
	} else {
		print "</tr>\n";
		$colspan = 5;
	}

	# データ認識
	%pick=();
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		($no) = split(/<>/);
		$pick{$no} = $_;
	}
	close(IN);

	# 在庫認識
	if ($stock) { &stock; }

	# 購入処理
	foreach (0 .. $#key) {
		($pnum,$psize,$pcol) = split(/:/, $val[$_]);
		($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link) = split(/<>/, $pick{$key[$_]});

		# 在庫数チェック
		if ($stock) {
			if ($stock{$key[$_]} < $pnum) {
				&error("商品購入個数が在庫数をオーバーしています");
			}
			$stock{$key[$_]} -= $pnum;
		}

		# 合価
		$price2 = $price * $pnum;

		# 税
		if ($intax == 1) { $in_tax += $price2; $zei = "込み"; }
		else { $no_tax += $price2; $zei = "別"; }
		$ten += $pnum;

		# 桁区切り
		$price  = &filler($price);
		$price2 = &filler($price2);

		if ($psize eq "") { $psize="<br>"; }
		if ($pcol eq "") { $pcol="<br>"; }
		if ($memo eq "") { $memo="<br>"; }
		if ($id eq "") { $id = $no; }

		print "<tr><td align=center class=r>$id</td>";
		print "<td class=r><b>$item</b></td>";
		print "<td align=right class=r>$pnum</td>";
		print "<td align=right class=r>$price</td>";
		print "<td align=right class=r>$price2</td>";
		print "<td align=center class=r>$zei</td>";
		print "<td align=center class=r>$psize</td>";
		print "<td align=center class=r>$pcol</td>";
		print "<td class=r>$memo</td>";

		if ($in{'job'} eq "") {
			print "<td align=center class=r>\n";
			print "<form action=\"$cart_order\" method=\"post\">\n";
			print "<input type=hidden name=mode value=\"cart\">\n";
			print "<input type=hidden name=del value=\"$_\">\n";

			foreach (0 .. $#key) {
				print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
			}
			print "<input type=submit value='取消'></td></form>\n";

		}
		print "</tr>\n";
	}

	$all_pr2 = $in_tax + $no_tax;
	$tax = int($no_tax * $pertax);
	$all_pr3 = $all_pr2 + $tax;

	# 桁区切り
	if ($all_pr2 eq "") { $all_pr2 = 0; }
	if ($all_tax eq "") { $all_tax = 0; }
	$all_pr2 = &filler($all_pr2);
	$all_pr3 = &filler($all_pr3);
	$tax = &filler($tax);

	# 確認画面以外
	if ($in{'job'} != 3) {

		if ($no_tax > 0) {
			$msg = "<table><tr><td valign=top>※</td><td><small>送料等が別途発生する場合には<br>確認画面で表\示されます.</small></td></tr></table>";
		} else {
			$msg = "<br>";
		}

		print "<tr><td colspan=4 align=right class=r><b>小計</b></td>\n";

		if ($tax) {
			print "<td align=right nowrap class=r>\\<b>$all_pr2</b></td>\n";
			print "<td align=right class=r>\\<b>$tax</b>";
		} else {
			print "<td align=center nowrap class=r colspan=2>\\<b>$all_pr2</b>\n";
		}

		print <<EOM;
  </td>
  <td colspan=$colspan rowspan=2 class=r>$msg</td>
</tr>
<tr>
  <td colspan=4 align=right class=r><b>合計</b></td>
  <td colspan=2 align=center class=r>\\<b>$all_pr3</b></td>
</tr>
EOM

	# 確認画面
	} else {

		# 支払手数料
		local($pay,$cost) = split(/,/, $payment[$in{'payment'}]);
		if ($cost > 0) {

			$no_tax += $cost;
			$cost = &filler($cost);

			print "<tr><td colspan=4 align=right class=r><b>手数料</b></td>\n";
			print "<td align=right nowrap class=r><b>\\$cost</b></td>\n";
			print "<td colspan=$colspan class=r>（$pay）</td></tr>\n";
		}

		# 送料
		if ($in{'name2'}) { $tmp = $in{'pref2'}; }
		else { $tmp = $in{'pref'}; }
		local($pref,$deli) = split(/,/, $pref[$tmp]);

		# 送料サービス
		local($memo)='';
		if ($cari_serv && $deli && $in_tax + $no_tax >= $cari_serv) {
			$memo = '（送料サービス）';
			$deli=0;
		}

		if ($cari_tax == 0) {
			$no_tax += $deli;
		} else {
			$in_tax += $deli;
		}

		$deli = &filler($deli);
		print "<tr><td colspan=4 align=right class=r><b>送料</b></td>\n";
		print "<td align=right nowrap class=r><b>\\$deli</b></td>\n";
		print "<td colspan=$colspan class=r>$memo<br></td></tr>\n";

		# 消費税
		$tax = int($no_tax * $pertax) if ($no_tax > 0);
		$all = $in_tax + $no_tax + $tax;

		# コンマ付加
		$tax = &filler($tax) if ($no_tax > 0);
		$all = &filler($all);

		if ($tax > 0) {
			print "<tr><td colspan=4 align=right class=r><b>消費税</b></td>\n";
			print "<td align=right nowrap class=r><b>\\$tax</b></td>\n";
			print "<td colspan=$colspan class=r><br></td></tr>\n";
		}

		print "<tr><td colspan=4 align=right class=r><b>合計</b></td>\n";
		print "<td align=right nowrap class=r><b>\\$all</b></td>\n";
		print "<td colspan=$colspan class=r><br></td></tr>\n";
	}

	print "</table><br><br>\n";

	# カゴ中身
	if (!$in{'job'}) {
		print "<table cellpadding=10><tr><td>\n";
		print "<form action=\"$script\" method=\"post\">\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=submit value=\"&lt;&lt; 前画面にもどる\"></form></td>\n";
		print "<td><form action=\"$cart_order\" method=\"post\">\n";
		print "<input type=hidden name=mode value=cart>\n";
		print "<input type=hidden name=job value=2>\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=submit value=\"住所入力画面へ &gt;&gt;\"></form></td>\n";
		print "</tr></table></div>\n";
		print "</body></html>\n";
		exit;
	}

	print <<EOM;
<form action="$cart_order" method="post">
<input type=hidden name=mode value="cart">
EOM

	$submit = '住所入力画面へ &gt;&gt;';
	if ($in{'job'}) { $job = $in{'job'}+1; } else { $job=2; }
	print "<input type=hidden name=job value=\"$job\">\n";

	foreach (0 .. $#key) {
		print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
	}

	## 住所入力画面
	if ($in{'job'} == 2) {

		local($pref_opt_1,$pref_opt_2);

		# クッキー取得
		local($ccom,$cnam,$cyu,$cadr,$ctel,$cfax,$ceml,$ccom2,$cnam2,$cyu2,$cadr2,$ctel2,$cfax2,$cck,$cprf,$cprf2) = &get_cookie;
		$cadr  =~ s/<br>/\r/g;
		$cadr2 =~ s/<br>/\r/g;

		# 都道府県
		foreach (0 .. $#pref) {
			($pref)  = split(/,/, $pref[$_]);

			if ($cprf eq $_) {
				$pref_opt_1 .= "<option value=\"$_\" selected>$pref\n";
			} else {
				$pref_opt_1 .= "<option value=\"$_\">$pref\n";
			}

			if ($cprf2 eq $_) {
				$pref_opt_2 .= "<option value=\"$_\" selected>$pref\n";
			} else {
				$pref_opt_2 .= "<option value=\"$_\">$pref\n";
			}
		}

		# ボタン名を定義
		$submit = '注文確認画面へ &gt;&gt;';

		# 支払方法
		print "<table border=1 cellspacing=0 cellpadding=4 width=550>\n";
		print "<tr><td class=l colspan=2>▼<b>支払・配達情報</b></td></tr>\n";
		print "<tr><td class=r width=110 align=right>支払方法 <font color=red>※</font></td>";
		print "<td class=r width=440>\n";

		foreach (0 .. $#payment) {
			($pay) = split(/,/, $payment[$_]);
			if ($_ == 0) {
				print "<input type=radio name=payment value=\"$_\" checked>$pay&nbsp;\n";
			} else {
				print "<input type=radio name=payment value=\"$_\">$pay&nbsp;\n";
			}
		}
		print "</td></tr>\n";

		# 配達日時
		print "<tr><td class=r align=right>配達指定</td>";
		print "<td class=r>配達日\n";
		print "<input type=text name=mon size=5 style='ime-mode:inactive'>月";
		print "<input type=text name=day size=5 style='ime-mode:inactive'>日<br>";
		print "時間帯 <select name=hour>\n";
		print "<option value=\"\">▼選択\n";

		foreach (0 .. $#deli) {
			print "<option value=\"$_\">$deli[$_]\n";
		}

		print "</select></td></tr></table>\n";

		print <<EOM;
<p><table border=1 cellspacing=0 cellpadding=4 width=550>
<tr>
  <td colspan=2 class=l>▼<b>注文者</b></td>
</tr>
<tr>
  <td class=r align=right width=110>会社名</td>
  <td class=r width=440>
	<input type=text name=comp size=30 style="ime-mode:active" value="$ccom"></td>
</tr>
<tr>
  <td class=r align=right width=110>名前 <font color=red>※</font></td>
  <td class=r width=440>
	<input type=text name=name size=30 style='ime-mode:active' value="$cnam"></td>
</tr>
<tr>
  <td class=r align=right width=110>郵便番号
EOM
		print " <font color=red>※</font>" if ($postno);
		print <<EOM;
  </td>
  <td class=r width=440>
	〒 <input type=text name=yuno size=12 style='ime-mode:inactive' value="$cyu">
	&nbsp; (例 : 103-0225)</td>
</tr>
<tr>
  <td class=r align=right width=110>住所 <font color=red>※</font></td>
  <td class=r width=440>
	<select name=pref>
	<option value="">▼選択
	$pref_opt_1
	</select> （都道府県）<br>
	<textarea name=addr cols=43 rows=3 wrap=soft style='ime-mode:active'>$cadr</textarea></td>
</tr>
<tr>
  <td class=r align=right width=110>電話番号 <font color=red>※</font></td>
  <td class=r width=440>
	<input type=text name=tel size=20 style='ime-mode:inactive' value="$ctel"></td>
</tr>
<tr>
  <td class=r align=right width=110>FAX番号</td>
  <td class=r width=440>
	<input type=text name=fax size=20 style='ime-mode:inactive' value="$cfax"></td>
</tr>
<tr>
  <td class=r align=right width=110>E-Mail <font color=red>※</font></td>
  <td class=r width=440>
	<input type=text name=email size=35 style='ime-mode:inactive' value="$ceml"></td>
</tr>
<tr>
  <td class=r align=right width=110>クッキー記憶</td>
  <td class=r width=440>
	<input type=checkbox name=cook value="on" checked>
	（注文者情報を次回以降に自動表\示します）</td>
</tr>
</table>
<p>
<table border=1 cellspacing=0 cellpadding=4 width=550>
<tr>
  <td colspan=2 class=l>▼<b>配送先</b> （注文者の住所と異なる場合に記入）</td>
</tr>
<tr>
  <td class=r align=right width=110>会社名</td>
  <td class=r width=440>
	<input type=text name=comp2 size=30 style='ime-mode:active' value="$ccom2"></td>
</tr>
<tr>
  <td class=r align=right width=110>名前</td>
  <td class=r width=440>
	<input type=text name=name2 size=30 style='ime-mode:active' value="$cnam2"></td>
</tr>
<tr>
  <td class=r align=right width=110>郵便番号</td>
  <td class=r width=440>
	〒 <input type=text name=yuno2 size=12 style='ime-mode:inactive' value="$cyu2">
	&nbsp; (例 : 103-0225)</td>
</tr>
<tr>
  <td class=r align=right width=110>住所</td>
  <td class=r width=440>
	<select name=pref2>
	<option value="">▼選択
	$pref_opt_2
	</select> （都道府県）<br>
	<textarea name=addr2 cols=43 rows=2 wrap=soft style='ime-mode:active'>$cadr2</textarea></td>
</tr>
<tr>
  <td class=r align=right width=110>電話番号</td>
  <td class=r width=440>
	<input type=text name=tel2 size=20 style='ime-mode:inactive' value="$ctel2"></td>
</tr>
<tr>
  <td class=r align=right width=110>FAX番号</td>
  <td class=r width=440>
	<input type=text name=fax2 size=20 style='ime-mode:inactive' value="$cfax2"></td>
</tr>
</table>
<p>
<table border=1 cellspacing=0 cellpadding=4 width=550>
<tr>
  <td colspan=2 class=l>▼<b>連絡事項</b></td>
</tr>
<tr>
  <td class=r align=right width=110>連絡事項</td>
  <td class=r width=440>
	<textarea name=note cols=50 rows=3 wrap=soft style="ime-mode:active"></textarea></td>
</tr>
</table>
<p>
<input type=button value="&lt;&lt; 前画面にもどる" onClick="history.back()">
&nbsp;&nbsp;&nbsp;
<input type=submit value="注文確認画面へ &gt;&gt;">
</form>
</div>
</body>
</html>
EOM
		exit;

	## 確認画面
	} elsif ($in{'job'} == 3) {

		local($pay) = split(/,/, $payment[$in{'payment'}]);

		# 送信ボタン
		$submit = '上記内容で確定 &gt;&gt;';

		print "<p><table border=1 cellspacing=0 cellpadding=4 width=550>\n";
		print "<tr><td class=l colspan=2>\n";
		print "▼<b>支払・配達情報方法</b></td></tr>\n";
		print "<tr><td class=r width=110 align=right>支払方法&nbsp;</td>";
		print "<td class=r width=440>$pay</td></tr>\n";
		print "<tr><td class=r width=110 align=right>配達指定&nbsp;</td>";
		print "<td class=r width=440>";

		if ($in{'mon'} ne "" && $in{'day'} ne "") {
			print "$in{'mon'}月 $in{'day'}日<br>";
		} else {
			print "月日指定なし<br>";
		}
		if ($in{'hour'} ne "") {
			print "$deli[$in{'hour'}]";
		} else {
			print "時間帯指定なし";
		}

		print "</td></tr></table>\n";

		# 改行処理
		$in{'addr'}  =~ s/\r\n/<br>/g;
		$in{'addr'}  =~ s/\r/<br>/g;
		$in{'addr'}  =~ s/\n/<br>/g;
		$in{'addr2'} =~ s/\r\n/<br>/g;
		$in{'addr2'} =~ s/\r/<br>/g;
		$in{'addr2'} =~ s/\n/<br>/g;
		$in{'note'}  =~ s/\r\n/<br>/g;
		$in{'note'}  =~ s/\r/<br>/g;
		$in{'note'}  =~ s/\n/<br>/g;

		local($pref)  = split(/,/, $pref[$in{'pref'}]);
		local($pref2) = split(/,/, $pref[$in{'pref2'}]);

		foreach ('payment','comp','name','yuno','pref','addr','tel','fax','email','comp2','name2','yuno2','pref2','addr2','tel2','fax2','cook','mon','day','hour','note') {

			print "<input type=hidden name=\"$_\" value=\"$in{$_}\">\n";
		}

		if ($in{'cook'} eq "on") { $ck = '保存する'; } else { $ck = '保存しない'; }

		print "<p><table border=1 cellspacing=0 cellpadding=4 width=550>\n";
		print "<tr><td class=l colspan=2>▼<b>注文者情報</b></td></tr>\n";
		print "<tr><td class=r width=110 align=right>会社名&nbsp;</td><td class=r width=440>$in{'comp'}</td></tr>\n" if ($in{'comp'});
		print "<tr><td class=r width=110 align=right>名前&nbsp;</td><td class=r width=440>$in{'name'}</td></tr>\n";
		print "<tr><td class=r width=110 align=right>郵便番号&nbsp;</td><td class=r width=440>$in{'yuno'}</td></tr>\n" if ($in{'yuno'});
		print "<tr><td class=r width=110 align=right>住所&nbsp;</td><td class=r width=440>$pref<br>$in{'addr'}</td></tr>\n";
		print "<tr><td class=r width=110 align=right>電話番号&nbsp;</td><td class=r width=440>$in{'tel'}</td></tr>\n";
		print "<tr><td class=r width=110 align=right>FAX番号&nbsp;</td><td class=r width=440>$in{'fax'}</td></tr>\n" if ($in{'fax'});
		print "<tr><td class=r width=110 align=right>E-Mail&nbsp;</td><td class=r width=440>$in{'email'}</td></tr>\n";
		print "<tr><td class=r width=110 align=right>クッキー保存&nbsp;</td><td class=r width=440>$ck</td></tr>\n";
		print "</table>\n";

		if ($in{'name2'}) {
			print "<p><table border=1 cellspacing=0 cellpadding=4 width=550>\n";
			print "<tr><td class=l colspan=2>▼<b>送付先情報</b></td></tr>\n";
			print "<tr><td class=r width=110 align=right>会社名</td><td class=r width=440>$in{'comp2'}</td></tr>\n" if ($in{'comp2'});
			print "<tr><td class=r width=110 align=right>名前&nbsp;</td><td class=r width=440>$in{'name2'}</td></tr>\n" if ($in{'name2'});
			print "<tr><td class=r width=110 align=right>郵便番号&nbsp;</td><td class=r width=440>$in{'yuno2'}</td></tr>\n" if ($in{'yuno2'});
			print "<tr><td class=r width=110 align=right>住所&nbsp;</td><td class=r width=440>$pref2<dd>$in{'addr2'}</td></tr>\n" if ($in{'addr2'});
			print "<tr><td class=r width=110 align=right>電話番号&nbsp;</td><td class=r width=440>$in{'tel2'}</td></tr>\n" if ($in{'tel2'});
			print "<tr><td class=r width=110 align=right>FAX番号&nbsp;</td><td class=r width=440>$in{'fax2'}</td></tr>\n" if ($in{'fax2'});
			print "</table>\n";
		}

		if ($in{'note'}) {
			print "<p><table border=1 cellspacing=0 cellpadding=4 width=550>\n";
			print "<tr><td class=l colspan=2>▼<b>連絡事項</b></td></tr>\n";
			print "<tr><td class=r width=110 align=right>連絡事項&nbsp;</td><td class=r width=440>$in{'note'}</td></tr>\n";
			print "</table>\n";
		}
	}

	print <<EOM;
<p>
<input type=button value="&lt;&lt; 前画面にもどる" onClick="history.back()">
&nbsp;&nbsp;&nbsp;
<input type=submit value="確定し注文する &gt;&gt;">
</form>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  状況表示
#-------------------------------------------------
sub order_view {
	local($job) = @_;
	local($col1,$col2,$col3,$col4,$col5,$col6,$col7,$col8,$msg);

	if ($job == 2) {
		$col1 = $col3 = $col4 = $col5 = $col7 = $col8 = "#808080";
		$col2 = "white";
		$col6 = "yellow";
		$msg = "<b>必要事項を入力してください。</b><br>\n";
		$msg .= "<font color=red>※</font>の付いたフィールドは入力必須です。\n";
	} elsif ($job == 3) {
		$col1 = $col2 = $col4 = $col5 = $col6 = $col8 = "#808080";
		$col3 = "white";
		$col7 = "yellow";
		$msg = "これでよろしければ送信ボタンを押してください。\n";
	} elsif ($job == 4) {
		$col1 = $col2 = $col3 = $col5 = $col6 = $col7 = "#808080";
		$col4 = "white";
		$col8 = "yellow";
		$msg = "ありがとうございます。注文を受け付けました。\n";
	} else {
		$col1 = "white";
		$col2 = $col3 = $col4 = $col6 = $col7 = $col8 = "#808080";
		$col5 = "yellow";
		$msg = 	"ご注文ありがとうございます。内容をご確認ください。\n";
	}

	print <<"EOM";
<table bgcolor="black"><tr>
<td align=center nowrap><font color="$col1">内容確認</font></td><td></td>
<td align=center nowrap><font color="$col2">住所入力</font></td><td></td>
<td align=center nowrap><font color="$col3">注文確認</font></td><td></td>
<td align=center nowrap><font color="$col4">確定</font></td>
</tr><tr>
<th width="70"><font color="$col5">●</font></th>
<th><font color="#EEEEEE">→</font></th>
<th width="70"><font color="$col6">●</font></th>
<th><font color="#EEEEEE">→</font>
<th width="70"><font color="$col7">●</font></th>
<th><font color="#EEEEEE">→</font>
<th width="70"><font color="$col8">●</font></th>
</tr></table>
<P>$msg
EOM
}

#-------------------------------------------------
#  メール送信
#-------------------------------------------------
sub sendmail {
	local($msub,$mbody,$ordlog,$in_tax,$no_tax,$mypref,$mypref2);

	# データ認識
	%pick=();
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		($no) = split(/<>/);
		$pick{$no} = $_;
	}
	close(IN);

	# 在庫認識
	if ($stock) { &stock; }

	# ホスト名・日付
	local($date,$datm) = &get_time;
	local($host) = &get_host;

	# メール本文
	$mbody = <<EOM;
このメールは自動返信メールです。
商品のお届け等については別途ご連絡致します。

---------------------------------------------------------------------
▼注文内容
---------------------------------------------------------------------
EOM

	$i=0;
	foreach (0 .. $#key) {
		($pnum,$psize,$pcol) = split(/:/, $val[$_]);
		($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate) = split(/<>/, $pick{$key[$_]});

		# 在庫数チェック
		if ($stock) {
			if ($stock{$key[$_]} < $pnum) {
				&error("商品購入個数が在庫数をオーバーしています");
			}
			$stock{$key[$_]} -= $pnum;
		}

		$price2 = $price * $pnum;
		if ($intax == 1) {
			$in_tax += $price2;
			$zei = "税込み";
		} else {
			$no_tax += $price2;
			$zei = "税別";
		}

		$ten += $pnum;

		# 桁区切り
		$pricec  = &filler($price);
		$price2c = &filler($price2);

		$i++;
		if ($id eq "") { $id = $no; }
		$mbody .= "[商品$i] $id\n$item\n";

		# CSV用
		$csv .= "$id<>$item";

		if ($psize ne "") {
			$mbody .= "$attr1($psize)\n";
			$csv .= " $attr1($psize)";
		}
		if ($pcol ne "") {
			$mbody .= "$attr2($pcol)\n";
			$csv .= " $attr2($pcol)";
		}
		$mbody .= "\\$price × $pnum = \\$price2 [$zei]\n";
		$csv .= "<>$price<>$pnum<>$price2<>";
	}

	# 小計
	$all_pr2  = $in_tax + $no_tax;
	$all_pr2c = &filler($all_pr2);
	$mbody .= "\n小  計 : \\$all_pr2c\n";

	# 支払手数料
	local($pay,$cost) = split(/,/, $payment[$in{'payment'}]);
	if ($cost > 0) {

		$no_tax += $cost;
		$cost = &filler($cost);

		$mbody .= "手数料 : \\$cost ($pay)\n";
	}

	# 送料
	if ($in{'name2'}) { $tmp = $in{'pref2'}; }
	else { $tmp = $in{'pref'}; }
	local($pref,$deli) = split(/,/, $pref[$tmp]);

	# 都道府県
	($mypref)  = split(/,/, $pref[$in{'pref'}]);

	# 送料サービス
	local($memo)='';
	if ($cari_serv && $deli && $in_tax + $no_tax >= $cari_serv) {
		$memo = '(送料サービス)';
		$deli=0;
	}

	if ($cari_tax == 0) {
		$no_tax += $deli;
	} else {
		$in_tax += $deli;
	}

	$delic = &filler($deli);
	$mbody .= "送  料 : \\$delic $memo\n";

	# 消費税
	$tax = int($no_tax * $pertax) if ($no_tax > 0);
	$all_pr3 = $in_tax + $no_tax + $tax;

	# コンマ付加
	$taxc = &filler($tax) if ($tax > 0);
	$all_pr3c = &filler($all_pr3);

	$mbody .= "消費税 : \\$taxc\n" if ($tax > 0);
	$mbody .= "合  計 : \\$all_pr3c\n\n";

	# 改行等復元
	$addr  = $in{'addr'};
	$addr2 = $in{'addr2'};
	$note  = $in{'note'};
	$addr  =~ s/<br>/\n       /g;
	$addr2 =~ s/<br>/\n       /g;
	$note  =~ s/<br>/\n/g;

	$mbody .= "---------------------------------------------------------------------\n";
	$mbody .= "▼支払・配達情報\n";
	$mbody .= "---------------------------------------------------------------------\n";
	$mbody .= "支払方法 = $pay\n";
	if ($in{'mon'} ne "" && $in{'day'} ne "") {
		$mbody .= "配達日時 = $in{'mon'}月 $in{'day'}日 ";
	} else {
		$mbody .= "配達日時 = 月日指定なし ";
	}
	if ($in{'hour'} ne "") { $mbody .= "$deli[$in{'hour'}]\n"; }
	else { $mbody .= "時間帯指定なし\n"; }

	$mbody .= "\n---------------------------------------------------------------------\n";
	$mbody .= "▼注文者\n";
	$mbody .= "---------------------------------------------------------------------\n";
	$mbody .= "E-Mail = $in{'email'}\n";
	$mbody .= "会社名 = $in{'comp'}\n" if ($in{'comp'});
	$mbody .= "名  前 = $in{'name'}\n";
	$mbody .= "郵便番号 = $in{'yuno'}\n" if ($in{'yuno'});
	$mbody .= "都道府県 = $mypref\n";
	$mbody .= "住  所 = $addr\n";
	$mbody .= "電  話 = $in{'tel'}\n";
	$mbody .= "ＦＡＸ = $in{'fax'}\n" if ($in{'fax'});

	if ($in{'name2'}) {

		($mypref2) = split(/,/, $pref[$in{'pref2'}]);

		$mbody .= "\n---------------------------------------------------------------------\n";
		$mbody .= "▼配送先\n";
		$mbody .= "---------------------------------------------------------------------\n";
		$mbody .= "会社名 = $in{'comp2'}\n" if ($in{'comp2'});
		$mbody .= "名  前 = $in{'name2'}\n" if ($in{'name2'});
		$mbody .= "郵便番号 = $in{'yuno2'}\n" if ($in{'yuno2'});
		$mbody .= "都道府県 = $mypref2\n" if ($in{'pref2'});
		$mbody .= "住  所 = $addr2\n" if ($addr2);
		$mbody .= "電  話 = $in{'tel2'}\n" if ($in{'tel2'});
		$mbody .= "ＦＡＸ = $in{'fax2'}\n" if ($in{'fax2'});
	}
	if ($note) {
		$mbody .= "\n---------------------------------------------------------------------\n";
		$mbody .= "▼連絡事項\n";
		$mbody .= "---------------------------------------------------------------------\n";
		$mbody .= "$note\n";
	}

	# タグ等復元
	$ordlog = $mbody;
	$mbody =~ s/&quot;/"/g;
	$mbody =~ s/&lt;/</g;
	$mbody =~ s/&gt;/>/g;

	# メール送信
	if ($ordertype == 1) {

		# メール件名を定義
		$msub = "注文メール ($in{'name'} 様)";
		$msub = &base64($msub);

		# sendmail起動
		open(MAIL,"| $sendmail -t") || &error("送信失敗: $!");
		print MAIL "To: $mailto\n";
		print MAIL "From: $in{'email'}\n";
		print MAIL "Cc: $in{'email'}\n";
		print MAIL "Subject: $msub\n";
		print MAIL "Date: $datm\n";
		print MAIL "MIME-Version: 1.0\n";
		print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
		print MAIL "Content-Transfer-Encoding: 7bit\n";
		print MAIL "X-Mailer: $ver\n\n";
		foreach ( split(/\n/, $mbody) ) {
			&jcode'convert(*_, "jis", "sjis");
			print MAIL $_, "\n";
		}
		print MAIL "\n---------------------------------------------------------------------\n";
		print MAIL "Date : $date\n";
		print MAIL "Host : $host\n";
		print MAIL "Agent: $ENV{'HTTP_USER_AGENT'}\n";
		print MAIL "---------------------------------------------------------------------\n";
		close(MAIL);
	}

	# 在庫更新
	if ($stock) {
		local($k,$v);
		open(OUT,">$stkfile") || &error("Write Error: $stkfile");
		while ( ($k,$v) = each(%stock) ) {
			print OUT "$k<>$v<>\n";
		}
		close(OUT);
	}

	# ログ読み出し
	open(IN,"$ordfile") || &error("Open Error: $ordfile");
	@data = <IN>;
	close(IN);

	# 更新
	while ($max-1 <= @data) { pop(@data); }
	unshift(@data,"$date<>$in{'email'}<>$in{'comp'}<>$in{'name'}<>$in{'yuno'}<>$mypref<>$in{'addr'}<>$in{'tel'}<>$in{'fax'}<>$in{'comp2'}<>$in{'name2'}<>$in{'yuno2'}<>$mypref2<>$in{'addr2'}<>$in{'tel2'}<>$in{'fax2'}<>$pay<>$in{'mon'}<>$in{'day'}<>$in{'hour'}<>$in{'note'}<>$all_pr2<>$cost<>$deli<>$tax<>$all_pr3<>$csv\n");
	open(OUT,">$ordfile") || &error("Write Error: $ordfile");
	print OUT @data;
	close(OUT);
}

#-------------------------------------------------
#  時間取得
#-------------------------------------------------
sub get_time {
	local($date1,$date2,@w,@m);

	$ENV{'TZ'} = "JST-9";
	local($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
	@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

	# 日時のフォーマット
	$date1 = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
			$year+1900,$mon+1,$mday,$w[$wday],$hour,$min);
	$date2 = sprintf("%s, %02d %s %04d %02d:%02d:%02d",
			$w[$wday],$mday,$m[$mon],$year+1900,$hour,$min,$sec) . " +0900";

	return ($date1,$date2);
}

#-------------------------------------------------
#  ホスト取得
#-------------------------------------------------
sub get_host {
	local($host,$addr);

	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

	if ($gethostbyaddr && ($host eq "" || $host eq $addr)) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
	}
	if ($host eq "") { $host = $addr; }

	$host;
}

#-------------------------------------------------
#  クッキー発行
#-------------------------------------------------
sub set_cookie {
	local(@cook) = @_;
	local($gmt, $cook, @t, @m, @w);

	@t = gmtime(time + 60*24*60*60);
	@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

	# 国際標準時を定義
	$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
			$w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);

	# 保存データをURLエンコード
	$cook='';
	foreach (@cook) {
		s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
		$cook .= "$_<>";
	}

	# 格納
	if ($in{'cook'} eq "on") {
		print "Set-Cookie: SHOP_CART=$cook; expires=$gmt\n";
	} else {
		print "Set-Cookie: SHOP_CART=; expires=$gmt\n";
	}
}

#-------------------------------------------------
#  クッキー取得
#-------------------------------------------------
sub get_cookie {
	local($key, $val, *cook);

	# クッキーを取得
	$cook = $ENV{'HTTP_COOKIE'};

	# 該当IDを取り出す
	foreach ( split(/;/, $cook) ) {
		($key, $val) = split(/=/);
		$key =~ s/\s//g;
		$cook{$key} = $val;
	}

	# データをURLデコードして復元
	@cook=();
	foreach ( split(/<>/, $cook{'SHOP_CART'}) ) {
		s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/eg;

		push(@cook,$_);
	}
	return (@cook);
}

#-------------------------------------------------
#  BASE64変換
#-------------------------------------------------
#	とほほのWWW入門で公開されているルーチンを参考にしました。
#	http://tohoho.wakusei.ne.jp/
sub base64 {
	local($sub) = $_[0];
	&jcode'convert(*sub, 'jis', 'sjis');

	$sub =~ s/\x1b\x28\x42/\x1b\x28\x4a/g;
	$sub = "=?iso-2022-jp?B?" . &b64enc($sub) . "?=";
	$sub;
}
sub b64enc {
	local($ch)="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
	local($x, $y, $z, $i);
	$x = unpack("B*", $_[0]);
	for ($i=0; $y=substr($x,$i,6); $i+=6) {
		$z .= substr($ch, ord(pack("B*", "00" . $y)), 1);
		if (length($y) == 2) {
			$z .= "==";
		} elsif (length($y) == 4) {
			$z .= "=";
		}
	}
	$z;
}


__END__