#!/usr/bin/perl

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

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

# メイン処理
&decode2;
if ($in{'pass'} eq "") { &enter; }
elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); }
&admin;

#-------------------------------------------------
#  管理機能
#-------------------------------------------------
sub admin {
	if ($in{'job'} eq "") { &menu; }

	# 基本処理
	if ($in{'job'} eq "new") {
		&new_log;
	} elsif ($in{'job'} eq "ord") {
		&ord_log;
	} elsif ($in{'job'} eq "csv") {
		&csv_log;
	} elsif ($in{'job'} eq "sort") {
		&sort_log;
	} elsif ($in{'no'} && $in{'job'} eq "dele") {
		&dele_log;
	} elsif ($in{'no'} && $in{'job'} eq "edit") {
		&edit_log;
	}

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

	&header;
	print <<EOM;
<table><tr>
<td><form action="$admin" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="menu">
<input type=submit value="管理トップ"></form></td>
<td><form action="$script">
<input type=submit value="販売画面"></form></td>
</tr></table>
EOM

	# 登録フォーム
	if ($in{'job'} eq "form") {
		print "▼<b>商品の新規登録</b>";
		print "&nbsp;&nbsp;&nbsp;( <font color=red>※</font> 入力必須 )\n";
		&form('new');
		print "</form>\n</body></html>\n";
		exit;
	}

	print <<"EOM";
▼<b>登録内容メンテ</b>
<ul>
<li>商品をチェックし、処理を選択してください。
</ul>
<form action="$admin" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
処理：<select name=job>
<option value="edit">修正
<option value="dele">削除</select>
<input type=submit value="送信する">
<p>
<table border=1 cellspacing=0 cellpadding=3>
<tr>
  <th class=l nowrap>選択</th>
  <th class=l nowrap>コード</th>
  <th class=l nowrap>商品名</th>
  <th class=l nowrap>単価</th>
  <th class=l nowrap>消費税</th>
EOM
	print "<th class=l nowrap>在庫</th>" if ($stock);
	print "<th class=l nowrap>画像</th></tr>\n";

	# 商品情報読み出し
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		s/\n//;
		($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link,$tail) = split(/<>/);

		if ($intax == 1) { $zei="込み"; } else { $zei="別"; }
		if ($id eq "") { $id = $no; }
		$price = &filler($price);
#		$memo =~ s/&lt;/</g;
#		$memo =~ s/&gt;/>/g;
#		$memo =~ s/&quot;/"/g;
#		$memo =~ s/&amp;/&/g;

		if ($category) {
			if ($cate2 ne $cate) {
				print "<tr><td colspan=7 class=r><b>$cate[$cate]</b></td></tr>\n";
				$i=1;
			}
		}

		print "<th class=r><input type=checkbox name=no value=\"$no\"></th>";
		print "<td class=r>$id</td><td class=r><b>$item</b></td>";
		print "<td class=r align=right>\\$price</td>";
		print "<td class=r align=center>$zei</td>";

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

		print "<td class=r align=center>";
		print "<a href=\"$imgurl/$no$tail\" target=\"_blank\">画像</a>" if ($tail);
		print "<br></td></tr>\n";

		$cate2 = $cate;
	}
	close(IN);

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

#-------------------------------------------------
#  新規登録
#-------------------------------------------------
sub new_log {
	local($no,$item,$price,$size,$col,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link);

	# 入力チェック
	if ($in{'item'} eq "") { &error('商品名の入力モレです'); }
	if ($in{'price'} eq "") { &error('単価の入力モレです'); }
	if ($in{'price'} =~ /[^\d\,]/) {
		&error('単価には半角数字とコンマ以外は入力できません');
	}
	if ($in{'id'} =~ /[^A-Za-z0-9\-]/) {
		&error('商品Noは英数字とハイフンのみです');
	}
	if ($category && $in{'cate'} eq "") {
		&error('カテゴリ選択は必須です');
	}
	if ($stock && $in{'stk'} eq "") {
		&error("在庫数が未入力です");
	}

	$in{'memo'} =~ s/&lt;/</g;
	$in{'memo'} =~ s/&gt;/>/g;
	$in{'memo'} =~ s/&quot;/"/g;
	$in{'memo'} =~ s/&amp;/&/g;
	if ($in{'img'} eq "http://") { $in{'img'} = ""; }
	if ($in{'link'} eq "http://") { $in{'link'} = ""; }

	# ログ読み込み
	$new=0;	@sort=(); @data=();
	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 ($new < $no) { $new = $no; }

		push(@sort,$cate);
		push(@data,$_);
	}
	close(IN);

	# 採番
	$new = sprintf("%06d", $new+1);
	if ($in{'id'} eq "") { $in{'id'} = $new; }
	if ($in{'cate'} eq "") { $in{'cate'}=0; }

	# 画像アップ
	($tail,$w,$h) = ('','','');
	if ($in{'upfile'}) { ($tail,$w,$h) = &upload($new); }

	# 新規登録を定義
	push(@data,"$new<>$in{'item'}<>$in{'price'}<>$in{'size'}<>$in{'color'}<>$in{'img'}<>$in{'memo'}<>$w<>$h<>$in{'intax'}<>$in{'nmb'}<>$in{'id'}<>$in{'cate'}<>$in{'link'}<>$tail<>\n");
	push(@sort,$in{'cate'});

	# カテゴリ順にソート
	@data = @data[sort {$sort[$a] <=> $sort[$b]} 0 .. $#sort];

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

	# 在庫更新
	if ($stock) {

		&lock if ($lockkey);

		@file=();
		$f=0;
		open(IN,"$stkfile") || &error("Open Error: $stkfile");
		while (<IN>) {
			($no,$num) = split(/<>/);
			if ($no == $new) {
				$f++;
				$_="$no<>$in{'stk'}<>\n";
			}
			push(@file,$_);
		}
		close(IN);

		if (!$f) { push(@file,"$new<>$in{'stk'}<>\n"); }

		open(OUT,">$stkfile") || &error("Write Error: $stkfile");
		print OUT @file;
		close(OUT);

		&unlock if ($lockkey);
	}
}

#-------------------------------------------------
#  削除処理
#-------------------------------------------------
sub dele_log {
	local($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link,$tail,$f,$del,@data,@del);

	# 削除情報
	@del = split(/\0/, $in{'no'});

	@data=();
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link,$tail) = split(/<>/);

		$f=0;
		foreach $del (@del) {
			if ($no == $del) {
				$f++;
				unlink("$imgdir/$no$tail") if ($tail);
				last;
			}
		}
		if (!$f) { push(@data,$_); }
	}
	close(IN);

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

	# 在庫
	if ($stock) {

		&lock if ($lockkey);

		@data=();
		open(IN,"$stkfile") || &error("Open Error: $stkfile");
		while (<IN>) {
			($no) = split(/<>/);

			$f=0;
			foreach $del (@del) {
				if ($no == $del) { $f++; last; }
			}
			if (!$f) { push(@data,$_); }
		}
		close(IN);

		open(OUT,">$stkfile") || &error("Write Error: $stkfile");
		print OUT @data;
		close(OUT);

		&unlock if ($lockkey);
	}
}

#-------------------------------------------------
#  修正処理
#-------------------------------------------------
sub edit_log {
	# 修正実行
	if ($in{'edit'}) {
		# 入力チェック
		if ($in{'item'} eq "") { &error('商品名の入力モレです'); }
		if ($in{'price'} eq "") { &error('単価の入力モレです'); }
		if ($in{'price'} =~ /[^\d\,]/) {
			&error('単価には半角数字とコンマ以外は入力できません');
		}
		$in{'price'} =~ s/,//g;
		if ($in{'id'} =~ /[^A-Za-z0-9\-]/) {
			&error('商品Noは英数字とハイフンのみです');
		}
		# カテゴリ
		if ($category && $in{'cate'} eq "") {
			 &error('カテゴリ選択は必須です');
		}
		if ($stock && $in{'stk'} eq "") {
			&error("在庫数が未入力です");
		}

		$in{'memo'} =~ s/&lt;/</g;
		$in{'memo'} =~ s/&gt;/>/g;
		$in{'memo'} =~ s/&quot;/"/g;
		$in{'memo'} =~ s/&amp;/&/g;

		if ($in{'img'} eq "http://") { $in{'img'} = ""; }
		if ($in{'link'} eq "http://") { $in{'link'} = ""; }

		# 画像アップ
		($tail,$w,$h) = ('','','');
		if ($in{'upfile'}) { ($tail,$w,$h) = &upload($in{'no'}); }

		# マッチング
		@data=(); @sort=();
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$item,$price,$size,$col,$img,$memo,$w2,$h2,$intax,$nmb,$id,$cate,$link,$tail2) = split(/<>/);
			if ($cate eq "") { $cate = 0; }
			if ($in{'no'} == $no) {

				if ($tail) {

					if ($tail2 && $tail ne $tail2) {
						unlink("$imgdir/$no$tail2");
					}

					$tail2 = $tail;
					$w2 = $w;
					$h2 = $h;

				} elsif ($in{'imgdel'} == 1) {

					unlink("$imgdir/$no$tail2");
					$tail2 = $w2 = $h2 = "";
				}

				$_ = "$no<>$in{'item'}<>$in{'price'}<>$in{'size'}<>$in{'color'}<>$in{'img'}<>$in{'memo'}<>$w2<>$h2<>$in{'intax'}<>$in{'nmb'}<>$in{'id'}<>$in{'cate'}<>$in{'link'}<>$tail2<>\n";
				$cate = $in{'cate'} if ($category);
			}
			push(@sort,$cate) if ($category);
			push(@data,$_);
		}
		close(IN);

		# ソート処理
		if ($category) {
			@data = @data[sort {$sort[$a] <=> $sort[$b]} 0 .. $#sort];
		}

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

		# 在庫更新
		if ($stock && $in{'now'} != $in{'stk'}) {

			&lock if ($lockkey);

			@file=(); $f=0;
			open(IN,"$stkfile") || &error("Open Error: $stkfile");
			while (<IN>) {
				($no,$num) = split(/<>/);
				if ($no == $in{'no'}) {
					$f++;
					$_="$no<>$in{'stk'}<>\n";
				}
				push(@file,$_);
			}
			close(IN);

			if (!$f) { push(@file,"$in{'no'}<>$in{'stk'}<>\n"); }

			open(OUT,">$stkfile") || &error("Write Error: $stkfile");
			print OUT @file;
			close(OUT);

			&unlock if ($lockkey);
		}

		# 管理画面に戻る
		$in{'job'}='mente';
		$in{'no'}='';
		&admin;
	}

	# 修正フォーム画面
	&header;
	print <<"EOM";
<form>
<input type=button value="前画面に戻る" onClick="history.back()">
</form>
<h4>修正フォーム</h4>
▼変更する部分のみ修正して送信ボタンを押してください。
EOM

	# ログを検索
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		chop;
		@f = split(/<>/);
		last if ($f[0] == $in{'no'});
	}
	close(IN);

	# フォーム呼び出し
	&form("edit", @f);
	print "</body></html>\n";
	exit;
}

#-------------------------------------------------
#  登録フォーム
#-------------------------------------------------
sub form {
	local($job,$num,$item,$price,$size,$col,$img,
		$memo,$w,$h,$intax,$nmb,$id,$cate,$link,$tail) = @_;

	if ($img eq "") { $img = "http://"; }
	if ($link eq "") { $link = "http://"; }
	if ($id eq "") { $id = $num; }

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

	print <<EOM;
<form action="$admin" method="POST" enctype="multipart/form-data">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=job value="$job">
<input type=hidden name=no value="$num">
<input type=hidden name=edit value="$num">
<table border=1 cellspacing=0 cellpadding=3>
<tr>
  <td class=r align=right width=100>
	商品コード</td>
  <td class=r>
	<input type=text name=id size=30 style="ime-mode:active" value="$id">
	（英数字又はハイフンで指定）</td>
</tr>
<tr>
  <td class=r align=right width=100>
	商品名 <font color=red>※</font></td>
  <td class=r>
	<input type=text name=item size=40 style="ime-mode:active" value="$item"></td>
</tr>
EOM

	# カテゴリ
	if ($category) {
		print "<tr><td class=r align=right width=100>カテゴリ <font color=red>※</font></td>\n";
		print "<td class=r><select name=cate>\n";
		print "<option value=\"\">▼選択\n";
		foreach (0 .. $#cate) {
			if ($cate ne "" && $cate == $_) {
				print "<option value=\"$_\" selected>$cate[$_]\n";
			} else {
				print "<option value=\"$_\">$cate[$_]\n";
			}
		}
		print "</select></td></tr>\n";
	}

	print "<tr><td class=r align=right width=100>金額単価 <font color=red>※</font></td>";
	print "<td class=r><input type=text name=price size=20 style=\"ime-mode:inactive\" value=\"$price\"> 円 &nbsp; ";

	if ($intax eq '0') {
		print "<input type=radio name=intax value=\"1\">税込み\n";
		print "<input type=radio name=intax value=\"0\" checked>税別\n";
	} else {
		print "<input type=radio name=intax value=\"1\" checked>税込み\n";
		print "<input type=radio name=intax value=\"0\">税別\n";
	}

	print <<EOM;
  </td>
</tr>
<tr>
  <td class=r align=right width=100>
	数量単位</td>
  <td class=r>
	（プルダウンで数量選択。スペースで区切る。例: 1 2 3 4 5）<br>
	<input type=text name=nmb size=30 value="$nmb"></td>
</tr>
EOM
	# 在庫
	if ($stock) {
		if (!defined($stock{$num})) { $stock{$num} = ""; }

		print "<tr><td class=r align=right width=100>在庫 <font color=red>※</font></td>";
		print "<td class=r><input type=text name=stk size=6 style=\"ime-mode:inactive\" value=\"$stock{$num}\"></td></tr>\n";
		print "<input type=hidden name=now value=\"$stock{$num}\">\n";
	}

	print <<EOM;
<tr>
  <td class=r align=right width=100>$attr1指定</td>
  <td class=r>
	（スペースで区切り、複数指定。例: S M L）<br>
	<input type=text name=size size=40 value="$size"></td>
</tr>
<tr>
  <td class=r align=right width=100>$attr2指定</td>
  <td class=r>
	（スペースで区切り、複数指定。例: 赤 青 黄）<br>
	<input type=text name=color size=40 value="$col"></td>
</tr>
<tr>
  <td class=r align=right width=100>
	画像ファイル</td>
  <td class=r>
	（アップロード画像 GIF/JPEG/PNG）<br>
	<input type=file name=upfile size=52><br>
EOM

	if ($tail) {
		print "[<a href=\"$imgurl/$num$tail\" target=\"_blank\">画像</a>] &nbsp;";
		print "<input type=checkbox name=imgdel value=1>削除\n";
	}

	print <<EOM;
  </td>
</tr>
<tr>
  <td class=r align=right width=100>リンク先</td>
  <td class=r>
	（画像に詳細説明等をリンクする場合）<br>
	<input type=text name=link size=52 style="ime-mode:inactive" value="$link"></td>
</tr>
<tr>
  <td class=r align=right width=100>
	備考情報</td>
  <td class=r>
	（タグ有効。改行無効）<br>
	<textarea name=memo cols=40 rows=3 wrap=soft>$memo</textarea></td>
</tr>
</table>
<br>
<input type=submit value="上記内容で送信">
</form>
EOM
}

#-------------------------------------------------
#  並替処理
#-------------------------------------------------
sub sort_log {
	local($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$i,$cate2);

	# ソート実行
	if ($in{'log'} eq "sort") {
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$cate) = (split(/<>/))[0,12];

			$file{$no} = $_;
			$cate{$no} = $cate;
			$sort{$no} = $in{"sort$no"};
		}
		close(IN);

		# ソート処理（カテゴリ分け → 指定順）
		local(@new);
		foreach (sort { ($cate{$a} <=> $cate{$b}) || ($sort{$a} <=> $sort{$b}) } keys(%sort)) {
			push(@new,$file{$_});
		}

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

	&header;
	print <<"EOM";
<table><tr>
<td><form action="$admin" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="menu">
<input type=submit value="管理トップ"></form></td>
<td><form action="$script">
<input type=submit value="販売画面"></form></td>
</tr></table>
▼<b>商品の並び替え</b>
<ul>
<li>並び替えを行う順にフォーム内の数字を変更してください。
<li>カテゴリ分けを行っている場合、並び替えはカテゴリの範囲内となります。
<form action="$admin" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=job value="sort">
<input type=hidden name=log value="sort">
<input type=submit value="並び替える">
</ul>
<dl>
EOM

	# 商品情報読み出し
	$i=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		$i++;
		($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate) = split(/<>/);
		if ($category) {
			if ($cate2 ne $cate) {
				print "<dt><hr>[<b>$cate[$cate]</b>]\n";
				$i=1;
			}
		}
		print "<dt><input type=text name=\"sort$no\" size=4 value=\"$i\"> ",
		"$id $item (\\$price)\n";

		$cate2 = $cate;
	}
	close(IN);

	print <<EOM;
<dt><hr>
</dl>
</form>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  注文情報ログ
#-------------------------------------------------
sub ord_log {
	local($date,$eml,$comp,$nam,$zip,$pref,$addr,$tel,$fax,$comp2,$nam2,$zip2,$pref2,$addr2,$tel2,$fax2,$pay,$mon,$day,$hour,$note,$kei,$cost,$cari,$tax,$all,$deli_1,$deli_2,$i,$next,$back,@detail,@list);

	# 画面表示
	&header;
	print <<EOM;
<table><tr>
<td><form action="$admin" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="menu">
<input type=submit value="管理トップ"></form></td>
<td><form action="$script">
<input type=submit value="販売画面"></form></td>
</tr></table>
▼<b>注文情報ログ</b>
<p>
<table border=1 cellspacing=0 cellpadding=2>
<tr class=l>
  <th nowrap>日付</th>
  <th nowrap>注文者</th>
  <th nowrap>配送先</th>
  <th nowrap>支払方法</th>
  <th nowrap>配達日</th>
  <th nowrap>金額</th>
  <th nowrap>明細</th>
  <th nowrap width=160>備考</th>
</tr>
EOM

	# ログ読出
	$i=0; @list=();
	open(IN,"$ordfile") || &error("Open Error: $ordfile");
	while (<IN>) {
		$i++;
		next if ($i < $page + 1);
		next if ($i > $page + $adminLog);

		push(@list,$i);

		s/\n//;
		($date,$eml,$comp,$nam,$zip,$pref,$addr,$tel,$fax,$comp2,$nam2,$zip2,$pref2,$addr2,$tel2,$fax2,$pay,$mon,$day,$hour,$note,$kei,$cost,$cari,$tax,$all,@detail) = split(/<>/);

		if ($comp)  { $nam  .= "<br>[会社] $comp"; }
		if ($comp2) { $nam2 .= "<br>[会社] $comp2"; }

		$tel = "TEL: $tel";
		if ($fax) { $tel .= "<br>FAX: $fax"; }
		$tel2 = "TEL: $tel2";
		if ($fax2) { $tel2 .= "<br>FAX: $fax2"; }

		if ($mon && $day) { $deli_1 = "$mon月$day日"; }
		else { $deli_1 = "年月指定なし"; }
		if ($hour ne "") { $deli_2 = "$deli[$hour]"; }
		else { $deli_2 = "時間指定なし"; }

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

		$date =~ s|\d{4}/(\d{2}/\d{2})(\(\w+\)) (\d{2}\:\d{2})|$1<br>$2<br>$3|;

		print "<tr class=r><td valign=top>$date</td>";
		print "<td valign=top>[email] <a href=\"$mailto:$eml\">$eml</a><br>";
		print "[名前] $nam<br>〒$zip<br>$pref<br>$addr<br>$tel</td>";
		print "<td valign=top>[名前] $nam2<br>〒$zip2<br>$pref2<br>$addr2<br>$tel2</td>";
		print "<td valign=top>$pay</td>";
		print "<td valign=top>$deli_1<br>$deli_2</td>";
		print "<td valign=top>小計 \\$kei<br>";
		print "手数料 \\$cost<br>" if ($cost > 0);
		print "送料 \\$cari<br>" if ($cari > 0);
		print "消費税 \\$tax<br>合計 \\$all</td>";
		print "<td valign=top>";

		while (@detail > 0) {
			($id) = shift(@detail);
			($item) = shift(@detail);
			($price) = shift(@detail);
			($num) = shift(@detail);
			($price2) = shift(@detail);

			$price  = &filler($price);
			$price2 = &filler($price2);

			print "【商品】$id<br>$item<br>\\$price × $num = \\$price2<br>\n";
		}

		if (!$note) { $note = "<br>"; }

		print "</td><td valign=top width=160>$note</td></tr>\n";
	}
	close(IN);

	print <<EOM;
</table>
<p>
&nbsp;[ $i件中 $list[0]件 〜 $list[$#list]件 を表\示 ]
<table>
<tr>
EOM

	$next = $page + $adminLog;
	$back = $page - $adminLog;

	if ($back >= 0) {
		print "<td><form action=\"$admin\" method=post>\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=job value=\"ord\">\n";
		print "<input type=submit value=\"前の$adminLog件\"></form></td>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$admin\" method=post>\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=job value=\"ord\">\n";
		print "<input type=submit value=\"次の$adminLog件\"></form></td>\n";
	}

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

#-------------------------------------------------
#  CSVデータ出力
#-------------------------------------------------
sub csv_log {
	local($i,$wid,@br);

	# ダウンロード
	if ($in{'ope'} eq "down") {

		local($br,$out,$id,$item,$price,$num,$price2,@sub,@data);

		# 改行コード定義
		if ($in{'br'} == 1) { $br = "\r"; }
		elsif ($in{'br'} == 2) { $br = "\n"; }
		else { $br = "\r\n"; }

		# 項目別タイトルを定義
		@sub = ('日付','E-Mail','会社名','名前','〒','県名','住所','電話','FAX','会社名2','名前2','〒2','県名2','住所2','電話2','FAX2','支払方法','配達月','配達日','配達時間','連絡事項','明細');

		# タイトル編集
		foreach $i (0 .. 25) {
			if ($in{"data$i"} == 1) {
				$out .= "$sub[$i],";
			}
		}

		# ダウンロード用ヘッダ
		print "Content-type: application/octet-stream\n";
		print "Content-Disposition: attachment; filename=data.csv\n\n";

		# バイナリ出力 (Windowsサーバ環境)
		binmode(STDOUT);

		# タイトル出力
		print "$out$br";

		# 注文ログ読み出し
		open(IN,"$ordfile") || &error("Open Error: $ordfile");
		while (<IN>) {
			s/\n//g;
			s/\r//g;
			@data = split(/<>/);

			# CSV展開（明細以外）
			$out='';
			foreach $i (0 .. 24) {
				if ($in{"data$i"} == 1) {
					$out .= "$data[0],";
				}
				shift(@data);
			}

			# 明細部分展開
			if ($in{'data25'} == 1) {
				while (@data > 0) {
					($id)     = shift(@data);
					($item)   = shift(@data);
					($price)  = shift(@data);
					($num)    = shift(@data);
					($price2) = shift(@data);

					$out .= "$id,$item,$price,$num,$price2,";
				}
			}

			# CSV出力
			print "$out$br";
		}
		close(IN);

		# 出力完了
		exit;
	}

	# 注文ログの件数を数える
	$i=0;
	open(IN,"$ordfile") || &error("Open Error: $ordfile");
	++$i while (<IN>);
	close(IN);

	# 項目セルの幅を定義
	$wid = 60;

	# 画面表示
	&header;
	print <<EOM;
<table><tr>
<td><form action="$admin" method="post">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="menu">
<input type=submit value="管理トップ"></form></td>
<td><form action="$script">
<input type=submit value="販売画面"></form></td>
</tr></table>
▼<b>CSVデータ出力</b>
<ul>
<li>現在のデータ件数 : $i件
<li>必要な項目をチェックしてダウンロードボタンを押してください。
</ul>
<form action="$admin" method="post">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=job value="csv">
<input type=hidden name=ope value="down">
改行コード：
<select name=br>
EOM

	@br = ('Windows','Macintosh','UNIX系');
	foreach (0 .. $#br) {
		if ($br_code == $_) {
			print "<option value=\"$_\" selected>$br[$_]\n";
		} else {
			print "<option value=\"$_\">$br[$_]\n";
		}
	}

	print <<EOM;
</select> （ダウンロード先のマシンOS）
<p>
<table border=1 cellspacing=0 cellpadding=2 class=r>
<tr>
  <td width=$wid align=center rowspan=2>日付</td>
  <td width=$wid align=center rowspan=2>E-Mail</td>
  <td width=$wid align=center rowspan=2>支払方法</td>
  <td align=center colspan=3>配達指定</td>
  <td width=$wid align=center rowspan=2>連絡事項</td>
</tr>
<tr>
  <td width=$wid align=center>月</td>
  <td width=$wid align=center>日</td>
  <td width=$wid align=center>時間帯</td>
</tr>
<tr>
  <th><input type=checkbox name=data0 value=1 checked></th>
  <th><input type=checkbox name=data1 value=1 checked></th>
  <th><input type=checkbox name=data16 value=1></th>
  <th><input type=checkbox name=data17 value=1></th>
  <th><input type=checkbox name=data18 value=1></th>
  <th><input type=checkbox name=data19 value=1></th>
  <th><input type=checkbox name=data20 value=1></th>
</tr>
</table>
<p>
<table border=1 cellspacing=0 cellpadding=2 class=r>
<tr>
  <td colspan=7 align=center>注文者</td>
</tr>
<tr>
  <td width=$wid align=center>会社名</td>
  <td width=$wid align=center>名前</td>
  <td width=$wid align=center>〒</td>
  <td width=$wid align=center>県名</td>
  <td width=$wid align=center>住所</td>
  <td width=$wid align=center>電話</td>
  <td width=$wid align=center>FAX</td>
</tr>
<tr>
  <th><input type=checkbox name=data2 value=1 checked></th>
  <th><input type=checkbox name=data3 value=1 checked></th>
  <th><input type=checkbox name=data4 value=1 checked></th>
  <th><input type=checkbox name=data5 value=1 checked></th>
  <th><input type=checkbox name=data6 value=1 checked></th>
  <th><input type=checkbox name=data7 value=1 checked></th>
  <th><input type=checkbox name=data8 value=1 checked></th>
</tr>
</table>
<p>
<table border=1 cellspacing=0 cellpadding=2 class=r>
<tr>
  <td colspan=7 align=center>配送先</td>
</tr>
<tr>
  <td width=$wid align=center>会社名</td>
  <td width=$wid align=center>名前</td>
  <td width=$wid align=center>〒</td>
  <td width=$wid align=center>県名</td>
  <td width=$wid align=center>住所</td>
  <td width=$wid align=center>電話</td>
  <td width=$wid align=center>FAX</td>
</tr>
<tr>
  <th><input type=checkbox name=data9 value=1></th>
  <th><input type=checkbox name=data10 value=1></th>
  <th><input type=checkbox name=data11 value=1></th>
  <th><input type=checkbox name=data12 value=1></th>
  <th><input type=checkbox name=data13 value=1></th>
  <th><input type=checkbox name=data14 value=1></th>
  <th><input type=checkbox name=data15 value=1></th>
</tr>
</table>
<p>
<table border=1 cellspacing=0 cellpadding=2 class=r>
<tr>
  <td width=$wid align=center>小計</td>
  <td width=$wid align=center>手数料</td>
  <td width=$wid align=center>消費税</td>
  <td width=$wid align=center>合計</td>
  <td width=$wid align=center>明細</td>
</tr>
<tr>
  <th><input type=checkbox name=data21 value=1 checked></th>
  <th><input type=checkbox name=data22 value=1 checked></th>
  <th><input type=checkbox name=data23 value=1 checked></th>
  <th><input type=checkbox name=data24 value=1 checked></th>
  <th><input type=checkbox name=data25 value=1></th>
</tr>
</table>
<p>
<input type=submit value="ダウンロード">
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  ログイン画面
#-------------------------------------------------
sub enter {
	&header;
	print <<"EOM";
<div align="center">
<h4>パスワードを入力してください</h4>
<form action="$admin" method="POST">
<input type=password name=pass size=8>
<input type=submit value=" 認証 "></form>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  管理メニュー
#-------------------------------------------------
sub menu {
	&header;
	print <<"EOM";
<form>
<input type=button value="TOPに戻る" onClick=window.open("$script","_self")>
</form>
<div align="center">
- 処理を選択してください -
<form action="$admin" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<table border=1 cellpadding=4 cellspacing=0>
<tr>
  <th class=l>選択</th>
  <th class=l width=200>管理メニュー一覧</th>
</tr>
<tr>
  <th class=r><input type=radio name=job value="form"></th>
  <td width=200 class=r>&nbsp; 商品の新規登録</td>
</tr>
<tr>
  <th class=r><input type=radio name=job value="mente"></th>
  <td width=200 class=r>&nbsp; 商品の登録修正</td>
</tr>
<tr>
  <th class=r><input type=radio name=job value="sort"></th>
  <td width=200 class=r>&nbsp; 商品の並び替え</td>
</tr>
<tr>
  <th class=r><input type=radio name=job value="ord"></th>
  <td width=200 class=r>&nbsp; 注文ログの閲覧</td>
</tr>
<tr>
  <th class=r><input type=radio name=job value="csv"></th>
  <td width=200 class=r>&nbsp; CSVデータ出力</td>
</tr>
</table>
<p>
<input type=submit value=" 送信する ">
</form>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  フォームデコード
#-------------------------------------------------
sub decode2 {
	local($key,$val);
	undef(%in);

	&ReadParse;
	while ( ($key,$val) = each(%in) ) {

		next if ($key eq "upfile");

		# シフトJISコード変換
		&jcode'convert(*val, 'sjis');

		# 不要コード排除
		$val =~ s/\r//g;
		$val =~ s/\n//g;
		$val =~ s/<>/&LT;&GT;/g;
		$val =~ s/&/&amp;/g;
		$val =~ s/"/&quot;/g;
		$val =~ s/</&lt;/g;
		$val =~ s/>/&gt;/g;

		# 改行処理
		$val =~ s/\r\n/<br>/g;
		$val =~ s/\r/<br>/g;
		$val =~ s/\n/<br>/g;

		$in{$key} = $val;
	}
	$mode = $in{'mode'};
	$page = $in{'page'};
}

#-------------------------------------------------
#  画像アップロード
#-------------------------------------------------
sub upload {
	local($new) = @_;
	local($macbin,$fname,$flag,$upfile,$imgfile);

	# 画像処理
	$macbin=0;
	foreach (@in) {
		if (/(.*)Content-type:(.*)/i) { $tail=$2; }
		if (/(.*)filename=\"(.*)\"/i) { $fname=$2; }
		if (/application\/x-macbinary/i) { $macbin=1; }
	}
	$tail =~ s/\r//g;
	$tail =~ s/\n//g;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/p?jpeg/i) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i) { $tail=".png"; $flag=1; }
	if (!$flag) {
		if ($fname =~ /\.gif$/i) { $tail=".gif"; $flag=1; }
		if ($fname =~ /\.jpe?g$/i) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag || !$fname) { &error("アップロードできません"); }

	$upfile = $in{'upfile'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 画像データを書き込み
	$imgfile = "$imgdir$new$tail";
	open(OUT,">$imgfile") || &error("画像アップロード失敗");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);

	chmod(0666,$imgfile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &j_size($imgfile); }
	elsif ($tail eq ".gif") { ($W, $H) = &g_size($imgfile); }
	elsif ($tail eq ".png") { ($W, $H) = &p_size($imgfile); }

	# 画像表示縮小
	if ($W > $MaxW || $H > $MaxH) {
		$W2 = $MaxW / $W;
		$H2 = $MaxH / $H;
		if ($W2 < $H2) { $key = $W2; }
		else { $key = $H2; }
		$W = int ($W * $key) || 1;
		$H = int ($H * $key) || 1;
	}

	return($tail,$W,$H);
}

#-------------------------------------------------
#  JPEGサイズ認識
#-------------------------------------------------
sub j_size {
	local($jpeg) = @_;
	local($t, $m, $c, $l, $W, $H);

	open(JPEG,"$jpeg") || return (0,0);
	binmode(JPEG);
	read(JPEG, $t, 2);
	while (1) {
		read(JPEG, $t, 4);
		($m, $c, $l) = unpack("a a n", $t);

		if ($m ne "\xFF") { $W = $H = 0; last; }
		elsif ((ord($c) >= 0xC0) && (ord($c) <= 0xC3)) {
			read(JPEG, $t, 5);
			($H, $W) = unpack("xnn", $t);
			last;
		}
		else {
			read(JPEG, $t, ($l - 2));
		}
	}
	close(JPEG);
	return ($W, $H);
}

#-------------------------------------------------
#  GIFサイズ認識
#-------------------------------------------------
sub g_size {
	local($gif) = @_;
	local($data);

	open(GIF,"$gif") || return (0,0);
	binmode(GIF);
	sysread(GIF,$data,10);
	close(GIF);

	if ($data =~ /^GIF/) { $data = substr($data,-4); }

	$W = unpack("v",substr($data,0,2));
	$H = unpack("v",substr($data,2,2));
	return ($W, $H);
}

#-------------------------------------------------
#  PNGサイズ認識
#-------------------------------------------------
sub p_size {
	local($png) = @_;
	local($data);

	open(PNG,"$png") || return (0,0);
	binmode(PNG);
	read(PNG, $data, 24);
	close(PNG);

	$W = unpack("N", substr($data, 16, 20));
	$H = unpack("N", substr($data, 20, 24));
	return ($W, $H);
}


__END__