#!/usr/local/bin/perl

require './jcode.pl';

require './init.cgi';
require './subr1.cgi';
require './cookie.cgi';

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@wday_array = ('SUN','MON','TUE','WED','THU','FRI','SAT');
$date_now = sprintf("%04d/%02d/%02d\-%s\-%02d:%02d:%02d",$year +1900,$mon +1,$mday,$wday_array[$wday],$hour,$min,$sec);

&getData($basefile); # cgi_url,cgi_ssl,htdocs_url,cookie_path,home_url
&getData($infoFile); # sign,main,mid,end,tokushoho,info2

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

&getData($colorFile); # panel,gamen1〜4{bgcolor,textcolor,linkcolor,barbgcolor,bartextcolor}
&getData($shippingFile); # regName,regCode,yen,keta,tax,zei,titleBar,shipping,shippingFreeGoukei,Goukei,shippingFreeGoukei_type,shippingFreeKosuu,Kosuu,SentakuName0〜4,addShipName,addShipValue
$in{'keta'} = $dat{'keta'};

&getData($emailFile); # email,emailj
if (-e $zeusFile) { &getData($zeusFile); } # zeus,zeusIP,bitType,cgiType,payType,zeusMIN
if (-e $ginixFile) { &getData($ginixFile); } # ginix,aid,kType

#--------------------------------------

opendir(DIR,$tmp_dir); # 掃除
@lists = readdir(DIR);
close(DIR);

foreach $file (@lists) {

	next if $file eq '.';
	next if $file eq '..';
	next if $file eq 'LOGO';
	next if $file eq 'logoType';
	next if -d $file;

	$mod = -M "$tmp_dir$file";
	if ($mod > 7) { unlink "$tmp_dir$file"; }
}

opendir(DIR,$users_dir); # 掃除
@lists = readdir(DIR);
close(DIR);

foreach $file (@lists) {

	next if $file eq '.';
	next if $file eq '..';

	$mod = -M "$users_dir$file";
	if ($mod > 30) { unlink "$users_dir$file"; }
}

#--------------------------------------

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;

	&jcode'convert(*name,'sjis');
	&jcode'convert(*value,'sjis');

	$value =~ s/&/&/g;
	$value =~ s/"/"/g;
	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;

	$value =~ s/\t//g;
	$value =~ s/\r\n/\n/g; # Win → Unix
	$value =~ s/\r/\n/g; # Mac → Unix

	$value =~ s/\f//g;
	$value =~ s/\t//g;

	if ($name =~ /;(\d+);/) { $in{'cmd'} = "DEL"; $delcode = $1; last; }
	elsif ($name =~ /;ALL;/) { $in{'cmd'} = "DELALL"; last; }

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

# カートの特定
$CARTCODE = &decCookie("CART");

if ($in{'cart'} ne "") { $CARTCODE = $in{'cart'}; }
elsif ($CARTCODE eq "0") {

	$CARTCODE = &MakeStr(12);
	if (-e "$tmp_dir$CARTCODE") { &Die("BUSY","戻ってもう一度実行してください。"); }
	&setCookie("CART",$CARTCODE,30);
}

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

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

		@BASE = <RID>;
		close(RID);
	}

	@NEW = grep(!/^$delcode\t\t/,@BASE);

	if (open(RID,"> $tmp_dir$CARTCODE")) {

		print RID @NEW;
		close(RID);
		chmod(0666,"$tmp_dir$CARTCODE");
	}
	else { &Die("異常終了"); }

	print "Location: $dat{'cgi_url'}cart.cgi\n\n"; exit;
}
elsif ($in{'cmd'} eq "DELALL") {

	unlink("$tmp_dir$CARTCODE");
	print "Location: $dat{'cgi_url'}cart.cgi\n\n"; exit;
}
elsif ($in{'cmd'} eq "selship") {

	require './cart1.cgi';
	&readCart;

	if ($in{'ship'} eq "") { &Die("エラー","送料の選択をしてください。"); }

	print &HtmlTop("bgcolor=#FFFFFF");
	&ViewLogo; # ロゴ表示
	print "<center>\n";
	&cartList(0); # 1=DELボタン付
	print "</center>\n";
	&inputName;
	print &HtmlBot;
}
elsif ($in{'cmd'} eq "Order") {

	if ($in{'CHECK'} eq "") { &Die("エラー","申\込みされる場合は、意志確認のため、「申\込みする」ボタンを押してください。"); }

	if ($in{'pwd'} ne "") {

		if (crypt($in{'passwd'},$in{'pwd'}) ne $in{'pwd'} || $in{'passwd'} eq "") { &Die("エラー","パスワードが合いません。"); }
	}

	require './cart1.cgi';
	&readCart;

	@YEAR = ("","A".."Z");
	$order_date = sprintf("%01s%02d%02d",$YEAR[$year -100],$mon +1,$mday);

	open(TMP,">> $tmp_dir$order_date");
	print TMP "\n";
	close(TMP);
	chmod(0666,"$tmp_dir$order_date");

	$order_num = $order_date . "-" . -s "$tmp_dir$order_date";

	unlink("$tmp_dir$CARTCODE");

	print &HtmlTop("bgcolor=#FFFFFF");
	print "<table cellpadding=5 align=center><tr><td colspan=3>\n";
	&ViewLogo; # ロゴ表示
	print "</td></tr>\n<tr><td vAlign=top align=right>\n";
	&cartList(0); # 1=DELボタン付
	print "</td><td width=1 bgcolor=#EEEEEE>&nbsp;</td><td vAlign=top>\n";
	&confirm2;
	print "</td></tr>\n";
	print "<tr><td><br></td></tr>\n";

	if ($dat{'regName'} ne "" && $dat{'regCode'} ne "") { $mes = "お申\し込みありがとうございます"; }
	else { $mes = "試用中 ... これはテスト注文です"; }

	print "<tr bgcolor=#ffaaaa><td colspan=3>&nbsp;<b>$mes</b></td></tr>\n";
	print "<tr><td colspan=3 align=center><table><tr><td>\n";
	print "受付番号は <font color=#880000><b>$order_num</b></font> です。この画面をメモまたはプリントしてください。<br>\n";
	print "<font color=#000088><u>$in{'Email'}</u></font>宛てに控えを送信しましたが、届かない場合は記入ミスの場合があります。<br>\n";
	print "数日経過しても連絡がない場合は、お手数ですが<a href=\"$dat{'cgi_url'}list.cgi?cmd=tokushoho\" target=popup onClick=\"popup()\">ご連絡</a>ください。\n";

	if ($in{'CARD'} eq "1") {

		if ($dat{'zeus'}) {

			$cType[0] = "mall";
			$cTypeName[0] = "日本円";
			$money[0] = $cost_all;

			$cType[1] = "cardsv";
			$cTypeName[1] = "米ドル";
			($cost_all3,$cost_all4) = &ketaCheck($cost_all);
			$cost_all4 =~ s/\,//g;
			$money[1] = "\$$cost_all4";

			$Tel = $in{'Tel'};
			$Tel =~ s/\D//g;

print <<"EOF";
<p>
クレジットカードでのご決済を選択されました。
下のボタンを押して、決済へお進みいただけます。<p>

<center>
<table cellspacing=5>
<tr bgcolor="#AA8888">
<td align=center>
<FORM METHOD=$method ACTION="$bit[$dat{'bitType'}]" ENCTYPE="x-www-form-encoded" TARGET="_blank">
<table cellpadding=5 cellspacing=0>
<tr bgcolor="#336699"><td align=center><font color=#ffffff>$cTypeName[$dat{'payType'}]決済/暗号強度$bitName[$dat{'bitType'}]ビット</font></td></tr>
<tr bgcolor=#ffffff>
<td align=center>
<INPUT TYPE="hidden" NAME="send" VALUE="$cType[$dat{'payType'}]">
<INPUT TYPE="hidden" NAME="clientip" VALUE="$dat{'zeusIP'}">
<INPUT TYPE="hidden" NAME="money" VALUE="$money[$dat{'payType'}]">
<INPUT TYPE="hidden" NAME="custom" VALUE="yes">
<INPUT TYPE="hidden" NAME="sendid" VALUE="$order_num">
<INPUT TYPE="hidden" NAME="sendpoint" VALUE="$Tel">
<INPUT TYPE="hidden" NAME="usrtel" VALUE="$Tel">
<INPUT TYPE="hidden" NAME="usrmail" VALUE="$in{'Email'}">
<INPUT TYPE="hidden" NAME="usrname" VALUE="">
<INPUT TYPE="submit" VALUE=" ご決済ページへ ">
</td>
</tr></table>
<font color=#ffffff>ご決済額 $cost_all2 $dat{'yen'}</font>
</td></FORM>
</tr></table>
</center>
EOF
		}
		elsif ($dat{'ginix'}) {

			$shokei += 0; $tax += 0;
			if ($in{'shipfree'} eq "1") { $shipFee = 0; }

print <<"EOF";
<p>
クレジットカードでのご決済を選択されました。
下のボタンを押して、決済へお進みいただけます。<p>

<center>
<table cellspacing=5>
<tr bgcolor="#AA8888">
<td align=center>
<form action="https://ssl.ginix.co.jp/gateway/payform.asp" method="post" target=_blank>
<table cellpadding=5 cellspacing=0>
<tr bgcolor="#336699"><td align=center><font color=#ffffff>カード決済</font></td></tr>
<tr bgcolor=#ffffff>
<td align=center>
<input type="hidden" name="aid" value="$dat{'aid'}">
<input type="hidden" name="jb" value="$dat{'kType'}">
<input type="hidden" name="am" value="$shokei">
<input type="hidden" name="tx" value="$tax">
<input type="hidden" name="sf" value="$shipFee">
<INPUT TYPE="submit" VALUE=" ご決済ページへ ">
</td>
</tr></table>
<font color=#ffffff>ご決済額 $cost_all2 $dat{'yen'}</font>
</td></FORM>
</tr></table>
</center>
EOF
		}
	}

	print "</td></tr></table></td></tr>\n";
	print "<tr><td colspan=3 align=center><hr size=1 width=100%>[ <a href=$dat{'home_url'} target=_top>ホームページ</a> ]<hr size=1 width=100%></td></tr>\n";
	print "<tr><td colspan=3>$foot</td></tr>\n";
	print "</table><p>\n";
	print &HtmlBot;

	&sendmail;
}
elsif ($in{'cmd'} eq "nameReg") {

	require './cart1.cgi';
	&readCart;

	$hint = "<table><tr><td bgcolor=#DDCCCC>&nbsp;お申\込者&nbsp;</td>";
	if ($in{'Name'} eq "") { push(@ERR,"$hint<td>お名前を記入してください。</td></tr></table>"); }
	if ($in{'Post'} eq "") { push(@ERR,"$hint<td>郵便番号を記入してください。</td></tr></table>"); }
	if ($in{'Addr2'} eq "") { push(@ERR,"$hint<td>ご住所を記入してください。</td></tr></table>"); }
	if ($in{'Tel'} eq "") { push(@ERR,"$hint<td>ご連絡先電話番号を記入してください。</td></tr></table>"); }
	unless ($in{'Email'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { push(@ERR,"$hint<td>メールアドレスを正しくご記入ください。</td></tr></table>"); }

	if (!$in{'Hasso'}) {

		$hint = "<table><tr><td bgcolor=#CCDDCC>&nbsp;ご発送先&nbsp;</td>";
		if ($in{'hName'} eq "") { push(@ERR,"$hint<td>お名前を記入してください。</td></tr></table>"); }
		if ($in{'hPost'} eq "") { push(@ERR,"$hint<td>郵便番号を記入してください。</td></tr></table>"); }
		if ($in{'hAddr2'} eq "") { push(@ERR,"$hint<td>ご住所を記入してください。</td></tr></table>"); }
		if ($in{'hTel'} eq "") { push(@ERR,"$hint<td>ご連絡先電話番号を記入してください。</td></tr></table>"); }
	}

	if ($in{'Memo'}) {

		$hint = "<table><tr><td bgcolor=#CCCCDD>&nbsp;メモリーサービス&nbsp;</td>";
		if (length($in{'passwd'}) < 6 || length($in{'passwd'}) > 8 || $in{'passwd'} =~ /\W/) { push(@ERR,"$hint<td>パスワードを６〜８文字の半角英数字でご記入ください。</td></tr></table>"); }
		&TestCrypt; $pwd = &MakeCrypt($in{'passwd'});
	}

	if (@ERR) { &Die("ご記入ミスがあります",@ERR); }

	print &HtmlTop("bgcolor=#FFFFFF");
	print "<table cellpadding=5 align=center><tr><td colspan=3>\n";
	&ViewLogo; # ロゴ表示
	print "</td></tr>\n<tr><td vAlign=top align=center>\n";
	&cartList(0); # 1=DELボタン付
	print "</td><td width=1 bgcolor=#EEEEEE>&nbsp;</td><td vAlign=top>\n";
	&confirm;
	print "</td></tr></table>\n";
	print &HtmlBot;
}
elsif ($buffer eq '') {

	require './cart1.cgi';
	&readCart;
	print &HtmlTop("bgcolor=#FFFFFF");
	print "<center>\n";
	&ViewLogo; # ロゴ表示
	&cartList(1); # 1=DELボタン付
	print "</center>\n";
	&selectShippng;
	print &HtmlBot;
}
else { # 商品追加

	$gname = "$in{'gname'}\t";

	foreach $line (@in) {

		($key,$val) = split(/\0/,$line,2);

		if ($key ne "category" && $key ne "file" && $key ne "gname" && $key ne "unit" && $key ne "qty") {

			$gname .= " ($key)$in{$key}";
		}
	}

	if ($in{'qty'} == 0) { $in{'qty'} = 1; }

	if (open(RID,">> $tmp_dir$CARTCODE")) {

		$time = time;
		print RID "$time\t\t$in{'category'}\t\t$in{'file'}\t\t$gname\t\t$in{'unit'}\t\t$in{'qty'}\n";
		close(RID);
		chmod(0666,"$tmp_dir$CARTCODE");
	}
	else { &Die("異常終了"); }

	print "Location: $dat{'cgi_url'}cart.cgi\n\n"; exit;
}


sub ViewLogo {

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

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

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

		print "<div align=center><img src=\"$dat{'cgi_ssl'}panel.cgi?cmd=img3&filename=LOGO&ctype=$ctype\" alt=\"\"></div><p>\n";
	}
}

sub cartList {

local($DEL) = @_;
$in{'keta'} = $dat{'keta'}; # ketaCheck用

if ($dat{'regName'} ne "" && $dat{'regCode'} ne "") { print "\n<!-- シェアウエア登録: $dat{'regName'}($dat{'regCode'}) $vers -->\n"; }
else { print "\n<!-- シェアウエア登録: 未登録(試用期間は１ヶ月です) $vers -->\n"; }

print <<"EOF";
<!-- CODE: $CARTCODE -->

<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 ($DEL) { print "<form action=cart.cgi method=POST>\n"; }

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

<table cellspacing=2 cellpadding=1>
<tr>
<td align=center><small><font color=#888888>商 品</font></small></td>
<td width=50 align=center nowrap><small><font color=#888888>単 価</font></small></td>
<td width=50 align=center nowrap><small><font color=#888888>数 量</font></small></td>
<td width=50 align=center nowrap><nobr><small><font color=#888888>金 額 (</font><b>$dat{'yen'}</b><font color=#888888>)</font></small></nobr></td>
EOF

if ($DEL) {

print <<"EOF";
<td width=50 align=center><font color=red>削 除</font></td>
EOF

}

print <<"EOF";
</tr>
EOF

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

foreach $line (@BASE) {

	($delcode,$category,$file,$gname,$unit,$qty) = split(/\t\t/,$line,6);

	if ($DEL) {

		if ($gname =~ /(.+)\t(.+)/) { $gname = "<b><A href=\"$dat{'cgi_url'}list.cgi?category=$category&file=$file\">$1</a></b><br>$2"; }
		else { $gname = "<b><A href=\"$dat{'cgi_url'}list.cgi?category=$category&file=$file\">$gname</a></b>"; }
	}
	else {
		if ($gname =~ /(.+)\t(.+)/) {

			if ($in{'cmd'} eq "Order") { $ORDER .= "$1\n$2\n"; $LIST .="[品名]:$1 $2"; } # ●
			$gname = "<b>$1</b><br>$2";
		}
		else {
			if ($in{'cmd'} eq "Order") { $ORDER .= "$gname\n"; $LIST .="[品名]:$gname"; } # ●
			$gname = "<b>$gname</b>";
		}
	}

	$cost = $unit * $qty;
	$qty_all += $qty;
	$cost_all += $cost;

	($unit,$unit2) = &ketaCheck($unit);
	$qty2 = &keta($qty);
	($cost,$cost2) = &ketaCheck($cost);
	$qty_all2 = &keta($qty_all);
	($cost_all,$cost_all2) = &ketaCheck($cost_all);

	$col++;
	$bgcolor = "bgcolor=$col[$col % 2]";

	if ($in{'cmd'} eq "Order") { $ORDER .= "＠$unit2 x $qty2点 = $cost2 $dat{'yen'}\n\n"; $LIST .=" (単価):$unit2 (数量):$qty2 (小計):$cost2\n"; } # ●

	print "<tr $bgcolor>";
	print "<td align=left>$gname</td>\n";
	print "<td align=right nowrap>$unit2</td>\n";
	print "<td align=right nowrap>$qty2</td>\n";
	print "<td align=right nowrap>$cost2</td>\n";
	if ($DEL) { print "<td align=center><input type=submit name=\";$delcode;\" value=\"削除\"></td>\n"; }
	print "</tr>";
}

if ($in{'cmd'} eq "Order") { $ORDER2 .= "商品点数\0$qty_all2\n\n"; $LIST .="[商品点数]:$qty_all2\n"; } # ●

if ($DEL) { $colspan=5; } else { $colspan=4; }
print "<tr><td bgcolor=#dddddd colspan=$colspan></td></tr>";
print "<tr><td bgcolor=#FFFFFF colspan=$colspan></td></tr>";
print "<tr><td bgcolor=#dddddd colspan=$colspan></td></tr>";

if ($dat{'zei'} eq "0") { # 税別

	print "<tr>";
	print "<td></td>\n";
	print "<td></td>\n";
	print "<td align=right><font color=#888888>小計</font></td>\n";
	print "<td bgcolor=#FFFFFF align=right nowrap>$cost_all2</td>\n";
	if ($DEL) { print "<td align=center><input type=submit name=\";ALL;\" value=\"全削\"></td>\n"; }
	print "</tr>";

	$shokei = $cost_all2; ($shokei,$shokei2) = &ketaCheck($shokei);
	if ($in{'cmd'} eq "Order") { $ORDER2 .= "小計\0$shokei2 $dat{'yen'}\n"; $LIST .="[商品合計]:$shokei2\n"; } # ●

	$tax = $cost_all * ($dat{'tax'}/100); ($tax,$tax2) = &ketaCheck($tax);
	if ($in{'cmd'} eq "Order") { $ORDER2 .= "消費税\0$tax2 $dat{'yen'}\n"; $LIST .="[消費税]:$tax2\n"; } # ●

	$cost_all += $tax; ($cost_all,$cost_all2) = &ketaCheck($cost_all);

	print "<tr>";
	print "<td></td>\n";
	print "<td></td>\n";
	print "<td align=right><font color=#888888>消費税</font></td>\n";
	print "<td bgcolor=#FFFFFF align=right nowrap>$tax2</td>\n";
	if ($DEL) { print "<td></td>\n"; }
	print "</tr>";
}
else { # 消費税の計算をしない

	$shokei = $cost_all2; ($shokei,$shokei2) = &ketaCheck($shokei);
	$tax = 0;

	if ($in{'cmd'} ne "") {

		print "<tr>";
		print "<td></td>\n";
		print "<td></td>\n";
		print "<td align=right><font color=#888888>小計</font></td>\n";
		print "<td bgcolor=#FFFFFF align=right nowrap>$cost_all2</td>\n";
		print "</tr>";
	}

	if ($in{'cmd'} eq "Order") { $ORDER2 .= "小計\0$cost_all2 $dat{'yen'}\n"; $LIST .="[商品合計]:$cost_all2\n"; } # ●
	if ($DEL) { $mes2 = "<input type=submit name=\";ALL;\" value=\"全削\">\n"; }
}

if ($in{'cmd'} eq "selship" || ($in{'ship'} ne "" && $in{'ship'} ne "-")) { &insertShip; }

if ($in{'cmd'} eq "Order") { $ORDER2 .= "合計\0$cost_all2 $dat{'yen'}\n"; $ORDER2 .= "=========\0==============\n"; $LIST .="[支払合計]:$cost_all2\n"; } # ●

print "<tr>";
print "<td colspan=2>&nbsp;</td>\n";
print "<td bgcolor=#FFFFFF align=right nowrap><font size=+1><b>$qty_all2</b></font>点</td>\n";
print "<td bgcolor=#FFFFFF align=right nowrap><font size=+1><b>$cost_all2</b></font></td>\n";
if ($DEL) { print "<td align=center>$mes2</td>\n"; }
print "</tr>";

if ($dat{'zei'} eq "1") { # 総額表示(内税)用

	$nuki = &UchiZei($cost_all);
	$nuki2 = &keta($nuki);

	print "<tr>";
	print "<td colspan=3>&nbsp;</td>\n";
	print "<td bgcolor=#FFFFFF align=right nowrap>&nbsp;<font size=-1 color=#888888>内消費税 $nuki2</font></td>\n";
	if ($DEL) { print "<td></td>\n"; }
	print "</tr>";

	if ($in{'cmd'} eq "Order") { $ORDER2 .= "内消費税\0($nuki2 $dat{'yen'})\n"; $LIST .="[内消費税]:$nuki2\n"; } # ●
}

print <<"EOF";
</table></td>
</tr>
<tr><td bgcolor=#$bgcolor{'panel'} colspan=3></td></tr>
</table></td>
</tr></Table>
EOF

if ($DEL) { print "</form>\n"; }

}

sub readCart { # カートの内容

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

		while(<RID>) {

			s/\n//g;
			push(@BASE,$_);
		}
		close(RID);
	}

	if (!@BASE) { &Die("買物カゴは空です","<a href=$dat{'cgi_url'}list.cgi>商品一覧へもどる</a>"); }
}

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="$dat{'cgi_url'}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 jis { local($msg) = @_; &jcode'convert(*msg,'jis'); return $msg; }