#!/usr/local/bin/perl

#///////////////////////////////////////////////////////////////////////////////
#                                Multi Shop Great Ver6.05

#                      ----- 2002(C) WEB INVENTOR(Solve) -----
#                                 solve@wb-i.net
#                                 http://wb-i.net/
#	
#	【Ver4.00】csv形式のデータをメールに添付。注文ログの作成。
#	【Ver4.04】csv形式貴のデータのバグを修正すると共に、データ構成の変更。
#     販売管理（sale.csv）
#         注文番号,日付,商品番号,商品名,オプション１,オプション２,商品記号,単価,注文数,合計,送料,代引き料
#	【Ver4.05】注文の取消し、注文確定後にかごの中が完全に空にならないバグを修正。
#	【Ver5.00】外税、内税、税なしを設定できるようにしました。また、支払方法としてe-コレクトを設定できるようにしました。顧客管理（user.csv）及び注文ログに連絡事項を含めました。「次の戻る」の不具合を修正。
#	【Ver5.01】確認画面で「銀行振込」「郵便振替」が表示されないバグを修正。ロック及びCSVファイル書き込みの際にエラーが起きる場合がったバグを修正
#	【Great版】CSVファイルから商品一括登録機能付。画像のURL指定。詳細説明を拡大画像と共に表示。
#	【Ver5.02】CSVファイル及びログファイルに氏名2,郵便番号2,住所2,電話2を追加。
#	【Ver5.03】詳細画面にオプションを追加しました。携帯の詳細画面で説明を表示するようにしました。
#	【Ver5.04】商品画面でページ数を表示、非表示に設定できるようにしました。
#	【Ver5.06】CSVファイルを添付しない設定にしたときに連絡事項が設定されないバグを修正。
#	【Ver6.00】大分類、小分類を設定できるようにしました。
#	【Ver6.01】小分類をメニュー及び一覧表上部に表示または非表示に設定することできる。
#	【Ver6.02】一覧表上部に表示された小分類のバグを修正。
#	【Ver6.03】一覧の説明、詳細説明、携帯用説明を設定可能。配達時間指定が設定可能。
#	【Ver6.04】商品管理Goods Manager(画像ファイルＵＰロード機能付き)を標準装備。
#	【Ver6.05】sendmailの使用法を検討し、RFC基準に準拠するように努力しました。

#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
#	１．商品画面
#			http://・・/mu-shop.cgi		PC用
#			http://・・/k-shop.cgi		i-mode、j-sky用（自動的に機種を判別する）
#	２．検索窓の設置
#			<FORM method="post" action="http://・・/mu_shop.cgi">
#			<input type="text" size=15 name="keyword" value="">
#    		<input type="hidden" name="FF" value=0>
#    		<input type="hidden" name="class" value="all">
#			<input type="hidden" name="superkey" value="1">
#			検索キー<input type=submit value=商品検索>
#			</FORM>
#	３．キーワード及び分類表からの呼び出しかた
#			<A href="http://・・/mu_shop.cgi?keyword=当店お勧め&class=all&superkey=1&FF=0">当店お勧め</A>
#			<A href="http://・・/mu_shop.cgi?class=0&keyword=&superkey=1&FF=0">分類A</A>
#			<A href="http://・・/mu_shop.cgi?class=all&keyword=&superkey=1&FF=0">$class_all</A>
#	４．管理者用
#			http://・・/mu_shop.cgi?mode=adm1
#
#===============================================================================
# ▼設定▼
#===============================================================================

# jcode.plへのパス
require './jcode.pl';

# cgi-lib.plへのパス
require './cgi-lib.pl';

# MIMEコード変換ライブラリ
require './mimew.pl';

# ===============================================================================
# ▲設定終了▲
# ===============================================================================

&ReadParse;

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

	&jcode'convert($val, "sjis");
	$form{$key} = $val;
	
	$val =~ s/<>//g;

	if($form{'mode'} eq 'adm4' || $form{'mode'} eq 'order_form' || $form{'mode'} eq 'order_mail'){
		$val =~ s/&quot;/\"/g;
		if ($key eq "MESS" || $key eq "setumei") {
			$val =~ s/&lt;/</g;
			$val =~ s/&gt;/>/g;
			$val =~ s/<br>/\n/g;
			$val =~ s/\.\n/\. \n/g;

		}else{
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;	

			$val =~ s/\r\n//g;
			$val =~ s/\r//g;
			$val =~ s/\n//g;
			$val =~ s/\s//g;
		}
			
	}else{
		$val =~ s/\"/&quot;/g;
		$val =~ s/\0/ /g;
		if ($key eq "MESS" || $key eq "setumei" || $key eq "setumei2" || $key eq "setumei3") {
			$val =~ s/\r\n/<br>/g;
			$val =~ s/\r/<br>/g;
			$val =~ s/\n/<br>/g;
			if ($val =~ /<br>$/) {
				while ($val =~ /<br>$/) { $val =~ s/<br>$//g; }
			}	
#			$val =~ s/\s//g;

		} else {
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;	
			$val =~ s/\r\n//g;
			$val =~ s/\r//g;
			$val =~ s/\n//g;
			$val =~ s/\s//g;
		}
	}

	$in{$key} = $val;

}

#=================注文加算============================================
if($in{'order'} eq ""){
# Cookieの値を得る
&getCookie();
	$in{'order'} = $COOKIE{'ORDER'};
}	

$order=$in{'order'};
$order_new =$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'};
if($in{'amount'} ne "" and $in{'amount'} ne "0"){
		if($order eq ""){
			$order =$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'}.":".$in{'amount'};
	    }else{
			@order_1 = split(/!/,$order);
			foreach (@order_1) {
				($i,$j) = split(/:/,$_);
                if($i eq $order_new){
                	$j = $j + $in{"amount"};
                	if($order_2 eq ""){
                		$order_2 =$order_new.":".$j;
                	}else{
                    	$order_2 .="!".$order_new.":".$j;
                    }
                    $k =1;
                }else{
                	if($order_2 eq ""){
                		$order_2 =$_;
                	}else{
                    	$order_2 .="!".$_;
                    }
                }
	        }

	        if($k ne 1){
	    		$order .="!".$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'}.":".$in{'amount'};
	    	}else{
	    	    $order =$order_2;
	    	}
	    }
$in{'order'}=$order;
}
#=================注文減算============================================

if($in{'del_no'} ne ""){
	$order ="";
	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		if($s eq $in{'del_no'}){next;}
		if($order eq ""){
			$order = $s.":".$t;
		}else{
			$order .="!".$s.":".$t;
		}
	}
	$in{'order'}=$order;
}
	
#クッキーの設定
print &setCookie_0("ORDER", $order);

# 設定ファイル====================================================================
if ( $in{'mode'} eq 'order_mail' ) {
	$in{'order'} ='';
	require './mu_set.pl';
	$in{'order'}=$order;
}else{
	require './mu_set.pl';
}
#===== 戻り先========================================================
$save_data="$script?&keyword=$in{'keyword'}&FF=$in{'FF'}&class=$in{'class'}";
$modoru_adding = "$save_data&mode=adm2&pass=$adm_pass";
$modoru_dell = "$save_data&mode=adm3&pass=$adm_pass";
$modoru_renew = "$save_data&mode=adm4&pass=$adm_pass";

$modoru_goods ="$script?order=$in{'order'}&class=$in{'class'}&keyword=$in{'keyword'}&FF=$in{'FF'}&price_sort=$in{'price_sort'}";
$modoru_goods_2 ="$script?class=$in{'class'}&keyword=$in{'keyword'}&FF=$in{'FF'}&price_sort=$in{'price_sort'}";
$modoru_goods_end ="$script?class=$in{'class'}&keyword=$in{'keyword'}&FF=$in{'FF'}&price_sort=$in{'price_sort'}";

#====================================================================

	if (!open(IN,"$data_file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
	@BASE = <IN>;
	close(IN);

if($in{'price_sort'} ne 1){
	@BASE = reverse @BASE;
}else{	
	@BASE = sort { (split(/\<\>/,$a))[8] <=> (split(/\<\>/,$b))[8] } @BASE;
}

	$hit = 0;
	$next_num = '';
	$over_no = 0;
	
	if($in{'mode'} eq 'adm3' or $in{'mode'} eq 'addell'){
		$page =$page_dell;	
	}

#=========消費税のの扱い====================
if($tax_flag eq '' or $tax_flag == 0){
	$tax_set ='(税別)';
	$br_tax_set ='<br>(税別)';
}elsif($tax_flag == 1){
	$tax_set ='(税込)';
	$br_tax_set ='<br>(税込)';
	$syouhi_tax =0;
}else{
	$syouhi_tax =0;
}

#====================================================================
    if ( $in{'mode'} eq 'adding' ) { &adding; exit;}
	if ( $in{'mode'} eq 'renew' ) { &renew; exit;}
	if ( $in{'mode'} eq 'dell' ) { &dell; exit;}
	if ( $in{'mode'} eq 'look' ) { &look; exit;}
	if ( $in{'mode'} eq 'order_form' ) { &order_form; exit;}
	if ( $in{'mode'} eq 'sure' ) { &sure; exit;}
	if ( $in{'mode'} eq 'order_mail' ) { &order_mail; exit;}
	if ( $in{'mode'} eq 'adm5' ) { &csv_adm; exit;}
	if ( $in{'mode'} eq 'adm6' ) { &csv_adm_ok; exit;}
	if ( $in{'mode'} eq 'adm7' ) { &csv_new; exit;}

#====================================================================
# Cookieの値を得る
&getCookie();
$classmei = $COOKIE{'BUNRUIMEI'};
$ff_no = $COOKIE{'FF'};
if($ff_no eq ''){$ff_no =0;}

$pas_word = $COOKIE{'WORD'};

if($in{'class'} ne ""){
	$classmei = $in{'class'};
	print &setCookie("BUNRUIMEI", $classmei);
}
if($in{'FF'} ne ""){
	$ff_no = $in{'FF'};
	print &setCookie('FF', $ff_no);
}
if($in{'keyword'} ne "" or $in{'superkey'} eq "1"){
	$pas_word = $in{'keyword'};
	print &setCookie('WORD', $pas_word);
}
$in{'keyword'} = $pas_word;
$in{'class'}=$classmei;
#===================================================================
$data_su= 0;
$data_ff =0;
foreach $num (0 .. $#BASE) {

		$data = $data2 = $BASE[$num];
		&jcode'convert(*data,'sjis');
		($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou) = split(/\<\>/,$data);

	if($pas_word ne "") {
    
		# 入力内容を整理
		$word = $pas_word;
		$word =~ s/　/ /g;
		$word =~ s/\t/ /g;
		@pairs = split(/ /,$word);

($a,$b)  =split(/\//,$class);
&class_name_get();

	# 検索処理
			$flag_k = 0;
			foreach $pair (@pairs){
				if (index($kigou,$pair) >= 0) {
					 next;
				}elsif (index($name,$pair) >= 0) {
					 next;
				}elsif (index($goods_no,$pair) >= 0) {
					 next;
				}elsif (index($class_B,$pair) >= 0) {
					 next;
				}elsif (index($class_S,$pair) >= 0) {
					 next;
				}elsif (index($option,$pair) >= 0) {
					 next;
				}elsif (index($setumei,$pair) >= 0) {
					 next;
				}elsif (index($bikou,$pair) >= 0) {
					 next;
				}elsif (index($price,$pair) >= 0) {
					 next;
				}elsif (index($class,$pair) >= 0) {
					 next;
				}
				$flag_k = 1;
				last;
			}
			if ($flag_k == 1) { next; }

    }
		if ($classmei ne "all" && $classmei ne "") {
			($a1,$a2)  =split(/\//,$class);
			($b1,$b2)  =split(/\//,$classmei);
			
			if ($a1 ne $b1) { next; }
			if ($b2 ne ''){
				if($a2 ne $b2){ next;}
			}

		}

		if ($in{'id'} ne '' && ($in{'mode'} eq 'adm4' or $in{'mode'} eq 'p_wide')) {
			if ($goods_no eq $in{'id'}) {
			 	push(@NEW,$data2);
			 	last; 
			 } else { next; }
		}

		$data_su++;

		# 検索終了処理
		if ($hit == $page) { $next_num = $data_ff; $over_no ++; $hit++; next; }
		elsif($hit < $page && $data_ff >= $ff_no){
			 push(@NEW,$data2); $hit++; 
		}elsif($hit > $page && $data_ff >= $ff_no){
			$over_no ++;
		}
		$data_ff ++;
}

if($over_no > $page){
	$over_no = $page;
}
#=========================================================================================
	if ( $in{'mode'} eq 'adm1' ) { &adm1; exit;}
	elsif ( $in{'mode'} eq 'adm2' ) { &adm_add; exit;}
	elsif ( $in{'mode'} eq 'adm3' ) { &adm_dell; exit;}
	elsif ( $in{'mode'} eq 'adm4' ) { &adm_renew; exit;}
	elsif ( $in{'mode'} eq 'p_wide' ) { &p_wide; exit;}
	else { &shop_form; exit;}

#=============================画像の拡大（詳細）===========================================
sub p_wide {

&html_header();

if($zaiko eq ""){
    $zaiko = 100000;
}
if($limit eq ""){
    $limit =100000;
}

$kosuu_setting = "";
foreach ( @kosuu_set ) {
	if($_ >$limit or $_ >$zaiko){
		last;
	}else{
		$kosuu_setting .= "<option value=$_>$_</option>";
	}
}
if($kosuu_setting eq ""){
	$kosuu_setting = "<select name='amount'><option value=0>−</option></select>$tani_set";
}else{
	$kosuu_setting = "<select name='amount'>$kosuu_setting</select>$tani_set";
}

$folder="$dir_p/order.gif";
if($zaiko ne 0){
	$get_setting = "<INPUT TYPE=image SRC=$folder BORDER=0 align=top>";
}else{
    $get_setting = "在庫切れ";
}

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);

if($pic1 eq ""){
	$pic1 ="$dir_p/space.gif";
}
if($pic2 eq ""){
	$pic2 ="$dir_p/space.gif";
}
if($pic3 eq ""){
	$pic3 ="$dir_p/space.gif";
}

($setumei,$setumei2) =split(/\|\|/,$setumei);

@option = split(/\:/,$option);
$i = 0;
$option_set = "";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$option[$i]);
	if($op_k[$i] eq ""){ $i++; next;}
		$option_set = $option_set."<option value='$op_k[$i]'>$op_m[$i]($op_k[$i])</option>\n";
	$i++;
}
if($option_set ne ""){
    $option_set = "<select name='op1'>".$option_set."</select>";
}else{
	$option_set ="\　";
}

@option2 = split(/\:/,$option2);
$i = 0;
$option2_set = "";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$option2[$i]);
	if($op2_k[$i] eq ""){ $i++; next;}
		$option2_set = $option2_set."<option value='$op2_k[$i]'>$op2_m[$i]($op2_k[$i])</option>\n";
	$i++;
}
if($option2_set ne ""){
    $option2_set = "<select name='op2'>".$option2_set."</select>";
}else{
	$option2_set ="\　";
}

print <<"EOF";
		<table><tr><td align="center">
			<form method=post action=$script>
			<select name="class">
			<option value="all">$class_all</option>
EOF
$i =0;
foreach (@class_tb) {
	($class_B,$k) = split(/\//,$_);
	if("$i" ne $classmei){
	print <<"EOF";
	<option value="$i">$class_B</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i" selected>$class_B</option>
EOF
		}

	@class_S =split(/:/,$k);
	$j =0;
	foreach (@class_S) {
	
		if("$i/$j" ne $classmei){
	print <<"EOF";
	<option value="$i/$j">$class_B/$class_S[$j]</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i/$j" selected>$class_B/$class_S[$j]</option>
EOF
		}
		$j ++;
	}
	$i ++;
}	

print <<"EOF";
		</select>
		<input TYPE=image SRC="$dir_p/class.gif" BORDER=0 align=top>
		<input type="hidden" name="FF" value=0>
		<input type="hidden" name="superkey" value="1">
		<input type="hidden" name="keyword" value="">
		<input type="hidden" name="order" value=$in{'order'}>
		</form></td>
		<TD>
		<form method=post action=$script>\　
		検索キー<input type="text" size=10 name="keyword" value="$pas_word">
		<input TYPE=image SRC="$dir_p/key.gif" BORDER=0>
		<input type="hidden" name="class" value="all">
		<input type="hidden" name="FF" value=0>
		<input type="hidden" name="superkey" value="1">
  		<input type="hidden" name="order" value=$in{'order'}>
		</form></td></tr>
		</table>
EOF

print <<"EOF";
			<table width="$t_width" bgcolor="$bg_color"><TR><TD width=400><B>【$goods_no】$name</b></TD><TD align="right">
			<a href="$modoru_goods"><font color="#0000ff">▲戻る</font></a></TD></TR>
			</table>
EOF

#====================================
1 while $price =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

print <<"EOF";
<center>
<TABLE cellSpacing=0 cellPadding=0 width="$t_width" border=0>
<TBODY>
<TR>
<TD align=middle><br><IMG src="$pic1" border="0"></TD>
    </TR>
<TR>
<TD align=middle><IMG src="$pic2" border="0"></TD>
    </TR>
<TR>
<TD align=middle><IMG src="$pic3" border="0"></TD>
    </TR>
<TR>
<TD align=middle><br><FONT class='detail'>$setumei2</font></TD>
    </TR>
  </TBODY>
</TABLE>
<P align=center>
<FORM action="$script" method="post">
	<input type='hidden' name='g_no' value="$in{'id'}">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
<br>
<b>販売価格 $price円$tax_set <br><br>$option_set\　\　 $option2_set\　\　注文数 $kosuu_setting$tani</b> \　\　 $get_setting
</form>

</center>
EOF

print <<"EOF";
			<table width="$t_width" bgcolor="$bg_color"><TR><TD align="right">
			<a href="$modoru_goods"><font color="#0000ff">▲戻る</font></a></TD></TR>
			</table>
EOF

print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="3">
EOF

	print "<p>$foot</body></html>\n" ;	

}
#=============================注文メール=================================================	
sub order_mail {
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$month = $month +1;
	$year = $year + 1900;
    $year_m_d = "$year"."年"."$month"."月"."$day"."日";
    $year_m_d2 = "$year"."/"."$month"."/"."$day";

if($in{'d_time'}){
	$in{'MESS'} = "[配達時間指定：$in{'d_time'}]\n"."$in{'MESS'}";
}

$order_log="";
# ロック処理
if ($lockkey ne 0) { &lock_log(); }

	open (IN,"$data_file") || &error('オープンエラー1','指定された書込みファイルが開けません。');
	@BASE = <IN>;
	close (IN);
	
	#データチェック
	$order=$in{'order'};
	&keisan();

foreach $data ( @BASE ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$data);

	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		($a,$b,$c) = split(/\,/,$s);

		if ( $goods_no == $a ) {
			if($zaiko ne ''){
		 		$zaiko =$zaiko -$t;       #在庫数更新
            }
			$data = "$goods_no<>$name<>$kigou<>$option<>$option2<>$class<>$setumei<>$fcolor<>$price<>$tani<>$zaiko<>$limit<>$tail<>$bikou";
		}
	}
	push (@NEW,$data); 
}
	
	open (OUT,">$data_file") || &error('オープンエラー2','指定された書込みファイルが開けません。');
	print OUT (@NEW);
	close (OUT);

	open (IN,"$NO_file") || &error('オープンエラー3','指定された書込みファイルが開けません。');
	$order_max = <IN>;
	close (IN);
	
	if($order_max eq ""){$order_max = 0;}
	$order_no = $order_max + 1;
	
	open (OUT,">$NO_file") || &error('オープンエラー4','指定された書込みファイルが開けません。');
	print OUT "$order_no";
	close (OUT);

# ファイルロック解除
if (-e $loglock) { unlink($loglock); }

$souryou_csv=$in{'souryou'};

$mailto ="$in{'MAIL'}";
$fromname =$shop_name;
$frommail =$shop_mail;
$subject =$mail_subject;
	&mail_make();
	&mail_send();

$mailto =$shop_mail;
$fromname =$shop_name;;
$frommail =$shop_mail;
$subject =$mail_subject;
$report="次の方にメールを送信しました。"."\n          "."$in{'SIMEI'}"."\n          "."$in{'MAIL'}"."\n";
$mailbody=$report.$mailbody2;

if($csv_tenpu){
	&mail_send_tenpu();
	&csv_unlock();
}else{
    &mail_send();
}

#注文完了メッセージ====
#クッキーの設定
print &setCookie_0("ORDER", "");
$in{'order'} ='';

&html_header();

print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
	<TBODY>
	<TR>
	<TD align="right" width="$o_width"><A href="$modoru_goods_end"><font color="#0000ff">▲商品画面へ戻る</font></A></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER></CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" bgcolor="$color_d"><FONT color="#ffffff"><b>注文完了</b></FONT></TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" align="center"><BR>$in{"SIMEI"}$end_mess<BR><BR>
	<IMG src="$dir_p/thank.gif" border="0"><BR><BR></TD>
	</TR>
	</TBODY>
</TABLE>
<BR>
</CENTER>
<CENTER>
<TABLE width="$o_width" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d" height="16"><B><FONT color="#ffffff"><b>See you again!</b></FONT></B></TD>
	</TR>
	</TBODY>
</TABLE>
<BR>
</CENTER>
EOF
	print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="3">
EOF

	print "<p>$foot</body></html>\n" ;	

}

#=======ログ及びCSV形式のファイルの作成======
sub csv_make{
#=============ログの作成=============

	if($order_log){
		$order_log .=":"."$k_no[$data_no],$k_name[$data_no],$option_1,$option_2,$kigou,$k_price[$data_no],$k_amount[$data_no],$k_total[$data_no]";
	}else{
		$order_log .="$k_no[$data_no],$k_name[$data_no],$option_1,$option_2,$kigou,$k_price[$data_no],$k_amount[$data_no],$k_total[$data_no]";
	}

#=============csvデータ===============
#データ構成
#     顧客管理（user.csv）
#         注文番号,氏名,メール,郵便番号,住所,電話,送金方法,機種,連絡事項,氏名2,郵便番号2,住所2,電話2
#     販売管理（sale.csv）
#         注文番号,日付,商品番号,商品名,オプション１,オプション２,商品記号,単価,注文数,合計,送料,代引き料

$mess =$in{'MESS'};
$mess =~ s/\r\n/\　/g;
$mess =~ s/\r/\　/g;
$mess =~ s/\n/\　/g;

if($csv_tenpu eq 0){return;}

if($option_1 eq ""){$option_1 = "-";}
if($option_2 eq ""){$option_2 = "-";}

# 顧客管理用csvデータ
	open (OUT,">$file_user") || &error('オープンエラー5','指定された書込みファイルが開けません。');
	print OUT "$order_no,$in{'SIMEI'},$in{'MAIL'},$in{'POST'},$in{'ADDR'},$in{'TEL'},$in{'METHOD'},PC,$mess,$in{'SIMEI2'},$in{'POST2'},$in{'ADDR2'},$in{'TEL2'}";
	print OUT "\n";
	close (OUT);
    
# 販売管理用csvデータ
	open (OUT,">$file_sale") || &error('オープンエラー6','指定された書込みファイルが開けません。');

			$data = "$order_no,$year_m_d2,$k_no[$data_no],$k_name[$data_no],$option_1,$option_2,$kigou,$k_price[$data_no],$k_amount[$data_no],$k_total[$data_no],$souryou_csv,$daibiki_add_csv\n";
			push (@SALE_DATA,$data) ;
			
	print OUT @SALE_DATA;
	close (OUT);
	
	$souryou_csv ='';
    $daibiki_add_csv ='';

}

#======csvファイル削除=========================
sub csv_unlock{
	if (-e "$file_user") { unlink("$file_user"); }
	if (-e "$file_sale") { unlink("$file_sale"); }
}

#=======注文ログファイルへの追加===============
sub put_log{

	open (OUT,">>$log_file") || &error('オープンエラー7','ログファイルが開けません。');
	print OUT "$order_no,$year_m_d2,<>$order_log<>$all_total_log,$tax_log,$in{'souryou'},$sougoukei_log,$in{'METHOD'},$daibiki_add<>$in{'SIMEI'},$in{'MAIL'},$in{'POST'},$in{'ADDR'},$in{'TEL'},PC,$mess,$in{'SIMEI2'},$in{'POST2'},$in{'ADDR2'},$in{'TEL2'}\n";
	close (OUT);
}

#=======メールを作成する=============
#
sub mail_make{
$tax = int($all_total * $syouhi_tax);
$tax_total =$tax + $all_total;
$sougoukei =$tax_total +$in{"souryou"};
$souryou_set =$in{"souryou"};
$sougoukei_2 =$sougoukei;

#====消費税の扱い=====
if($tax_flag eq '' or $tax_flag == 0){
	$syouhizei_set ="【消費税】$tax円\n";
}

#====代引き===========
&daibikikeisann();
&collectkeisann();

if($in{'METHOD'} eq '代引き'){
	$sougoukei_2 =$sougoukei +$daibiki_add;
1 while $sougoukei_2 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$daibiki_add_set ="\n【代引き手数料】$daibiki_add円\n【代引き手数料を含めたお支払い総額】$sougoukei_2円\n";
	$method_set ="$daibiki_mess"."商品到着時に別途代引き手数料$daibiki_add円が必要です。\n";
}elsif($in{'METHOD'} eq 'e-コレクト'){
	$sougoukei_2 =$sougoukei +$collect_add;
1 while $sougoukei_2 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$daibiki_add_set ="\n【e-コレクト手数料】$collect_add円\n【e-コレクト手数料を含めたお支払い総額】$sougoukei_2円\n";
	$method_set ="$collect_mess"."商品到着時に別途e-コレクト手数料$collect_add円が必要です。\n";
}elsif($in{'METHOD'} eq '郵便振替'){
	$yuubin ="CHECKED";
	$method_set =$hurikae_mess;
}else{
	$bank ="CHECKED";
	$method_set =$hurikomi_mess;
}

$all_total_log =$all_total;
$tax_log=$tax;
$sougoukei_log=$sougoukei;

if($in{'METHOD'} eq '代引き'){
	$daibiki_add_csv =$daibiki_add;
}elsif($in{'METHOD'} eq 'e-コレクト'){
	$daibiki_add_csv =$collect_add;
}

1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

@order_1 = split(/!/,$order);
$data_no =0;
foreach (0..$all_no) {
	($s,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s);


$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
$option_1 ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	$option_1=$op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
$option_2 ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	$option_2=$op2_m[$i];
	last;
}

#==logデータ及びcsvデータの作成===
	&csv_make();
#=================================

1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

$hikae .="[$k_no[$_]]$k_name[$_]$option_set$option2_set"."[".$kigou."]"."\n";
$hikae .="          "."$k_price[$_]円"."×"."$k_amount[$_]$k_tani[$_]"."＝"."$k_total[$_]円"."\n\n";
$data_no ++;
}

#=========ログの作成========
if($log_make){&put_log();}

#===========================

$mailbody = <<END_OF_DATA;
$m_header
   $in{"SIMEI"} 様
   
$year_m_d

$aisatu
【合計金額】$sougoukei円

===================お支払い方法=================
$method_set
====================注文の控え==================
【注文番号】$order_no

$hikae【合計】$all_total円
$syouhizei_set【送料】$souryou_set円
【合計金額】$sougoukei円
$daibiki_add_set
------------------------------------------------
【氏名】$in{"SIMEI"}
【メールアドレス】$in{"MAIL"}
【住所】\〒 $in{"POST"}
              $in{"ADDR"} 
【TEL】$in{"TEL"}
【支払方法】$in{"METHOD"}
【連絡事項】$in{"MESS"}

▼送付先(未記入のときは上記住所と同じ)
【氏名】$in{"SIMEI2"}
【住所】\〒 $in{"POST2"}
              $in{"ADDR2"}
【TEL】$in{"TEL2"}

$m_footer
END_OF_DATA

$mailbody2=$mailbody;

}

#
#======メールを送信する===========
#
sub mail_send{
$from_n_m ="$fromname<$frommail>";
$from_mime = &mimeencode($from_n_m);
$subject_mime = &mimeencode($subject);
&jcode'convert($mailbody, "jis");

	$mailhead  = "To: $mailto\n";
	$mailhead .= "From: $from_mime\n";
	$mailhead .= "Subject: $subject_mime\n";
	$mailhead .= "MIME-Version: 1.0\n";
	$mailhead .= "Content-Type:text/plain;charset='ISO-2022-JP'\n";
	$mailhead .= "Content-Transfer-Encoding:7bit\n";
	$mailhead .= "\n";

if ($testkey == 0) { return; }

if (-x $sendmail) {
	unless (open(OUT, "| $sendmail -t")) {
	    &mail_err();
	}
	unless (print OUT $mailhead) {
	    &mail_err();
	}
	unless (print OUT $mailbody) {
	    &mail_err();
	}
	close(OUT);
} else {
	&mail_err();
	&error("$sendmailがありません。(22)");
}
}
#===================csv形式ファイル添付=======================
sub mail_send_tenpu{

$bound = 'wq5se3d1ew';

$ufilenm = 'user.csv';
open(IN,"$file_user");
$csvdata = join('',<IN>);
close(IN);
$base64_csvdata = &bodyencode($csvdata);
$base64_csvdata .= &benflush;

$ufilenm2 = 'sale.csv';
open(IN,"$file_sale");
$csvdata = join('',<IN>);
close(IN);
$base64_csvdata2 = &bodyencode($csvdata);
$base64_csvdata2 .= &benflush;

$subject_mime = &mimeencode($subject);
#-------BEGINBEGIN---------
$header_tenpu =<<END;
FormMailer: FormMail
To: $mailto
From: $frommail
Subject: $subject_mime
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="$bound"
END

#-------ENDEND----------

#-------BEGINBEGIN---------
$body_tenpu =<<END;
--$bound
Content-Type: text/plain; charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit

$mailbody

--$bound
Content-Type: application/x-csv; name="$ufilenm"
Content-Transfer-Encoding: BASE64

$base64_csvdata

--$bound
Content-Type: application/x-csv; name="$ufilenm2"
Content-Transfer-Encoding: BASE64

$base64_csvdata2

--$bound--
END
#-------ENDEND----------

&jcode'convert($body_tenpu, "jis");
$header_tenpu .= "Content-length: ".length($body_tenpu)."\n";

if ($testkey == 0) { return; }

if (open(OUT,"| $sendmail -t")) {
print OUT "$header_tenpu\n$body_tenpu";
close(OUT);
} else {
	&mail_err();
}
}
#==================================
sub mail_err {
	&error("メールの送信に失敗しました。ブラウザの [戻る] ボタンで戻ってください。");
}

#===============代引き手数料===================
sub daibikikeisann{
if($daibiki_able eq 1){

$zyugen ='0';
foreach (@daibiki_tb) {
	($x,$y) = split(/:/,$_);
	if($x eq ''){
		$daibiki_add =$y;
		$zyugen ='1';
		last;
	}elsif($sougoukei <= $x){
		$daibiki_add =$y;
		$zyugen ='1';
		last;
	}
}

if($in{'METHOD'} eq '代引き' && $zyugen eq '0'){
	print &setCookie_0('ORDER', '');
1 while $x =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	&error("代引きは購入総額を$x円以下に分割してお\申\込\み下さい。",);
}elsif($zyugen eq '0'){
	$daibiki_add ="？";
}

}
}
#===============e-コレクト手数料===================
sub collectkeisann{
if($collect_able eq 1){

$zyugen ='0';
foreach (@collect_tb) {
	($x,$y) = split(/:/,$_);
	if($x eq ''){
		$collect_add =$y;
		$zyugen ='1';
		last;
	}elsif($sougoukei <= $x){
		$collect_add =$y;
		$zyugen ='1';
		last;
	}
}

if($in{'METHOD'} eq 'e-コレクト' && $zyugen eq '0'){
	print &setCookie_0('ORDER', '');
1 while $x =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	&error("代引きは購入総額を$x円以下に分割してお\申\込\み下さい。",);
}elsif($zyugen eq '0'){
	$collect_add ="？";
}

}
}

#=============================注文フォーム========================================
sub order_form {

# Cookieの値を得る
&getCookie();

$simei_C = $COOKIE{'SIMEI'};
$mail_C = $COOKIE{'MAIL'};
$mail2_C = $COOKIE{'MAIL2'};
$post_C = $COOKIE{'POST'};
$addr_C = $COOKIE{'ADDR'};
$tel_C = $COOKIE{'TEL'};
$method_C = $COOKIE{'METHOD'};
$d_time_C = $COOKIE{'D_TIME'};

$mess_C = $COOKIE{'MESS'};
$simei2_C = $COOKIE{'SIMEI2'};
$post2_C = $COOKIE{'POST2'};
$addr2_C = $COOKIE{'ADDR2'};
$tel2_C = $COOKIE{'TEL2'};

$mess_C =~ s/&lt;/</g;
$mess_C =~ s/&gt;/>/g;
$mess_C =~ s/&quot;/\"/g;
$mess_C =~ s/<br>/\n/g;
$mess_C =~ s/\.\n/\. \n/g;

$i =0;
foreach(@delivery_time){
	if($d_time_C eq $_){
		$d_time_check[$i] ="CHECKED";
	}
	$i ++;
}


if($method_C eq '代引き'){
	$daibiki ="CHECKED";
}elsif($method_C eq '郵便振替'){
	$yuubin ="CHECKED";
}elsif($method_C eq '銀行振込'){
	$bank ="CHECKED";
}elsif($method_C eq 'e-コレクト'){
	$collect ="CHECKED";
}else{
	$checked_no =1;
}

$order=$in{'order'};
&keisan();
$tax = int($all_total * $syouhi_tax);
$tax_total =$tax + $all_total;
$sougoukei =$tax_total +$in{"souryou"};

&daibikikeisann();
&collectkeisann();

if($bank_able ne 1 && $hurikae_able ne 1 && $daibiki_able ne 1 && $collect_able ne 1){
	&error("送金方法がまだ設定されていません。");
}

$soukinn_houhou ="";
if($checked_no eq 1){

if($bank_able  eq 1){
$soukinn_houhou .="\　<INPUT type=radio value='銀行振込' name=METHOD checked>銀行振込";
}
if($hurikae_able  eq 1){
	if($bank_able ne 1){$checked ='checked';}
$soukinn_houhou .="\　<INPUT type=radio value='郵便振替' name=METHOD $checked>郵便振替";
}
if($daibiki_able  eq 1){
	$checked ="";
	if($bank_able ne 1 && $hurikae_able ne 1){$checked ='checked';}
$soukinn_houhou .="<br>\　<INPUT type=radio value='代引き' name=METHOD $checked>代引き($daibiki_add円)\　 $daibiki_mg";
}
if($collect_able  eq 1){
	$checked ="";
	if($bank_able ne 1 && $hurikae_able ne 1 && $daibiki_able ne 1){$checked ='checked';}
$soukinn_houhou .="<br>\　<INPUT type=radio value='e-コレクト' name=METHOD $checked>e-コレクト($collect_add円)\　 $collect_mg";
}
}else{

if($bank_able  eq 1){
$soukinn_houhou .="\　<INPUT type=radio value='銀行振込' name=METHOD $bank>銀行振込";
}
if($hurikae_able  eq 1){
$soukinn_houhou .="\　<INPUT type=radio value='郵便振替' name=METHOD $yuubin>郵便振替";
}
if($daibiki_able  eq 1){
$soukinn_houhou .="<br>\　<INPUT type=radio value='代引き' name=METHOD $daibiki>代引き($daibiki_add円)\　 $daibiki_mg";
}
if($collect_able  eq 1){
$soukinn_houhou .="<br>\　<INPUT type=radio value='e-コレクト' name=METHOD $collect>e-コレクト($collect_add円)\　 $collect_mg";
}

}

$i =0;
foreach(@delivery_time){
	$delivery_time_set .="\　<INPUT type=radio value=$_ name='d_time' $d_time_check[$i]>$_";
	if($i == 0 || $i == 3){$delivery_time_set .='<br>';}
	$i ++;
}

$souryou_set =$in{"souryou"};
1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

&html_header();
$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$modoru_goods"><font color="#0000ff">▲商品画面へ戻る</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE cellpadding="3" width="$o_width" border="0" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">注文フォーム</FONT></B></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" width="$w1" bgcolor="$color_d"><FONT color="#ffffff"><B>商品ID</B></FONT></TD>
	<TD align="center" width="$w2" bgcolor="$color_d"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" width="$w3" bgcolor="$color_d"><B><FONT color="#ffffff">単価$tax_set</FONT></B></TD>
	<TD align="center" width="$w4" bgcolor="$color_d"><FONT color="#ffffff"><B>個数</B></FONT></TD>
	<TD align="center" width="$w5" bgcolor="$color_d"><FONT color="#ffffff"><B><FONT color="#ffffff">金額</FONT></B></FONT></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (0..$all_no) {
	($s,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s);


$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	last;
}

1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
print <<"EOF";
	<TR>
	<TD bgcolor="#ffffff" width="$w1">[$a]$kigou</TD>
	<TD bgcolor="#ffffff" width="$w2">$k_name[$_]$option_set$option2_set</TD>
	<TD bgcolor="#ffffff" width="$w3" align="right">$k_price[$_]円</TD>
	<TD bgcolor="#ffffff" width="$w4" align="right">$k_amount[$_]$k_tani[$_]</TD>
	<TD bgcolor="#ffffff" width="$w5" align="right"><b>$k_total[$_]円</b></TD>
	</TR>
EOF
}

if($tax_flag eq '' or $tax_flag == 0){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計$tax_set</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>消費税</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$tax円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税込、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}else{
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計$tax_set</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF

}

print <<"EOF";
	</TBODY>
</TABLE>
</td></tr></table>
<BR>
</CENTER>
<CENTER>
<FORM name="F1" action="$script" method="post" enctype="multipart/form-data" onSubmit="return kakunin()" >
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">お名前</FONT></B></FONT></FONT></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22"><FONT color=#333399>\　<INPUT size=25 
name=SIMEI value="$simei_C"></FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="20"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ﾒｰﾙｱﾄﾞﾚｽ</FONT></B></FONT></FONT></TD>
	 <TD bgcolor="#ffffff" height="20"><FONT color=#333399>\　<INPUT size=25 
name=MAIL value="$mail_C"></FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>ﾒｰﾙｱﾄﾞﾚｽ確認</B></FONT></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399>\　<INPUT size=25 
name=MAIL2 value="$mail2_C"></FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ご住所</FONT></B></FONT></FONT></FONT></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399>\　</FONT><FONT color="#000000">〒</FONT><FONT color=#333399> <INPUT size=13 name=POST value="$post_C"><BR>
      \　<INPUT size=35 name=ADDR value="$addr_C"></FONT></TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff">\　<INPUT size=25 name=TEL value="$tel_C"></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><FONT color="#000000"><FONT color="#000000"><B>お支払方法</B></FONT></FONT></TD>
	<TD bgcolor="#ffffff">$soukinn_houhou</TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><FONT color="#000000"><FONT color="#000000"><B>配達時間指定</B></FONT></FONT></TD>
	<TD bgcolor="#ffffff">$delivery_time_set</TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="74"><FONT color="#000000"><FONT color="#000000"><B>連絡事項</B></FONT></FONT></TD>
	<TD align="left" bgcolor="#ffffff" height="74" width="$ajust">\　<TEXTAREA name=MESS rows=6 cols=35>$mess_C</TEXTAREA></TD>
	</TR>
	</TBODY>
</TABLE></table>
<BR>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d"><B><FONT color="#ffffff">送付先（上記と異なる場合に記入）</FONT></B></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">お名前</FONT></B></FONT></FONT></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22"><FONT color=#333399>\　<INPUT size=25 
name=SIMEI2 value="$simei2_C"></FONT></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ご住所</FONT></B></FONT></FONT></FONT></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399>\　</FONT><FONT color="#000000">〒</FONT><FONT color=#333399> <INPUT size=13 
name=POST2 value="$post2_C"><BR>
	\　<INPUT size=35 name=ADDR2 value="$addr2_C"></FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="13"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff" height="13" width="$ajust">\　<INPUT size=25 name=TEL2 value="$tel2_C"></TD>
	</TR>
	</TBODY>
</TABLE></td></tr></table>
<BR>
<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value=sure>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<INPUT type="submit" value="確認画面"><BR>
</FORM>
</CENTER>

EOF

	print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="3">
EOF
#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
  if (document.F1.SIMEI.value == "") {
    alert("お名前が入力されていません。");
    document.F1.SIMEI.focus();
    return(false);
  }
  if (document.F1.MAIL.value == "") {
    alert("ﾒｰﾙｱﾄﾞﾚｽが入力されていません。");
    document.F1.MAIL.focus();
    return(false);
  }
  if (document.F1.MAIL2.value != document.F1.MAIL.value) {
    alert("ﾒｰﾙｱﾄﾞﾚｽを確認してください。");
    document.F1.MAIL2.focus();
    return(false);
  }
  if (document.F1.POST.value == "") {
    alert("郵便番号が入力されていません。");
    document.F1.POST.focus();
    return(false);
  }
  if (document.F1.ADDR.value == "") {
    alert("住所が入力されていません。");
    document.F1.ADDR.focus();
    return(false);
  }
  if (document.F1.TEL.value == "") {
    alert("電話番号が入力されていません。");
    document.F1.TEL.focus();
    return(false);
  }
  if (document.F1.SIMEI2.value != "") {
	if (document.F1.POST2.value == "") {
	alert("郵便番号が入力されていません。");
	document.F1.POST2.focus();
	return(false);
	}
	if (document.F1.ADDR2.value == "") {
	alert("住所が入力されていません。");
	document.F1.ADDR2.focus();
	return(false);
	}
	if (document.F1.TEL2.value == "") {
	alert("電話番号が入力されていません。");
	document.F1.TEL2.focus();
	return(false);
	}
  }
}
// -->
</SCRIPT>
EOF

	print "<p>$foot</body></html>\n" ;	

}
#====================================確認====================================
sub sure {
#クッキーの設定
print &setCookie("SIMEI", $in{'SIMEI'});
print &setCookie("MAIL", $in{'MAIL'});
print &setCookie("MAIL2", $in{'MAIL2'});
print &setCookie("POST", $in{'POST'});
print &setCookie("ADDR", $in{'ADDR'});
print &setCookie("TEL", $in{'TEL'});
print &setCookie("METHOD", $in{'METHOD'});
print &setCookie("D_TIME", $in{'d_time'});
print &setCookie("MESS", $in{'MESS'});
print &setCookie("SIMEI2", $in{'SIMEI2'});
print &setCookie("POST2", $in{'POST2'});
print &setCookie("ADDR2", $in{'ADDR2'});
print &setCookie("TEL2", $in{'TEL2'});

if ($in{'MAIL'} ne "" && $in{'MAIL'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
	&error("ブラウザの [戻る] ボタンで戻って、メールアドレスを確認してください。");
}

$order=$in{'order'};
&keisan();
$tax = int($all_total * $syouhi_tax);
$tax_total =$tax + $all_total;
$sougoukei =$tax_total +$in{"souryou"};
$souryou_set =$in{"souryou"};

&daibikikeisann();
&collectkeisann();

$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

$method_set="$in{'METHOD'}";
if($in{'METHOD'} eq '代引き'){
	$method_set.="\　 $daibiki_mg";
	$daibiki_add_set =<<EOF;
	<TR><TD bgcolor=$color_r colspan='4' align='right'><B>代引き手数料</B></TD><TD bgcolor=$color_r width="w5" align='right'><B>$daibiki_add円</B></TD></TR>
EOF
#	$sougoukei =$sougoukei +$daibiki_add;

}elsif($in{'METHOD'} eq 'e-コレクト'){
	$method_set.="\　 $collect_mg";
	$daibiki_add_set =<<EOF;
	<TR><TD bgcolor=$color_r colspan='4' align='right'><B>e-コレクト手数料</B></TD><TD bgcolor=$color_r width="w5" align='right'><B>$collect_add円</B></TD></TR>
EOF
#	$sougoukei =$sougoukei +$daibiki_add;
}

1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

&html_header();

$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$script?$modoru_goods&mode=order_form&souryou=$in{'souryou'}"><font color="#0000ff">▲戻って訂正</font></A>\　<A href="$modoru_goods"><font color="#0000ff">▲商品画面へ戻る</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE cellpadding="3" width="$o_width" border="0" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">確認画面</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" width="$w1" bgcolor="$color_d"><FONT color="#ffffff"><B>商品ID</B></FONT></TD>
	<TD align="center" width="$w2" bgcolor="$color_d"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" width="$w3" bgcolor="$color_d"><B><FONT color="#ffffff">単価$tax_set</FONT></B></TD>
	<TD align="center" width="$w4" bgcolor="$color_d"><FONT color="#ffffff"><B>個数</B></FONT></TD>
	<TD align="center" width="$w5" bgcolor="$color_d"><FONT color="#ffffff"><B><FONT color="#ffffff">金額</FONT></B></FONT></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (0..$all_no) {
	($s,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s);


$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	last;
}

1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

print <<"EOF";
	<TR>
	<TD bgcolor="#ffffff" width="$w1">[$a]$kigou</TD>
	<TD bgcolor="#ffffff" width="$w2">$k_name[$_]$option_set$option2_set</TD>
	<TD bgcolor="#ffffff" width="$w3" align="right">$k_price[$_]円</TD>
	<TD bgcolor="#ffffff" width="$w4" align="right">$k_amount[$_]$k_tani[$_]</TD>
	<TD bgcolor="#ffffff" width="$w5" align="right"><b>$k_total[$_]円</b></TD>
	</TR>
EOF
}

if($tax_flag eq '' or $tax_flag == 0){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計$tax_set</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>消費税</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$tax円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}else{
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計$tax_set</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}

print <<"EOF";
	$daibiki_add_set
	</TBODY>
</TABLE>
</td></tr></table>
<BR>
</CENTER>
<CENTER>
<FORM action="$script" method="post">
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">お名前</FONT></B></FONT></FONT></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"SIMEI"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="20"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ﾒｰﾙｱﾄﾞﾚｽ</FONT></B></FONT></FONT></TD>
	 <TD bgcolor="#ffffff" height="20">$in{"MAIL"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>ﾒｰﾙｱﾄﾞﾚｽ確認</B></FONT></TD>
	<TD bgcolor="#ffffff">$in{"MAIL2"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B><FONT color="#000000">ご住所</FONT></B></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399></FONT><FONT color="#000000">〒</FONT>$in{"POST"}<BR>
      $in{"ADDR"}</TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff">$in{"TEL"}</TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><FONT color="#000000"><FONT color="#000000"><B>お支払方法</B></FONT></FONT></TD>
	<TD bgcolor="#ffffff">$method_set</TD>
	</TR>
	<TD bgcolor="$color_r" align="center" width="150"><FONT color="#000000"><FONT color="#000000"><B>配達時間指定</B></FONT></FONT></TD>
	<TD bgcolor="#ffffff">$in{'d_time'}</TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><FONT color="#000000"><B>連絡事項</B></FONT></FONT></TD>
	<TD align="left" width="$ajust"  bgcolor="#ffffff">$in{"MESS"}\　</TD>
	</TR>
	</TBODY>
</TABLE></table>
<BR>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d"><B><FONT color="#ffffff">送付先（上記と異なる場合に記入）</FONT></B></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B><FONT color="#000000">お名前</FONT></B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"SIMEI2"}\　</TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B><FONT color="#000000">ご住所</FONT></B></TD>
	<TD bgcolor="#ffffff"><FONT color="#000000">〒</FONT>$in{"POST2"}\　<BR>
	$in{"ADDR2"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="13"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff" height="13">$in{"TEL2"}\　</TD>
	</TR>
	</TBODY>
</TABLE></td></tr></table>
<BR>
<input type="hidden" name="SIMEI" value="$in{'SIMEI'}">
<input type="hidden" name="MAIL" value="$in{'MAIL'}">
<input type="hidden" name="MAIL2" value="$in{'MAIL2'}">
<input type="hidden" name="POST" value="$in{'POST'}">
<input type="hidden" name="ADDR" value="$in{'ADDR'}">
<input type="hidden" name="TEL" value="$in{'TEL'}">
<input type="hidden" name="METHOD" value="$in{'METHOD'}">
<input type="hidden" name="d_time" value="$in{'d_time'}">
<input type="hidden" name="MESS" value="$in{'MESS'}">
<input type="hidden" name="SIMEI2" value="$in{'SIMEI2'}">
<input type="hidden" name="POST2" value="$in{'POST2'}">
<input type="hidden" name="ADDR2" value="$in{'ADDR2'}">
<input type="hidden" name="TEL2" value="$in{'TEL2'}">

<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value=order_mail>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<INPUT type="submit" value="注文確定[送信]"><BR>
</FORM>
</CENTER>

EOF

	print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="3">
EOF

	print "<p>$foot</body></html>\n" ;	

}
#======================================かごの中を見る======================================
sub look {
$order=$in{'order'};
&keisan();

&html_header();
$ajustw =$o_width -50;
$ajust =$o_width -370;
$ajust=int($ajust/4);
$w1 =112+$ajust;
$w2 =180+$ajust*3;
$w3 =158+$ajust*3;
	print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$modoru_goods_2&order=$in{'order'}"><font color="#0000ff">▲商品画面へ戻る</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE border="0" cellpadding=0 cellspacing=0 bgcolor="$color_kago" width="$o_width">
<TBODY>
<TR>
<TD align="center">
	<TABLE width="$o_width"  border="0">
	<TBODY>
	<TR>
	<TD></TD>
	<TD align="center"><B><FONT color="$color_d">●かごの中●</FONT></B></TD>
	<TD></TD>
	</TR>
	<TR>
	<TD></TD>
	<TD></TD>
	<TD></TD>
	</TR>
	<TR>
	<TD>\　</TD>
	<TD align="center">
	<TABLE border="0" cellpadding="3" cellspacing=1 width="$ajustw" bgcolor="$color_d" bordercolor="$color_d">
	<TBODY>
	<TR>
	<TD bgcolor="$color_d" align="center" width="$w1"><FONT color="#ffffff">商品画像</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="$w2"><FONT color="#ffffff">商品名</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="190"><FONT color="#ffffff">金額</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="68"><FONT color="#ffffff">取消し</FONT></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (0..$all_no) {
	($s_id,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s_id);
@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
if($b ne ""){
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] ne $b){ $i++; next;}
	$option_set = $op_m[$i]."(".$op_k[$i].")";
	last;
}
}
@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
if($c ne ""){
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] ne $c){ $i++; next;}
	$option2_set = $op2_m[$i]."(".$op2_k[$i].")";
	last;
}
}

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$k_picture[$_]);

if($pici eq ""){
	$pici ="$dir_p/space.gif";
}

$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

if($bikou ne "\n"){
	$bikou_set = "<TR><TD width=$w3>※".$k_bikou[$_]."</TD></TR>";
}

1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($order ne ""){
print <<"EOF";
	<TR bgcolor="#ffffff">
	<TD align="center" height="85" width="$w1"><IMG src=$pici width='65' height='65' border='0' align='middle'><BR>[$k_no[$_]]$kigou</TD>
	<TD align="center" height="85" width="$w2">
	<TABLE>
	<TBODY>
	<TR>
	<TD align="left" width="$w3">$k_name[$_]</TD>
	</TR>
	<TR>
	<TD width="$w3">$option_set</TD>
	</TR>
	<TR>
	<TD width="$w3">$option2_set</TD>
	</TR>
	$bikou_set
	</TBODY>
	</TABLE>
	</TD>
	<TD align="right" height="85" width="190">
	<TABLE width="180">
	<TBODY>
	<TR>
	<TD align="right" width="100">単価$tax_set：</TD>
	<TD width="89" align="right">$k_price[$_]円</TD>
	</TR>
	<TR>
	<TD align="right" width="100">購入数：</TD>
	<TD width="89" align="right">$k_amount[$_]$k_tani[$_]</TD>
	</TR>
	<TR>
	<TD align="right" width="100">合計$tax_set：</TD>
	<TD width="89" align="right">$k_total[$_]円</TD>
	</TR>
	</TBODY>
	</TABLE>
	</TD>
	<TD align="center" height="85" width="68"><BR>
	<FORM action="$script" method="post">
    <input type="hidden" name="mode" value="look">
    <input type="hidden" name="del_no" value="$s_id">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
	<INPUT type="submit" value="取消">
	</FORM>
	</TD>
	</TR>
EOF

}else{
print <<"EOF";
	<TR>
	<TD colspan="4" align="center" height="14" bgcolor="#ffffff"><br><b>かごの中は空です。</b><br><br></TD>
	</TR>
EOF

}
}
$all_total_set =$all_total;
$tax = int($all_total * $syouhi_tax);
$tax_total =$tax + $all_total;
1 while $tax =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($tax_flag eq '' or $tax_flag == 0){

print <<"EOF";
	<TR>
	<TD colspan="2" align="right" height="14" bgcolor="$color_r"><B>合計</B></TD>
	<TD align="right" height="14" bgcolor="$color_r" width="190"><B>$all_total_set円</B></TD>
	<TD rowspan="3" valign="middle" align="center" width="68" bgcolor="$color_r">確認</TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>消費税</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$tax円</B></TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>合計（消費税込み）</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$tax_total円</B></TD>
	</TR>
EOF

}else{
print <<"EOF";
	<TR>
	<TD colspan="2" align="right" height="14" bgcolor="$color_r"><B>合計$tax_set</B></TD>
	<TD align="right" height="14" bgcolor="$color_r" width="190"><B>$all_total_set円</B></TD>
	<TD rowspan="1" valign="middle" align="center" width="68" bgcolor="$color_r">確認</TD>
	</TR>
EOF

}
print <<"EOF";
	</TBODY>
	</TABLE>
	</TD>
	<TD>\　</TD>
	</TR>
	<TR>
	<TD></TD>
	<TD>\　</TD>
	<TD></TD>
	</TR>
	</TBODY>
	</TABLE>
	</TD>
    </TR>
</TBODY>
</TABLE>
<BR>
</CENTER>
EOF

if($order ne ""){

if($all_total < $free_price){

  if($souryou_cst eq ''){
  
   if(@souryou_tb <= 1){
  	$souryou_cst_set = $souryou_tb[0];
1 while $souryou_cst_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$soryo_set ="<B>[送料は$souryou_cst_set円]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=$souryou_cst>";

   }else{
	$i = 0;
	foreach (@souryou_tb) {
		$soryo_set .= "<option value=$souryou_tb[$i]>$souhusaki[$i]</option>\n";
		$i++;
	}
	$soryo_set ="<B>送り先：</B>". "<select name='souryou'>".$soryo_set."</select>";
   }
   
  }else{
  	$souryou_cst_set = $souryou_cst;
1 while $souryou_cst_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$soryo_set ="<B>[送料は$souryou_cst_set円]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=$souryou_cst>";
  }
}else{
	$soryo_set ="<B>[送料は無料です]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=0>";
}
print <<"EOF";
<BR><CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE cellpadding="3" cellspacing=1 width="$o_width" border="0" bgcolor="$color_d">
  <TBODY>
    <TR>
      <TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">送料又は送付先を確認して、注文フォームへ</FONT></B></TD></TR>
	<TR><TD width="$o_width" align="center" bgcolor="#ffffff" valign="bottom">
	<FORM action="$script" method="POST"><BR>
	$soryo_set
	<input type="hidden" name="mode" value="order_form">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
	$souryou_hidden
	\　\　<INPUT type="submit" value="注文フォーム">
	</FORM>
	</TD></TR>
  </TBODY>
</TABLE></td></tr></table>
</CENTER>
EOF
}
	print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="3">
EOF

	print "<p>$foot</body></html>\n" ;	

}

#==========================================================================================
sub class_name_get{
	($class_B,$k) = split(/\//,$class_tb[$a]);
	@class_tb2 =split(/:/,$k);
	if($b ne ''){
		$class_S =$class_tb2[$b];
		$class_name ="$class_B/$class_S";
	}else{
		$class_name ="$class_B";
	}
}
#=======================================Shopping Form======================================

sub shop_form {

	&keisan();

&html_header();

1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($pas_word ne ""){
	$condition =$pas_word;
}else{
	if($in{'class'} eq 'all' or $in{'class'} eq ''){
		$condition="$class_all";
	}else{
		($a,$b)  =split(/\//,$in{'class'});
		&class_name_get();
		$condition =$class_name;
	}
}

		print <<"EOF";
		<table border=0 cellpadding=0 cellspacing=0 width="$t_width"  bgcolor="$bg_color"><tr>
			<td align="right">
			<form method="POST" action="$script">
    		<input type="hidden" name="order" value=$in{'order'}>
    		<input type="hidden" name="class" value=$in{'class'}>
    		<input type="hidden" name="keyword" value=$in{'keyword'}>
    		<input type="hidden" name="superkey" value=$in{'superkey'}>

    		<input type="hidden" name="price_sort" value=$in{'price_sort'}>
			<input type="hidden" name="mode" value="look">
			
			<table><tr><td bgcolor="$color_d"><b>\　<font color="#ffffff">買い物合計額： $all_total円\　</font></b></td><td><INPUT TYPE=image SRC="$dir_p/look.gif" BORDER=0></td></tr>
			</table></form><hr noshade size=1>
			</TD></TR>
		</table>
EOF

print <<"EOF";
		<table><tr><td align="center">
			<form method=post action=$script>
			<select name="class">
			<option value="all">$class_all</option>
EOF
$i =0;
foreach (@class_tb) {
	($class_B,$k) = split(/\//,$_);
	if("$i" ne $classmei){
	print <<"EOF";
	<option value="$i">$class_B</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i" selected>$class_B</option>
EOF
		}

	@class_S =split(/:/,$k);
	$j =0;
	foreach (@class_S) {
	
		if("$i/$j" ne $classmei){
	print <<"EOF";
	<option value="$i/$j">$class_B/$class_S[$j]</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i/$j" selected>$class_B/$class_S[$j]</option>
EOF
		}
		$j ++;
	}
	$i ++;
}	

print <<"EOF";
		</select>
		<input TYPE=image SRC="$dir_p/class.gif" BORDER=0 align=top>
		<input type="hidden" name="FF" value=0>
		<input type="hidden" name="superkey" value="1">
		<input type="hidden" name="keyword" value="">
		<input type="hidden" name="order" value=$in{'order'}>
		</form></td>
		<TD>
		<form method=post action=$script>\　
		検索キー<input type="text" size=10 name="keyword" value="$pas_word">
		<input TYPE=image SRC="$dir_p/key.gif" BORDER=0>
		<input type="hidden" name="class" value="all">
		<input type="hidden" name="FF" value=0>
		<input type="hidden" name="superkey" value="1">
  		<input type="hidden" name="order" value=$in{'order'}></form>
  		</td></tr>
EOF

($a,$b)  =split(/\//,$in{'class'});
&class_name_get();
$list_data = '';
$i =0;
foreach (@class_tb) {
	if($small_class_g == 0 || $a eq '' || $a eq 'all'){ last;}

	($class_b,$k) = split(/\//,$_);
	if($class_b ne $class_B){$i ++; next;}
	
	@class_S =split(/:/,$k);
	$j =0;
	foreach (@class_S) {
		
		$jump =$script.'?'."class=$i/$j&keyword=&superkey=1&FF=0&order=$in{'order'}";

	$list_data .= "<FONT class='menu3'>|</font><A href=$jump><FONT class='menu3'> $class_S[$j] </FONT></A>";
	
		$j ++;
	}
	last;
}
if($list_data ne ''){
	$list_data ="<tr><TD colspan=2><center>"."$list_data"."<FONT class='menu3'> |</font>"."</center></td></tr>";
}
print "$list_data"."</table>";

if($list_data ne ''){
	print "<hr noshade size=1>";
}

print <<"EOF";
			<table width="$t_width" bgcolor="$bg_color"><TR><TD width=400><B>検索条件[$condition]\　検索商品数[$data_su\件]</b></TD><TD align="right">
			<a href=$script?order=$in{'order'}&class=$in{'class'}&keyword=$pas_word&FF=0&price_sort=1><font color="#0000ff">▲価格順\表\示</font></a></TD></TR>
			</table>
EOF

	if (!@NEW) {
	print <<"EOF";
	<table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr><td bgcolor="$color_r" align=center><b><center>★該当する商品はありません★</center></b></td></tr>
	</table>
EOF

	}else{
#========================================================================
$width_name = $t_width - 400;
	print <<"EOF";
<TABLE bgcolor="$color_r" border=0 width="$t_width" cellpadding="0" cellspacing=0><tr><td>
	<TABLE border="0" width="$t_width" cellpadding="3" cellspacing= 1>
  <TBODY>
    <TR>
      <TD align="center" bgcolor="$color_d" width="140"><FONT color="#ffffff"><DIV align="center" style="font:10pt"><IMG src="$dir_p/picture.gif" width="80" height="18" border="0"><BR>（クリックで詳細）</DIV></FONT></TD>
      <TD align="center" bgcolor="$color_d" width="$width_name"><FONT color="#ffffff"><DIV align="center"><IMG src="$dir_p/name.gif" width="80" height="18" border="0"></DIV></FONT></TD>
      <TD bgcolor="$color_d" width="75"><IMG src="$dir_p/option.gif" height="18" border="0"></TD>
      <TD colspan="2" align="center" bgcolor="$color_d" width="100"><FONT color="#ffffff"><DIV align="center"><IMG src="$dir_p/price.gif" width="80" height="18" border="0"></DIV></FONT></TD>
      <TD align="center" bgcolor="$color_d" width="90"><FONT color="#ffffff"><DIV align="center"><IMG src="$dir_p/kosuu.gif" width="80" height="18" border="0"></DIV></FONT></TD>
    </TR>
EOF
}
#====================================

		foreach ( @NEW ) {
			($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou) = split(/\<\>/,$_);

@option = split(/\:/,$option);
$i = 0;
$option_set = "";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$option[$i]);
	if($op_k[$i] eq ""){ $i++; next;}
		$option_set = $option_set."<option value='$op_k[$i]'>$op_m[$i]($op_k[$i])</option>\n";
	$i++;
}
if($option_set ne ""){
    $option_set = "<select name='op1'>".$option_set."</select>";
}else{
	$option_set ="\　";
}

@option2 = split(/\:/,$option2);
$i = 0;
$option2_set = "";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$option2[$i]);
	if($op2_k[$i] eq ""){ $i++; next;}
		$option2_set = $option2_set."<option value='$op2_k[$i]'>$op2_m[$i]($op2_k[$i])</option>\n";
	$i++;
}
if($option2_set ne ""){
    $option2_set = "<br><select name='op2'>".$option2_set."</select>";
}else{
	$option2_set ="\　";
}

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if ($price =~ /[^0-9]/) {          # 文字列を含んでいたらか？全角数字も。
        $price_set = "<font color ='#ff0000'>$price_set</font>";
}

($setumei,$setumei2) =split(/\|\|/,$setumei);

$setumei_set ="";
	$bikou_form = "<input type='hidden' name='rem' value=$bikou>";
	if($bikou ne "\n"){
		$bikou = "<br>※".$bikou;
	}
	$setumei_set .=$setumei. $bikou;

if($zaiko ne ""){
	$zaiko_set ="<br>在庫$zaiko$tani";
}else{
	$zaiko_set ="";
    $zaiko = 100000;
}
if($limit ne ""){
	$tani_set ="<br>$limit$taniまで";
}else{
    $tani_set =$tani;
    $limit =100000;
}

$kosuu_setting = "";
foreach ( @kosuu_set ) {
	if($_ >$limit or $_ >$zaiko){
		last;
	}else{
		$kosuu_setting .= "<option value=$_>$_</option>";
	}
}
if($kosuu_setting eq ""){
	$kosuu_setting = "<select name='amount'><option value=0>−</option></select>$tani_set";
}else{
	$kosuu_setting = "<select name='amount'>$kosuu_setting</select>$tani_set";
}

$folder="$dir_p/order.gif";
if($zaiko ne 0){
	$get_setting = "<INPUT TYPE=image SRC=$folder BORDER=0>";
}else{
    $get_setting = "在庫切れ";
}

$word='タイムサービス';
$words='ﾀｲﾑｻｰﾋﾞｽ';
if (index($setumei,$word) >= 0 || index($bikou,$word) >= 0 || index($setumei,$words) >= 0 || index($bikou,$words) >= 0) {
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$time =$hour.':'.$min;
	
	if($time < $service_time[0] || $service_time[1] < $time){
		$get_setting ="[ｻｰﾋﾞｽﾀｲﾑ]".'<BR>'."$service_time[0]-$service_time[1]";
	}
}

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);

if($pici eq ""){
	$pici ="$dir_p/space.gif";
}

$link_pw ="$modoru_goods&mode=p_wide&id=$goods_no";

$w_setum =$t_width-290;

($a,$b)  =split(/\//,$class);
&class_name_get();

	print <<EOF;
	<FORM action="$script" method="post">
	<input type='hidden' name='g_no' value="$goods_no">
    <TR bgcolor="#ffffff">
      <TD rowspan="2" valign="middle" align="center">
	<table  width='120' height='90'><tr><td><center><A href=$link_pw><IMG src=$pici width=$imagesize_w height=$imagesize_h border='0'></a></center></TD></tr>
	</table></TD>
      <TD height="60" valign="top" align="left" width="$width_name">$name<br>[$goods_no]$kigou<br>[$class_name]</TD>
      <TD height="60" valign="middle" width="75">
      $option_set$option2_set</TD>
      <TD colspan="2" height="60" valign="middle" align="right" width="100">$price_set円$br_tax_set$zaiko_set</TD>
      <TD height="60" valign="middle" align="center" width="90">
      <input type="hidden" name="goods" value="$name">
      <input type="hidden" name="unit" value="$price">

      <div align="center">$kosuu_setting</div>
      </TD>
      </TR>
    <TR bgcolor="#ffffff">
    <TD colspan="5" height="50" valign="top" align="left">
    <table border=0 cellpadding=12 cellspacing=0 bgcolor="$color_kago" align="right"><TR><TD align="center">$get_setting</TD></TR></table>
<FONT color="$fcolor">$setumei_set</font>
    $bikou_form
    <input type="hidden" name="setumei" value="$setumei">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
	</TD>
    </TR>
    <TR bgcolor="#ffffff">
    <TD colspan="6" height="0" bgcolor="$bg_color" background ="$bk_ground">
    <HR size="1" color="$color_d"></TD>
    </TR>
    </FORM>
EOF

}

if (@NEW) {
print <<"EOF";
	</TBODY>
	</TABLE>
</td></tr></table>
</CENTER>
EOF
}

$buf ="class=".$in{'class'};
$buf2 ="order=".$in{'order'};
$buf3 ="keyword=".$in{'keyword'};

if($data_su > $page){
$i =1;
$j =0;
	while ($j < $data_su){
		if($j ne $ff_no ){
			$jump_set .="<FONT color='#0000ff' size=-1>[</font><a href=\"$script?$buf&$buf2&$buf3&FF=$j&price_sort=$in{'price_sort'}\"><font color='#0000ff' size=-1>$i<font></a><FONT color='#0000ff' size=-1>]</font>";
		}else{
			$jump_set .="<FONT color='#0000ff' size=-1>[<b>$i</b>]</font>";
		}
		$i ++;
		$j = $j + $page; 
	}
}

        $nextlink = "";
		if ($next_num ne '') {
			$nextlink = "<a href=\"$script?$buf&$buf2&$buf3&FF=$next_num&price_sort=$in{'price_sort'}\"><font color='#0000ff'>次の$over_no件<font></a>";
		}
		
		$backlink = "";
		$back_num = $ff_no -$page;
		if($back_num >=0) {
			$backlink = "<a href=\"$script?$buf&$buf2&$buf3&FF=$back_num&price_sort=$in{'price_sort'}\"><font color='#0000ff'>前の$page件</font></a>\　\　";
		}

if($page_view){
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink\　\　 $jump_set</td></tr></table></center>\n";
}else{
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink</td></tr></table></center>\n";

}

	print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="3">

	<center><table border="0" width="$t_width"><tr>
	<td width="$t_width-150" align="left" width="500"><font color="#ffffff">★商品画像をクリックすると詳細説明になります。</TD>
	<td align="right" width="150">
	<a href=$modoru_goods&mode=adm1><font color="#0000ff">▲管理者用</font></a></td></tr></table>
	</center>
EOF

	print "<p>$foot</body></html>\n" ;	
	
}

#=========================================================================================
sub keisan {
$data_no =0;
$all_total = 0;
@souryou_tb = ();
$size_A ='0';
$tiikiNO=@souhusaki;

if($tiikiNO < 1){
	$tiikiNO =1;
}

@order_1 = split(/!/,$order);
foreach (@order_1) {
	($s,$t) = split(/:/,$_);
	($a,$b,$c) = split(/\,/,$s);
    $flag =0;

	foreach ( @BASE ) {
		($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou) = split(/\<\>/,$_);

		if($a == $goods_no){
			$flag=1;
			last;
		}
	}

#エラーチェック
if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が削除されています。",'商品画面で確認してください。');
}

@opt = split(/\:/,$option);

if($b eq ''){
	$i = 0;
	$flag=1;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] ne ''){$flag =0; last;}
		$i++;
	}
}else{
	$i = 0;
	$flag =0;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] eq $b){$flag=1;last;}
		$i++;
	}
}

if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が変更されています。",'商品画面で確認してください。');
}

@opt = split(/\:/,$option2);
if($c eq ''){
	$i = 0;
	$flag=1;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] ne ''){$flag =0; last;}
		$i++;
	}
}else{
	$i = 0;
	$flag =0;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] eq $c){$flag=1;last;}
		$i++;
	}
}

if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が変更されています。",'商品画面で確認してください。');
}

if($zaiko ne '' && $t > $zaiko){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品の注文数が在庫数を越えています。",'商品画面で確認してください。');
}

if($limit ne '' && $t > $limit){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品の注文数が制限を越えています。",'商品画面で確認してください。');
}

$sizeno = 1;	#サイズＡはスキップ
$size_flag = '0';
while ($sizeno < @size_tb) {

	if(index($bikou,$size_tb[$sizeno]) >= 0){
		$tiiki =0;
		@s_tb = split(/:/,$souryou[$sizeno]);
		while ($tiiki < $tiikiNO) {
			$souryou_tb[$tiiki] =$souryou_tb[$tiiki] + $s_tb[$tiiki] * $t;
            $tiiki ++;
        }
        $size_flag = '1';
		last;
	}
    $sizeno ++;
}
if($size_flag eq '0'){
	$size_A = '1';
}

	$k_no[$data_no] = $a;
	$k_id[$data_no] = $kigou;
	$k_name[$data_no] = $name;
	$k_option[$data_no] = $option;
	$k_option2[$data_no] = $option2;
	$k_bikou[$data_no] = $bikou;
	$k_price[$data_no] = $price;
	$k_amount[$data_no] = $t;
	$k_tani[$data_no] = $tani;
	$k_picture[$data_no] = $picture;
	$k_total[$data_no] = $t*$price;
	$all_total = $k_total[$data_no] + $all_total;
	$all_no = $data_no;
	$data_no++;
}

$tiiki =0;
if($size_A eq '1'){
	@s_tb = split(/:/,$souryou[0]);
	while ($tiiki < $tiikiNO) {
		$souryou_tb[$tiiki] =$souryou_tb[$tiiki] + $s_tb[$tiiki];
		$tiiki ++;
	}
}
}

#=========================================================================================
sub adm_add {
if ( $in{'pass'} ne $adm_pass ) { print "Location: $script?mode=adm1\n\n"; exit; }

&html_header();

	print <<"EOF";
	<center><table width=$o_width><tr><td align=right>
	<a href=$script><font color="#0000ff">▲管理を出る</font></a>\　\　<a href=$save_data&mode=adm3&pass=$in{'pass'}><font color="#0000ff">▲変更/削除</font></a>
	</td></tr></table></center>

	<form name ="F1" method="post" action="$script" enctype="multipart/form-data" onSubmit="return kakunin()">
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=0 cellpadding=5 width=100% align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>商品データの追加</center></b></td>
	</tr></table></td></tr></table>
	<table border="0" cellpadding="10" align="center" cellspacing="1" width=$o_width>
	<tr><td valign=top>
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=1 cellpadding=5 width=100% align=center>
EOF

		print <<"EOF";
		<tr> 
		<td valign="top" nowrap bgcolor="$color_adm_r"><b>分類名</b></td>
		<td bgcolor=#FFFFFF>
		<select name="class_add">
EOF

$i =0;
foreach (@class_tb) {
	($class_B,$k) = split(/\//,$_);
	@class_S =split(/:/,$k);
	
		if($k eq ''){
		if("$i" ne $class){
	print <<"EOF";
	<option value="$i">$class_B</option>
EOF
	$i ++;
	next;
		}else{
	print <<"EOF";
	<option value="$i" selected>$class_B</option>
EOF
	$i ++;
	next;
		}
	}
	
	$j =0;
	foreach (@class_S) {
	
	print <<"EOF";
	<option value="$i/$j">$class_B/$class_S[$j]</option>
EOF
		$j ++;
	}
	$i ++;
}
		print "</select>\n" ;

	print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品名</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=40 name="goodsname" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=40 name="MARK" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(1)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

$i = 0;
while($i < $option_no) {
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op_k" value="">
	</td><td>
	意味<input type="text" size=15 name="$op_m" value="">
	</td></tr>
EOF
	$i++;
}	print <<"EOF";
	</table></td></tr>

	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(2)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

$i = 0;
while($i < $option2_no) {
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op2_k" value="">
	</td><td>
	意味<input type="text" size=15 name="$op2_m" value="">
	</td></tr>
EOF
	$i++;
}

	open (IN,"$cnt_file") || &error('オープンエラー16','指定された書込みファイルが開けません。');
	$goods_max = <IN>;
	close (IN);
	
	if($goods_max eq ""){$goods_max = 0;}
	$goods_no = $goods_max + 1;


$pici_set.="/$goods_no".'.gif';
$picj_set.="/$goods_no".'.png';
$pic1_set.="/$goods_no".'a'."$pic1_tail";
$pic2_set.="/$goods_no".'b'."$pic1_tail";
$pic3_set.="/$goods_no".'c'."$pic1_tail";

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

	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品単価</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="PRICE">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入単位</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="TANI"  value="個">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>在庫数</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="zaiko" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入制限</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="limit" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像Ａ(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pic1" value="$pic1_set">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像Ｂ(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pic2" value="$pic2_set">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像Ｃ(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pic3" value="$pic3_set">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC＆i-mode画像(gif)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pici" value="$pici_set">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>j-sky画像(png)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="picj" value="$picj_set">
	</td>
	</tr>

EOF


	print <<"EOF";
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品説明</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei" cols="40" rows="5"></textarea>
 
	説明の色を選択してください。<br>
	<input type=radio name=fcolor vlue=black checked><font color=black>■</font>
EOF
	$co_font = @fontcolor;
	foreach (1..$co_font-1) {
		print "<input type=radio name=fcolor value=$fontcolor[$_]><font color=$fontcolor[$_]>■</font>\n";
	}

	$size_set .= "<option value=></option>\n";
	foreach (@size_tb) {
		$size_set .= "<option value=$_>$_</option>\n";
	}
	$size_set = "<select name='bikou'>".$size_set."</select>";

	print <<"EOF";
	</td>
	</tr>
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品詳細説明<br>(PCのみ)</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei2" cols="40" rows="7"></textarea>
	<tr> 
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品説明(携帯)</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei3" cols="40" rows="3"></textarea>
	</td>
	</tr>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>備考</b></td>
	<td bgcolor=#FFFFFF> 
	$size_set	
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="mode" value="adding">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="class" value="$in{'class'}">
	<input type="submit" value="商品追加">\　
	<input type="reset" value="クリア">
	</td></tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<table border=0 cellspacing=0 cellpadding=0 width=100% align=center>
	<tr><td>
	<ul>
	<li>商品ID及びオプションの記号は半角アルファベットと数字(半角、桁数は自由)と「-」（ハイフン）だけを用いることができます。"="や" "(ﾌﾞﾗﾝｸ)はエラーの原因になります。</li>
	<li>商品単価、在庫数、購入制限は数字（半角）のみ。（異なるときは赤く\表\示されます）</li>
	<li>購入単位とは個、ダース、ケース、束などのことです。10個を購入単位とするとき、単位をケースと記入して、商品説明で1ケースが10個であることを示してさい。</li>
	<li>商品説明に「タイムサービス（全角）」を記入すると指定されている時間にのみ購入できるようになります。</li>
	<li>PC&i-mode画像(gif)はPCの一覧\表\画\面では$imagesize_w×$imagesize_hﾋﾟｸｾﾙで\表\示され、i-modeでは実寸で\表\示されます。PC拡大画像(gif,jpg)は実寸で\表\示されます。j-sky画像(png)は実寸で\表\示されます。</li>
	<li>説明の欄のHTML言語は有効です。したがって、<br>&lta href='http://・・・'&gt&ltfont color='#0000ff'&gtリンク&lt/font&gt&lt/a&gt<br>のように記述することによりリンク(この場合は青色\表\示)が可\能\になります。</li>
	<li>@size_tbを備考の欄に記入することにより送料のサイズを指定できます。未指定は最初のサイズになります。</li>
	</ul>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
  if (document.F1.goodsname.value == "") {
    alert("商品名が入力されていません。");
    document.F1.goodsname.focus();
    return(false);
  }
  if (document.F1.PRICE.value == "") {
    alert("単価が入力されていません。");
    document.F1.PRICE.focus();
    return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価の入力が正しくありません。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価は半角数字で入力してください。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.zaiko.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("在庫数は半角数字で入力してください。");
	document.F1.zaiko.focus();
	return(false);
  }
  suuzi = document.F1.limit.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("購入制限は半角数字で入力してください。");
	document.F1.limit.focus();
	return(false);
  }
  hankaku = document.F1.MARK.value;
  if (hankaku.search(/[^0-9A-Z\-]/i) != -1) {
	alert("商品IDは半角英数と-で入力してください。");
	document.F1.MARK.focus();
	return(false);
  }
}
// -->
</SCRIPT>
EOF
#========================================================================
			print <<"EOF";
			<center>
			<table width="$t_width"><tr><td align="right">
			<form method="POST" action="$script">
    		<input type="hidden" name="order" value=$in{'order'}>
			<input type="hidden" name="mode" value="look">
			<input type="submit" value="かごの中を見る">
			</form><hr noshade size=1>
			</TD></TR><tr><td align="center">
			<form method=post action=$script>
			<select name="class">
			<option value="all">$class_all</option>
EOF
$i =0;
foreach (@class_tb) {
	($class_B,$k) = split(/\//,$_);
	if("$i" ne $classmei){
	print <<"EOF";
	<option value="$i">$class_B</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i" selected>$class_B</option>
EOF
		}
	@class_S =split(/:/,$k);
	$j =0;
	foreach (@class_S) {
	
		if("$i/$j" ne $classmei){
	print <<"EOF";
	<option value="$i/$j">$class_B/$class_S[$j]</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i/$j" selected>$class_B/$class_S[$j]</option>
EOF
		}
		$j ++;
	}
	$i ++;
}	
			
	print <<"EOF";
			</select>
			 and 検索キー<input type="text" size=10 name="keyword" value="$pas_word">
    		<input type="hidden" name="FF" value=0>
    		<input type="hidden" name="superkey" value="1">
    		<input type="hidden" name="order" value=$in{'order'}>
    		<input type="hidden" name="mode" value=adm2>
			<input type="hidden" name="pass" value="$adm_pass">
			\　<input type=submit value=商品検索>
			</form></td></tr></table></center>
EOF

	if (!@NEW) {
        print "<h3 align=center>★該当する商品はありません★</h3>\n"; 
	}else{
#========================================================================
$width_name = $t_width - 390;
	print <<"EOF";
<CENTER><b>[検索商品数：$data_su]</b>
<TABLE bgcolor="$color_adm_r" border=0 width="$t_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE border="0" width="$t_width" cellpadding="3" cellspacing= 1>
  <TBODY>
    <TR>
      <TD align="center" bgcolor="$color_adm_d" width="140"><FONT color="#ffffff">商品画像</FONT></TD>
      <TD align="center" bgcolor="$color_adm_d"><FONT color="#ffffff" width="$width_name">商品名</FONT></TD>
      <TD align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff">オプション</FONT></TD>
      <TD colspan="2" align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff">価格</FONT></TD>
      <TD align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff">個数</FONT></TD>
    </TR>
EOF
}
#========================================================================

		foreach ( @NEW ) {
			($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou) = split(/\<\>/,$_);

@option = split(/\:/,$option);
$i = 0;
$option_set = "";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$option[$i]);
	if($op_k[$i] eq ""){ $i++; next;}
		$option_set = $option_set."<option value='$op_k[$i]'>$op_m[$i]($op_k[$i])</option>\n";
	$i++;
}
if($option_set ne ""){
    $option_set = "<select name='op1'>".$option_set."</select>";
}else{
	$option_set ="\　";
}

@option2 = split(/\:/,$option2);
$i = 0;
$option2_set = "";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$option2[$i]);
	if($op2_k[$i] eq ""){ $i++; next;}
		$option2_set = $option2_set."<option value='$op2_k[$i]'>$op2_m[$i]($op2_k[$i])</option>\n";
	$i++;
}
if($option2_set ne ""){
    $option2_set = "<br><select name='op2'>".$option2_set."</select>";
}else{
	$option2_set ="\　";
}

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if ($price =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $price_set = "<font color ='#ff0000'>$price_set</font>";
}

$bikou = "<br>※".$bikou;

if($zaiko ne ""){
	$zaiko_set ="<br>在庫$zaiko$tani";
}else{
	$zaiko_set ="";
    $zaiko = 100000;
}
if($limit ne ""){
	$tani_set ="<br>$limit$taniまで";
}else{
    $tani_set =$tani;
    $limit =100000;
}

$kosuu_setting = "";
foreach ( @kosuu_set ) {
	if($_ >$limit or $_ >$zaiko){
		last;
	}else{
		$kosuu_setting .= "<option value=$_>$_</option>";
	}
}
if($kosuu_setting eq ""){
	$kosuu_setting = "<select name='amount'><option value=0>−</option></select>$tani_set";
}else{
	$kosuu_setting = "<select name='amount'>$kosuu_setting</select>$tani_set";
}
if($zaiko ne 0){
	$get_setting = "かごに入れる";
}else{
    $get_setting = "在庫切れ";
}

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);
($setumei,$setumei2,$setumei3) =split(/\|\|/,$setumei);

($a,$b)  =split(/\//,$class);
&class_name_get();

	print <<"EOF";
    <form method=post action=$script>
	<input type='hidden' name='g_no' value='$goods_no'>
	<input type='hidden' name='id' value='$kigou'>
    <TR bgcolor="#ffffff">
      <TD rowspan="2" valign="middle" align="center"><table  width="120" height="90"><tr><td><center><IMG src="$pici" width="$imagesize_w" height="$imagesize_h" border="0"></center></TD></tr></table></TD>                                      
      <TD height="60" valign="middle" align="left" width="$width_name">$name<br>[$goods_no]$kigou<br>
      [$class_name]</TD>
      <TD height="60" valign="middle" align="center" width="90">
      $option_set$option2_set</TD>
      <TD colspan="2" height="60" valign="middle" align="right" width="90">$price_set円$zaiko_set</TD>
      <TD height="60" valign="middle" align="center" width="90">
      <input type="hidden" name="goods" value="$name">
      <input type="hidden" name="unit" value="$price">

      <div align="center">$kosuu_setting</div>
      </TD>
      </TR>
    <TR bgcolor="#ffffff">
      <TD colspan="5" height="50" valign="middle" align="left">[説明]<FONT color="$fcolor">$setumei</font><br>[詳細]$setumei2<br>[携帯]$setumei3$bikou
      </TD>

    </TR>
    <TR bgcolor="#ffffff">
    <TD colspan="6" height="0" bgcolor="$bg_color" background ="$bk_ground">
    <HR size="1" color="$color_adm_d"></TD>
    </TR>
    </FORM>
EOF

}

if (@NEW) {
print <<"EOF";
</TBODY>
</TABLE>
EOF
}

print <<"EOF";
</td></tr></table>
</CENTER>
EOF
		$buf ="class=".$in{'class'};
		$buf2 ="order=".$in{'order'};
        $nextlink = "";
		if ($next_num ne '') {
			$nextlink = "<a href=\"$script?mode=adm2&pass=$adm_pass&$buf&FF=$next_num\"><font color='#0000ff'>次の$over_no件</font></a>";
		}
		
		$backlink = "";
		$back_num = $ff_no -$page;
		if($back_num >=0) {
			$backlink = "<a href=\"$script?mode=adm2&pass=$adm_pass&$buf&FF=$back_num\"><font color='#0000ff'>前の$page件</font></a>\　\　\　";
		}
	   	print "<center><table><tr><td>$backlink$nextlink</td></tr></table></center>\n";



	print <<"EOF";
	<hr noshade size=2 width=$t_width><center><table border="0" width="$t_width"><tr><td width="$t_width" align="right">
	<a href=$script?mode=adm1><font color="#0000ff">▲管理者用</font></a></td></tr></table>
	</center>
EOF

	print "<p>$foot</body></html>\n" ;	
	
}

#======================================================================================
sub adm_renew {

&html_header();

$header = <<"EOF";
<table border="0" cellspacing="0" cellpadding="5" width="$o_width" align="center">
<tr bgcolor="$color_adm_d"> 
<td height="28" width="$o_width" bgcolor="$color_adm_d"><font color="#FFFFFF"><b> <font color="#FFFFFF">
<center>EASY SHOP 管理 -更新</center></font></b> </font></td>
</tr>
</table>
EOF

	print <<"EOF";
	<center><table width=$o_width><tr><td align=right>
	<a href=$script><font color="#0000ff">▲管理を出る</font></a>\　\　<a href=$modoru_adding><font color="#0000ff">▲管理TOP(追加)</font></a>\　\　<a href=$modoru_dell><font color="#0000ff">▲変更/削除</font></a>
	</td></tr></table></center>
EOF

	print <<"EOF";

	<form name ="F1" method="post" action="$script" enctype="multipart/form-data" onSubmit="return kakunin()">
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=1 cellpadding=5 width=100% align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b>商品データの更新</b></td>
	</tr></table></td></tr></table>

	<table border="0" cellpadding="10" align="center" cellspacing="1" width=$o_width>
	<tr><td valign=top>
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=1 cellpadding=5 width=100% align=center>
EOF

		print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品NO</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="hidden" name="id" value="$in{"id"}"><B>$in{"id"}</B>
	</td>
	</tr>
		<tr> 
		<td valign="top" nowrap bgcolor="$color_adm_r"><b>分類名</b></td>
		<td bgcolor=#FFFFFF>
		<select name="class_new">
EOF

$i =0;
foreach (@class_tb) {
	($class_B,$k) = split(/\//,$_);
	@class_S =split(/:/,$k);
	
	if($k eq ''){
		if("$i" ne $class){
	print <<"EOF";
	<option value="$i">$class_B</option>
EOF
	$i ++;
	next;
		}else{
	print <<"EOF";
	<option value="$i" selected>$class_B</option>
EOF
	$i ++;
	next;
		}
	}
	
	$j =0;
	foreach (@class_S) {
	
		if("$i/$j" ne $class){
	print <<"EOF";
	<option value="$i/$j">$class_B/$class_S[$j]</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i/$j" selected>$class_B/$class_S[$j]</option>
EOF
		}
		$j ++;
	}
	$i ++;
}	
		print "</select>\n" ;

	print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品名</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=40 name="goodsname" value="$name">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=40 name="MARK" value="$kigou">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(1)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

@option = split(/\:/,$option);
$i = 0;
while($i < $option_no) {
	($op_k[$i],$op_m[$su]) =split(/\,/,$option[$i]);
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op_k" value="$op_k[$i]">
	</td><td>
	意味<input type="text" size=15 name="$op_m" value="$op_m[$su]">
	</td></tr>
EOF
	$i++;
}	
	
	print <<"EOF";
	</table></td></tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(2)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

@option2 = split(/\:/,$option2);
$i = 0;
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$su]) =split(/\,/,$option2[$i]);
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op2_k" value="$op2_k[$i]">
	</td><td>
	意味<input type="text" size=15 name="$op2_m" value="$op2_m[$su]">
	</td></tr>
EOF
	$i++;
}
	
($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);

$zaiko ='('.$zaiko.')';	
	print <<"EOF";
	</table></td></tr>

	<tr>
	<td nowrap bgcolor="$color_adm_r"><b>商品単価</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="PRICE" value="$price">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入単位</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="TANI" value="$tani">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>在庫数</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="zaiko" value="$zaiko">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入制限</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="limit" value="$limit">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像Ａ(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pic1" value="$pic1">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像Ｂ(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pic2" value="$pic2">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像Ｃ(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pic3" value="$pic3">
	</td>
	</tr>

	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC＆i-mode画像(gif)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="pici" value="$pici">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>j-sky画像(png)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="text" size=40 name="picj" value="$picj">
	</td>
	</tr>

EOF

($setumei,$setumei2,,$setumei3) =split(/\|\|/,$setumei);

$setumei =~ s/&lt;/</g;
$setumei =~ s/&gt;/>/g;
$setumei =~ s/&quot;/\"/g;
$setumei =~ s/<br>/\n/g;
$setumei =~ s/\.\n/\. \n/g;

$setumei2 =~ s/&lt;/</g;
$setumei2 =~ s/&gt;/>/g;
$setumei2 =~ s/&quot;/\"/g;
$setumei2 =~ s/<br>/\n/g;
$setumei2 =~ s/\.\n/\. \n/g;

$setumei3 =~ s/&lt;/</g;
$setumei3 =~ s/&gt;/>/g;
$setumei3 =~ s/&quot;/\"/g;
$setumei3 =~ s/<br>/\n/g;
$setumei3 =~ s/\.\n/\. \n/g;

	print <<"EOF";
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品説明</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei" cols="40" rows="3">$setumei</textarea>
 
	<br>説明の色を選択してください。<br>
EOF
	$co_font = @fontcolor;
	foreach (0..$co_font-1) {
		if($fontcolor[$_] ne $fcolor){
			print "<input type=radio name=fcolor value=$fontcolor[$_]><font color=$fontcolor[$_]>■</font>\n";
		}else{
			print "<input type=radio name=fcolor value=$fontcolor[$_] checked><font color=$fontcolor[$_]>■</font>\n";
		
		}
	}

	print <<"EOF";
	</td>
	</tr>
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品詳細説明<br>(PCのみ)</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei2" cols="40" rows="7">$setumei2</textarea>
	</td>
	</tr>
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品説明(携帯)</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei3" cols="40" rows="3">$setumei3</textarea>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>備考</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=40 name="bikou" value="$bikou">
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="mode" value="renew">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
	<input type="submit" value="データ更新">\　
	<input type="reset" value="クリア">
	</td></tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<table border=0 cellspacing=0 cellpadding=0 width=100% align=center>
	<tr><td>
	<ul>
	<li>必要な部分を変更して更新をクリックしてください。</li>
	<li>商品ID及びオプションの記号は半角アルファベットと数字(半角、桁数は自由)と「-」（ハイフン）だけを用いることができます。"="や"(ﾌﾞﾗﾝｸ) "はエラーの原因になります。</li>
	<li>商品単価、在庫数、購入制限は数字（半角）のみ。（異なるときは赤く\表\示されます）</li>
	<li>購入単位とは個、ダース、ケース、束などのことです。10個を購入単位とするとき、単位をケースと記入して、商品説明で1ケースが10個であることを示してさい。</li>
	<li>在庫数はリアルタイムに更新されていますので、増減数（追加数のときは50又は+50、減らすときは-50など）を指定できます。半角数字以外では更新は行なわれません。ブランクの時は在庫数無制限となります。在庫数無制限のときに指定された在庫数はそのまま在庫数となります。</li>
	<li>商品説明に「タイムサービス（全角）」を記入すると指定されている時間にのみ購入できるようになります。</li>
	<li>PC&i-mode画像(gif)はPCの一覧\表\画\面では$imagesize_w×$imagesize_hﾋﾟｸｾﾙで\表\示され、i-modeでは実寸で\表\示されます。PC拡大画像(gif,jpg)は実寸で\表\示されます。j-sky画像(png)は実寸で\表\示されます。</li>
	<li>説明の欄のHTML言語は有効です。したがって、<br>&lta href='http://・・・'&gt&ltfont color='#0000ff'&gtリンク&lt/font&gt&lt/a&gt<br>のように記述することによりリンク(この場合は青色\表\示)が可\能\になります。</li>
	<li>@size_tbを備考の欄に記入することにより送料のサイズを指定できます。未指定は最初のサイズになります。</li>
	</ul>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF
#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
  if (document.F1.goodsname.value == "") {
    alert("商品名が入力されていません。");
    document.F1.goodsname.focus();
    return(false);
  }
  if (document.F1.PRICE.value == "") {
    alert("単価が入力されていません。");
    document.F1.PRICE.focus();
    return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価の入力が正しくありません。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価は半角数字で入力してください。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.zaiko.value;
  if (suuzi.search(/[^0-9\(\)\+\-]/i) != -1) {
	alert("在庫数は半角数字,(,),+,-で入力してください。");
	document.F1.zaiko.focus();
	return(false);
  }
  suuzi = document.F1.limit.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("購入制限は半角数字で入力してください。");
	document.F1.limit.focus();
	return(false);
  }
  hankaku = document.F1.MARK.value;
  if (hankaku.search(/[^0-9A-Z\-]/i) != -1) {
	alert("商品IDは半角英数と-で入力してください。");
	document.F1.MARK.focus();
	return(false);
  }

}
// -->
</SCRIPT>
EOF
	print "<hr noshade size=1 width=$o_width><p>$foot</body></html>\n" ;	

}

#===============================================================
sub dell {

	open (IN,"$data_file") || &error('オープンエラー8','指定された書込みファイルが開けません。');
	@LINE = <IN>;
	close (IN);

	foreach $data ( @LINE ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou)  = split(/\<\>/,$data);
		if ( $in{"$goods_no"} ne "on" ) {
			 push (@NEW,$data); 
		 } else {
		 	($pic1,$pic2,$pic3,$pici,$picj) =split(/\:/,$picture);
			unlink	"$pic1";
			unlink	"$pic2";
			unlink	"$pic3";
			unlink	"$pici";
			unlink	"$picj";
		 		next; 
		 }
	}

	open (OUT,">$data_file") || &error('オープンエラー9','指定された書込みファイルが開けません。');
	print OUT (@NEW);
	close (OUT);
	

		print "Location: $modoru_dell\n\n";
}
#===================================================================================
sub renew {
#===============================書き込みする====================================
$i = 0;
$option_new = "";
while($i < $option_no) {
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
    $in{$op_k} =~ s/\s//g;
    $in{$op_k} =~ s/=//g;

	$option_new .= $in{$op_k}.",".$in{$op_m}.":";
    $i++;
}
$i = 0;
$option2_new = "";
while($i < $option2_no) {
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
    $in{$op2_k} =~ s/\s//g;
    $in{$op2_k} =~ s/=//g;

	$option2_new .= $in{$op2_k}.",".$in{$op2_m}.":";
    $i++;
}

# ロック処理
if ($lockkey ne 0) { &lock_log(); }

	open (IN_r,"$data_file") || &error('オープンエラー10','指定された書込みファイルが開けません。');
	@LINE_r = <IN_r>;
	close (IN_r);
	
	foreach $data_r ( @LINE_r ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$data_r);
		if ( $goods_no eq $in{'id'} ) {
		
		    if($in{'zaiko'} eq ''){
				$zaiko = '';
			}elsif($in{'zaiko'} =~ /[()]/ ){

			}elsif($in{'zaiko'} !~ /[\-\+0-9]+/ ){
			
			}else{
				if($zaiko eq ''){$zaiko =0 ;}
				
				$zaiko =$zaiko +$in{'zaiko'};
				
			}

	$picture ="$in{'pic1'}|$in{'pic2'}|$in{'pic3'}|$in{'pici'}|$in{'picj'}";

		$data_r = "$goods_no<>$in{'goodsname'}<>$in{'MARK'}<>$option_new<>$option2_new<>$in{'class_new'}<>$in{'setumei'}||$in{'setumei2'}||$in{'setumei3'}<>$in{'fcolor'}<>$in{'PRICE'}<>$in{'TANI'}<>$zaiko<>$in{'limit'}<>$picture<>$in{'bikou'}\n";
		}
		push (@NEW_r,$data_r); 
	}
	
	open (OUT,">$data_file") || &error('オープンエラー11','指定された書込みファイルが開けません。');
	print OUT (@NEW_r);
	close (OUT);

# ファイルロック解除
	if (-e $loglock) { unlink($loglock); }

	print "Location: $modoru_dell\n\n";
}
#===================================================================================
sub adding {

	if ( $in{'goodsname'} eq '' ) { print "Location: $modoru_adding\n\n";}
	elsif ( $in{'class'} eq '' ) { print "Location: $modoru_adding\n\n";}
	elsif ( $in{'PRICE'} eq '' ) { print "Location: $modoru_adding\n\n";}
	else {
	

	open (IN,"$cnt_file") || &error('オープンエラー12','指定された書込みファイルが開けません。');
	$goods_max = <IN>;
	close (IN);
	
	if($goods_max eq ""){$goods_max = 0;}
	$goods_no = $goods_max + 1;
	
#書きこみ=================================================================
$i = 0;
$option_new = "";
while($i < $option_no) {
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
    $in{$op_k} =~ s/\s//g;
    $in{$op_k} =~ s/=//g;

	$option_new .= $in{$op_k}.",".$in{$op_m}.":";
    $i++;
}
$i = 0;
$option2_new = "";
while($i < $option2_no) {
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
    $in{$op2_k} =~ s/\s//g;
    $in{$op2_k} =~ s/=//g;

	$option2_new .= $in{$op2_k}.",".$in{$op2_m}.":";
    $i++;
}

	$MARK = "$in{'MARK'}";
	$picture ="$in{'pic1'}|$in{'pic2'}|$in{'pic3'}|$in{'pici'}|$in{'picj'}";

# ロック処理
if ($lockkey ne 0) { &lock_log(); }

	open (OUT,">>$data_file") || &error('オープンエラー13','指定された書込みファイルが開けません。');
	print OUT "$goods_no<>$in{'goodsname'}<>$in{'MARK'}<>$option_new<>$option2_new<>$in{'class_add'}<>$in{'setumei'}||$in{'setumei2'}||$in{'setumei3'}<>$in{'fcolor'}<>$in{'PRICE'}<>$in{'TANI'}<>$in{'zaiko'}<>$in{'limit'}<>$picture<>$in{'bikou'}\n";
	close (OUT);

# ファイルロック解除
	if (-e $loglock) { unlink($loglock); }

	open (OUT_C,">$cnt_file") || &error('オープンエラー14','指定された書込みファイルが開けません。');
	print OUT_C "$goods_no";
	close (OUT_C);

	print "Location: $modoru_adding\n\n";
}
}

# =======================================================================================
sub adm1 {

if($adm_pass eq "1234"){
	$dis_closure = "<br>[パスワード = 1234]<br>";
}
&html_header();

print <<"EOF";
<table width=$o_width align=center cellpadding=0 border=0>
<tr><td>
<div align="right"><a href="$modoru_goods"><font color="#0000ff">▲戻る</font></a></div><hr width=$o_width noshade size=1>
<BR><BR></td></tr></table>
<table bgcolor=$color_adm_r width=500 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td><center>
<form method=post action=$script>
<input type=hidden name=class value="all">
<input type=hidden name=FF value=0>
<input type=hidden name="keyword" value="">
<input type="hidden" name="superkey" value="1"><br>
管理者用パスワードを入力してください。<br><br>
<input type=password name=pass>
<input type=submit value=認証>$dis_closure<br>
<input type=radio name=mode value=adm3 checked>更新/削除\　\　
<input type=radio name=mode value=adm2>商品追加\　\　
<input type=radio name=mode value=adm5>CSVデータから新規作成
</form>
<br>
<a href="./goods.cgi"><font color="#0000ff">■商品管理 Goods Manager■</font></a>
<br><br>
<a href="./manager.cgi"><font color="#0000ff">■販売管理\　 Sale Manager  ■</font></a>
<br><br></td></tr></table>
<br></center>
<hr width=$o_width noshade size=1>
$foot
</body></html>
EOF

}

# =======================================================================================
sub adm_dell {

if ( $in{'pass'} ne $adm_pass ) { print "Location: $script?mode=adm1\n\n"; exit; }

&html_header();

# EASY SHOPヘッダー
$header = <<"EOF";
<table border="0" cellspacing="0" cellpadding="5" width="$t_width" align="center">
<tr bgcolor="$color_adm_d"> 
<td height="28" width="$t_width" bgcolor="$color_adm_d"><font color="#FFFFFF"><b> <font color="#FFFFFF">
<center>EASY SHOP 管理 -変更/削除</center></font></b> </font></td>
</tr>
</table>
EOF

	print <<"EOF";
	<center><table width=$t_width><tr><td align=right>
	<a href=$script><font color="#0000ff">▲管理を出る</font></a>\　\　<a href=$modoru_adding><font color="#0000ff">▲管理TOP(追加)</font></a>
	</td></tr></table></center><br>
EOF

	if (!@NEW) {
        print "<h3 align=center>★該当する商品はありません★</h3>\n"; 
	}

print <<"EOF";
<center>
<table width=$t_width boder=0 align=center cellpadding=5 bordercolor=$color_adm_d>
<tr bgcolor=$color_adm_r><td><b><center>商品データの変更/削除</center></b></td></tr>
<tr><td  bgcolor="$bg_color" background ="$bk_ground">
EOF
			print <<"EOF";
			<center>
			<table><tr><td>
			<form method=post action=$script>
			<select name="class">
			<option value="all">$class_all</option>
EOF
$i =0;
foreach (@class_tb) {
	($class_B,$k) = split(/\//,$_);
	if("$i" ne $classmei){
	print <<"EOF";
	<option value="$i">$class_B</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i" selected>$class_B</option>
EOF
		}
	@class_S =split(/:/,$k);
	$j =0;
	foreach (@class_S) {
	
		if("$i/$j" ne $classmei){
	print <<"EOF";
	<option value="$i/$j">$class_B/$class_S[$j]</option>
EOF
		}else{
	print <<"EOF";
	<option value="$i/$j" selected>$class_B/$class_S[$j]</option>
EOF
		}
		$j ++;
	}
	$i ++;
}	
			
			print "</select>\n" ;
			
	print <<"EOF";
			 and 検索キー<input type="text" size=10 name="keyword" value="$pas_word">
			<input type="hidden" name="mode" value="adm3">
			<input type="hidden" name="pass" value="$adm_pass">
    		<input type="hidden" name="superkey" value="1">
    		<input type="hidden" name="FF" value=0>
			\　<input type=submit value=商品検索>
			</form></TD><tr></table></center>
EOF

	print <<"EOF";
<hr noshade size=1>
<center>商品画像をクリックすると該当商品のデータを変更できます。</center>
</td></tr>
</table>
<form method=post action=$script>
<input type=hidden name="mode" value="dell"><b>[検索商品数：$data_su]</b>
<TABLE bgcolor="$color_adm_r" border=0 width="$t_width" cellpadding="0" cellspacing="0"><tr><td>
<TABLE border=0 width="$t_width" cellpadding="3" cellspacing="1"><tr><td>
	<TBODY>
	<TR>
	<TD width="49" align="center" bgcolor="$color_adm_d"><FONT color="#ffffff"><B>削除</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" width="112"><FONT color="#ffffff"><B>商品画像</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" colspan="2" width="155"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" width="96"><B><FONT color="#ffffff">単価</FONT></B></TD>
	<TD align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff"><B>在庫数</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" width="101"><FONT color="#ffffff"><B><FONT color="#ffffff">購入制限</FONT></B></FONT></TD>
	</TR>
EOF

foreach ( @NEW ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou) = split(/\<\>/,$_);

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if ($price =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $price_set = "<font color ='#ff0000'>$price_set</font>";
}
if ($limit =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $limit_set = "<font color ='#ff0000'>$limit</font>";
}else{ $limit_set =$limit;}
if ($zaiko =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $zaiko_set = "<font color ='#ff0000'>$zaiko</font>";
}else{$zaiko_set =$zaiko;}

if($bikou ne ''){
$bikou_set ="<br>"."※".$bikou;
}

@opt = split(/\:/,$option);
$i = 0;
$option ="[ｵﾌﾟｼｮﾝ]";
while($i < $option_no) {
	($op_k,$op_m) =split(/\,/,$opt[$i]);
	if($op_k ne ""){
		$option .=$op_k."=". $op_m."\　";
	}
	$i++;
}

@opt = split(/\:/,$option2);
$i = 0;
$option2 =" ";
while($i < $option2_no) {
	($op_k,$op_m) =split(/\,/,$opt[$i]);
	if($op_k ne ""){
	$option2 .="\　".$op_k."=". $op_m;
	}
	$i++;
}

($setumei,$setumei2,$setumei3) =split(/\|\|/,$setumei);

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);

($a,$b)  =split(/\//,$class);
&class_name_get();

print <<"EOF";
	<TR>
	<TD rowspan="3" bgcolor="#ffffff" width="49" align="center"><input type=checkbox name="$goods_no"></TD>
	<TD bgcolor="#ffffff" rowspan="3" align="center" width="112"><a href=\"$save_data&mode=adm4&pass=$adm_pass&id=$goods_no\"><IMG src="$pic1" width="90" height="20" alt="PC拡大用A"><IMG src="$pic2" width="90" height="20" alt="PC拡大用B"><IMG src="$pic3" width="90" height="20" alt="PC拡大用C"><IMG src="$pici" width="90" height="20" alt="PC&i-mode"><IMG src="$picj" width="90" height="20" alt="j-sky"><BR>
     <font color="$link_color"> [$goods_no]$kigou</font></A></TD>
	<TD bgcolor="#ffffff" colspan="2" width="155">$name</TD>
	<TD bgcolor="#ffffff" align="right" width="96">$price_set円</TD>
	<TD bgcolor="#ffffff" align="right" width="90">$zaiko_set$tani</TD>
	<TD bgcolor="#ffffff" align="right" width="101">$limit_set$tani</TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" colspan="5">[分類]$class_name\　 $option$option2</TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" height="58" colspan="5">[説明]<FONT color="$fcolor">$setumei</font><br>[詳細]$setumei2<br>[携帯]$setumei3$bikou_set</TD>
	</TR>
	<TR>
	<TD bgcolor="$color_adm_r" colspan="7"><IMG src="$dir_m/space.gif" width="1" height="1" border="0"></TD>
	</TR>

EOF
}

print <<"EOF";
<tr><td bgcolor="#ffffff" colspan=7>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type=submit value=削除></td></tr>
</table></td></tr></table>
</form>
EOF

$buf ="class=".$in{'class'};

if($data_su > $page){
$i =1;
$j =0;
	while ($j < $data_su){
		if($j ne $ff_no ){
			$jump_set .="<FONT color='#0000ff' size=-1>[</font><a href=\"$script?mode=adm3&pass=$adm_pass&$buf&FF=$j&price_sort=$in{'price_sort'}\"><font color='#0000ff' size=-1>$i<font></a><FONT color='#0000ff' size=-1>]</font>";
		}else{
			$jump_set .="<FONT color='#0000ff' size=-1>[<b>$i</b>]</font>";
		}
		$i ++;
		$j = $j + $page_dell; 
	}
}

        $nextlink = "";
		if ($next_num ne '') {
			$nextlink = "<a href=\"$script?mode=adm3&pass=$adm_pass&$buf&FF=$next_num\"><font color='#0000ff'>次の$over_no件</font></a>";
		}
		
		$backlink = "";
		$back_num = $ff_no -$page;
		if($back_num >=0) {
			$backlink = "<a href=\"$script?mode=adm3&pass=$adm_pass&$buf&FF=$back_num\"><font color='#0000ff'>前の$page件</font></a>\　\　";
		}
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink\　\　 $jump_set</td></tr></table></center>\n";

print <<"EOF";

<hr noshade size=2 width=$t_width>$foot
</body></html>
EOF

}
#=================CSVデータからの一括新規作成==========================
sub csv_adm{
if($adm_pass eq "1234"){
	$dis_closure = "<br>[パスワード = 1234]<br>";
}
&html_header();

print <<"EOF";
<table width=$o_width align=center cellpadding=0 border=0>
<tr><td>
<div align="right"><a href="$modoru_goods"><font color="#0000ff">▲戻る</font></a></div><hr width=$o_width noshade size=1>
<BR><BR></td></tr></table>
<table bgcolor=$color_adm_r width=500 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td><center>
<form method=post action=$script>
<input type=hidden name=class value="all">
<input type=hidden name=FF value=0>
<input type=hidden name="keyword" value="">
<input type="hidden" name="superkey" value="1">
ＣＳＶファイル名：$csv_file<br><br>
商品データファイル名：$data_file<br><br>
ＣＳＶファイルから商品データファイルが新規に作成されます。
<br>(以前のデータは失われます)<br><br>
<input type=submit value=新規作成><br>
<input type=hidden name=mode value=adm6>
<input type=hidden name='pass' value="$in{'pass'}">
</form>
</td></tr></table>
<br></center>
<hr width=$o_width noshade size=1>
$foot
</body></html>
EOF

}
#=================CSVデータからの一括新規作成(OK)==========================
sub csv_adm_ok{
if($adm_pass eq "1234"){
	$dis_closure = "<br>[パスワード = 1234]<br>";
}
&html_header();

print <<"EOF";
<table width=$o_width align=center cellpadding=0 border=0>
<tr><td>
<div align="right"><a href="$modoru_goods"><font color="#0000ff">▲戻る</font></a></div><hr width=$o_width noshade size=1>
<BR><BR></td></tr></table>
<table bgcolor=$color_kago width=500 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td><center>
<form method=post action=$script>
<input type=hidden name=class value="all">
<input type=hidden name=FF value=0>
<input type=hidden name="keyword" value="">
<input type="hidden" name="superkey" value="1">
ＣＳＶファイル名：$csv_file<br><br>
商品データファイル名：$data_file<br><br>
ＣＳＶファイルから商品データファイルが新規に作成されます。
<br>(以前のデータは失われます)<br><br>
<input type=submit value=' Ｏ Ｋ '><br>
<input type=hidden name=mode value=adm7>
<input type=hidden name='pass' value="$in{'pass'}">
</form>
</td></tr></table>
<br></center>
<hr width=$o_width noshade size=1>
$foot
</body></html>
EOF

}

#==========================================
sub csv_new{
#1)商品番号 2)商品名 3)商品記号 4)分類 5)オプション1 6)オプション2 7)説明 8)販売価格 9)通常価格 10)単位 11)在庫数 12)在庫制限 13)画像ＡURL 14)画像ＢURL 15)画像ＣURL 16)ｉモード画像URL 17)jフォン画像URL 18)備考

if ( $in{'pass'} ne $adm_pass ) { print "Location: $script?mode=adm1\n\n"; exit; }

	open (IN,"$csv_file") || &error('オープンエラー15','指定された書込みファイルが開けません。');
	@CSV_DATA = <IN>;
	close (IN);
	
$i =0;
$flag = 0;
foreach $data ( @CSV_DATA ) {
	$i++;
	($goods_no,$name,$kigou,$class,$option1,$option2,$setumei,$price,$price0,$tani,$zaiko,$limit,$pic1,$pic2,$pic3,$pic_i,$pic_j,$bikou) = split(/,/,$data);

	$option1 =~ s/=/,/g;

	$option2 =~ s/=/,/g;

	$bikou =~ s/\r\n//g;
	$bikou =~ s/\r//g;
	$bikou =~ s/\n//g;
	$bikou   =~ s/comma/,/g;

	$setumei =~ s/\"//g;
    $setumei =~ s/comma/,/g;
    
    $class =~ s/\/\//\//g;

#==========エラーチェック=====
if ($goods_no !~ /[0-9]+/){
	$error_mess.="商品番号エラー($i行目)";
	$flag=1;
}elsif ($er_check[$goods_no] eq 'on' ){
	$error_mess.="商品番号重複エラー($i行目)";
	$flag=1;
}else{
	$er_check[$goods_no] = 'on';
}

if ($name eq ''){$error_mess.="商品名エラー($i行目)";$flag=1;}
if ($zaiko !~ /[0-9]+/ and $zaiko ne '' ){$error_mess.="在庫数エラー($i行目)";$flag=1;}
if ($limit !~ /[0-9]+/ and $limit ne '' ){$error_mess.="在庫制限エラー($i行目)";$flag=1;}
if ($price !~ /[0-9]+/){$error_mess.="販売価格エラー($i行目)";$flag=1;}
if ($price0 !~ /[0-9]+/ and $price0 ne '' ){$error_mess.="通常価格エラー($i行目)";$flag=1;}
if ($class !~ /[0-9]+/ and $class ne '' ){$error_mess.="分類エラー($i行目)";$flag=1;}
$error_mess.="<br>";
#=============================

1 while $price0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
#$bikou ="通常定価$price0円$tax_setの品。";
if($price0 ne ''){
	$bikou ="通常定価$price0円の品。".$bikou;
}

$data2 = "$goods_no<>$name<>$kigou<>$option1<>$option2<>$class<>$setumei<><>$price<>$tani<>$zaiko<>$limit<>$pic1|$pic2|$pic3|$pic_i|$pic_j<>$bikou\n";

push(@NEW_DATA,$data2); 

}

if($flag == 0){

	open (OUT,">$data_file") || &error('オープンエラー16','指定された書込みファイルが開けません。');
	print OUT (@NEW_DATA);
	close (OUT);
	
	open (OUT_C,">$cnt_file") || &error('オープンエラー14','指定された書込みファイルが開けません。');
	print OUT_C "$goods_no";
	close (OUT_C);
	
	$error_mess = "<center><br>★新規作成に成功しました★<br><br>登録数：$i件<br><br></center>";

}else{
	$error_mess = '<center><br>◆CSVファイルにエラーがありましたので新規作成を中止しました◆</center><BR><BR>'."$error_mess";

}

&html_header();

print <<"EOF";
<table width=$o_width align=center cellpadding=0 border=0>
<tr><td>
<div align="right"><a href="$modoru_goods"><font color="#0000ff">▲戻る</font></a></div><hr width=$o_width noshade size=1>
<BR><BR></td></tr></table>
<table bgcolor=$color_adm_r width=600 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td>$error_mess
</td></tr></table>
<br>
<hr width=$o_width noshade size=1>
$foot
</body></html>
EOF


}

#======================================================================
# Cookieに値を書き込むためのSet-Cookie:ヘッダを生成する
#
sub setCookie{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= "expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
    return($tmp);
}
sub setCookie_0{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= ";\n";
    return($tmp);
}
#
# Cookieの値を読み出す
#
sub getCookie {
    local($xx, $name, $value);
    for $xx (split(/; */, $ENV{'HTTP_COOKIE'})) {
        ($name, $value) = split(/=/, $xx);
        $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
        $COOKIE{$name} = $value;
    }
}

sub html_header{
	print "Content-type: text/html\n\n";
	print "<html><head><title>$main_title</title>\n";
	print "<META content=\"text/html; charset=Shift_JIS\" http-equiv=Content-Type>\n";
	print "<META content=text/css http-equiv=Content-Style-Type>\n";

	print "$style";
	
	print "</head>$body$header\n";

}

#=================ロック処理=================================== 
sub lock_log{
	local($retry) = 5;
	while (!symlink(".", $loglock)) {
		if (--$retry <= 0) { &error("mu_shop is lock."); }
		sleep(1);
	}
}

#===============================================================
sub error {
# ファイルロック解除
if (-e $loglock) { unlink($loglock); }

&html_header();
	
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
	<TBODY>
	<TR>
	<TD align="right" width="$o_width"><A href="$save_data&order=""><font color="#0000ff">▲商品画面</font></A></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
EOF

	print "<br><center>$_[0]</center>\n";
	print "<center>$_[1]</center>\n";

	print "<br><hr noshade size=1 width=$o_width><p>$foot</body></html>\n";
	exit;
}