#!/usr/local/bin/perl

require './init.cgi';
require './subr1.cgi';
require './cookie.cgi';
$bbsname = "list.cgi";

&getSetup(2); # 設定読み込み(1=読込後初期化)
$yen = $setup{'yen'};
@zeiTable = ("<外税>","<内税>");
$tanni = $zeiTable[$setup{'zei'}];

require './setcolor.cgi';
&readColor;

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'} ne '') { $buffer .= "\&$ENV{'QUERY_STRING'}"; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

	($name,$value) = split(/=/,$pair);

	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	$value =~ s/&//g;
	$value =~ s/"//g;
	$value =~ s/<//g;
	$value =~ s/>//g;
	$value =~ s/\n//g;
	$value =~ s/\r//g;
	$value =~ s/\f//g;
	$value =~ s/\t//g;

	$in{$name} .= "\0" if (defined($in{$name}));
	$in{$name} .= $value;
}

if ($in{'cmd'} eq "logout") {

	require './cookie.cgi'; # クッキー・ログイン管理
	&logout;
}

$COOKIE{'LOGIN'} = &decCookie("LOGIN");

if ($in{'cmd'} eq "remember") { require './list2.cgi'; require './cookie.cgi'; &rememberPut(); exit; }
elsif ($in{'cmd'} eq "reviews") { require './list2.cgi'; &review($in{'filename'}); exit; }
elsif ($in{'file'} ne "") { require './list2.cgi'; &viewFile("$in{'category'}/$in{'file'}"); exit; }
elsif ($in{'cmd'} eq "tokushoho" || $in{'cmd'} eq "payment") { require './list2.cgi'; &viewMado($in{'cmd'}); exit; }
elsif ($in{'cmd'} eq "img") { require './list2.cgi'; &viewImage($in{'filename'}); exit; }
elsif ($in{'cmd'} eq "img2") { require './list2.cgi'; &viewImageHTML($in{'filename'}); exit; }

if ($in{'cmd'} eq "memory") {

	require './list2.cgi';
	require './cookie.cgi';
	($rememberID) = &decCookie("remember");
	&viewList("あとで検討っ！リスト","");
}
else {
	&getCate;

	if (! -e $cateFile || ! $in{'cate'}) { $in{'category'} = $searchDir = "default"; }
	else { $searchDir = ""; }

	if ($in{'category'} ne "") { $page = $goods_page; $viewTitle = "商品の一覧"; }
	else { $page = $cate_page; $viewTitle = "商品カテゴリ"; }

	$target = $goods_dir . $in{'category'};
	&viewList($viewTitle,$target);
}

sub viewList {

	local($viewTitle,$targetDir) = @_;
	@BASE = @list = ();

	if ($in{'cmd'} eq "memory") { # あとで検討っ！リスト

		$page = $goods_page;

		if (open(RID,"$tmp_dir$rememberID")) {

			while(<RID>) {

				s/\n//g;
				($category,$file) = split(/\t/,$_,2);
				push(@BASE,"$category\t$file");
			}

			close(RID);
		}

		@BASE = reverse @BASE;
	}
	elsif ($in{'category'} ne "") { # 商品リスト

		if (!-e $targetDir) { &error("エラー","お探しのページが見つかりません。"); }

		$check = (eval { opendir(DIR,$targetDir); }, $@ eq "");
		if (!$check) { &error("致命的なエラー","Can't get directory"); }

		@list = readdir(DIR);
		@list = sort { $b <=> $a; } @list;

		foreach $dir (@list) {

			next if $dir eq '.';
			next if $dir eq '..';

			if ($searchDir eq "" && $dir eq "default") { next; }
			if ($in{'category'} eq "" && $cateName{$dir} eq "") { next; }
			if (-d "$targetDir/$dir/") { push(@BASE,$dir); }
		}

		close(DIR);
	}
	else { # カテゴリーリスト

		if (!-e $targetDir) { &error("エラー","お探しのページが見つかりません。"); }

		foreach $dir (@addCateValue) {

			next if $dir eq '.';
			next if $dir eq '..';

			if ($searchDir eq "" && $dir eq "default") { next; }
			if ($in{'category'} eq "" && $cateName{$dir} eq "") { next; }
			if (-d "$targetDir/$dir/") { push(@BASE,$dir); }
		}
	}

	if ($in{'ff'} eq '') { $FF = 0; } else { $FF = $in{'ff'}; }
	$TO = $FF + $page - 1;
	if ($TO > $#BASE) { $TO = $#BASE; }
	$hit = 0;
	$next_num = '';

	foreach $num ($FF .. $#BASE) {

		$filename = $BASE[$num];

		if ($in{'ff'} ne '') {

			$allhits = $in{'allhits'};
			if ($hit == $page) { last; }
			else { push(@NEW,$filename); $hit++; }
		}
		else {
			##if ($allhits % $page == 0) { push(@Index,$num); }
			if ($hit < $page) { $hit++; push(@NEW,$filename); }
			$allhits++;
		}
	}

	$in{'allhits'} = $allhits;
	$count_new = @NEW;

	if ($in{'allhits'} == 0) {

		if ($in{'cmd'} eq "memory") { &error("あとで検討っ！リスト","一覧はありません。"); }
		else { &error("エラー","お探しの一覧はありません。"); }
	}

	if (open(F,$infoFile)) {

		@INFO = <F>;
		close(F);

		foreach $i (@INFO) {

			$i =~ s/\n//g;
			($key,$val) = split(/\t/,$i,2);
			$setup{$key} .= "\n" if (defined($setup{$key}));
			$setup{$key} .= $val;
		}

		$main = &tag_ok($setup{'main'});
		$head = &tag_ok($setup{'head'});
		$mid = &tag_ok($setup{'mid'});
		$foot = &tag_ok($setup{'end'});
	}

	if (-e "$tmp_dir$logofile") {

		if (open(F,"$tmp_dir$logoType")) {

			$ctype = <F>;
			close(F);
		}

		$LOGO = "<td align=right><img src=\"panel.cgi?cmd=img3&filename=LOGO&ctype=$ctype\" alt=\"LOGO\"></td>";
	}

print &HtmlTop("bgcolor=#FFFFFF");

print <<"EOF";
<br>

<SCRIPT language="JavaScript">
<!--
function popup(){
window.open("","popup","location=no,status=no,toolbar=no,menubar=yes,scrollbars=yes,resizable=yes,width=550,height=450");
}
//-->
</SCRIPT>
EOF

if ($COOKIE{'LOGIN'} eq "OK") {

	print "<div align=right>【管理者ログイン中】 <a href=\"list.cgi?cmd=logout\">ログアウト</a></div>\n";
}

print <<"EOF";
<center>
$LOGO

<table cellspacing=0 width=80%>
<tr><td>$head</td></tr>
<tr><td><img src="$setup{'htdocs_url'}sp.gif" height=1 alt=""></td></tr>
</table>

<STYLE type="text/css">
<!--
a.n:link { color:#$linkcolor{'panel'} }
a.n:visited { color:#$linkcolor{'panel'} }
a.n:hover { color:#$linkcolor{'panel'} }
a.n:active { color:#$linkcolor{'panel'} }
a.n2:link { color:#ffffff }
a.n2:visited { color:#ffffff }
a.n2:hover { color:#ffffff }
a.n2:active { color:#ffffff }
-->
</STYLE>

<!-- /* TopicWindow -->
<table cellpadding=0 cellspacing=0 border=0 width=80%>
<tr>
<td><table cellpadding=0 cellspacing=0 border=0>
<tr>
EOF

# タブ表示
if ($in{'cmd'} eq "memory") {

print <<"EOF";
<td bgcolor=#aaaaaa height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<a class=n2 href=list.cgi>商品のカテゴリ</a></td>
<td valign=top bgcolor=#aaaaaa><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
<td bgcolor=#$barbgcolor{'panel'} height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<font color=#$bartextcolor{'panel'}>あとで検討っ！リスト</font></td>
<td valign=top bgcolor=#$barbgcolor{'panel'}><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
EOF

$colspan = 5;

}
elsif (! -e $cateFile || ! $in{'cate'}) {

print <<"EOF";
<td bgcolor=#$barbgcolor{'panel'} height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<font color=#$bartextcolor{'panel'}>$viewTitle</font></td>
<td valign=top bgcolor=#$barbgcolor{'panel'}><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
EOF

$colspan = 3;

}
elsif ($in{'category'} ne "") {

print <<"EOF";
<td bgcolor=#aaaaaa height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<a class=n2 href=list.cgi>商品のカテゴリ</a></td>
<td valign=top bgcolor=#aaaaaa><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
<td bgcolor=#$barbgcolor{'panel'} height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<font color=#$bartextcolor{'panel'}>$cateName{$in{'category'}}</font></td>
<td valign=top bgcolor=#$barbgcolor{'panel'}><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
<td bgcolor=#aaaaaa height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<a class=n2 href=list.cgi?cmd=memory>あとで検討っ！リスト</a></td>
<td valign=top bgcolor=#aaaaaa><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
EOF

$colspan = 7;

}
else {

print <<"EOF";
<td bgcolor=#$barbgcolor{'panel'} height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<font color=#$bartextcolor{'panel'}>$viewTitle</font></td>
<td valign=top bgcolor=#$barbgcolor{'panel'}><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
<td bgcolor=#aaaaaa height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<font color=#ffffff>商品の一覧</font></td>
<td valign=top bgcolor=#aaaaaa><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
<td bgcolor=#aaaaaa height=15 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<a class=n2 href=list.cgi?cmd=memory>あとで検討っ！リスト</a></td>
<td valign=top bgcolor=#aaaaaa><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
EOF

$colspan = 7;

}

print <<"EOF";
<td align=right width=99% bgcolor=#FFFFFF height=15><img src="$setup{'htdocs_url'}sp.gif" width=5 height=1 alt=""></td>
</tr>
<tr>
<td colspan=$colspan bgcolor=#$barbgcolor{'panel'} height=2></td>
</tr>
</table></td>
</tr>
<tr>
<td><table cellpadding=1 cellspacing=0 border=0 width=100%>
<tr bgcolor=#$barbgcolor{'panel'}>
<td><table cellpadding=10 cellspacing=0 border=0 width=100%>
<tr bgcolor=#$bgcolor{'panel'}>
<td>
<!-- /* TopicWindow Area-->
EOF

if ($in{'vp'} eq "") { $in{'vp'} = 1; }

$n = $vp = 0;
for ($jump = $page; $jump < $in{'allhits'} + $page; $jump += $page) {

	$vp++;
	$ffv = ($vp - 1) * $page;
	$last_page++;
}

$start = $in{'vp'} - 9;
if ($start < 1) { $start = 1; }

$end = $in{'vp'} + 9;
if ($end >= $last_page) { $end = $last_page; }

$n = $vp = 0;
foreach $vp ($start .. $end) {

	$ffv = ($vp - 1) * $page;
	$title = '';

	if ($vp == $in{'vp'}) { $page_now = $vp; last; }
}

$FROM = $page_now * $page - ($page - 1);
$LAST = $FROM + $count_new - 1;

print <<"EOF";
<table width=100% cellpadding=0 cellspacing=0><tr><td bgcolor=#$bgcolor{'panel'} vAlign=top><font color=#$textcolor{'panel'}>$mid</font></td></tr></table>

<table width=100% cellpadding=1 cellspacing=0>
<tr><td><img src="$setup{'htdocs_url'}sp.gif" height=1 alt=""></td></tr>
<tr bgcolor=#ffffff><td>&nbsp;&nbsp;<font color=#888888>全<b>$in{'allhits'}</b>件中<b>$FROM</b>\-<b>$LAST</b>件目(ページNo.<b>$page_now</b>)</font></td></tr>
<tr><td><img src="$setup{'htdocs_url'}sp.gif" height=1 alt=""></td></tr>
</table>

<Table cellspacing=0 cellpadding=0 width=100%>
<tr><td><TABLE BORDER=0 CELLSPACING=2 CELLPADDING=2 width=100%>
<tr bgcolor=#dddddd><td nowrap>

<table cellspacing=2 cellpadding=1 width=100%>
EOF

if ($in{'category'} ne "" || $in{'cmd'} eq "memory") { # 商品の一覧

print <<"EOF";
<tr>
<td width=25 align=center nowrap><img src=\"$setup{'htdocs_url'}sp.gif\" width=25 height=1 alt=""><br><nobr><small><font color=#888888>写真</font></small></nobr></td>
<td align=center><small><font color=#888888>商 品 名</font></small></td>
<td width=100 align=center><img src="$setup{'htdocs_url'}sp.gif" width=100 height=1 alt=""><br><small><font color=#888888>金額 $tanni</font></small></td>
</tr>
EOF

}

$f = 0;
$f2 = $page;
@col = ("#f8f8f8","#ffffff");

foreach $filename (@NEW) {

	if ($in{'category'} ne "" || $in{'cmd'} eq "memory") {

		if ($in{'cmd'} eq "memory") { ($in{'category'},$filename) = split(/\t/,$filename,2); }

		if (! open(F,"$goods_dir$in{'category'}/$filename/index.cgi")) { next; }

		@lines = <F>;
		close(F);

		undef %setup2;
		foreach $line (@lines) {

			($key,$val) = split(/\t/,$line,2);
			$setup2{$key} .= "\0" if (defined($setup2{$key}));
			$setup2{$key} .= $val;
		}

		$setup2{'Fee'} = &keta($setup2{'Fee'});

		if ($setup2{'Bold'}) { $bold1 = "<b>"; $bold2 = "</b>"; } # 太字指定
		else { $bold1 = $bold2 = ""; }

		$col++;

		if ($setup2{'Rev'}) { $bgcolor = "bgcolor=#ffff99"; } # 反転指定
		else {
			$bgcolor = "bgcolor=$col[$col % 2]";
		}

		if ($setup2{'img'}) { $photo = "<img src=\"$setup{'htdocs_url'}photo.gif\" width=17 height=12 alt=\"\">"; }
		else { $photo = ""; }

		if ($in{'cmd'} eq "memory") {

			$memodel = " <font size=-1>[<a class=n href=\"list.cgi?cmd=remember&action=delete&category=$in{'category'}&file=$filename\">削除</a>]</font>";
			$memodelAll = "<div align=center>[<a href=\"#\" onClick=\"window.external.addFavorite('$setup{'cgi_url'}list.cgi?cmd=memory','$barTitle あとで検討する買物リスト')\">ブックマークする</a>]\n";
			$memodelAll .= "[<a class=n href=\"list.cgi?cmd=remember&action=delall\">すべて削除</a>]</div>";
		}
		else { $memodel = ""; }

		$setup2{'Title'} =~ s/\n//g;

		print "<tr $bgcolor><td align=center>$photo</td>\n";
		print "<td>$bold1<a class=n href=$bbsname?category=$in{'category'}&file=$filename>$setup2{'Title'}</a>$bold2$memodel</td>\n";
		print "<td align=right nowrap>$setup2{'Fee'} $yen</td></tr>\n";

		$br = "";
	}
	else {
		@list = ();
		if (eval { opendir(DIR,"$targetDir$filename"); }, $@ eq "") {

			@list = readdir(DIR);
			close(DIR);
			$kazu = @list - 2;
			$kazu2 = " <font color=#888888>($kazu)</font>";
		}

		if ($kazu == 0) {

			print "<tr bgcolor=#fefefe><td><table><tr><td><b>$cateName{$filename}</b>$kazu2</td></tr></table></td></tr>\n";
		}
		else {
			print "<tr bgcolor=#fefefe><td><table><tr><td><a href=$bbsname?category=$filename><b>$cateName{$filename}</b></a>$kazu2</td></tr></table></td></tr>\n";
		}

		$br = "<br>\n";
	}
}

print <<"EOF";
</table>
<img src="$setup{'htdocs_url'}sp.gif" width=200 height=1 alt=""><br>
<font size=-1>
$memodelAll<br>
&nbsp;・<a href="list.cgi?cmd=tokushoho" target=popup onClick="popup()">特定商取引法に基づく表\示</a>$br
&nbsp;・<a href="list.cgi?cmd=payment" target=popup onClick="popup()">お支払い方法について</a><br>
</font>
</td>
EOF

if ($in{'category'} eq "") {

print <<"EOF";
<td bgcolor=#$bgcolor{'panel'} width=3><img src="$setup{'htdocs_url'}sp.gif" width=3 alt=""></td>
<td bgcolor=#$bgcolor{'panel'} vAlign=top width=70%><font color=#$textcolor{'panel'}>$main</font></td>
EOF

}

print <<"EOF";
</tr>
<tr><td bgcolor=#$bgcolor{'panel'} colspan=3><img src="$setup{'htdocs_url'}sp.gif" height=1 alt=""></td></tr>
</table>

<table width=90%>
<tr>
EOF

if ($in{'vp'} eq "") { $in{'vp'} = 1; }
print "<td align=center><font color=#$textcolor{'panel'}>[ ";

$start = $in{'vp'} - 9;
if ($start < 1) { $start = 1; }
elsif ($start == 1) { ; }
elsif ($start > 2) { print "<font size=+2><a class=n href=\"$bbsname?category=$in{'category'}\" title=\"最初のページ\">1</a></font> .."; }
else { print "<font size=+2><a class=n href=\"$bbsname?category=$in{'category'}\" title=\"最初のページ\">1</a></font>"; }

$end = $in{'vp'} + 9;
if ($end >= $last_page) { $end = $last_page; }
elsif ($end < $last_page - 1) { $last_link = " .. <font size=+2><a class=n href=\"$bbsname?n=$in{'n'}&vp=$last_page&allhits=$in{'allhits'}&ff=$ffv\">$last_page</a></font>\n"; }
else { $last_link = " <font size=+2><a class=n href=\"$bbsname?n=$in{'n'}&vp=$last_page&allhits=$in{'allhits'}&ff=$ffv\">$last_page</a></font>\n"; }

$n = $vp = 0;
foreach $vp ($start .. $end) {

	$ffv = ($vp - 1) * $page;
	$title = '';

	if ($vp == $in{'vp'}) { print " <b><font size=+1>$vp</font></b>"; $n = 1; $page_now = $vp; }
	elsif ($vp == 1) { print "<font size=+2><a class=n href=\"$bbsname?category=$in{'category'}\" title=\"最初のページ\">1</a></font> "; }
	else {
		if ($n) {

			$n = 0;
			$Next_link = "<a class=n href=\"$bbsname?category=$in{'category'}&cmd=$in{'cmd'}&vp=$vp&allhits=$in{'allhits'}&ff=$ffv\"><font size=+1><b>次へ</b>≫</a></font>";
			$next = $vp;
		}
		else { $next = $vp; }

		print " <font size=+2><a class=n href=\"$bbsname?category=$in{'category'}&cmd=$in{'cmd'}&vp=$vp&allhits=$in{'allhits'}&ff=$ffv\">$next</a></font>";
	}
}

print "$last_link ]";
print "&nbsp;&nbsp;$Next_link</font></td>\n";

print <<"EOF";
<td align=center><font size=+2><a href=cart.cgi class=n>買物カゴへ</a></font></td>
</tr></table></td>
</tr></Table></td>
</tr></Table>
<!-- TopicWindow Area */-->
</td>
</tr>
</table></td>
</tr>
</table>
<!-- TopicWindow */ -->

<table cellspacing=0 width=80%>
<tr><td><img src="$setup{'htdocs_url'}sp.gif" height=2 alt=""></td></tr>
<tr><td>$foot</td></tr></table>
<p>
</center>
</body></html>
EOF

exit;

}

sub error {

	local (@msg) = @_;
	local ($i);

print &HtmlTop("bgcolor=#FFFFFF");

print <<"EOF";

<STYLE type="text/css">
<!--
a.n:link { color:#$linkcolor{'panel'} }
a.n:visited { color:#$linkcolor{'panel'} }
a.n:hover { color:#$linkcolor{'panel'} }
a.n:active { color:#$linkcolor{'panel'} }
-->
</STYLE>

<!-- /* TopicWindow -->
<center>
<table cellpadding=0 cellspacing=0 border=0 width=80%>
<tr>
<td><table cellpadding=0 cellspacing=0 border=0>
<tr>
<td bgcolor=#$barbgcolor{'panel'} height=15 rowspan=2 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<font color=#$bartextcolor{'panel'}>$msg[0]</font>&nbsp;</td>
<td valign=top bgcolor=#$barbgcolor{'panel'}><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
<td align=right width=99% bgcolor=#FFFFFF><img src="$setup{'htdocs_url'}sp.gif" width=5 height=1 alt=""></td>
</tr>
<tr>
<td colspan=4 bgcolor=#$barbgcolor{'panel'} height=2></td>
</tr>
</table></td>
</tr>
<tr>
<td><table cellpadding=1 cellspacing=0 border=0 width=100%>
<tr bgcolor=#$barbgcolor{'panel'}>
<td><table cellpadding=10 cellspacing=0 border=0 width=100%>
<tr bgcolor=#$bgcolor{'panel'}>
<td>
<!-- /* TopicWindow Area-->
<br>
EOF

print "<ul>\n";
foreach $i (1 .. $#msg) { print "<li><font color=#$textcolor{'panel'}>$msg[$i]</font>\n"; }
print "</ul><p>\n";

if ($in{'cmd'} eq "memory") {

print <<"EOF";
<font color=#$textcolor{'panel'}>[</font> <a class=n href="list.cgi">商品情報へ</a> <font color=#$textcolor{'panel'}>]</font>
EOF

}
else {

print <<"EOF";
<font color=#$textcolor{'panel'}>[</font> <a class=n href="JavaScript:history.back()">もどる</a> <font color=#$textcolor{'panel'}>]</font>
EOF

}

print <<"EOF";
<!-- TopicWindow Area */-->
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!-- TopicWindow */ -->
</center>
EOF

print &HtmlBot;
exit;

}

sub error2 {

	local (@msg) = @_;
	local ($i);

print &HtmlTop("bgcolor=#FFFFFF");

print <<"EOF";

<STYLE type="text/css">
<!--
a.n:link { color:#$linkcolor{'panel'} }
a.n:visited { color:#$linkcolor{'panel'} }
a.n:hover { color:#$linkcolor{'panel'} }
a.n:active { color:#$linkcolor{'panel'} }
-->
</STYLE>

<!-- /* TopicWindow -->
<center>
<table cellpadding=0 cellspacing=0 border=0 width=80%>
<tr>
<td><table cellpadding=0 cellspacing=0 border=0>
<tr>
<td bgcolor=#$barbgcolor{'panel'} height=15 rowspan=2 nowrap><img src="$setup{'htdocs_url'}sp.gif" width=140 height=1><br>
&nbsp;&nbsp;<font color=#$bartextcolor{'panel'}>$msg[0]</font>&nbsp;</td>
<td valign=top bgcolor=#$barbgcolor{'panel'}><img src="$setup{'htdocs_url'}sp14x15.gif" width=14 height=15></td>
<td align=right width=99% bgcolor=#FFFFFF><img src="$setup{'htdocs_url'}sp.gif" width=5 height=1 alt=""></td>
</tr>
<tr>
<td colspan=4 bgcolor=#$barbgcolor{'panel'} height=2></td>
</tr>
</table></td>
</tr>
<tr>
<td><table cellpadding=1 cellspacing=0 border=0 width=100%>
<tr bgcolor=#$barbgcolor{'panel'}>
<td><table cellpadding=10 cellspacing=0 border=0 width=100%>
<tr bgcolor=#$bgcolor{'panel'}>
<td>
<!-- /* TopicWindow Area-->
<br>
EOF

print "<ul>\n";
foreach $i (1 .. $#msg) { print "<li><font color=#$textcolor{'panel'}>$msg[$i]</font>\n"; }
print "</ul><p>\n";

if ($in{'cmd'} eq "memory") {

print <<"EOF";
<font color=#$textcolor{'panel'}>[</font> <a class=n href="list.cgi">商品情報へ</a> <font color=#$textcolor{'panel'}>]</font>
EOF

}
else {

print <<"EOF";
<font color=#$textcolor{'panel'}>[</font> <a class=n href="list.cgi">もどる</a> <font color=#$textcolor{'panel'}>]</font>
EOF

}

print <<"EOF";
<!-- TopicWindow Area */-->
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!-- TopicWindow */ -->
</center>
EOF

print &HtmlBot;
exit;

}