#!/usr/bin/perl

#///////////////////////////////////////////////////////////////////////////////
#                             Super Multi Shop Ver5.04

#                      ----- 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ファイル書き込みの際にエラーが起きる場合がったバグを修正。cgi-bin下でのみCGIが動くサーバで、画像フォルダを指定しやすいように配慮。
#	【Ver5.02】CSVファイル及びログファイルに氏名2,郵便番号2,住所2,電話2を追加。
#	【Ver5.04】CSVファイルを添付しない設定にしたときに連絡事項が設定されないバグを修正。

#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
#	１．商品画面
#			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", "", "z");
	$form{$key} = $val;
}

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

#	&jcode'convert(*val, "sjis", "", "z");
	$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") {
			$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 './m_set.pl';
	$in{'order'}=$order;
}else{
	require './m_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('データベース読取エラー1','復旧をお待ちください.'); }
	@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 'p_wide' ) { &p_wide; exit;}

#====================================================================
# Cookieの値を得る
&getCookie();
$classmei = $COOKIE{'BUNRUIMEI'};
$ff_no = $COOKIE{'FF'};
$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,$tail,$bikou) = split(/\<\>/,$data);

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

$class_mei =$class_tb[$class];

	# 検索処理
			$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_mei,$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 "") {
			if ($class eq $classmei) { ; } else { next; }

		}

		if ($in{'id'} ne '' && $in{'mode'} eq 'adm4') {
			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;}
	else { &shop_form; exit;}

#=============================画像の拡大=================================================
sub p_wide {

&html_header();
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$t_width">
  <TBODY>
    <TR>
      <TD align="right" width="$t_width"><A href="$modoru_goods"><font color="#0000ff">▲戻る</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<TABLE bgcolor=$color_d width="$t_width" cellpadding="3" cellspacing="0" border=0>
<TBODY>
<TR>
<TD align="center"><B><FONT color="#ffffff">NO.$in{'G_NO'}</FONT></B></TD>
</TR>
<TR>
<TD width="49" align="center" height="98">
	<TABLE width="$t_width">
	<TBODY>
	<TR>
	<TD align="center" bgcolor="#ffffff"><BR>
	<BR>
	<A href="$modoru_goods"><IMG src="$in{'IMG'}" border="0"></A><BR>
	<BR>
	<BR>
	</TD>
	</TR>
	</TBODY>
	</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
EOF
	print <<"EOF";
	<hr noshade size=2 width=$t_width>
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";

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

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

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

			$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('オープンエラー8','ログファイルが開けません。');
	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 $mailto")) {
	    &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;

#-------BEGINBEGIN---------
$header_tenpu =<<END;
FormMailer: FormMail
To: $mailto
From: $frommail
Subject: $subject
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(*header_tenpu,'jis');
&jcode::convert(*body_tenpu,'jis');
$header_tenpu .= "Content-length: ".length($body_tenpu)."\n";

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

if (open(OUT,"| $sendmail $mailto")) {
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'};
$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;

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";
}

}

$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 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("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>
	<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="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;
}
}

$gazou ="$dir_m/".$k_no[$_].".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=$gazou 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" ;	

}
#=======================================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{
		$condition =$class_tb[$in{'class'}];
	}
}

$i=0;
$link_set ="";
foreach (@link_htm) {
	$link_set .="<A href=$link_htm[$i]><FONT class='menu'>$link_tb[$i]</FONT></A> | ";
$i++;
}

if($link_set ne ""){
	$link_set ="| ".$link_set;
	$link_set = "<TR><TD align='center' width='' height='15' bgcolor=$menu_color>$link_set</TD></TR>";

}


$jump =$script.'?'."class=all&keyword=&superkey=1&FF=0&order=$in{'order'}";
$category .="| <A href=$jump><FONT class='menu'>$class_all</FONT></A> | ";
$ctgry_su =1;
$k =0;
$j =$orikaesi[$k];

foreach (@ctgry_tb) {
	$jump =$script.'?'."class=all&keyword=$_&superkey=1&FF=0&order=$in{'order'}";
	$category .=" <A href=$jump><FONT class='menu'>$_</FONT></A> |";
	$ctgry_su ++;
	if($ctgry_su eq $j){
			$category .="<br> |";
			$k ++;
			$j = $j + $orikaesi[$k];
	}
}

$i =0;
foreach (@class_tb) {
	$jump =$script.'?'."class=$i&keyword=&superkey=1&FF=0&order=$in{'order'}";
	$category .=" <A href=$jump><FONT class='menu'>$_</FONT></A> |";
	$i ++;
	$ctgry_su ++;
	if($ctgry_su eq $j){
			$category .="<br> |";
			$k ++;
			$j = $j + $orikaesi[$k];
	}
}

print <<EOF;
<TABLE width="$t_width" bgcolor="$menu_color" border=0 cellpadding=0 cellspacing=0>
<TBODY>
$link_set
<TR><TD align="center">
<hr noshade size=1>
$category
<hr noshade size=1></TD></TR>
</TBODY>
</TABLE>

EOF

		print <<"EOF";
		<table border=0 cellpadding=0 cellspacing=0 width="$t_width"  bgcolor="$bg_color"><tr>
		<TD align="left"  width="250">
		<form method=post action=$script>
		<input type="text" size=12 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>
			<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>
			</TD></TR>
		</table>
EOF

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>▲価格順\表\示</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 - 430;
	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"><IMG src="$dir_p/picture.gif" width="80" height="18" border="0"></DIV></FONT></TD>
      <TD align="center" bgcolor="$color_d"><FONT color="#ffffff" width="$width_name"><DIV align="center"><IMG src="$dir_p/name.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/option.gif" width="80" height="18" border="0"></DIV></FONT></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,$tail,$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_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]";
	}
}

$gazou ="$dir_m/$goods_no".'.gif';
if($tail ne ""){
	$gazou2 ="$modoru_goods&mode=p_wide&G_NO=$goods_no&IMG=$dir_p/$goods_no"."$tail";
}else{
	$gazou2 ="$modoru_goods&mode=p_wide&G_NO=$goods_no&IMG=$dir_p/space.gif";
}

$w_setum =$t_width-290;

	print <<EOF;
	<FORM action="$script" method="post">
	<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><A href=$gazou2><IMG src=$gazou width='90' height='90' border='0'></a></center></TD></tr>
	</table><center>[$goods_no]$kigou</center></TD>                                      
      <TD height="60" valign="middle" align="left" width="$width_name">$name<br>
      [$class_tb[$class]]</TD>
      <TD height="60" valign="middle" align="left" width="90">
      $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="gazou" value="$goods_no$tail">
    <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>\　\　";
		}
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink\　\　 $jump_set</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">★商品画像をクリックすると拡大図を見ることができます。</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,$tail,$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_tail[$data_no] = $tail;
	$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

		$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			print "<option value='$_'>$class_tb[$_]</option>\n";
		}
		print "</select>\n" ;

	print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品名</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="goodsname" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 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++;
}
	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＆i-mode画像(gif)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="file" name="gazoum" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="file" name="gazoup" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>j-sky画像(png)</b></td>
	<td bgcolor=#FFFFFF>
	<input type="file" name="gazouj" value="">
	</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 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の一覧\表\画\面では90×90ﾋﾟｸｾﾙで\表\示され、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.MARK.value == "") {
    alert("商品IDが入力されていません。");
    document.F1.MARK.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
			$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			if($_ ne $classmei){
				print "<option value='$_'>$class_tb[$_]</option>\n";
			}else{
				print "<option value='$_' selected>$class_tb[$_]</option>\n";
			}
		}
			
			
	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,$tail,$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_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";
}
if($zaiko ne 0){
	$get_setting = "かごに入れる";
}else{
    $get_setting = "在庫切れ";
}

$gazou ="$dir_m/$goods_no".'.gif';

	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="$gazou" width="90" height="90" border="0"></center></TD></tr></table><center>[$goods_no]$kigou</center></TD>                                      
      <TD height="60" valign="middle" align="left" width="$width_name">$name<br>
      [$class_tb[$class]]</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="3" height="50" valign="middle" align="left"><FONT color="$fcolor">$setumei_set</font>
      </TD>
      <TD colspan="2" height="60" valign="middle" align="center" width="1">
    $bikou_form
    <input type="hidden" name="gazou" value="$goods_no$tail">
    <input type="hidden" name="setumei" value="$setumei">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <table border=0 width =100><TR><TD><center>$get_setting</center></TD></TR></TABLE></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

		$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			if($_ ne $class){
				print "<option value='$_'>$class_tb[$_]</option>\n";
			}else{
				print "<option value='$_' selected>$class_tb[$_]</option>\n";

			}
		}
		print "</select>\n" ;

	print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品名</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="goodsname" value="$name">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 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++;
}	

$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&i-mode画像(gif)</b></td>
	<td bgcolor=#FFFFFF>
	<input type=checkbox name="gazou_m_adm4" value=on>画像変更\　\　\　\　
	<input type="file" name="gazoum" value="$goods_no.gif">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>PC拡大画像(gif,jpg)</b></td>
	<td bgcolor=#FFFFFF>
	<input type=checkbox name="gazou_p_adm4" value=on>画像変更\　\　\　\　
	<input type="file" name="gazoup" value="$goods_no$tail">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>j-sky画像(png)</b></td>
	<td bgcolor=#FFFFFF>
	<input type=checkbox name="gazou_j_adm4" value=on>画像変更\　\　\　\　
	<input type="file" name="gazouj" value="$goods_no.png">
	</td>
	</tr>

EOF

$setumei =~ s/&lt;/</g;
$setumei =~ s/&gt;/>/g;
$setumei =~ s/&quot;/\"/g;
$setumei =~ s/<br>/\n/g;
$setumei =~ 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="5">$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 nowrap bgcolor="$color_adm_r"><b>備考</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 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の一覧\表\画\面では90×90ﾋﾟｸｾﾙで\表\示され、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.MARK.value == "") {
    alert("商品IDが入力されていません。");
    document.F1.MARK.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('オープンエラー9','指定された書込みファイルが開けません。');
	@LINE = <IN>;
	close (IN);

	foreach $data ( @LINE ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou)  = split(/\<\>/,$data);
		if ( $in{"$goods_no"} ne "on" ) {
			 push (@NEW,$data); 
		 } else {
				unlink	"$dir_m_w/$goods_no.gif";
				unlink	"$dir_p_w/$goods_no$tail";
				unlink	"$dir_m_w/$goods_no.png";
		 		next; 
		 }
	}

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

		print "Location: $modoru_dell\n\n";
}
#===================================================================================
sub renew {
	$macbin=0;
	foreach (@in) {
		if ($_ =~ /(.*)gazoum(.*)/i) { $fnamem=$2; }
		if ($_ =~ /(.*)gazoup(.*)/i) { $fnamep=$2; }
		if ($_ =~ /(.*)gazouj(.*)/i) { $fnamej=$2; }
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; }
	}
	
if ($form{'gazouj'} ne '' && $in{'gazou_j_adm4'} eq 'on') {

	$flag=0;
	if ($fnamej =~ /png/i) { $flag=1; }
	if (!$flag) { &error("j-sky用の画像はpng画像です。"); }

	$upfile = $form{'gazouj'};

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

	# 添付データを書き込み

	$image_dir = "$dir_m_w/$in{'id'}".'.png';
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズ超過。","ファイル容量が500キロバイトを超えています。");
	}

	if ( $size == 0 ) { unlink $image_dir; }

}

if ($form{'gazoum'} ne '' && $in{'gazou_m_adm4'} eq 'on') {

	$flag=0;
	if ($fnamem =~ /gif/i ) { $flag=1; }

	if (!$flag) { &error("アップロードできないファイル形式です。"); }

	$upfile = $form{'gazoum'};

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

	# 添付データを書き込み

	$image_dir = "$dir_m_w/$in{'id'}".'.gif';
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズ超過。","ファイル容量が500キロバイトを超えています。");
	}

	if ( $size == 0 ) { unlink $image_dir; }

}

if ( $form{'gazoup'} ne '' && $in{'gazou_p_adm4'} eq 'on') {

	$flag=0;
	if ($fnamep =~ /gif/i ) { $tail=".gif";$flag=1;} 
		if (($fnamep =~ /.jpg/i) || ($fnamep =~ /.jpeg/i))
			{ $tail=".jpg"; $flag=1; }

	if (!$flag) { &error("アップロードできないファイル形式です。"); }

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

	# 添付データを書き込み

	$image_dir = "$dir_p_w/$in{'id'}$tail";
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズ超過。","ファイル容量が500キロバイトを超えています。");

	}

	if ( $size == 0 ) { unlink $image_dir; }

	$tail_new =$tail;

}
#===============================書き込みする====================================
$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('オープンエラー11','指定された書込みファイルが開けません。');
	@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'};
				
			}
			
            if ($form{'gazoup'} eq '' && $in{'gazou_p_adm4'} eq 'on')  {
				$tail_new ="";
                unlink $image_dir;
			}elsif($form{'gazou_p_adm4'} eq 'on'){	
				$image_dir_old = "$dir_p_w/$in{'id'}$tail";
				if($image_dir ne $image_dir_old){unlink $image_dir_old;}
			}elsif($in{'gazou_p_adm4'} ne 'on'){	
              	$tail_new =$tail;
            }

		$data_r = "$goods_no<>$in{'goodsname'}<>$in{'MARK'}<>$option_new<>$option2_new<>$in{'class_new'}<>$in{'setumei'}<>$in{'fcolor'}<>$in{'PRICE'}<>$in{'TANI'}<>$zaiko<>$in{'limit'}<>$tail_new<>$in{'bikou'}\n";
		}
		push (@NEW_r,$data_r); 
	}
	
	open (OUT,">$data_file") || &error('オープンエラー12','指定された書込みファイルが開けません。');
	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{'MARK'} eq '' ) { print "Location: $modoru_adding\n\n";}
	elsif ( $in{'PRICE'} eq '' ) { print "Location: $modoru_adding\n\n";}
	else {
	

	open (IN,"$cnt_file") || &error('オープンエラー13','指定された書込みファイルが開けません。');
	$goods_max = <IN>;
	close (IN);
	
	if($goods_max eq ""){$goods_max = 0;}
	$goods_no = $goods_max + 1;
	
	$macbin=0;
	foreach (@in) {
		if ($_ =~ /(.*)gazoum(.*)/i) { $fnamem=$2; }
		if ($_ =~ /(.*)gazoup(.*)/i) { $fnamep=$2; }
		if ($_ =~ /(.*)gazouj(.*)/i) { $fnamej=$2; }
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; }
	}


if ( $form{'gazouj'}) {

	$flag=0;
	if ($fnamej =~ /png/i) { $flag=1; }
	if (!$flag) { &error("j-sky用の画像はpng画像です。$test"); }

	$upfile = $form{'gazouj'};

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

	# 添付データを書き込み

	$image_dir = "$dir_m_w/$goods_no".'.png';
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズ超過。","ファイル容量が500キロバイトを超えています。");
	}

	if ( $size == 0 ) { unlink $image_dir; }

}

if ( $form{'gazoum'}) {

	$flag=0;
	if ($fnamem =~ /gif/i ) { $flag=1; }

	if (!$flag) { &error("アップロードできないファイル形式です。"); }

	$upfile = $form{'gazoum'};

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

	# 添付データを書き込み

	$image_dir = "$dir_m_w/$goods_no".'.gif';
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズ超過。","ファイル容量が500キロバイトを超えています。");
	}

	if ( $size == 0 ) { unlink $image_dir; }

}
if ( $form{'gazoup'}) {

	$flag=0;
	if ($fnamep =~ /gif/i ) { $tail=".gif";$flag=1;} 
		if (($fnamep =~ /.jpg/i) || ($fnamep =~ /.jpeg/i))
			{ $tail=".jpg"; $flag=1; }

	if (!$flag) { &error("アップロードできないファイル形式です。"); }

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

	# 添付データを書き込み

	$image_dir = "$dir_p_w/$goods_no$tail";
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズ超過。","ファイル容量が500キロバイトを超えています。");

	}

	if ( $size == 0 ) { unlink $image_dir; }

}
#書きこみ=================================================================
$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'}";

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

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

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

	open (OUT_C,">$cnt_file") || &error('オープンエラー15','指定された書込みファイルが開けません。');
	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=350 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td><center>
<form method=post action=$script>
<input type=hidden name=mode value=adm2>
<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>
<input type=password name=pass>
<input type=submit value=認証>$dis_closure</form>
</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>
			<b>分類名</b>
			<select name="class">
			<option value="all">$class_all</option>
EOF
		$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			if($_ ne $classmei){
				print "<option value='$_'>$class_tb[$_]</option>\n";
			}else{
				print "<option value='$_' selected>$class_tb[$_]</option>\n";

			}
		}
			
			print "</select>\n" ;
			
	print <<"EOF";
			 and 検索キー<input type="text" size=15 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="0">
    		<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,$tail,$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++;
}

$gazou ="$dir_m/$goods_no.gif";
$gazou2 ="$dir_p/$goods_no$tail";
$gazou3 ="$dir_m/$goods_no.png";

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="$gazou" width="90" height="30" alt="PC&i-mode"><IMG src="$gazou2" width="90" height="30" alt="PC拡大用"><IMG src="$gazou3" width="90" height="30" 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_tb[$class]\　 $option$option2</TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" height="58" colspan="5">[説明]<FONT color="$fcolor">$setumei</font>$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><tr><td>$backlink$nextlink\　\　 $jump_set</td></tr></table></center>\n";

print <<"EOF";

<hr noshade size=2 width=$t_width>$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("m_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;
}