#!/usr/bin/perl

## cart.cgi v1.21 (2002/12/30)
## Copyright (C) Kent Web 2002

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


# メイン処理
&decode;
if ($mode eq "cart") { &cart; }
elsif ($mode eq "note") { &note; }
elsif ($mode eq "check") { ✓ }
&menu;


#----------------#
#  メニュー表示  #
#----------------#
sub menu {
	local($i, $n, $next, $back);

	&header;
	print "
<div align=\"left\">
<table width=\"95%\" height=\"100%\" cellspacing=\"0\" cellpadding=\"10\">
<tr>
<td width=\"60%\" align=\"left\" valign=\"top\">
<table width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
<tr> 
<td align=\"left\" valign=\"top\" class=\"n15\" background=\"../imgs/line/check_l_blue.gif\"><strong><font color=\"#0066CC\">■オススメ商品</font></strong></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\">
<!-- ↓ -->
\n";

	print <<"EOM";
EOM
	# 検索窓
	if ($find) {
		print "<br><table><tr><td>\n";
		print "<form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$page\">\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=text name=word size=35 value=\"$in{'word'}\">\n";
		print "<input type=submit value='商品検索'></form></td>\n";

		# 検索実行
		if ($in{'word'} ne "") { &find; }

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

	# 買物受付け
	if ($key[0]) { &pick; }

	# カテゴリ表示
	if ($category == 2) { &category; }

	if ($page eq '') { $page=0; }
	$gview *= $rview;
	print "<TABLE BORDER=0 CELLPADDING=5><TR>\n";
	$i=0; $n=0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	while (<IN>) {
		$n++;
		if ($n < $page + 1) { next; }
		if ($n > $page + $gview) { last; }
		if ($i >= $rview) { print "</TR><TR>"; $i=0; }
		$i++;
		if ($category) { $span=4; } else { $span=3; }
		chop;
		($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link) = split(/<>/);
		if ($size) { $span++; }
		if ($color) { $span++; }
		if ($memo) { $span++; }
		if (!$imgview && $img) { $item = "<a href=\"$img\" class=\"blue\">$item</a>"; }
		$price2 = &filler($price);
		if ($id eq "") { $id = $no; }

		print "<TD VALIGN=TOP>";
		print "<form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=pick value=\"$no\">\n";
		print "<input type=hidden name=page value=\"$page\">\n";
		# 注文オーダ蓄積
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<table border=0 cellspacing=0 cellpadding=3 width=\"$cell\" height=\"$height\">\n";
		print "<tr><td nowrap class=\"n12\" align=\"center\" valign=\"top\">$item</td></tr>";

		# 画像
		if ($img && $imgview) {
			print "<td align=\"center\" valign=\"top\">";
			if ($w && $h) {	$wh = "width=$w height=$h"; }
			print "<a href=\"$link\" target=\"_new\">" if ($link);
			print "<img src=\"$img\" alt=\"$item\" border=0 $wh>";
			print "</a>" if ($link);
			print "</td></tr>\n";
		} else {
			print "<td><span>$id</span></td></tr>\n";
		}
		# 入力
		$flag=0;
		$pnum=$psize=$pcol='';
		foreach (0 .. $#key) {
			if ($no == $key[$_]) {
				$flag=1;
				($pnum,$psize,$pcol) = split(/:/, $val[$_]);
				last;
			}
		}
		if (!$flag) { $pnum = 0; }
		if ($memo) {
			print "<tr><td class=\"n11\" align=\"left\" valign=\"top\">$memo</td></tr>\n";
		}

		if ($category) {
			if ($cate eq "") { $cate = 0; }
			print "<tr><td nowrap>カテゴリ</td>";
			print "<td>$cate[$cate]</td></tr>\n";
		}
		print "<tr><td class=\"n12\" align=\"center\" valign=\"bottom\"><b><font color=\"#FF0000\">\\ <span>$price2</span></font></b>";
		if ($intax == 1) { print "（税込）"; } else { print "（税別）"; }
		print "</td></tr>";


		print "</table></TD>";
	}
	close(IN);
	print "</TR></TABLE>\n";

	# ページ繰り越しボタン
	$next = $page + $gview;
	$back = $page - $gview;
	print "<div align=\"center\">
<table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=image src=\"../imgs/back.gif\" value=\"前のページ\"></td></form>\n";
	}
	if ($next < $n) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=image src=\"../imgs/next.gif\" value=\"次のページ\"></td></form>\n";
	}
	print "</tr></table><br>
<a href=\"http://www.store-mix.com/index.php?hid=3149\" target=_new>
<img border=\"0\" src=\"http://www.store-mix.com/images/anime_store-mix_banner01.gif\" alt=\"もっと簡単ショッピング!ストアミックス\"></a>
</div>
\n";

	# 著作権表示（削除改編を禁止します）
	print <<"EOM";
<!-- ↑ -->
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width=\"95%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td align=\"right\" valign=\"top\">
<!-- footer -->
<hr size=\"1\" color=\"#999999\" width=\"100%\">
<font class=\"n10\" color=\"#666666\">
CopyRight(c)2002&nbsp; @\Beauty.&nbsp;All&nbsp;rights&nbsp;reserved.<br>
</font> 
</td>
</tr>
</table>
</div>
</body>
</html>
EOM
	exit;
}

#--------------#
#  買い物処理  #
#--------------#
sub pick {
	local($order,$flag,$all1,$all2,$tax);

	$order=0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	foreach (0 .. $#key) {
		($pnum) = split(/:/, $val[$_]);
		if (length($pnum) > $maxlen) { &error("注文個数は$maxlen桁までです"); }
		if ($pnum > 0) { $order++; }
		$flag=0;
		while ($file = <IN>) {
			($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb) = split(/<>/, $file);
			if ($key[$_] == $no) {
				$flag=1;
				$price2 = $price * $pnum;
				if ($intax == 1) { $tax = 0; }
				else { $tax = int($price2*0.05); }
				last;
			}
		}
		if ($flag) { $all_pr2 += $price2; $all_tax += $tax; }
		seek(IN,0,0);
	}
	close(IN);

	# 0個の場合
	if (!$order) { return; }

	# 桁区切り
	$all_pr3 = $all_pr2 + $all_tax;
	$all_pr3 = &filler($all_pr3);
	$all_pr2 = &filler($all_pr2);
	$all_tax = &filler($all_tax);

	print "<form action=\"$script\" method=\"POST\">\n";

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

	# 合計金額表示
	print <<"EOM";
<input type=hidden name=mode value="cart">
<table border=2 cellpadding=2 cellspacing=0 bgcolor="white"><tr>
<td>小　計： \\ <span>$all_pr2</span></td>
<td>消費税： \\ <span>$all_tax</span></td>
<td>合計金額： <b>\\ <span>$all_pr3</span></b></td>
<td><input type=submit value="中身を確認(購入画面)"></td></form>
</tr></table>
<P>
EOM
}

#------------#
#  注文処理  #
#------------#
sub cart {
	# 買い物締めチェック
	if ($in{'job'} == 2 && @key == 0) {
		&header;
		print "<br><br><div align='center'>",
		"<h3 style='font-size:12pt; color:crimson'>買い物カゴの中身が空です。</h3>\n",
		"注文を行うにはメニューに戻って買い物カゴに商品を入れてください。\n",
		"<P><form action=\"$script\">\n",
		"<input type=submit value='メニュー画面に戻る'></form></div>\n",
		"</body></html>\n";
		exit;
	}
	# 住所入力チェック
	elsif ($in{'job'} == 3) {
		if ($in{'name'} eq "") { &error("名前の入力がありません"); }
		if ($in{'addr'} eq "") { &error("住所の入力がありません"); }
		if ($in{'tel'} eq "") { &error("電話の入力がありません"); }
		if ($in{'email'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
			&error("E-Mailの入力が不正です");
		}

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

		# 配達月日
		if ($deliver) {
			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('郵便番号は７桁の数字が必要です<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;
	}

	# 取り消し処理
	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 "<form action=\"$script\" method=\"POST\" target=\"_blank\">\n";
	print "<input type=hidden name=mode value=note>\n";
	print "<input type=hidden name=job value=blank>\n";
	print "<input type=submit value='特定商取引法の表\示'></form>\n";
	print "<div align='center'>\n";

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

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

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

		# 注文の受理
		&sendmail;

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

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

	# 注文表
	print "<P><table border=1 cellspacing=0 cellpadding=5>\n";
	print "<tr bgcolor=\"$lin1\"><th nowrap>商品No</th><th nowrap>商品名</th><th nowrap>数量</th><th nowrap>単 価</th><th nowrap>合 価</th><th nowrap>消費税</th><th nowrap>商品計</th><th nowrap>税種別</th><th>$attr1</th><th>$attr2</th><th nowrap>備考</th>";
	if ($in{'job'} eq "") { print "<th nowrap>取消</th></tr>\n"; $colspan=5; }
	else { print "</tr>\n"; $colspan=4; }

	open(IN,"$logfile") || &error("Open Error : $logfile");
	foreach (0 .. $#key) {
		($pnum,$psize,$pcol) = split(/:/, $val[$_]);
		while ($file = <IN>) {
			chop($file);
			($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link) = split(/<>/, $file);
			if ($key[$_] == $no) {
				# 合価
				$price2 = $price * $pnum;
				# 税
				if ($intax == 1) { $tax = 0; $zei = "税込み"; }
				else { $tax = int($price2*0.05); $zei = "税別"; }
				# 小計
				$price3 = $price2 + $tax;

				# 合計処理
				$all_pr2 += $price2;
				$all_tax += $tax;
				$ten += $pnum;

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

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

				# 色定義
				if ($_ % 2) { $line=$lin1; } else { $line=$lin2; }

				print "<tr bgcolor=\"$line\">";
				print "<td align=center>$id</td><td>$item</td><td align=right>$pnum</td><td align=right>$price</td><td align=right>$price2</td><td align=right>$tax</td><td align=right>$price3</td><td align=center>$zei</td><td align=center>$psize</td><td align=center>$pcol</td><td>$memo</td>";
				if ($in{'job'} eq "") {
					print "<td align=center><form action=\"$script\" 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></tr>\n";
				} else { print "</tr>\n"; }

				last;
			}
		}
		seek(IN,0,0);
	}
	close(IN);

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

	if ($line eq $lin1) { $line = $lin2; } else { $line = $lin1; }
	print "<tr bgcolor=\"$line\"><td colspan=4 align=right><b>合計金額</b></td><td align=right nowrap>\\ $all_pr2</td><td align=right nowrap>\\ $all_tax</td><td align=right nowrap><b>\\ $all_pr3</b></td><td colspan=$colspan><br></td></tr>\n";

	print "</table><P>\n";
	$submit = '住所入力画面へ移動';
	print "<form action=\"$script\" method=\"POST\">\n";
	print "<input type=hidden name=mode value=\"cart\">\n";

	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) {
		# ボタン名を定義
		$submit = '注文確認画面へ移動';

		# 支払方法
		if ($payment) {
			print "<table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
			print "<tr><td>▼<b>支払方法</b>（選択必須）</td></tr>\n<tr><td>\n";
			foreach (0 .. $#payment) {
				print "<input type=radio name=payment value=\"$_\">$payment[$_]&nbsp;&nbsp;\n";
			}
			print "</td></tr></table>\n";
		}

		# 送料
		if ($postage) {
			print "<P><table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
			print "<tr><td>▼<b>送料</b>（上記金額とは別途にかかります）</td></tr>\n<tr><td align=center>\n";
			print $postage2;
			print "</td></tr></table>\n";
		}

		# 配達日時
		if ($deliver) {
			print "<P><table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
			print "<tr><td>▼<b>希望配達日時</b>（ご希望がある場合に記入してください）</td></tr>\n<tr><td>\n";
			print "希望日 <input type=text name=mon size=3 style='ime-mode:inactive'>月 <input type=text name=day size=3 style='ime-mode:inactive'>日 &nbsp;&nbsp;\n";
			print "時間帯 <select name=hour>\n";
			print "<option value=\"\">▼選択\n";
			foreach (0 .. $#deli) {
				print "<option value=\"$_\">$deli[$_]\n";
			}
			print "</select></td></tr></table>\n";
		}

		# クッキー取得
		&get_cookie;
		$ck{'addr'}  =~ s/<br>/\r/g;
		$ck{'addr2'} =~ s/<br>/\r/g;

		print "<P><table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
		print "<tr><td colspan=2>▼<b>注文者</b> ( <font color=red>*</font>入力必須 )</td></tr>\n";
		print "<tr><td>会社名</td><td><input type=text name=comp size=30 style='ime-mode:active' value=\"$ck{'comp'}\"></td></tr>\n";
		print "<tr><td>名前 <font color=red>*</font></td><td><input type=text name=name size=30 style='ime-mode:active' value=\"$ck{'name'}\"></td></tr>\n";
		print "<tr><td>郵便番号";
		print " <font color=red>*</font>" if ($postno);
		print "</td><td>〒 <input type=text name=yuno size=10 style='ime-mode:inactive' value=\"$ck{'yuno'}\"> &nbsp; (例 : 103-0225)</td></tr>\n";
		print "<tr><td>住所 <font color=red>*</font></td><td><textarea name=addr cols=43 rows=3 wrap=soft style='ime-mode:active'>$ck{'addr'}</textarea></td></tr>\n";
		print "<tr><td>電話 <font color=red>*</font></td><td><input type=text name=tel size=20 style='ime-mode:inactive' value=\"$ck{'tel'}\"></td></tr>\n";
		print "<tr><td>FAX</td><td><input type=text name=fax size=20 style='ime-mode:inactive' value=\"$ck{'fax'}\"></td></tr>\n";
		print "<tr><td>E-Mail <font color=red>*</font></td><td><input type=text name=email size=30 style='ime-mode:inactive' value=\"$ck{'email'}\"></td></tr>\n";
		# CCメール
		if ($ccmail) {
			print "<tr><td>注文控え</td>",
			"<td><input type=checkbox name=cc value=1> ",
			"（ここにチェックを入れると注文内容の写しを送信します）</td></tr>\n";
		}
		print "</table>\n";
		print "<P><table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
		print "<tr><td colspan=2>▼<b>配送先</b>（注文者の住所と異なる場合に記入）</td></tr>\n";
		print "<tr><td>会社名</td><td><input type=text name=comp2 size=30 style='ime-mode:active' value=\"$ck{'comp2'}\"></td></tr>\n";
		print "<tr><td>名前</td><td><input type=text name=name2 size=30 style='ime-mode:active' value=\"$ck{'name2'}\"></td></tr>\n";
		print "<tr><td>郵便番号</td><td>〒 <input type=text name=yuno2 size=8 style='ime-mode:inactive' value=\"$ck{'yuno2'}\"> &nbsp; (例 : 103-0225)</td></tr>\n";
		print "<tr><td>住所</td><td><textarea name=addr2 cols=43 rows=2 wrap=soft style='ime-mode:active'>$ck{'addr2'}</textarea></td></tr>\n";
		print "<tr><td>電話</td><td><input type=text name=tel2 size=20 style='ime-mode:inactive' value=\"$ck{'tel2'}\"></td></tr>\n";
		print "<tr><td>FAX</td><td><input type=text name=fax2 size=20 style='ime-mode:inactive' value=\"$ck{'fax2'}\"></td></tr>\n";
		print "</table>\n";
		print "<P><table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
		print "<tr><td colspan=2>▼<b>クッキー情報</b>（注文者と配達先情報を次回以降に自動表\示します）</td></tr>\n";
		if ($ck{'cook'} eq "on") { $chk=" checked"; } else { $chk=""; }
		print "<tr><td><input type=checkbox name=cook value=on $chk>保存する</td></tr>\n";
		print "</table>\n";
		print "<P><table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
		print "<tr><td colspan=2>▼<b>備考</b>（ご要望、ご質問などをどうぞ・・）</td></tr>\n";
		print "<tr><th><textarea name=note cols=50 rows=3 wrap=soft></textarea></th></tr>\n";
		print "</table>\n";
	## 確認画面
	} elsif ($in{'job'} == 3) {
		$submit = '上記内容で確定処理をする';
		print "<P><table border=1 cellspacing=0 cellpadding=4 bgcolor='white' width='500'>\n";
		print "<tr><td><DL>\n";
		if ($payment) {
			print "<input type=hidden name=payment value=\"$in{'payment'}\">\n";
			print "<DT>▼支払い方法<DD>$payment[$in{'payment'}]<br><br>\n";
		}
		if ($postage) {
			print "<DT>▼送料（上記金額とは別にかかります）\n";
			print "<DD>$postage2<br><br>\n";
		}
		if ($deliver) {
			print "<DT>▼希望配達日時<DD>";
			if ($in{'mon'} ne "" && $in{'day'} ne "") {
				print "$in{'mon'}月 $in{'day'}日 ";
			} else { print "月日指定なし "; }
			if ($in{'hour'} ne "") {
				print "$deli[$in{'hour'}]";
			} else { print "時間帯指定なし"; }
			print "<br><br>\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;

		print "<input type=hidden name=comp value=\"$in{'comp'}\">\n";
		print "<input type=hidden name=name value=\"$in{'name'}\">\n";
		print "<input type=hidden name=yuno value=\"$in{'yuno'}\">\n";
		print "<input type=hidden name=addr value=\"$in{'addr'}\">\n";
		print "<input type=hidden name=tel  value=\"$in{'tel'}\">\n";
		print "<input type=hidden name=fax  value=\"$in{'fax'}\">\n";
		print "<input type=hidden name=email value=\"$in{'email'}\">\n";
		print "<input type=hidden name=comp2 value=\"$in{'comp2'}\">\n";
		print "<input type=hidden name=name2 value=\"$in{'name2'}\">\n";
		print "<input type=hidden name=yuno2 value=\"$in{'yuno2'}\">\n";
		print "<input type=hidden name=addr2 value=\"$in{'addr2'}\">\n";
		print "<input type=hidden name=tel2  value=\"$in{'tel2'}\">\n";
		print "<input type=hidden name=fax2  value=\"$in{'fax2'}\">\n";
		print "<input type=hidden name=cook  value=\"$in{'cook'}\">\n";
		print "<input type=hidden name=mon   value=\"$in{'mon'}\">\n";
		print "<input type=hidden name=day   value=\"$in{'day'}\">\n";
		print "<input type=hidden name=hour  value=\"$in{'hour'}\">\n";
		print "<input type=hidden name=note  value=\"$in{'note'}\">\n";
		print "<input type=hidden name=cc    value=\"$in{'cc'}\">\n";
		print "<DT>▼注文者情報\n";
		print "<DT>会社名<DD>$in{'comp'}\n" if ($in{'comp'});
		print "<DT>名前<DD>$in{'name'}\n";
		print "<DT>郵便番号<DD>$in{'yuno'}\n" if ($in{'yuno'});
		print "<DT>住所<DD>$in{'addr'}\n";
		print "<DT>電話<DD>$in{'tel'}\n";
		print "<DT>FAX<DD>$in{'fax'}\n" if ($in{'fax'});
		print "<DT>E-Mail<DD>$in{'email'}\n";
		if ($ccmail) {
			print "<DT>注文控え";
			if ($in{'cc'}) { print "<DD>必要\n"; }
			else { print "<DD>不要\n"; }
		}
		print "<br><br>\n";
		print "<DT>▼送付先情報\n";
		print "<DT>会社名<DD>$in{'comp2'}\n" if ($in{'comp2'});
		print "<DT>名前<DD>$in{'name2'}\n" if ($in{'name2'});
		print "<DT>郵便番号<DD>$in{'yuno2'}\n" if ($in{'yuno2'});
		print "<DT>住所<DD>$in{'addr2'}\n" if ($in{'addr2'});
		print "<DT>電話<DD>$in{'tel2'}\n" if ($in{'tel2'});
		print "<DT>FAX<DD>$in{'fax2'}\n" if ($in{'fax2'});
		if (!$in{'comp2'} && !$in{'name2'} && !$in{'yuno2'} && !$in{'addr2'} && !$in{'tel2'} && !$in{'fax2'}) { print "<DT><DD>特になし\n"; }
		if ($in{'cook'} eq "on") { $ck = '保存する'; } else { $ck = '保存しない'; }
		print "<br><br><DT>▼クッキー情報<DD>$ck\n";
		print "<br><br><DT>▼備考<DD>$in{'note'}\n" if ($in{'note'});
		print "</td></tr></table>\n";
	}
	print "<br><table><tr><td>\n";
	print "<input type=submit value=\"$submit\"></form></td>\n";
	if (!$in{'job'}) {
		print "<form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$page\">\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=submit value='初期メニューに戻る'>\n";
	} else {
		print "<form><input type=button value='前画面にもどる' onClick='history.back()'>";
	}
	print "</form></td></tr></table></div>\n", "</body></html>\n";
	exit;
}

#------------#
#  検索実行  #
#------------#
sub find {
	# 戻りボタン
	print "<td><form action=\"$script\" method=\"POST\">\n";
	print "<input type=hidden name=page value=\"$page\">\n";
	foreach (0 .. $#key) {
		print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
	}
	print "<input type=submit value='初期メニューに戻る'></form></td>\n";
	print "</tr></table>\n";

	# 買物受付け
	if ($key[0]) { &pick; }

	# 入力内容を整理
	$in{'word'} =~ s/　/ /g;
	@wd = split(/\s+/, $in{'word'});

	# リスト
	print "<table border=1 cellspacing=0 cellpadding=3 width=\"100%\">\n",
	"<tr><td align=\"center\" class=\"n12\">商品名</td><td align=\"center\" class=\"n12\">単価</td>",
	"<td align=\"center\" class=\"n12\">備考</td></tr>\n";

	# 検索
	$i=0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	while (<IN>) {
		chop;
		($no,$item,$price,$size,$col,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link) = split(/<>/);
		$flag=0;
		foreach $wd (@wd) {
			if (index("$item$memo",$wd) >= 0) {
				$i++;
				if ($i % 2) { $line=$lin1; } else { $line=$lin2; }
				if ($img) { $item = "<a href=\"$link\" target=\"_blank\" class=\"blue\">$item</a>"; }
				$price = &filler($price);
				print "<tr bgcolor=\"$line\">";
				print "<input type=hidden name=pick value=\"$no\">\n";
				print "<input type=hidden name=page value=\"$page\">\n";
				print "<input type=hidden name=word value=\"$in{'word'}\">\n";
				foreach (0 .. $#key) {
					print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
				}
				if ($intax == 1) { $zei="税込み"; } else { $zei="税別"; }
				if ($id eq "") { $id = $no; }
				print "<td class=\"n12\" nowrap><b>$item</b></td><td nowrap align=\"center\" class=\"n12\"><b><font color=\"#FF0000\">\\ $price</font></b> ($zei)</td><td align=\"left\" class=\"n11\">$memo</td>";
				if ($size) {
					@size = split(/\s+/, $size);
					print "";
					foreach (@size) {
						print "";
					}
					print "\n";
				} else { print "</tr>"; }
				if ($col) {
					@col = split(/\s+/, $col);
					print "\n";
					foreach (@col) {
						print "";
					}
					print "\n";
				} else { print ""; }
				print "\n";
			}
		}
	}
	close(IN);
	print "</table>\n", "
<!-- ↑ -->
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width=\"95%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td align=\"right\" valign=\"top\">
<!-- footer -->
<hr size=\"1\" color=\"#999999\" width=\"100%\">
<font class=\"n10\" color=\"#666666\">
CopyRight(c)2002&nbsp; @\Beauty.&nbsp;All&nbsp;rights&nbsp;reserved.<br>
</font> 
</td>
</tr>
</table>
</div>
</body>
</html>
\n";
	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 = "必要事項を入力してください。\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 category {
	# カテゴリメニュー
	if ($in{'view'} eq "") {
		print "<P><table border=1 cellpadding=3 cellspacing=0>\n",
		"<caption>▼最初にカテゴリーをお選びください。</caption>\n",
		"<tr><th nowrap>内容閲覧</th><th nowrap>カテゴリー</th><th nowrap>商品数</th></tr>\n";

		$i=0; $f=0;
		open(IN,"$logfile") || &error("Open Error : $logfile");
		while (<IN>) {
			($no,$item,$price,$size,$col,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link) = split(/<>/);
			if ($cate2 ne $cate) {
				if ($f) { $f=0; print "<th>$i</th></tr>\n"; $i=0; }
				$f=1;
				print "<tr><th><form action=\"$script\" method=POST>\n",
				"<input type=hidden name=view value=\"$cate\">\n";
				foreach (0 .. $#key) {
					print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
				}
				print "<input type=submit value='閲覧'></th></form>",
				"<td>&nbsp;&nbsp; <b>$cate[$cate]</b> &nbsp;&nbsp;</td>";
			}
			$cate2 = $cate;
			$i++;
		}
		close(IN);
		if ($f) { print "<th>$i</th></tr>\n"; }

		# 著作権表示（削除改編を禁止します）
		print "</table><br><br><!-- $ver -->",
		"<span style='font-family:Arial,Verdana; font-size:8pt'>\n",
		"- <a href='http://www.kent-web.com/' target='_top'>Shopping Cart</a> -</span>\n";

	# カテゴリの中身を表示
	} else {
		print "<P><table border=0 width='95%'><tr><td>\n",
		"<font color=\"$t_color\">▼ <b>$cate[$in{'view'}]</b></font></td>",
		"<td align=right><form action=\"$script\" method=POST>\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=submit value='メニューに戻る'>",
		"</td></form></tr></table>\n",
		"<table border=1 cellspacing=0 cellpadding=5 width='95%'>\n",
		"<tr bgcolor=\"$lin1\"><th>商品No</th><th>商品名</th><th>単価</th>",
		"<th>属性情報</th><th>数量</th><th>購入</th></tr>\n";

		open(IN,"$logfile") || &error("Open Error : $logfile");
		while (<IN>) {
			($no,$item,$price,$size,$col,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link) = split(/<>/);
			next if ($in{'view'} != $cate);

			$i++;
			if ($i % 2) { $line=$lin2; } else { $line=$lin1; }
			if ($intax == 1) { $zei="税込み"; } else { $zei="税別"; }
			if ($id eq "") { $id = $no; }
			$price = &filler($price);
			print "<form action=\"$script\" method=POST>\n";
			print "<input type=hidden name=view value=\"$in{'view'}\">\n";
			print "<input type=hidden name=pick value=\"$no\">\n";
			foreach (0 .. $#key) {
				print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
			}
			print "<tr bgcolor=\"$line\"><td><span>$id</span></td><td>";
			# 画像
			if ($img) {
				if ($w && $h) { $wh="width=$w height=$h"; }
				print "<a href=\"$link\" target=\"_blank\">" if ($link);
				print "<img src=\"$img\" alt=\"$item\" border=0 $wh hspace=5 align=middle>";
				print "</a>" if ($link);
			}
			print "<b>$item</b></td><td nowrap align=right>",
			"<b>\\ <span>$price</span></b> ($zei)</td><td>";

			if ($size) {
				@size = split(/\s+/, $size);
				print "<b>$attr1</b><br><select name=size>\n";
				foreach (@size) {
					print "<option value=\"$_\">$_\n";
				}
				print "</select><P>\n";
			} else { print "&nbsp;"; }
			if ($col) {
				@col = split(/\s+/, $col);
				print "<b>$attr2</b><br><select name=color>\n";
				foreach (@col) {
					print "<option value=\"$_\">$_\n";
				}
				print "</select><P>\n";
			} else { print "&nbsp;"; }
			if ($memo eq "" && $link eq "") { $memo="<br>"; }
			else { print "<b>備考</b><br>"; }
			print "$memo</td><td>";
			if ($nmb) {
				@nmb = split(/\s+/, $nmb);
				print "<select name=\"pick$no\">\n";
				foreach (0, @nmb) {
					print "<option value=\"$_\">$_\n";
				}
				print "</select>\n";
			} else {
				print "<input type=text name=\"pick$no\" size=3 value=\"0\" style=\"ime-mode:inactive\" maxlength=\"$maxlen\">";
			}
			print "</td><td><input type=submit value='カゴに入れる'></td></form></tr>\n";
		}
		close(IN);
		print "</table>\n";
	}

	print "</div>\n</body></html>\n";
	exit;
}

#------------------#
#  メール送信処理  #
#------------------#
sub sendmail {
	local($mail_sub, $mail_body, $ordlog);

	# メール本文
	$date = &get_time;
	$host = &get_host;
	$mail_body = <<"EOM";
注文日時：$date
ホスト名：$host
ブラウザ：$ENV{'HTTP_USER_AGENT'}
EOM
	if ($ccmail) {
		$mail_body = "このメールは自動返信メールです。\n商品のお届け等については別途ご連絡致します。\n\n" . $mail_body;
	}
	$mail_body .= "\n▼注文内容：\n";
	$mail_body .= "-" x 74 . "\n";
	$i=0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	foreach (0 .. $#key) {
		($pnum,$psize,$pcol) = split(/:/, $val[$_]);
		while ($file = <IN>) {
			chop($file);
			($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate) = split(/<>/, $file);
			if ($key[$_] == $no) {
				$price2 = $price * $pnum;
				if ($intax == 1) { $tax = 0; $zei = "税込み"; }
				else { $tax = int($price2*0.05); $zei = "税別"; }

				# 合計処理
				$all_pr2 += $price2;
				$all_tax += $tax;
				$ten += $pnum;

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

				$i++;
				if ($id eq "") { $id = $no; }
				$mail_body .= "($i) $item ($id)";
				$mail_body .= "  $attr1($psize)" if ($psize ne "");
				$mail_body .= "  $attr2($pcol)" if ($pcol ne "");
				$mail_body .= "  [$zei]\n  $price × $pnum = \\ $price2  ";
				$mail_body .= "消費税 \\ $tax  小計 \\ $price3\n";
				$mail_body .= "-" x 74 . "\n";
				last;
			}
		}
		seek(IN,0,0);
	}
	close(IN);

	# 総計
	$all_pr3 = $all_pr2 + $all_tax;
	$all_pr3 = &filler($all_pr3);
	$mail_body .= "商品合計 : \\ $all_pr3\n";
	$mail_body .= "-" x 74 . "\n";

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

	$mail_body .= "\n▼支払方法：\n$payment[$in{'payment'}]\n" if ($payment);
	if ($deliver) {
		$mail_body .= "\n▼配達日時：\n";
		if ($in{'mon'} ne "" && $in{'day'} ne "") {
			$mail_body .= "$in{'mon'}月 $in{'day'}日 ";
		} else { $mail_body .= "月日指定なし "; }
		if ($in{'hour'} ne "") { $mail_body .= "$deli[$in{'hour'}]\n"; }
		else { $mail_body .= "時間帯指定なし\n"; }
	}
	$mail_body .= "\n▼注文者：\n";
	$mail_body .= "e-mail = $in{'email'}\n";
	$mail_body .= "会社名 = $in{'comp'}\n" if ($in{'comp'});
	$mail_body .= "名前 = $in{'name'}\n";
	$mail_body .= "郵便番号 = $in{'yuno'}\n" if ($in{'yuno'});
	$mail_body .= "住所 = $in{'addr'}\n";
	$mail_body .= "電話 = $in{'tel'}\n";
	$mail_body .= "FAX  = $in{'fax'}\n" if ($in{'fax'});
	if ($ccmail) {
		if ($in{'cc'}) { $cc='必要'; } else { $cc='不要'; }
		$mail_body .= "注文控 = $cc\n";
	}
	$mail_body .= "\n▼配送先  ：\n" if ($in{'comp2'} || $in{'name2'} || $in{'yuno2'} || $in{'addr2'} || $in{'tel2'} || $in{'fax2'});
	$mail_body .= "会社名 = $in{'comp2'}\n" if ($in{'comp2'});
	$mail_body .= "名前 = $in{'name2'}\n" if ($in{'name2'});
	$mail_body .= "郵便番号 = $in{'yuno2'}\n" if ($in{'yuno2'});
	$mail_body .= "住所 = $in{'addr2'}\n" if ($in{'addr2'});
	$mail_body .= "電話 = $in{'tel2'}\n" if ($in{'tel2'});
	$mail_body .= "FAX  = $in{'fax2'}\n" if ($in{'fax2'});
	$mail_body .= "\n▼備考：\n$in{'note'}\n" if ($in{'note'});

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

	# メール送信
	if ($ordertype == 1) {
		# メール件名を定義
		$mail_sub = "注文メール ($in{'name'} 様)";

		# コード変換
		&jcode'convert(*mail_sub,  "jis", "sjis");
		&jcode'convert(*mail_body, "jis", "sjis");

		# sendmail起動
		open(MAIL,"| $sendmail -t");
		print MAIL "To: $mailto\n";
		print MAIL "From: $in{'email'}\n";
		print MAIL "Cc: $in{'email'}\n" if ($in{'cc'});
		print MAIL "Subject: $mail_sub\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";
		print MAIL $mail_body;
		close(MAIL);
	}

	# 新規注文ログ定義
	$ordlog =~ s/\n/<br>/g;
	@new=("$ordlog\n");

	# 既存ログ読み出し
	$i=0;
	open(IN,"$ordfile") || &error("Open Error : $ordfile");
	while (<IN>) {
		$i++;
		push(@new,$_);
		last if ($i >= $max-1);
	}
	close(IN);

	# 更新
	open(OUT,">$ordfile") || &error("Write Error : $ordfile");
	print OUT @new;
	close(OUT);
}

#------------#
#  留意事項  #
#------------#
sub note {
	&header;
	print <<"EOM";
<div align="center">
<h3>特定商取引に関する法律の表\示</h3>
<table border=2 cellpadding=10 bordercolor="green">
<tr><td bgcolor="white">
<pre>
EOM
	print $raw_view;
	print "</pre>\n</td></tr></table>\n<form>\n";
	if ($in{'job'} eq "blank") {
		print "<input type=button value='画面を閉じる' onClick='top.close();'>";
	} else {
		print "<input type=button value='前の画面にもどる' onClick='history.back()'>";
	}
	print "</form></div>\n", "</body></html>\n";
	exit;
}

#------------#
#  時間取得  #
#------------#
sub get_time {
	# 日時の取得
	$ENV{'TZ'} = "JST-9";
	local($min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[1..6];

	# 日時のフォーマット
	local(@w) = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	sprintf("%04d/%02d/%02d(%s) %02d:%02d",
			$year+1900,$mon+1,$mday,$w[$wday],$hour,$min);
}

#------------------#
#  ホスト情報取得  #
#------------------#
sub get_host {
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

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

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

	@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	@t = gmtime(time + 60*24*60*60);
	$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]);

	if ($in{'cook'} eq "on") {
		$cook = "comp<>$in{'comp'}<>name<>$in{'name'}<>yuno<>$in{'yuno'}<>addr<>$in{'addr'}<>tel<>$in{'tel'}<>fax<>$in{'fax'}<>email<>$in{'email'}<>comp2<>$in{'comp2'}<>name2<>$in{'name2'}<>yuno2<>$in{'yuno2'}<>addr2<>$in{'addr2'}<>tel2<>$in{'tel2'}<>fax2<>$in{'fax2'}<>cook<>$in{'cook'}";
	} else {
		$cook = "";
	}
	print "Set-Cookie: ShoppingCart=$cook; expires=$gmt\n";
}

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

	@cook = split(/;/, $ENV{'HTTP_COOKIE'});
	foreach (@cook) {
		($key, $val) = split(/=/);
		$key =~ s/\s//g;
		$tp{$key} = $val;
	}
	%ck = split(/<>/, $tp{'ShoppingCart'});
}

#------------------#
#  チェックモード  #
#------------------#
sub check {
	&header;
	print "<h2>Check Mode</h2>\n", "<UL>\n";

	# 商品情報ログファイル
	if (-e $logfile) {
		print "<LI>商品情報ログ：パスOK!\n";
		if (-r $logfile && -w $logfile) {
			print "<LI>商品情報ログパーミッション：OK!\n"; }
		else { print "<LI>商品情報ログのパーミッションが不正です\n"; }
	} else { print "<LI>商品情報ログのパスが不正です： $logfile\n"; }

	# 注文情報ログファイル
	if (-e $ordfile) {
		print "<LI>注文情報ログ：パスOK!\n";
		if (-r $ordfile && -w $ordfile) {
			print "<LI>注文情報ログパーミッション：OK!\n"; }
		else { print "<LI>注文情報ログのパーミッションが不正です\n"; }
	} else { print "<LI>注文情報ログのパスが不正です： $ordfile\n"; }

	# ロックディレクトリ
	print "<LI>ロック形式：";
	if ($lockkey == 0) { print "ロック設定なし\n"; }
	else {
		if ($lockkey == 1) { print "symlink\n"; }
		else { print "mkdir\n"; }
		($lockdir) = $lockfile =~ /(.*)[\\\/].*$/;
		print "<LI>ロックディレクトリ：$lockdir\n";

		if (-d $lockdir) {
			print "<LI>ロックディレクトリのパス：OK\n";
			if (-r $lockdir && -w $lockdir && -x $lockdir) {
				print "<LI>ロックディレクトリのパーミッション：OK\n";
			} else {
				print "<LI>ロックディレクトリのパーミッション：NG → $lockdir\n";
			}
		} else { print "<LI>ロックディレクトリのパス：NG → $lockdir\n"; }
	}

	# 送信方式
	if ($ordertype == 1) {
		print "<LI>注文方式：メール送信\n";
		# sendmailチェック
		if (-e $sendmail) {
			print "<LI>sendmailパス：OK!\n";
		} else {
			print "<LI>sendmailパス：NG → $sendmail\n";
		}
	} else {
		print "<LI>注文方式：ログ蓄積\n";
	}

	print "</UL>\n<div align='right'><b>$ver</b><br>",
	"Copyright (C) <a href='http://www.kent-web.com/' target='_top'>KENT WEB</a> 2002</div>\n",
	"</body></html>\n";
	exit;
}

__END__