#!/usr/local/bin/perl

## cart.cgi v2.11 (2003/06/03)
## Copyright (c) KentWeb

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

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


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

	# 在庫
	&stock if ($stock);

	&header;
	print <<EOM;

<div align="center">
EOM
	if ($t_image) {
		print "<img src=\"$t_image\" alt=\"$title\">\n";
	} else {
		print "<hr width=350 size=1 color=$t_color>
		<b style=\"font-size:$t_size; color:$t_color\">$title</b>
		<hr width=350 size=1 color=$t_color>\n";
	}

	print <<EOM;
<p>
<table><tr><td>
$sub_msg
</td></tr></table>
EOM
	# 検索窓
	if ($find) {
		print "<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=40 value=\"$in{'word'}\">\n";
		print "<input type=submit value='商品検索' class=f></td></form>\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=6; } else { $span=5; }
		if ($stock) { $span++; }
		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\">$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=2 cellspacing=0 cellpadding=4 width=$cell>\n";
		print "<tr><th nowrap class=l>商品No</th>";

		# 画像
		if ($img && $imgview) {
			print "<td class=r><span>$id</span></td>\n";
			print "<th class=r rowspan=$span>";
			if ($w && $h) {	$wh = "width=$w height=$h"; }
			print "<a href=\"$link\" target=\"_blank\">" if ($link);
			print "<img src=\"$img\" alt=\"$id\" border=0 $wh>";
			print "</a>" if ($link);
			print "</th></tr>\n";
		} else {
			print "<td class=r><span>$id</span></td></tr>\n";
		}
		print "<tr><th nowrap class=l>商品名</th>
		<td class=r><b>$item</b></td></tr>\n";
		if ($category) {
			if ($cate eq "") { $cate = 0; }
			print "<tr><th nowrap class=l>カテゴリ</th>";
			print "<td class=r>$cate[$cate]</td></tr>\n";
		}
		print "<tr><th nowrap class=l>単価</th>
		<td class=r><b>\\<span>$price2</span></b> ";
		if ($intax == 1) { print "(税込み)"; } else { print "(税別)"; }
		print "</td></tr>\n";
		if ($stock) {
			if (!defined($stock{$no})) { $stock{$no}=0; }
			print "<tr><th class=l>在庫</th>
			<td class=r>&nbsp; <b>$stock{$no}</b></td></tr>\n";
		}
		print "<tr><th nowrap class=l>数量</th>";

		# 入力
		$flag=0;
		$pnum=$psize=$pcol='';
		foreach (0 .. $#key) {
			if ($no == $key[$_]) {
				$flag=1;
				($pnum,$psize,$pcol) = split(/:/, $val[$_]);
				last;
			}
		}
		if (!$flag) { $pnum = 0; }
		if ($nmb) {
			@nmb = split(/\s+/, $nmb);
			print "<td class=r><select name=\"pick$no\">\n";
			foreach (0, @nmb) {
				last if ($stock && $_ > $stock{$no});
				if ($pnum == $_) {
					print "<option value=\"$_\" selected>$_\n";
				} else {
					print "<option value=\"$_\">$_\n";
				}
			}
			print "</select></td></tr>\n";
		} else {
			print "<td class=r><input type=text name=\"pick$no\" size=3 value=\"$pnum\" style=\"ime-mode:inactive\" maxlength=\"$maxlen\"></td></tr>\n";
		}
		if ($size) {
			@size = split(/\s+/, $size);
			print "<tr><th nowrap class=l>$attr1</th>
			<td class=r><select name=size>\n";
			foreach (@size) {
				if ($psize eq $_) {
					print "<option value=\"$_\" selected>$_\n";
				} else {
					print "<option value=\"$_\">$_\n";
				}
			}
			print "</select></td></tr>\n";
		}
		if ($color) {
			@color = split(/\s+/, $color);
			print "<tr><th nowrap class=l>$attr2</th>
			<td class=r><select name=color>\n";
			foreach (@color) {
				if ($pcol eq $_) {
					print "<option value=\"$_\" selected>$_\n";
				} else {
					print "<option value=\"$_\">$_\n";
				}
			}
			print "</select></td></tr>\n";
		}
		if ($memo) {
			print "<tr><th nowrap class=l>備考</th>
			<td class=r>$memo</td></tr>\n";
		}
		print "<tr><th class=l>購入</th><td class=r>";
		if ($stock && $stock{$no} <= 0) {
			print "在庫切れ";
		} else {
			print "<input type=submit value='カゴに入れる'>";
		}
		print "</td></form></tr></table></TD>";
	}
	close(IN);
	print "</TR></TABLE>\n";

	# ページ繰越ボタン
	$next = $page + $gview;
	$back = $page - $gview;
	print "<p><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=submit value='前ページ' class=f></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=submit value='次ページ' class=f></td></form>\n";
	}

	# 著作権表示（削除改編を禁止します）
	print <<"EOM";
</tr></table>
<br><br><!-- $ver -->
<span style="font-family:Verdana,Arial; font-size:10px">
- <a href="http://www.kent-web.com/" target="_top">Shopping Cart</a> -
</span></div>
</body>
</html>
EOM
	exit;
}

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

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

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

	# 買い物
	$order=0;
	foreach (0 .. $#key) {
		($pnum) = split(/:/, $val[$_]);
		if (length($pnum) > $maxlen) { &error("注文個数は$maxlen桁までです"); }
		if ($pnum > 0) { $order++; }
		($no,$item,$price,$size,$col,$img,$memo,$w,$h,$intax,$nmb) = split(/<>/, $pick{$key[$_]});

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

		$price2 = $price * $pnum;
		if ($intax == 1) { $in_tax += $price2; }
		else { $no_tax += $price2; }
	}

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

	# 小計
	$all_pr2 = $in_tax + $no_tax;
	$tax = $no_tax * $pertax;
	$all_pr3 = $all_pr2 + $tax;

	$tax = &filler($tax);
	$all_pr2 = &filler($all_pr2);
	$all_pr3 = &filler($all_pr3);

	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=5 cellspacing=1>
<tr>
  <td class=r>小　計： \\<span>$all_pr2</span></td>
  <td class=r>消費税： \\<span>$tax</span></td>
  <td class=r>合計金額： <b>\\<span>$all_pr3</span></b></td>
  <td class=r><input type=submit value="中身を確認(購入画面)"></td></form>
</tr>
</table>
<P>
EOM
}

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

		&header;
		print <<EOM;
<br><br>
<div align="center">
<h3 style="font-size:12pt; 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{'addr'} eq "") { &error("住所の入力がありません"); }
		if ($in{'tel'} eq "") { &error("電話の入力がありません"); }
		if ($in{'email'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
			&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('郵便番号は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'});
	}

	# 取消処理
	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='特定商取引法の表\示' class=f></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>
		<form><input type=button value='トップページに戻る'
		onClick=window.open(\"$home\",\"_top\") class=f>
		</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=7; }
	else { print "</tr>\n"; $colspan=6; }

	# データ認識
	%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>
		<td class=r><b>$item</b></td>
		<td align=right class=r>$pnum</td>
		<td align=right class=r>$price</td>
		<td align=right class=r>$price2</td>
		<td align=center class=r>$zei</td>
		<td align=center class=r>$psize</td>
		<td align=center class=r>$pcol</td>
		<td class=r>$memo</td>";

		if ($in{'job'} eq "") {
			print "<td align=center class=r>
			<form action=\"$script\" method=POST>
			<input type=hidden name=mode value=\"cart\">
			<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;

	if ($all_pr2 eq "") { $all_pr2 = 0; }
	if ($all_tax eq "") { $all_tax = 0; }
	$all_pr2 = &filler($all_pr2);

	print <<EOM;
<tr>
  <td colspan=4 align=right class=r><b>小計</b></td>
  <td align=right nowrap class=r><b>\\$all_pr2</b></td>
  <td colspan=$colspan class=r>
EOM
	if ($in{'job'} != 3 && $no_tax > 0) {
		print "(消費税は計算されていません)";
	} else {
		print "<br>";
	}
	print "</td></tr>\n";

	if ($in{'job'} == 3) {
		$tax = int $no_tax * $pertax;
		$all = $in_tax + $no_tax + $tax;

		$tax = &filler($tax);
		$all = &filler($all);

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

	print <<EOM;
</table>
<p>
<form action="$script" method="POST">
<input type=hidden name=mode value="cart">
EOM

	$submit = '住所入力画面へ移動';
	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 width=500>
			<tr><td class=l>▼<b>支払方法</b>（選択必須）</td></tr>
			<tr><td class=r>\n";

			foreach (0 .. $#payment) {
				if ($_ == $paycheck-1) {
					print "<input type=radio name=payment value=\"$_\" checked>$payment[$_]&nbsp;&nbsp;\n";
				} else {
					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=8 width=500>
			<tr><td class=l>▼<b>送料</b>
			（上記金額とは別途にかかります）</td></tr>
			<tr><td class=r>$postage2</td></tr>
			</table>\n";
		}

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

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

		# クッキー取得
		local($ccom,$cnam,$cyu,$cadr,$ctel,$cfax,$ceml,$ccom2,$cnam2,$cyu2,$cadr2,$ctel2,$cfax2,$cck) = &get_cookie;

		$cadr  =~ s/<br>/\r/g;
		$cadr2 =~ s/<br>/\r/g;

		print <<EOM;
<p><table border=1 cellspacing=0 cellpadding=4 width=500>
<tr>
  <td colspan=2 class=l>▼<b>注文者</b> ( <font color=red>※</font>入力必須 )</td>
</tr>
<tr>
  <td class=r align=right>会社名</td>
  <td><input type=text name=comp size=30 style='ime-mode:active' value="$ccom"></td>
</tr>
<tr>
  <td class=r align=right>名前 <font color=red>※</font></td>
  <td class=r><input type=text name=name size=30 style='ime-mode:active' value="$cnam"></td>
</tr>
<tr>
  <td class=r align=right>郵便番号
EOM
		print " <font color=red>※</font>" if ($postno);
		print <<EOM;
  </td>
  <td class=r>〒 <input type=text name=yuno size=12 style='ime-mode:inactive' value="$cyu">
	&nbsp; (例 : 103-0225)</td>
</tr>
<tr>
  <td class=r align=right>住所 <font color=red>※</font></td>
  <td class=r><textarea name=addr cols=43 rows=3 wrap=soft style='ime-mode:active'>$cadr</textarea></td>
</tr>
<tr>
  <td class=r align=right>電話 <font color=red>※</font></td>
  <td class=r><input type=text name=tel size=20 style='ime-mode:inactive' value="$ctel"></td>
</tr>
<tr>
  <td class=r align=right>FAX</td>
  <td class=r><input type=text name=fax size=20 style='ime-mode:inactive' value="$cfax"></td>
</tr>
<tr>
  <td class=r align=right>E-Mail <font color=red>※</font></td>
  <td class=r><input type=text name=email size=35 style='ime-mode:inactive' value="$ceml"></td>
</tr>
EOM
		# CCメール
		if ($ccmail) {
			print "<tr><td align=right class=r>注文控え</td>
			<td class=r><input type=checkbox name=cc value=1>
			（チェックを入れると注文内容の写しを送信します）</td></tr>\n";
		}
		if ($cck eq "on") { $chk=" checked"; } else { $chk=""; }

		print <<EOM;
</table>
<p>
<table border=1 cellspacing=0 cellpadding=4 width=500>
<tr>
  <td colspan=2 class=l>▼<b>配送先</b>（注文者の住所と異なる場合に記入）</td>
</tr>
<tr>
  <td class=r align=right>会社名</td>
  <td class=r><input type=text name=comp2 size=30 style='ime-mode:active' value="$ccom2"></td>
</tr>
<tr>
  <td class=r align=right>名前</td>
  <td class=r><input type=text name=name2 size=30 style='ime-mode:active' value="$cnam2"></td>
</tr>
<tr>
  <td class=r align=right>郵便番号</td>
  <td class=r>〒 <input type=text name=yuno2 size=12 style='ime-mode:inactive' value="$cyu2">
	&nbsp; (例 : 103-0225)</td>
</tr>
<tr>
  <td class=r align=right>住所</td>
  <td class=r><textarea name=addr2 cols=43 rows=2 wrap=soft style='ime-mode:active'>$cadr2</textarea></td>
</tr>
<tr>
  <td class=r align=right>電話</td>
  <td class=r><input type=text name=tel2 size=20 style='ime-mode:inactive' value="$ctel2"></td>
</tr>
<tr>
  <td class=r align=right>FAX</td>
  <td class=r><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=500>
<tr>
  <td colspan=2 class=l>▼<b>クッキー情報</b>（注文者と配達先情報を次回以降に自動表\示します）</td>
</tr>
<tr>
  <td class=r><input type=checkbox name=cook value=on $chk>保存する</td>
</tr>
</table>
<p>
<table border=1 cellspacing=0 cellpadding=4 width=500>
<tr>
  <td colspan=2 class=l>▼<b>備考</b>（ご要望、ご質問などをどうぞ・・）</td>
</tr>
<tr>
  <th class=r><textarea name=note cols=50 rows=3 wrap=soft></textarea></th>
</tr>
</table>
EOM

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

		$submit = '上記内容で確定処理をする';
		print "<p><table border=1 cellspacing=0 cellpadding=7 width=520>\n";
		print "<tr><td class=r><DL>\n";
		if ($payment) {
			print "<input type=hidden name=payment value=\"$in{'payment'}\">\n";
			print "<DT>▼<b>支払い方法</b><DD>$payment[$in{'payment'}]<br><br>\n";
		}
		if ($postage) {
			print "<DT>▼<b>送料</b>（上記金額とは別にかかります）\n";
			print "<DD>$postage2<br><br>\n";
		}
		if ($deliver) {
			print "<DT>▼<b>希望配達日時</b><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>▼<b>注文者情報</b>\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>▼<b>送付先情報</b>\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>▼<b>クッキー情報</b><DD>$ck\n";
		print "<br><br><DT>▼<b>備考</b><DD>$in{'note'}\n" if ($in{'note'});
		print "</td></tr></table>\n";
	}

	print <<EOM;
<p>
<table><tr><td>
<input type=submit value="$submit" class=f></form>
</td><td width=15></td><td>
EOM

	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='初期メニューに戻る'class=f>\n";
	} else {
		print "<form>
		<input type=button value='前画面にもどる' onClick='history.back()' class=f>";
	}

	print <<EOM;
</form>
</td></tr></table>
</div>
</body>
</html>
EOM
	exit;
}

#------------#
#  検索実行  #
#------------#
sub find {
	# 戻りボタン
	print <<EOM;
<td width=12></td>
<td><form action="$script" method="POST">
<input type=hidden name=page value="$page">
EOM

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

	print <<EOM;
<input type=submit value="メニューに戻る" class=f>
</td></form>
</tr></table>
EOM

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

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

	# リスト
	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>
EOM
	if ($stock) { print "<th nowrap class=l>在庫</th>"; }

	print <<EOM;
<th nowrap class=l>情報</th>
<th nowrap class=l>数量</th>
<th nowrap class=l>購入</th>
</tr>
EOM

	# 検索
	$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=\"$img\" target=\"_blank\">$item</a>"; }
				$price = &filler($price);
				print "<tr><form action=\"$script\" method=POST>";
				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 align=center class=r>
				<span>$id</span></td>
				<td class=r><b>$item</b></td>
				<td nowrap align=right class=r>
				<b>\\<span>$price</span></b> ($zei)</td>";

				if ($stock) {
					if (!defined($stock{$no})) { $stock{$no}=0; }
					print "<th class=r>$stock{$no}</th>";
				}

				print "<td class=r>";

				if ($size) {
					@size = split(/\s+/, $size);
					print "($attr1)<br><select name=size>\n";
					foreach (@size) {
						print "<option value=\"$_\">$_\n";
					}
					print "</select><br>\n";
				}

				if ($col) {
					@col = split(/\s+/, $col);
					print "($attr2)<br><select name=color>\n";
					foreach (@col) {
						print "<option value=\"$_\">$_\n";
					}
					print "</select><br>\n";
				}
				print "(備考)<br>$memo</td><td align=center class=r>";
				if ($nmb) {
					@nmb = split(/\s+/, $nmb);
					print "<select name=\"pick$no\">\n";
					foreach (0, @nmb) {
						last if ($stock && $_ > $stock{$no});
						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 align=center class=r>";

				if ($stock && $stock{$no} <= 0) {
					print "在庫切れ";
				} else {
					print "<input type=submit value='カゴに入れる'>";
				}
				print "</td></form></tr>\n";
			}
		}
	}
	close(IN);

	print <<EOM;
</table></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 = "必要事項を入力してください。\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 {
	local($next, $back);

	# カテゴリメニュー
	if ($in{'view'} eq "") {

	print <<EOM;
<p>
▼最初にカテゴリーをお選びください。
<p>
<table border=1 cellpadding=4 cellspacing=0>
<tr>
  <th nowrap class=l>内容閲覧</th>
  <th nowrap class=l>カテゴリー</th>
  <th nowrap class=l>商品数</th>
</tr>
EOM

	$i=0; $f=0; $j=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 class=r>$i</th></tr>\n"; $i=0; }
			$f=1;

			print "<tr><th class=r><form action=\"$script\" method=POST>
			<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>";
			print "<td class=r><table><tr><td>";
			if (@cateImg > 0) {
				print "<img src=\"$cateImg[$j]\">";
			}
			print "</td><td width=5></td><td><b>$cate[$cate]</b></td>
			</tr></table></td>";
			$j++;
		}
		$cate2 = $cate;
		$i++;
	}
	close(IN);
	if ($f) { print "<th class=r>$i</th></tr>\n"; }

	# 著作権表示（削除改編禁止）
	print <<EOM;
</table>
<br><br>
<!-- $ver -->
<span style='font-family:Verdana,Arial; font-size:10px'>
- <a href='http://www.kent-web.com/' target='_top'>Shopping Cart</a> -
</span>
</body>
</html>
EOM
	exit;

	# カテゴリの中身を表示
	} else {

	# 在庫
	&stock if ($stock);

	print <<EOM;
<p>
<table border=0 width="95%">
<tr>
  <td><font color="$t_color">▼ <b>$cate[$in{'view'}]</b></font></td>
  <td align=right><form action="$script" method="POST">
EOM

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

	print <<EOM;
<input type=submit value="メニューに戻る" class=f>
</td></form></tr>
</table>
<table border=1 cellspacing=0 cellpadding=5 width="95%">
<tr>
  <th nowrap class=l>商品No</th>
  <th nowrap class=l>商品</th>
  <th nowrap class=l>単価</th>
EOM

	if ($stock) { print "<th nowrap class=l>在庫</th>"; }

	print <<EOM;
<th nowrap class=l>情報</th>
<th nowrap class=l>数量</th>
<th nowrap class=l>購入</th>
</tr>
EOM

	$k=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(/<>/);

		next if ($in{'view'} != $cate);
		$k++;
		if ($k < $page + 1) { next; }
		if ($k > $page + $pageView) { next; }

		$i++;
		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><td align=center class=r><span>$id</span></td><td class=r><b>$item</b>";

		# 画像
		if ($img) {
			if ($w && $h) { $wh="width=$w height=$h"; }
			print "<p><a href=\"$link\" target=\"_blank\">" if ($link);
			print "<img src=\"$img\" alt=\"$item\" border=0 $wh>";
			print "</a>" if ($link);
		}

		print "</td><td nowrap align=center class=r>";
		print "<b>\\<span>$price</span></b> ($zei)</td>";

		if ($stock) {
			if (!defined($stock{$no})) { $stock{$no}=0; }
			print "<th class=r>$stock{$no}</th>";
		}
		print "<td valign=top class=r>";

		if ($size) {
			@size = split(/\s+/, $size);
			print "($attr1)<br><select name=size>\n";
			foreach (@size) {
				print "<option value=\"$_\">$_\n";
			}
			print "</select><br><br>\n";
		} else { print "&nbsp;"; }

		if ($col) {
			@col = split(/\s+/, $col);
			print "($attr2)<br><select name=color>\n";
			foreach (@col) {
				print "<option value=\"$_\">$_\n";
			}
			print "</select><br><br>\n";
		} else {
			print "&nbsp;";
		}

		if ($memo eq "" && $link eq "") { $memo="<br>"; }
		else { print "(備考)<br>"; }
		print "$memo</td><td align=center class=r>";
		if ($nmb) {
			@nmb = split(/\s+/, $nmb);
			print "<select name=\"pick$no\">\n";
			foreach (0, @nmb) {
				last if ($stock && $_ > $stock{$no});
				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 align=center class=r>";
		if ($stock && $stock{$no} <= 0) {
			print "在庫切れ";
		} else {
			print "<input type=submit value='カゴに入れる'>";
		}
		print "</td></form></tr>\n";
	}
	close(IN);

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

	$next = $page + $pageView;
	$back = $page - $pageView;
	print "<p><table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=view value=\"$in{'view'}\">\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=submit value=\"前の$pageView件\" class=f></td></form>\n";
	}
	if ($next < $k) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=view value=\"$in{'view'}\">\n";
		foreach (0 .. $#key) {
			print "<input type=hidden name=\"pick$key[$_]\" value=\"$val[$_]\">\n";
		}
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=submit value=\"次の$pageView件\" class=f></td></form>\n";
	}

	print <<EOM;
</table>
</div>
</body>
</html>
EOM
	exit;
}

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

	# データ認識
	%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;
注文日時：$date
ホスト名：$host
ブラウザ：$ENV{'HTTP_USER_AGENT'}
EOM

	if ($ccmail) {
		$mbody = "このメールは自動返信メールです。\n商品のお届け等については別途ご連絡致します。\n\n" . $mbody;
	}

	$mbody .= "\n▼注文内容：\n";
	$mbody .= "-" x 74 . "\n";

	$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;

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

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

	# 総計
	$all_pr2 = $in_tax + $no_tax;
	$tax = int $no_tax * $pertax;
	$all_pr3 = $all_pr2 + $tax;

	$tax = &filler($tax);
	$all_pr2 = &filler($all_pr2);
	$all_pr3 = &filler($all_pr3);

	$mbody .= "小  計 : \\$all_pr2\n";
	$mbody .= "消費税 : \\$tax\n";
	$mbody .= "合  計 : \\$all_pr3\n";
	$mbody .= "-" x 74 . "\n";

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

	$mbody .= "\n▼支払方法：\n$payment[$in{'payment'}]\n" if ($payment);
	if ($deliver) {
		$mbody .= "\n▼配達日時：\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 .= "e-mail = $in{'email'}\n";
	$mbody .= "会社名 = $in{'comp'}\n" if ($in{'comp'});
	$mbody .= "名前 = $in{'name'}\n";
	$mbody .= "郵便番号 = $in{'yuno'}\n" if ($in{'yuno'});
	$mbody .= "住所 = $in{'addr'}\n";
	$mbody .= "電話 = $in{'tel'}\n";
	$mbody .= "FAX  = $in{'fax'}\n" if ($in{'fax'});

	if ($ccmail) {
		if ($in{'cc'}) { $cc='必要'; } else { $cc='不要'; }
		$mbody .= "注文控 = $cc\n";
	}

	$mbody .= "\n▼配送先：\n" if ($in{'comp2'} || $in{'name2'} || $in{'yuno2'} || $in{'addr2'} || $in{'tel2'} || $in{'fax2'});
	$mbody .= "会社名 = $in{'comp2'}\n" if ($in{'comp2'});
	$mbody .= "名前 = $in{'name2'}\n" if ($in{'name2'});
	$mbody .= "郵便番号 = $in{'yuno2'}\n" if ($in{'yuno2'});
	$mbody .= "住所 = $in{'addr2'}\n" if ($in{'addr2'});
	$mbody .= "電話 = $in{'tel2'}\n" if ($in{'tel2'});
	$mbody .= "FAX  = $in{'fax2'}\n" if ($in{'fax2'});
	$mbody .= "\n▼備考：\n$in{'note'}\n" if ($in{'note'});

	# タグ等復元
	$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");
		print MAIL "To: $mailto\n";
		print MAIL "From: $in{'email'}\n";
		print MAIL "Cc: $in{'email'}\n" if ($in{'cc'});
		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";
		}
		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);
	}

	# 新規注文ログ定義
	$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>
<tr><td class=r>
<pre>
EOM
	open(IN,"$rawfile") || &error("Open Error: $rawfile");
	print <IN>;
	close(IN);

	print <<EOM;
</pre>
</td></tr>
</table>
<form>
EOM
	if ($in{'job'} eq "blank") {
		print "<input type=button value='画面を閉じる' onClick='top.close();' class=f>";
	} else {
		print "<input type=button value='前の画面にもどる' onClick='history.back()' class=f>";
	}

	print <<EOM;
</form>
</div>
</body>
</html>
EOM
	exit;
}

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

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

	return ($d1,$d2);
}

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

	$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(@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("C", hex($1))/eg;

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

#------------------#
#  チェックモード  #
#------------------#
sub check {
	&header;
	print <<EOM;
<h2>Check Mode</h2>
<ul>
EOM

	foreach ($logfile, $ordfile, $stkfile) {

		if (-e $_) {
			print "<li>$_のパスOK\n";
		} else {
			print "<li>$_のパスNG\n";
		}
		if (-r $_ && -w $_) {
			print "<li>$_のパーミッションOK\n";
		} else {
			print "<li>$_のパーミッションNG\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";
	}

	# jcode.pl バージョンチェック
	print "<li>jcode.plバージョンチェック：";
	open(IN, $jcode);
	while (<IN>) {
		if (/jcode\.pl\,v (\d)\.(\d+)/) {
			$v1=$1; $v2=$2; $flag=1; last;
		}
	}
	close(IN);
	if ($v1 < 2 || $v2 < 13) {
		print "バージョンが低いようです。→ $v1.$v2\n";
	} else {
		print "バージョンOK (v $v1.$v2)\n";
	}

	print <<EOM;
</ul>
<p>
<a href="http://www.kent-web.com/" target="_top">$ver</a>
</body>
</html>
EOM
	exit;
}

#--------------#
#  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__