#!/usr/bin/perl

# 20060717 追加
require "../../setup/db.pl";#本番はこちらで設定
#require "./config/db.pl";#esenshu/hitomi はこちら


#◆シェアウエア登録者(シェアウエア登録後に設定してください)
#  例 $reg_name = '○△□株式会社'; ←ここを書き換える方がいらっしゃいますが、これは例です.

$reg_name = '';

#◆シェアウエア登録コード(シェアウエア登録後に設定してください)
#  例 $reg_code = 'C123456-X00'; ←ここを書き換える方がいらっしゃいますが、これは例です.

$reg_code = '';

#◆日本語コード変換ライブラリ
#  このファイルと同じ場所に設置した場合は require './jcode.pl'; のように明示的(場所特定)に設定する.
#  共通ライブラリ域(@INC)内のどこかに既に設置してある場合は require 'jcode.pl'; とすれば、設置する必要なし.

require './jcode.pl';

#◆訪問販売法による告知事項を書いておくファイル

$hanbai = './hanbai.txt';

#◆申込用のHTMLフォームを設定しておくファイル (送信されるメールの題名の設定を含む)

$juchu = './juchu.txt';

#◆ブラウザのバーに表示する題名 (タグは使えません)

$title_bar = 'HITOMI2.COM';

#◆かご内容表示画面の上部に表示するHTML
#  $start = <<'EOF'; の次の行から EOF の前の行までに記述してください.

$start = <<'EOF';

■商品ご注文
<HR SIZE=1>
<small>他のﾍﾟｰｼﾞに直接ｼﾞｬﾝﾌﾟしないでください。</small>
EOF

#◆かご項目名の設定
#  左から順番に各項目が表示されますが、必要ない項目は空にしてください (項自体を削除しないこと,順番を遵守すること)
#  例 → @items = ('商品コード','商品名','サイズ','備考','単価','数量','税別小計','消費税','商品別割引','','小計');

@items = ('商品コード','商品名','情報1','情報2','情報3','情報4','単価','数量','税別小計','消費税','価格調整a','価格調整b','小計');

#◆注文を受け取るメールアドレス (文字数が多いので携帯等の宛先ではないこと)

$mailto = 'info@hitomi2.com';
#$mailto = 'katagi@e-senshu.net';

$d_mailmag = 1;

#◆注文メールの題名
$SUBJECT = '携帯注文';

#◆ショッピングバスケットを終了する場合のリンク先(iMODE用のホームページ等へ)
# $bye = 'http://www.hitomi2.com/i/';
$bye = 'http://www.hitomi2.com/i/index.html';



#◆SENDMAILのパス設定 (サーバ管理者に聞いてください)

$sendmail = '/usr/sbin/sendmail';

	# Hi-Hoをご利用の方は$sendmail設定の１行を次のものに入れ替えてください.
	# (/cgi-bin/内にHi-Ho提供のssendmailを別途設置すること)
	# $sendmail = "$ENV{'HOME'}/cgi-bin/ssendmail"; $hiho = 1;

#◆申込者のメールアドレス宛てに確認メールを 1:送る 0:送らない

$kakunin_mail = 1;

#◆送料の設定

$souryo1 = 350;

#◆確認メールに表示する内容 (申込者のメールアドレス宛てに確認メールを送る場合のみ)
#  文字数に制限がある可能性がありますので、できるだけ短くしてください.
#  文字制限にならないように、確認メールには商品内容は記載されません.
#  $head = <<'EOF'; の次の行から EOF の前の行までに記述してください.

$head = <<'EOF';
Hitomi2.com ご注文ありがとうございます☆
お振込みを選択の方は、確認出来次第発送手配致します。
<お振込先 三菱東京UFJ銀行 江坂(エサカ)支店  普通 5068128  口座名 コスモ>
※カード支払をした方は決済確定後発送手配致します。

EOF

#◆メールに添付する署名 (申込者のメールアドレス宛てに確認メールを送る場合のみ)
#  文字数に制限がある可能性がありますので、できるだけ短くしてください.
#  $signature = <<'EOF'; の次の行から EOF の前の行までに記述してください.

$signature = <<'EOF';
☆コンタクトレンズのHitomi2.com
http://www.hitomi2.com/i/
EOF

#◆デフォルトの消費税率(%)
#  商品フォームで設定されていない場合に使う値です.

$taxrate = 0;

#◆データ記録用の作業ディレクトリ

$tmp_dir = './tmp/';

#◆申込送信後の画面を表示するためのフォーマットHTML

$thanks = './thanks.html';


# 2003/04/29追加

#◆検索結果の表示件数

$page = 10;

#◆データのあるディレクトリ
$data_dir = '../../../shopdata/data';


# 2003/04/29追加終了

# 追加 20031115
$buydata_file = '../../../shopdata/buydata.csv';		#購入履歴ファイル


if(! -f $buydata_file){
	open(OUT,">$buydata_file");
	close(OUT);
}
# ここまで

#--------------------------------------------------------------------------------------------- 初期設定は以上
# ここから下をいじったあとの動作確認は自己責任でお願いします. (その場合バグ調査も行いません)

#a8タグの処理のため
$a8_tag ="";
$a8_hidden = "";


# 2003/04/29追加

#◆J-PHONEの特定

if($ENV{'HTTP_USER_AGENT'} =~ /J-PHONE/){
	$jphone = 1;
}else{
	$jphone = 0;
}

# 2003/04/29追加終了

if (!-e "./menu\.cgo") { &error("エラー","メニュー画面(menu.cgo)が用意されていません."); }


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

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
$buffer .= $ENV{'QUERY_STRING'};

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

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

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

	if ($name =~ /;(.+);/) { $in{'DELETE'} = $1; last; }
	if ($name =~ /(.+);csv/i) { push(@CSV,$value); $name = $1; }

	if ($name eq "TANKA") { $value =~ s/\,//g; }
	if ($name eq "KAZU") { $value =~ s/\,//g; }
	if ($name eq "TAXRATE") { $value =~ s/\,//g; }

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

	$mail{$name} = $value;
	if ($name !~ /^_|ORDER|CARGO|GNAME|CODE|TANKA|KAZU|TAXRATE|REM1|REM2|REM3|REM4|CALS1|CALS2|DEBUG|SUBMIT|form/) { push(@MAIL,"$name\0$value"); }

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

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

	$in{$name} = $value;
	if ($name !~ /^_|ORDER|CARGO|GNAME|CODE|TANKA|KAZU|TAXRATE|REM1|REM2|REM3|REM4|CALS1|CALS2|DEBUG|SUBMIT|form/) { push(@VIEW,"$name\0$value"); }
}

#######################################a8タグ処理#####################################################


		if($in{'a8'} && $in{'a8'} ne ""){
			$a8_tag = "&a8=$in{'a8'}";
			$a8_hidden = "<input type='hidden' name='a8' value=\"$in{'a8'}\">";
		}
#####################################################################################################""



####################20080731 追加ここから REM1,REM2・・・が未選択の場合エラー表示#####################

		if($in{'REM1'}){
			if($in{'REM1'} eq '選択▼'){
				&error("エラー","数値を選択して下さい");

			}	
		}
		
		if($in{'REM2'}){
			if($in{'REM2'} eq '選択▼'){
				&error("エラー","数値を選択して下さい");

			}	
		}

		if($in{'REM3'}){
			if($in{'REM3'} eq '選択▼'){&error("エラー","数値を選択して下さい");}	
		}

		if($in{'REM4'}){
			if($in{'REM4'} eq '選択▼'){&error("エラー","数値を選択して下さい");}	
		}
####################20080731 追加まで REM1,REM2・・・が未選択の場合エラー表示#####################




# ○---

if ($in{'TANKA'} != 0) {

	if ($in{'GNAME'} eq "") { &error("設定エラー","GNAME(商品名)が設定されていません."); }
	if ($in{'CODE'} eq "") { &error("設定エラー","CODE(商品コード)が設定されていません."); }
	if ($in{'TANKA'} eq "" || $in{'TANKA'} == 0) { &error("設定エラー","TANKA(単価)が設定されていません."); }
	if ($in{'TAXRATE'} eq "") { $in{'TAXRATE'} = $taxrate; }

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

		if ($in{'CALS1'} == 0) { $in{'CALS1'} = ''; }
		elsif ($in{'CALS1'} =~ /(.)(\d+)/) {

			$enzan1 = $1;
			if ($enzan1 =~ /\d/) { $CALS1 = $in{'CALS1'}; $enzan1 = '+'; }
			else { $CALS1 = $2; }

			if ($enzan1 ne '+' && $enzan1 ne '-') { &error("設定エラー","CALS1(価格調整1)の設定値は不正です."); }
		}
		else { &error("設定エラー","CALS1(価格調整1)の設定値は不正です."); }
	}

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

		if ($in{'CALS2'} == 0) { $in{'CALS2'} = ''; }
		elsif ($in{'CALS2'} =~ /(.)(\d+)/) {

			$enzan2 = $1;
			if ($enzan2 =~ /\d/) { $CALS2 = $in{'CALS2'}; $enzan2 = '+'; }
			else { $CALS2 = $2; }

			if ($enzan2 ne '+' && $enzan2 ne '-') { &error("設定エラー","CALS2(価格調整2)の設定値は不正です."); }
		}
		else { &error("設定エラー","CALS2(価格調整2)の設定値は不正です."); }
	}
}

# ○---

if ($in{'_order'} eq '') { $in{'_order'} = sprintf("%04d%02d%02d%02d%02d%02d",$year +1900,$mon +1,$mday,$hour,$min,$sec); }

# ○---

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

	if (!open(ORDER,"$tmp_dir$in{'_order'}\.bk5")) { &error("何も選択されていません"); }
	@base = <ORDER>;
	close(ORDER);

	@new = grep(!/^($in{'DELETE'})\t/,@base);

	if (!@new) { $delall = 1; unlink "$tmp_dir$in{'_order'}\.bk5"; }
	else {		if (!open(FILE,"> $tmp_dir$in{'_order'}\.bk5")) { &error("設定エラー","バスケットファイルに再記録できません."); }
		print FILE @new;
		close(FILE);
	}
}
elsif ($in{'_action'} eq 'mail') { ; }
else {
	if ($in{'KAZU'} != 0) { 

		if (!open(FILE,">> $tmp_dir$in{'_order'}\.bk5")) { &error("設定エラー","作業ディレクトリが正しく設定されていません."); }
		$time = time;
#20050503 送料を追加
#		print FILE "$time\t$in{'CODE'}\t$in{'GNAME'}\t$in{'TANKA'}\t$in{'KAZU'}\t$in{'TAXRATE'}\t$in{'REM1'}\t$in{'REM2'}\t$in{'REM3'}\t$in{'REM4'}\t$enzan1\t$CALS1\t$enzan2\t$CALS2\n";
		print FILE "$time\t$in{'CODE'}\t$in{'GNAME'}\t$in{'TANKA'}\t$in{'KAZU'}\t$in{'TAXRATE'}\t$in{'REM1'}\t$in{'REM2'}\t$in{'REM3'}\t$in{'REM4'}\t$enzan1\t$CALS1\t$enzan2\t$CALS2\t$in{'ship1'}\t\n";
#20050503 ここまで
		close(FILE);
		chmod(0666,"$tmp_dir$in{'_order'}\.bk5");
	}
}

# ○---



if (open(ORDER,"$tmp_dir$in{'_order'}\.bk5")) {

	@BASE = <ORDER>;
	close(ORDER);

	# 2003/04/29 modeを追加
	if ($in{'_action'} eq 'mail' || $in{'form'} ne "" || $in{'mode'} ne "") {

# 20031115追加
		$order_syousai = "";
# ここまで

# 20050503追加
		$SHIPALL1 = 0;
# ここまで

		foreach $i (0 .. $#BASE) {

			$BASE[$i] =~ s/\n//g;
# 20050503修正
#			($TIME,$CODE[$i],$GNAME[$i],$TANKA[$i],$KAZU[$i],$TAXRATE[$i],$REM1[$i],$REM2[$i],$REM3[$i],$REM4[$i],$ENZAN1[$i],$CALS1[$i],$ENZAN2[$i],$CALS2[$i]) = split(/\t/,$BASE[$i],14);
			($TIME,$CODE[$i],$GNAME[$i],$TANKA[$i],$KAZU[$i],$TAXRATE[$i],$REM1[$i],$REM2[$i],$REM3[$i],$REM4[$i],$ENZAN1[$i],$CALS1[$i],$ENZAN2[$i],$CALS2[$i],$SHIP1[$i]) = split(/\t/,$BASE[$i],15);

			$SHIPALL1 += $SHIP1[$i] * $KAZU[$i];
# 20050503修正　ここまで

			$shokei1 = $TANKA[$i] * $KAZU[$i];
			$tax[$i] = int($shokei1 * ($TAXRATE[$i] / 100));
			$shokei2 = $shokei1 + $tax[$i];

			if ($ENZAN1[$i] eq '+') { $shokei3 = $shokei2 + $CALS1[$i]; $ZOUGEN += $CALS1[$i]; }
			elsif ($ENZAN1[$i] eq '-') { $shokei3 = $shokei2 - $CALS1[$i]; $ZOUGEN -= $CALS1[$i]; }
			else { $shokei3 = $shokei2; $kigou1[$i] = ''; }

			if ($ENZAN2[$i] eq '+') { $shokei4 = $shokei3 + $CALS2[$i]; $ZOUGEN += $CALS2[$i]; }
			elsif ($ENZAN2[$i] eq '-') { $shokei4 = $shokei3 - $CALS2[$i]; $ZOUGEN -= $CALS2[$i]; }
			else { $shokei4 = $shokei3; $kigou2[$i] = ''; }

			$SHOKEI[$i] = $shokei4;
# 20050329修正
#			$KAZUALL2 = $KAZU[$i];
			$KAZUALL2 += $KAZU[$i];
# ここまで
			$SHOKEIS += $shokei1;
			$TAXES += $tax[$i];
			$ALL += $SHOKEI[$i];

			if ($in{'_action'} eq 'mail') {
# 20031105修正
#				$line = "◎$GNAME[$i] ($CODE[$i]) ＠$TANKA[$i] × $KAZU[$i]\n";

# 20090603修正
#				$line = "◎$GNAME[$i] × $KAZU[$i]\n";
				$line = "◎■$GNAME[$i] × $KAZU[$i]\n";


# ここまで
				if ($TAXRATE[$i] != 0) { $line .= "  消費税率 $TAXRATE[$i]％"; }
				if ($tax[$i] != 0) { $line .= "  消費税 $tax[$i]"; }
				if ($TAXRATE[$i] != 0 || $tax[$i] != 0) { $line .= "\n"; }
# 20031105修正
#				$line .= "  小計 $shokei2\n";
# ここまで
				if ($CALS1[$i] ne "") { $line .= "  $items[10] $ENZAN1[$i]$CALS1[$i]\n"; }
				if ($CALS2[$i] ne "") { $line .= "  $items[11] $ENZAN2[$i]$CALS2[$i]\n"; }
# 20031105修正
#				if ($CALS1[$i] ne "" || $CALS2[$i] ne "") { $line .= "  小計 $SHOKEI[$i]\n"; }
# ここまで
				if ($REM1[$i] ne "") { $line .= "  $items[2] $REM1[$i]\n"; }
				if ($REM2[$i] ne "") { $line .= "  $items[3] $REM2[$i]\n"; }
				if ($REM3[$i] ne "") { $line .= "  $items[4] $REM3[$i]\n"; }
				if ($REM4[$i] ne "") { $line .= "  $items[5] $REM4[$i]\n"; }
# 20031115追加
				$order_syousai .= "●$GNAME[$i] ($CODE[$i]) ＠$TANKA[$i] × $KAZU[$i]＝$shokei1,";
				if ($REM1[$i] ne "") { $order_syousai .= "  $REM1[$i],"; }
				if ($REM2[$i] ne "") { $order_syousai .= "  $REM2[$i],"; }
				if ($REM3[$i] ne "") { $order_syousai .= "  $REM3[$i],"; }
				if ($REM4[$i] ne "") { $order_syousai .= "  $REM4[$i],"; }
# ここまで

				push(@ORDER,$line);
			}
		}

		if ($in{'_action'} eq 'mail') {

#			($s) = &figure($SHOKEIS); $line = "小計 $s円\n";
#			$s = int($TAXES);
#			if ($TAXES ne "") { ($s) = &figure($TAXES); $line .= "消費税 $s円\n"; }
#			if ($ZOUGEN ne "") { ($s) = &figure($ZOUGEN); $line .= "価格調整 $ZOUGEN円\n"; }

			($s) = &figure($SHOKEIS); $line = "";
			$s = int($TAXES);
			if ($TAXES ne "") { ($s) = &figure($TAXES); $line .= ""; }
			if ($ZOUGEN ne "") { ($s) = &figure($ZOUGEN); $line .= "価格調整 $ZOUGEN円\n"; }
			$s = int($ALL);

# 20050503修正
#			$souryo7 += $souryo1 * $KAZUALL2;
#			if ($souryo7 < 800) { $souryo8 = 800; }
#			else{ $souryo8 = $souryo7; }

# 20050519修正 最低送料800円
#			$souryo8 = $SHIPALL1;
			if ($SHIPALL1 < 800) { $souryo8 = 800; }
			else{$souryo8 = $SHIPALL1;}

# 20050503修正　ここまで
#20060717 リピータ割引追加
	if ($in{'リピーター'} eq 'はい'){ 	
		$souryo8 = $souryo8 * (1-0.1);
		$souryo8 = int($souryo8);
	}
#20060717 ここまで



#			($s) = &figure($ALL + $souryo8); $line .= "合計（送料込） $s円";
			($s) = &figure($ALL + $souryo8); $line = $line . "合計（送料込） $s円";

#			push(@ORDER,$line);
			$ORDERs1 = $ORDERs2 = $line;

# 20031115追加
			$c_goukei = int($ALL) + $souryo8;
			$order_syousai = $c_goukei . ",$order_syousai";
# ここまで
		}
	}
}

if ($in{'_action'} eq 'mail' && $in{'DELETE'} eq '') { &mail; }

# ○---

$od_check = (eval { opendir(DIR,$tmp_dir); }, $@ eq "");
if (!$od_check) { &error("エラー","opendir()に致命的なエラーが発生しました."); }
@ls = readdir(DIR);
close(DIR);

($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time - 24*60*60);
$limit = sprintf("%04d%02d%02d%02d%02d%02d",$yearg +1900,$mong +1,$mdayg,$hourg,$ming,$secg);

foreach $file (@ls) {

	next if $file eq '.';
	next if $file eq '..';
	next if -d $file;
	if ($file =~ /(\d+)\.bk5/) { if ($1 < $limit) { unlink "$tmp_dir$file"; }}
}

# ○---

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

	if ($in{'form'} eq "copy") {

		if (!open(FILE,$hanbai)) { &error('エラー',"訪問販売法での広告表\示義務事項ファイルが読み出せません."); }
		@HANBAI = <FILE>;
		close(FILE);

		print "Content-type: text/html\n\n";

		print "訪問販売法の表\示<HR SIZE=1>\n";

		foreach (@HANBAI) { print "$_<BR>\n"; }

		print <<"EOF";
		<HR SIZE=1>
		<A HREF="icargo.cgi?_order=$in{'_order'}$a8_tag">注文・かごを見る</a><br>
		<A HREF="icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag">商品メニューへ</a><br>
		<A HREF="$bye?_order=$in{'_order'}$a8_tag">トップへ</a>
		</BODY>
		</HTML>
EOF
#		if ($reg_name eq '' || $reg_code eq '') { $reg = "未登録"; }
#		else { $reg = "$reg_name($reg_code)にﾗｲｾﾝｽされています."; }

#		print "\n"; #↓削除してはいけません.
#		print '<HR SIZE=1>' . "\n";
#		print "※ｼｮｯﾋﾟﾝｸﾞﾊﾞｽｹｯﾄｼｽﾃﾑ by www.rescue.ne.jp\n";
#		print "※このｼｽﾃﾑは$reg\n";
#		print '<HR SIZE=1>';

		exit;
	}

#####################################
#       2003/04/29 修正開始        ##
#####################################

#	if (-e "./$in{'form'}\.cgo") {
	# menu,thanks,kensakuはcgoファイルを使用
	if(($in{'form'} eq "menu")||($in{'form'} eq "thanks")||($in{'form'} eq "kensaku")){
		if (!open(HTML,"$in{'form'}\.cgo")) { &error("エラー","商品を表\示できませんでした"); }
		@DATA = <HTML>;
		close(HTML);


		print "Content-type: text/html\n\n";

		$m1 = &figure($SHOKEIS);
		$m2 = int($TAXES); $m2 = &figure($m2);
		$m3 = int($ALL += $souryo3); $m3 = &figure($m3);

		if ($ZOUGEN == 0) { $m4 = ""; }
		else { $m4 = &figure($ZOUGEN); $m4 = "増減 $m4円<BR>"; }

		$top_contents = "<div align=\"center\"><A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る</a><br>
		<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag\">商品メニューへ</a><br>
		<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ</a>
		<hr size=1><br /></div>";

		

		foreach (@DATA) {
			s/<!--top_contents-->/$top_contents/;
			if($in{'form'} eq "kensaku"){
				s/<FORM(.*)>/<FORM$1>\n\n<INPUT TYPE=HIDDEN NAME="_order" VALUE="$in{'_order'}">/i;
			}else{
				s/<FORM(.*)>/<FORM$1>\n\n<INPUT TYPE=HIDDEN NAME="_order" VALUE="$in{'_order'}">\n<INPUT TYPE=HIDDEN NAME="form" VALUE="menu">/i;
			}
#			s/icargo\.cgi\?/icargo\.cgi\?_order=$in{'_order'}\&/;
			s/disp_shohin.php\?/disp_shohin.php\?_order=$in{'_order'}\&/;
			s/<!--\$NUMBER-->/$in{'_order'}/;
			s/<!--\$SHOKEI-->/$m1/;
			s/<!--\$TAX-->/$m2/;
			s/<!--\$GOKEI-->/$m3/;
			s/<!--\$ZOUGEN-->/$m4/;
			s/<!--.*-->\n//g;
			s/<!--atag-->/$in{'a8'}/g;
#			s/<\/BODY>/<HR>\n&lt;現在のお買い物&gt;\n<DIV ALIGN="RIGHT">\n小計 $m1円<BR>\n消費税 $m2円<BR>\n$m4\n合計 $m3円<BR>\n<\/DIV>\n<HR>\n<DIV ALIGN="CENTER">\n<A HREF="icargo.cgi?_order=$in{'_order'}$a8_tag">注文・かごを見る<\/a><br>\n<A HREF="icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag">商品メニューへ<\/a><br>\n<A HREF="$bye?_order=$in{'_order'}$a8_tag">トップへ<\/a>\n<\/DIV><\/BODY>/i;

			if ($m3 == 0) {
				s/<\/BODY>/<HR>\n現在の金額（送料別）\n<DIV ALIGN="right">\n$m4\n$m3円<BR>\n<\/DIV>\n<HR>\n<DIV ALIGN="CENTER">\n<A HREF="icargo.cgi?_order=$in{'_order'}$a8_tag">注文・かごを見る<\/a><br>\n<A HREF="icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag">商品メニューへ<\/a><br>\n<A HREF="$bye?_order=$in{'_order'}$a8_tag">トップへ<\/a>\n<\/DIV><\/BODY>/i;
			}
			else {
				s/<\/BODY>/<HR>\n現在の金額（送料別）\n<DIV ALIGN="right">\n$m4\n$m3円<br><BR>\n<\/DIV>\n<HR>\n<DIV ALIGN="CENTER">\n<A HREF="icargo.cgi?_order=$in{'_order'}$a8_tag">注文・かごを見る<\/a><br>\n<A HREF="icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag">商品メニューへ<\/a><br>\n<A HREF="$bye?_order=$in{'_order'}$a8_tag">トップへ<\/a>\n<\/DIV><\/BODY>/i;
			}

			print;
		}
	# menu,thanks以外はCSVから作成
	}else{
		$match_flg = 0;
		if (!open(DATA,"$data_dir/mdata.csv")) { &error("エラー","データファイルを開けませんでした"); }
		# コメント部分を除外
		$line = <DATA>;
		$line = <DATA>;
		# コードで検索
		while($line = <DATA>){
			# コード,サブメニュー用か,コード一覧,色一覧,種類,商品名,,,,,,,,,,,,,
			# コード,在庫の有無,商品名,単価,商品名(表示用),色(表示用),用途(表示用),価格(表示用),REM1,REM2,画像,単位,ship1,ship2,ship3,ship4
			($d_CODE,$d_zaiko,$d_GNAME,$d_TANKA,$d_syouhin,$d_color,$d_youto,$d_kakaku,$d_REM1,$d_REM2,$d_gazou,$d_package,$d_ship1,$d_ship2,$d_ship3,$d_ship4) = split(",",$line);
			if($in{'form'} eq $d_CODE){
				$match_flg = 1;
				last;
			}
		}
		close(DATA);

		# 画像を機種ごとに設定
		if($jphone == 1){
			$d_gazou .= ".png";
		}else{
			$d_gazou .= ".gif";
		}

		# ヒットしない場合はエラー
		if($match_flg != 1){&error("エラー","データがありませんでした"); }

		# サブメニュー表示
		if($d_zaiko eq "sub_menu"){
			# 一覧を%で分離
			@m_SUB_CODE = split("%",$d_GNAME);
			@m_color = split("%",$d_TANKA);

			# HTML表示
			print "Content-type: text/html\n\n";
			print <<"EOF";
<HTML>
<HEAD><TITLE>●HITOMI2.COM</TITLE>
<META content="text/html; charset=x-sjis" http-equiv=Content-Type>
<META content=yes name=CHTML>
</HEAD>
<BODY bgcolor="#FFFFFF">
商品メニュー<br>
<br>
[$d_syouhin]<br>
[$d_color]<br>
EOF

			# メニュー部分表示
			for($i=0;$i<@m_SUB_CODE;$i++){
				print "<a href=\"./icargo.cgi?form=$m_SUB_CODE[$i]&_order=$in{'_order'}$a8_tag\">$m_color[$i]</a><br>";
			}

			$m1 = &figure($SHOKEIS);
			$m2 = int($TAXES); $m2 = &figure($m2);
			$m3 = int($ALL += $souryo3); $m3 = &figure($m3);

			if ($ZOUGEN == 0) { $m4 = ""; }
			else { $m4 = &figure($ZOUGEN); $m4 = "増減 $m4円<BR>"; }

			if ($m3 == 0) {
				print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<BR>\n<\/DIV>\n<HR>\n<DIV ALIGN=\"CENTER\">\n<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag\">商品メニューへ<\/a><br>\n<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
			}
			else {
				print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<br><BR>\n<\/DIV>\n<HR>\n<DIV ALIGN=\"CENTER\">\n<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag\">商品メニューへ<\/a><br>\n<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
			}
			print "</html>";

		# 商品ページ表示
		}else{
			# REM1,REM2を%で分離
			@rem1 = split("%",$d_REM1);
			@rem2 = split("%",$d_REM2);

			# REM1のoptionタグ作成
			$REM1_OPT = "";
			foreach $val (@rem1){
				if($REM1_OPT eq ""){
					$REM1_OPT .= "<option value=\"BC : $val\" selected>BC : $val</option>\n";
				}else{
					$REM1_OPT .= "<option value=\"BC : $val\">BC : $val</option>\n";
				}
			}

			# REM2のoptionタグ作成
			$REM2_OPT = "";
			foreach $val (@rem2){
				if($REM2_OPT eq ""){
					$REM2_OPT .= "<option value=\"PWR : $val\" selected>PWR : $val</option>\n";
				}else{
					$REM2_OPT .= "<option value=\"PWR : $val\" >PWR : $val</option>\n";
				}
			}

			# 在庫切れの場合購入ボタンは非表示
			if($d_zaiko eq "在庫切れ"){
				$zaiko = $d_zaiko;
			}else{
				$zaiko = "<input type=\"submit\" name=\"Submit\" value=\"購入\">\n";
			}

			# 色の表示
			if($d_color ne ""){
				$color = $d_color . "<br>\n";
			}else{
				$color = "";
			}

			# 用途の表示
			if($d_youto ne ""){
				$youto = $d_youto . "<br>\n";
			}else{
				$youto = "";
			}

			# HTMLの表示
			print "Content-type: text/html\n\n";
			print <<"EOF";
<HTML>
<HEAD><TITLE>HITOMI2.COM</TITLE>
<META content="text/html; charset=x-sjis" http-equiv=Content-Type>
<META content=yes name=CHTML>
</HEAD>
<BODY bgcolor="#FFFFFF">
<FORM ACTION="icargo.cgi" METHOD="GET">
<input type=HIDDEN name="_order" VALUE="$in{'_order'}">
<input type=HIDDEN name="form" VALUE="menu">
<input type=HIDDEN name="CODE" value="$d_CODE">
<input type=HIDDEN name="GNAME" value="$d_GNAME">
<input type=HIDDEN name="TANKA" value="$d_TANKA">
$d_syouhin<br>
$color
$youto
$d_kakaku<br>
<div align="center"><img src="images/$d_gazou"></div>
<br>
<select name="REM1">
$REM1_OPT
</select>
<br>
<select name="REM2">
$REM2_OPT
</select>
<br>
<select name="KAZU">
<option value="0" selected>0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
</select>
$d_package<br>
<input type=HIDDEN name="ship1" value="$d_ship1">
<input type=HIDDEN name="ship2" value="$d_ship2">
<input type=HIDDEN name="ship3" value="$d_ship3">
<input type=HIDDEN name="ship4" value="$d_ship4">
$a8_hidden
$zaiko
</form>
</BODY>
</HTML>
EOF

			$m1 = &figure($SHOKEIS);
			$m2 = int($TAXES); $m2 = &figure($m2);
			$m3 = int($ALL += $souryo3); $m3 = &figure($m3);

			if ($ZOUGEN == 0) { $m4 = ""; }
			else { $m4 = &figure($ZOUGEN); $m4 = "増減 $m4円<BR>"; }

			if ($m3 == 0) {
				print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<BR>\n<\/DIV>\n<HR>\n";
				print "<DIV ALIGN=\"CENTER\">\n";
				if($in{'mode'} eq "kekka"){
					print "<a href=\"icargo.cgi?mode=kensaku&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">検索結果に戻る</a><br>\n";
				}
				print "<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n";
				print "<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag\">商品メニューへ<\/a><br>\n";
				print "<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
			}
			else {
				if($in{'mode'} eq "kekka"){
					print "<a href=\"icargo.cgi?mode=kensaku&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">検索結果に戻る</a><br>\n";
				}
				print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<br><BR>\n<\/DIV>\n<HR>\n";
				print "<DIV ALIGN=\"CENTER\">\n";
				print "<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n";
				print "<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag\">商品メニューへ<\/a><br>\n";
				print "<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
			}
			print "</html>";
		}
	}
	exit;
#	else { &error("エラー","商品が見つかりませんでした"); }
}

#####################################
#       2003/04/29 修正終了        ##
#####################################
# ○---

#####################################
#       2003/04/29 追加開始        ##
#####################################
# 商品検索
if ($in{'mode'} eq 'kensaku') {

	# ページ遷移の表示開始
	if($in{'start'} eq ""){
		$in{'start'} = 0;
	}
	# キーワード分離前の処理
	$in{'keyword'} =~ s/　/ /g;
	$in{'keyword'} =~ s/,/ /g;

	# 価格は半角数字
	$in{'kakaku'} =~ s/０/0/g;
	$in{'kakaku'} =~ s/１/1/g;
	$in{'kakaku'} =~ s/２/2/g;
	$in{'kakaku'} =~ s/３/3/g;
	$in{'kakaku'} =~ s/４/4/g;
	$in{'kakaku'} =~ s/５/5/g;
	$in{'kakaku'} =~ s/６/6/g;
	$in{'kakaku'} =~ s/７/7/g;
	$in{'kakaku'} =~ s/８/8/g;
	$in{'kakaku'} =~ s/９/9/g;

	# キーワードを半角スペースで分離
	@keyword = split(" ",$in{'keyword'});

	# 価格チェック
	if($in{'kakaku'} =~ /\D/){ &error("エラー","単価には半角数字を入力してください"); }

	@match = ();
	$match_su = 0;

	if (!open(DATA,"$data_dir/mdata.csv")) { &error("エラー","データファイルを開けませんでした"); }
	$line = <DATA>;
	$line = <DATA>;
	while($line = <DATA>){
		# コード,在庫の有無,商品名,単価,商品名(表示用),色(表示用),用途(表示用),価格(表示用),REM1,REM2,画像,単位,ship1,ship2,ship3,ship4
		($d_CODE,$d_zaiko,$d_GNAME,$d_TANKA,$d_syouhin,$d_color,$d_youto,$d_kakaku,$d_REM1,$d_REM2,$d_gazou,$d_package,$d_ship1,$d_ship2,$d_ship3,$d_ship4) = split(",",$line);

		# 商品データのみ検索
		if($d_zaiko ne "sub_menu"){
			$match_flg = 1;

			# 全角EUC-JPに変換
			$t_CODE = $d_CODE;
			&jcode'h2z_sjis(*t_CODE);
			&jcode'convert(*t_CODE,'euc');
			$t_GNAME = $d_GNAME;
			&jcode'h2z_sjis(*t_GNAME);
			&jcode'convert(*t_GNAME,'euc');
			$t_syouhin = $d_syouhin;
			&jcode'h2z_sjis(*t_syouhin);
			&jcode'convert(*t_syouhin,'euc');
			$t_color = $d_color;
			&jcode'h2z_sjis(*t_color);
			&jcode'convert(*t_color,'euc');
			$t_youto = $d_youto;
			&jcode'h2z_sjis(*t_youto);
			&jcode'convert(*t_youto,'euc');

			# キーワード検索(AND検索)
			if($in{'keyword'} ne ""){
				for($i=0;$i<@keyword;$i++){
					$match_flg2 = 0;
					$tmp = $keyword[$i];
					if($tmp eq ""){
						next;
					}
					# 全角EUC-JPに変換
					&jcode'h2z_sjis(*tmp);
					&jcode'convert(*tmp,'euc');

					# コードで検索
					if($t_CODE ne ""){
						if($t_CODE =~ /$tmp/){
							$match_flg2 = 1;
						}
					}
					# 商品名で検索
					if($t_GNAME ne ""){
						if($t_GNAME =~ /$tmp/){
							$match_flg2 = 1;
						}
					}
					# 商品名(表示用)で検索
					if($t_syouhin ne ""){
						if($t_syouhin =~ /$tmp/){
							$match_flg2 = 1;
						}
					}
					# 色(表示用)で検索
					if($t_color ne ""){
						if($t_color =~ /$tmp/){
							$match_flg2 = 1;
						}
					}
					# 用途(表示用)で検索
					if($t_youto ne ""){
						if($t_youto =~ /$tmp/){
							$match_flg2 = 1;
						}
					}
					# ヒットしなければ次のデータへ
					if($match_flg2 == 0){
						$match_flg = 0;
						last;
					}
				}
				 # キーワードにヒットしたもの
				if($match_flg == 1){
					# 価格で絞込み
					if($in{'kakaku'} ne ""){
						# 価格以上の検索
						if(($in{'opt'} eq "up")&&($in{'kakaku'} <= $d_TANKA)){
							$match[$match_su] = "<a href=\"./icargo.cgi?form=$d_CODE&mode=kekka&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">$d_syouhin $d_color</a><br>\n";
							$match_su++;
						# 価格以下の検索
						}elsif(($in{'opt'} eq "down")&&($in{'kakaku'} >= $d_TANKA)){
							$match[$match_su] = "<a href=\"./icargo.cgi?form=$d_CODE&mode=kekka&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">$d_syouhin $d_color</a><br>\n";
							$match_su++;
						}
					# 価格で絞込みなしの場合
					}else{
						$match[$match_su] = "<a href=\"./icargo.cgi?form=$d_CODE&mode=kekka&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">$d_syouhin $d_color</a><br>\n";
						$match_su++;
					}
				}
			# キーワードがない場合
			}else{
				# 価格のみで絞込み
				if($in{'kakaku'} ne ""){
					# 価格以上の検索
					if(($in{'opt'} eq 'up')&&($in{'kakaku'} <= $d_TANKA)){
						$match[$match_su] = "<a href=\"./icargo.cgi?form=$d_CODE&mode=kekka&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">$d_syouhin $d_color</a><br>\n";
						$match_su++;
					# 価格以下の検索
					}elsif(($in{'opt'} eq 'down')&&($in{'kakaku'} >= $d_TANKA)){
						$match[$match_su] = "<a href=\"./icargo.cgi?form=$d_CODE&mode=kekka&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">$d_syouhin $d_color</a><br>\n";
						$match_su++;
					}
				}
			}
		}
	}
	close(DATA);

	print "Content-type: text/html\n\n";

	# ヒットしたものがある場合
	if($match_su != 0){
		# 結果を表示
		print <<"EOF";
<HTML>
<HEAD><TITLE>HITOMI2.COM</TITLE>
<META content="text/html; charset=x-sjis" http-equiv=Content-Type>
<META content=yes name=CHTML>
</HEAD>
<BODY bgcolor="#FFFFFF">
検索結果<br>
EOF
		# 検索条件表示
		if($in{'keyword'} ne ""){
			print "キーワード: <br>\n";
			print "$in{'keyword'}<br>\n";
		}
		if($in{'kakaku'} ne ""){
			print "単価: <br>\n";
			if($in{'opt'} eq "up"){
				print "$in{'kakaku'}円以上<br>\n";
			}else{
				print "$in{'kakaku'}円以下<br>\n";
			}
		}
		# 表示開始位置
		if($in{'start'} ne ""){
			$begin = $in{'start'};
		}else{
			$begin = 0;
		}
		# 前のページ設定
		if($begin != 0){
			$before = $begin - $page;
			if($before <0){ $before = 0; }
			$before = "<a href=\"icargo.cgi?mode=kensaku&start=$before&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">前の$page件</a>";
		}else{
			$before = "";
		}

		# 次のページ設定
		$next = $begin + $page;
		if($next < $match_su){
			$next = "<a href=\"icargo.cgi?mode=kensaku&start=$next&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">次の$page件</a>";
		}else{
			$next = "";
		}

		# 表示件数の設定
		if($begin+$page > $match_su){
			$a = $begin+1;
			$b = $match_su;
		}else{
			$a = $begin+1;
			$b = $begin+$page;
		}
		print "[$a-$b]/$match_su件表\示<br>";

		# ヒットしたものを表示
		for($i=$begin;($i<$begin+$page)&&($i<$match_su);$i++){
			print $match[$i];
		}

		# ページ遷移を表示
		if($before ne ""){
			print "<br>$before 　 $next<br>\n";
		}else{
			print "<br>$next<br>\n";
		}

		$m1 = &figure($SHOKEIS);
		$m2 = int($TAXES); $m2 = &figure($m2);
		$m3 = int($ALL += $souryo3); $m3 = &figure($m3);

		if ($ZOUGEN == 0) { $m4 = ""; }
		else { $m4 = &figure($ZOUGEN); $m4 = "増減 $m4円<BR>"; }

		if ($m3 == 0) {
			print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<BR>\n<\/DIV>\n<HR>\n";
			print "<DIV ALIGN=\"CENTER\">\n";
			if($in{'mode'} eq "kekka"){
				print "<a href=\"icargo.cgi?mode=kensaku&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">検索結果に戻る</a><br>\n";
			}
			print "<A href=\"./icargo.cgi?form=kensaku&_order=$in{'_order'}$a8_tag\">商品検索へ<\/A><br>\n";
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n";
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag\">商品メニューへ<\/a><br>\n";
			print "<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
		}
		else {
			print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<br><BR>\n<\/DIV>\n<HR>\n";
			print "<DIV ALIGN=\"CENTER\">\n";
			if($in{'mode'} eq "kekka"){
				print "<a href=\"icargo.cgi?mode=kensaku&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">検索結果に戻る</a><br>\n";
			}
			print "<A href=\"./icargo.cgi?form=kensaku&_order=$in{'_order'}$a8_tag\">商品検索へ<\/A><br>\n";
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n";
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag\">商品メニューへ<\/a><br>\n";
			print "<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
		}
		print <<"EOF";
</body>
</html>
EOF
		exit;

	# ヒットしたものがない場合
	}else{
		print <<"EOF";
<HTML>
<HEAD><TITLE>HITOMI2.COM</TITLE>
<META content="text/html; charset=x-sjis" http-equiv=Content-Type>
<META content=yes name=CHTML>
</HEAD>
<BODY bgcolor="#FFFFFF">
商品検索<br>
<br>
<font color="#ff0000">該当商品はありません</font><br>
<FORM ACTION="icargo.cgi" METHOD="GET">
<input type=HIDDEN name="_order" VALUE="$in{'_order'}">
$a8_hidden
キーワード:<br>
<input type="text" name="keyword" ISTYLE="1"><br>
単価:<br>
<input type="text" size="4" name="kakaku" ISTYLE="4">円
<select name="opt">
    <option value="up" selected>以上</option>
    <option value="down">以下</option>
</select>
<br>
<input type="hidden" name="mode" value="kensaku">$a8_hidden<br>
入力が空欄の物は無視します。<br>
商品名などはカタカナで入力してください。<br>
キーワードは半角空白で区切って複数入力できます。<br>
(AND検索)<br>
<input type="submit" name="Submit" value="検索">
</form>
EOF
		$m1 = &figure($SHOKEIS);
		$m2 = int($TAXES); $m2 = &figure($m2);
		$m3 = int($ALL += $souryo3); $m3 = &figure($m3);

		if ($ZOUGEN == 0) { $m4 = ""; }
		else { $m4 = &figure($ZOUGEN); $m4 = "増減 $m4円<BR>"; }

		if ($m3 == 0) {
			print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<BR>\n<\/DIV>\n<HR>\n";
			print "<DIV ALIGN=\"CENTER\">\n";
			if($in{'mode'} eq "kekka"){
				print "<a href=\"icargo.cgi?mode=kensaku&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">検索結果に戻る</a><br>\n";
			}
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n";
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=men$a8_tagu\">商品メニューへ<\/a><br>\n";
			print "<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
		}
		else {
			if($in{'mode'} eq "kekka"){
				print "<a href=\"icargo.cgi?mode=kensaku&start=$in{'start'}&keyword=$in{'keyword'}&kakaku=$in{'kakaku'}&opt=$in{'opt'}&_order=$in{'_order'}$a8_tag\">検索結果に戻る</a><br>\n";
			}
			print "<HR>\n現在の金額（送料別）\n<DIV ALIGN=\"right\">\n$m4\n$m3円<br><BR>\n<\/DIV>\n<HR>\n";
			print "<DIV ALIGN=\"CENTER\">\n";
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}$a8_tag\">注文・かごを見る<\/a><br>\n";
			print "<A HREF=\"icargo.cgi?_order=$in{'_order'}&form=men$a8_tag\">商品メニューへ<\/a><br>\n";
			print "<A HREF=\"$bye?_order=$in{'_order'}$a8_tag\">トップへ<\/a>\n<\/DIV><\/BODY>";
		}
		print <<"EOF";
</BODY>
</HTML>
EOF
		exit;
	}
}

#####################################
#       2003/04/29 追加終了        ##
#####################################

# ○---

print "Content-type: text/html\n\n";

# 2003/04/29 METHODをGETに変更

print <<"EOF";
<HTML>
<HEAD>
<TITLE>$title_bar</TITLE>
</HEAD>
<BODY>
<FORM ACTION="icargo.cgi" METHOD="GET">
<INPUT TYPE=HIDDEN NAME="_order" VALUE="$in{'_order'}">
<INPUT TYPE=HIDDEN NAME="_action" VALUE="mail">
$a8_hidden
EOF

if (!@BASE) { print "<small>現在かごには何も入っていません</small>\n"; }
else {
	$SHOKEIS = $TAXES = $ZOUGEN1 = $ZOUGEN2 = $ALL = 0;
# 20050503追加
	$SHIPALL2 = 0;
# ここまで
	foreach $i (0 .. $#BASE) {

		$BASE[$i] =~ s/\n//g;
# 20050503修正
#		($TIME,$CODE[$i],$GNAME[$i],$TANKA[$i],$KAZU[$i],$TAXRATE[$i],$REM1[$i],$REM2[$i],$REM3[$i],$REM4[$i],$ENZAN1[$i],$CALS1[$i],$ENZAN2[$i],$CALS2[$i]) = split(/\t/,$BASE[$i],14);
		($TIME,$CODE[$i],$GNAME[$i],$TANKA[$i],$KAZU[$i],$TAXRATE[$i],$REM1[$i],$REM2[$i],$REM3[$i],$REM4[$i],$ENZAN1[$i],$CALS1[$i],$ENZAN2[$i],$CALS2[$i],$SHIP1[$i]) = split(/\t/,$BASE[$i],15);

		$SHIPALL2 += $SHIP1[$i] * $KAZU[$i];
# 20050503修正　ここまで

		$shokei1 = $zeibetsushokei[$i] = $TANKA[$i] * $KAZU[$i];
		$tax[$i] = int($shokei1 * ($TAXRATE[$i] / 100));
		$shokei2 = $shokei1 + $tax[$i];

		if ($ENZAN1[$i] eq '+') { $shokei3 = $shokei2 + $CALS1[$i]; $ZOUGEN1 += $CALS1[$i]; }
		elsif ($ENZAN1[$i] eq '-') { $shokei3 = $shokei2 - $CALS1[$i]; $ZOUGEN1 -= $CALS1[$i]; }
		else { $shokei3 = $shokei2; $kigou1[$i] = ''; }

		if ($ENZAN2[$i] eq '+') { $shokei4 = $shokei3 + $CALS2[$i]; $ZOUGEN2 += $CALS2[$i]; }
		elsif ($ENZAN2[$i] eq '-') { $shokei4 = $shokei3 - $CALS2[$i]; $ZOUGEN2 -= $CALS2[$i]; }
		else { $shokei4 = $shokei3; $kigou2[$i] = ''; }

		$SHOKEI[$i] = $shokei4;
		$KAZUALL += $KAZU[$i];
                $suryo = $KAZUALL;
		$SHOKEIS += $shokei1;
		$TAXES += $tax[$i];
		$ALL += $SHOKEI[$i];

		print "<HR SIZE=1>\n";

#		if ($items[0] ne "") { print "\[$CODE[$i]\]<BR>\n"; }
		if ($items[1] ne "") { print "$GNAME[$i]<BR>\n"; }
		if ($items[2] ne "") { print "$REM1[$i]<BR>\n"; }
		if ($items[3] ne "") { print "$REM2[$i]<BR>\n"; }
###############20080718 追加ここから###################
		if ($items[4] ne "") { print "$REM3[$i]<BR>\n"; }	
		if ($items[5] ne "") { print "$REM4[$i]<BR>\n"; }
###############20080718 追加ここまで###################
		print "<DIV ALIGN=RIGHT>\n";
		if ($items[4] ne "") { ($s) = &figure($TANKA[$i]); print "単価 $s円<BR>\n"; }
		if ($items[5] ne "") { ($s) = &figure($KAZU[$i]); print "数量 $s<BR>\n"; }
#		if ($items[6] ne "") { ($s) = &figure($zeibetsushokei[$i]); print "小計 $s円<BR>\n"; }
#		if ($items[7] ne "") { ($s) = &figure($tax[$i]); print "消費税 $s円<BR>\n"; }
		if ($items[8] ne "" && $CALS1[$i] != 0) { ($s) = &figure($CALS1[$i]); print "$items[8] $ENZAN1[$i]$s円<BR>\n"; }
		if ($items[9] ne "" && $CALS2[$i] != 0) { ($s) = &figure($CALS2[$i]); print "$items[9] $ENZAN2[$i]$s円<BR>\n"; }
		if ($items[10] ne "") { ($s) = &figure($SHOKEI[$i]); print "小計 $s円<BR>\n"; }
		print "</DIV>\n";
		print "<INPUT TYPE=SUBMIT NAME=\";$TIME;\" VALUE=\"この商品を削除\">\n";
	}

	print "<HR>\n";
	print "<DIV ALIGN=RIGHT>\n";
#	($s) = &figure($SHOKEIS); print "合算 $s円<BR>\n";
#	$s = int($TAXES);
#	if ($TAXES ne "") { ($s) = &figure($TAXES); print "消費税 $s円<BR>\n"; }
#	if ($ZOUGEN1 ne "") { ($s) = &figure($ZOUGEN1); print "$items[8] $s円<BR>\n"; }
#	if ($ZOUGEN2 ne "") { ($s) = &figure($ZOUGEN2); print "$items[9] $s円<BR>\n"; }
	$s = int($ALL);

# 20050503修正
#        $souryo2 = $suryo * $souryo1;
#        if ($souryo2 < 800) { $souryo = 800; }
#        else{ $souryo = $souryo2; }

# 20050519 修正 最低送料800円
#			$souryo = $SHIPALL2;
        if ($SHIPALL2 < 800) { $souryo = 800; }
        else{ $souryo = $SHIPALL2; }

# 20050503修正　ここまで

#20060717 リピータ割引追加
	if ($in{'リピーター'} eq 'はい'){ 	
		$souryo = $souryo * (1-0.1);
		$souryo = int($souryo);
	}
#20060717 ここまで


	($s) = &figure($ALL); print "商品合計 $s円<br>\n";
  	print "商品合計数 $suryo<br>\n";
	print "送料 $souryo円<br>\n";
	print "<HR>\n";
	($s) = &figure($ALL + $souryo);print "<b>送料込合計 $s円</b><br>\n";
        print "</DIV>\n";

  
	print "<HR>\n";
	
#20060717 追加　custmer画面リンク
	print "<A HREF=\"customer.cgi?_order=$in{'_order'}$a8_tag\">リピータの方はこちら</a><br>";
	print "<HR>\n";

	if ($in{'_submode'} eq 'get_data') {

		$query  = "select count(*) from $tbl_custmer where ";
		$query .= " mail = \"$in{'_EMAIL'}\" and";
		$query .= " pass = \"$in{'_PASSWORD'}\"";

		$sth = $dbh->prepare($query);
		$sth->execute();

		@rows = $sth->fetchrow_array;
		$row = $rows[0];
		if($row != 0){ 
			$flg = 1;
			$query  = "select * from $tbl_custmer where ";
			$query .= " mail = \"$in{'_EMAIL'}\" and";
			$query .= " pass = \"$in{'_PASSWORD'}\"";

			$sth = $dbh->prepare($query);
			$sth->execute();

			while(@row = $sth->fetchrow_array()){
				$d_passwd = $in{'_PASSWORD'};
				$d_kana = $row[2];
				$d_name = $row[1];
				$d_yubin = $row[3];
				$d_addresskana = $row[5];
				$d_address = $row[4];
				$d_email = $in{'_EMAIL'};
				$d_tel = $row[7];
				$d_mailmag = $row[11];
			}
		}
	}
#20060717 追加ここまで

	if (!open(FILE,$juchu)) { &error('エラー',"受注フォームファイルが読み出せません."); }
	@JUCHU = <FILE>;
	close(FILE);


#20060717 変更

	foreach $tag(@JUCHU) {
		$tag =~ s/<!--kana-->/$d_kana/i;
		$tag =~ s/<!--name-->/$d_name/i;
		$tag =~ s/<!--yubin-->/$d_yubin/i;
		$tag =~ s/<!--addresskana-->/$d_addresskana/i;
		$tag =~ s/<!--address-->/$d_address/i;
		$tag =~ s/<!--email-->/$d_email/i;
		$tag =~ s/<!--tel-->/$d_tel/i;
		if($d_name ne ""){
			$tag =~ s/<!--repeat1-->//i;
			$tag =~ s/<!--repeat2-->/checked/i;
		}else{
			$tag =~ s/<!--repeat1-->/checked/i;
			$tag =~ s/<!--repeat2-->//i;
		}
		$tag =~ s/<!--password-->/$d_passwd/i;
		
		if($d_mailmag == 1){
			$tag =~ s/<!--mailmag1-->/checked/i;
			$tag =~ s/<!--mailmag2-->//i;
		}else{
			$tag =~ s/<!--mailmag1-->//i;
			$tag =~ s/<!--mailmag2-->/checked/i;			
		}
		print $tag;
	}


#	foreach (@JUCHU) { print; }
#20060717 変更ここまで

	print "<input type=submit value=\"  ○ 注文する  \"> <input type=reset value=\"  × 書き直す  \">\n";
	print "</FORM>\n";

}

print "<HR>\n";
print <<"EOF";
<DIV ALIGN=CENTER>
<A HREF="icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag">商品メニューへ</a><br>
<A HREF="$bye?_order=$in{'_order'}$a8_tag">トップへ</a>
</DIV>
</BODY>
</HTML>
EOF

exit;

sub mail {

	if (!-e "$tmp_dir$in{'_order'}\.bk5") { &error('かごに何も入っていません','注文送信後は、かごは空になります.'); }

##################各種入力チェック　20080709 追加 ここから####################


#氏名ふりがなが空白の場合をチェック

	$name_hiragana = $in{'かな(全角)'};
	if (!$name_hiragana){
		&error('入力内容に誤りがあります','ふりがなが入力されていません');
	} 

#氏名ふりがなに半角カナが混ざっているかどうかチェック


	jcode::convert(*name_hiragana, 'euc');
	if ($name_hiragana =~ /\x8E/){
		&error('入力内容に誤りがあります','ふりがなに半角カナが含まれています');
	} 
	

#氏名ふりがなに漢字が混ざっているかチェック
	if($name_hiragana =~ /^([\xb0-\xf4][\xa0-\xff]+)+([\xa1][\xa0]*)*([\xb0-\xf4][\xa0-\xff]+)+$/){
		
		&error('入力内容に誤りがあります','ふりがなに漢字が含まれています');		
		
	}


#氏名が空白の場合をチェック

	$simei = $in{'氏名'};
	
	if (!$simei){
		&error('入力内容に誤りがあります','氏名に半角カナが含まれています');
	}	


#氏名に半角カナが混ざっているかどうかチェック

	jcode::convert(\$simei, 'euc');
	if ($simei =~ /\x8E/){
		&error('入力内容に誤りがあります','氏名が入力されていません');
	} 



#郵便番号は半角数字のみかチェック
	if ($in{'〒'} =~ /[^0-9\-]/){
		&error('入力内容に誤りがあります','郵便番号に半角数字以外が含まれています');		
	}
	
#住所に半角カナが混ざっているかどうかチェック

	$jusho = $in{'住所'};
	jcode::convert(\$jusho, 'euc');
	if ($jusho =~ /\x8E/){
		&error('入力内容に誤りがあります','住所に半角カナが含まれています');
	}	

#電話番号は半角数字とハイフンのみかチェック
	if ($in{'電話'} =~ /[^0-9\-]/){
		&error('入力内容に誤りがあります','電話番号に半角数字・ハイフン以外が含まれています');		
	}


##################各種入力チェック　20080709 追加 ここまで####################

	unless ($in{'_EMAIL'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error('未記入があります','Ｅメールは半角で正しくご記入ください.'); }
	unless ($in{'電話'} ne "") { &error('未記入があります','電話番号を記入してください.'); }
	unless ($in{'かな(全角)'} ne ""){&error('未記入があります','ふりがなを記入してください.');}

	$ORDERs1 =~ s/\n/<BR>\n/g;
	foreach $value (@VIEW) {

		($name,$value) = split(/\0/,$value);
		$value =~ s/\n/<BR>\n/g;
#		$MAILs .= "$name<br>$value<BR>\n";
		
		if($name eq 'メルマガ'){
			if($value==1){
				$value='はい';
			}else{
				$value='いいえ';
				
			}	
			
			
		}


		if($name ne '住所かな'){ #20080709追加
			$MAILs .= "$name<br>$value<BR>\n";
		}#20080709追加
	}

########20071204 追加 M8にパラメータを送信する#########
	unless(!$a8){
		$si_param = Get_M8param();
#		&Send_Tom8();
	}

	print "Content-type: text/html\n\n";

	if (!open(HTML,$thanks)) { &error("エラー","thanks.htmlが読みこめません."); }
	@THANKS = <HTML>;
	close(HTML);

	foreach (@THANKS) {

		s/<!--\$NUMBER-->/$in{'_order'}/;
		s/<!--\$DATE-->/$date_now/;
		s/<!--\$ORDER-->/$s/;
		s/<!--\$MAIL-->/$MAILs/;
		s/<!--.*-->//g;
		s/<\/BODY>/<HR><A HREF="icargo.cgi?form=menu">商品メニューへ<\/a><br>\n<A HREF="$bye">終了<\/a>\n<\/DIV><\/BODY>/i;

		print;
	}

	#-------------------->


	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};
	if ($host eq '') { $host = $addr; }
	if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }

	if ($hiho) {

		$in{'_SUBJECT'} = "\[$in{'_order'}\] Mail Order";
		if (!open(OUT,"| $sendmail -s \"$SUBJECT\" -f \"$in{'_EMAIL'}\" $mailto")) { &error('Error'); }
	}
	else {
		if (!open(OUT,"| $sendmail -t")) { &error('Error'); }

		print OUT &jis("X-Processed: $date_now\n");
#		print OUT "X-Mailer:\n";
		print OUT "X-HTTP_REFERER: $ENV{'HTTP_REFERER'}\n";
		print OUT "To: $mailto\n";
		print OUT "From: ".$in{'_EMAIL'}."\n";
		print OUT &jis("Subject: $in{'_order'} $SUBJECT\n");
		print OUT "\n";
	}

# 20031107 追加
	$mail_goukei = $ALL + $souryo8;
	$mail_goukei = "合計 $mail_goukei 円(送料込み)\n";
	&jcode'convert(*mail_goukei,'jis');
	print OUT $mail_goukei;
# 200508 追加
	print OUT "◎";
	print OUT $in{'_order'};
	print OUT "\n";

# ここまで

	foreach $value (@ORDER) {
		$value =~ s/情報1//g;		
		$value =~ s/情報2//g;				
##########20080718 追加ここから############
		$value =~ s/情報3//g;		
		$value =~ s/情報4//g;				
##########20080718 追加まで############
		&jcode'convert(*value,'jis');

		$value =~ s/&amp;/&/g;
		$value =~ s/&quot;/"/g;
		$value =~ s/&lt;/</g;
		$value =~ s/&gt;/>/g;
		print OUT "$value\n";
	}

	foreach $value (@MAIL) {

		($name,$value) = split(/\0/,$value);

		$name =~ s/&amp;/&/g;
		$name =~ s/&quot;/"/g;
		$name =~ s/&lt;/</g;
		$name =~ s/&gt;/>/g;


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

#		print OUT "$name = $value\n";
		print OUT "$value\n";


	}

	print OUT "\n";
	print OUT "User-Agent : $ENV{'HTTP_USER_AGENT'}\n";
	print OUT "Remote-host: $host\n";
	print OUT "Remote-Addr: $ENV{'REMOTE_ADDR'}\n";
	close(OUT);

	#-------------------->

	if ($kakunin_mail==1) {

		sleep(1);

		if ($hiho) {

			$in{'_SUBJECT'} = "\[$in{'_order'}\] Mail Order (COPY)";
			open(OUT,"| $sendmail -s \"$SUBJECT\" -f \"$mailto\" $in{'_EMAIL'}");
		}
		else {
			open(OUT,"| $sendmail -t");

			print OUT &jis("X-Processed: $date_now\n");
			print OUT "To: ".$in{'_EMAIL'}."\n";
			print OUT "From: $mailto\n";
			print OUT &jis("Subject: \[$in{'_order'}\] $SUBJECT(受付)\n");
			print OUT "\n";
		}

		print OUT &jis("$head\n");
		print OUT &jis("$line\n");
		print OUT &jis("受付番号\n$in{'_order'}\n");

		foreach $value (@ORDER) {
			&jcode'convert(*value,'jis');
			$value =~ s/&amp;/&/g;
			$value =~ s/&quot;/"/g;
			$value =~ s/&lt;/</g;
			$value =~ s/&gt;/>/g;

			print OUT "\n$value\n";
		}
		print OUT &jis("$souryo");
#		print OUT &jis("\n商品$2\n");
		print OUT &jis("$signature\n");

		close(OUT);
	}

	if (@CSV) {

		unshift(@CSV,$in{'_order'});
		($CSV) = &EncodeCSV(@CSV);

		$csv_file = $tmp_dir . "addr.csv";
		if (open(CSV,">> $csv_file")) {

			print CSV "$CSV\n";
			close(CSV);
		}
	}

#20060717追加

# MySQL ======================================

	$d_name = $in{'氏名'};
	$d_kana = $in{'かな(全角)'};
	$d_yubin = $in{'〒'};
	$d_addresskana = $in{'住所かな'};
	$d_address = $in{'住所'};
	$d_email = $in{'_EMAIL'};
	$d_tel = $in{'電話'};
	$d_passwd = $in{'パスワード'};
	$d_mailmag = $in{'メルマガ'};


# 顧客データ
	$d_lastday = substr($in{'_order'},0,8);
	$query1 = "select count(*) from $tbl_custmer where mail = \"$in{'_EMAIL'}\"";
	$sth = $dbh->prepare($query1);
	$sth->execute();
	@rows = $sth->fetchrow;
	$row = $rows[0];

	if($row == 0){
		#新規データ登録
		$d_times = 1;

		$query = "select max(custmer_id) from $tbl_custmer";
		$sth = $dbh->prepare($query);
		$sth->execute();
		@rows = $sth->fetchrow;
		$new_id = $rows[0]+1;
		$d_id = $new_id;
		$query  = "insert into $tbl_custmer ";
		$query .= "(custmer_id,name,name_kana,yubin,address,address_kana,mail,tel,pass,lastday,times,melmaga)";
		$query .= " values(\"$new_id\",\"$d_name\", \"$d_kana\", \"$d_yubin\", \"$d_address\", \"$d_addresskana\", \"$d_email\",";
		$query .= "\"$d_tel\", \"$d_passwd\", \"$d_lastday\", \"$d_times\",\"$d_mailmag\")";
		$sth = $dbh->prepare($query);
		$sth->execute();
	} else {
		#既存データ更新
		$query = "select custmer_id,times from $tbl_custmer where mail = \"$in{'_EMAIL'}\"";
		$sth = $dbh->prepare($query);
		$sth->execute();
		@row = $sth->fetchrow;
		$d_id = $row[0];
		$d_times = $row[1]+1;
		$query  = "update $tbl_custmer set name = \"$d_name\",";
		$query .= " name_kana = \"$d_kana\",";
		$query .= " yubin = \"$d_yubin\",";
		$query .= " address = \"$d_address\",";
		$query .= " address_kana = \"$d_addresskana\",";
		$query .= " tel = \"$d_tel\",";
		$query .= " pass = \"$d_passwd\",";
		$query .= " lastday = \"$d_lastday\",";
		$query .= " times = \"$d_times\",";
		$query .= " melmaga = \"$d_mailmag\"";
		$query .= " where custmer_id = \"$d_id\"";
		$sth = $dbh->prepare($query);
		$sth->execute();
	}

# 受注データ

	$d_order = $in{'_order'};
	$d_del_flg = "0";
	$goukei = $ALL + $souryo8;

	$query2  = "insert into $tbl_order ";
	$query2 .= "(order_no,custmer_id,total_send_fee,total_price,order_day,delete_flg)";
	$query2 .= " values(\"$d_order\", \"$d_id\", \"$souryo8\", \"$goukei\", \"$d_lastday\", \"$d_del_flg\")";

	$sth = $dbh->prepare($query2);
	$sth->execute();


# 受注明細データ

	foreach $i (0 .. $#BASE) {

		$BASE[$i] =~ s/\n//g;
		($TIME,$CODE,$GNAME,$TANKA,$KAZU,$TAXRATE,$REM1,$REM2,$REM3,$REM4,$ENZAN1,$CALS1,$ENZAN2,$CALS2,$SHIP1) = split(/\t/,$BASE[$i],15);

		$query  = "insert into $tbl_order_detail ";
		$query .= "(order_no,meisai_no,product_code,product_name,detail1,detail2,";
		$query .= "detail3,detail4,detail5,detail6,price,purchase_num,send_fee)";
		$query .= " values(\"$d_order\", \"$i\", \"$CODE[$i]\", \"$GNAME[$i]\", \"$REM1[$i]\", \"$REM2[$i]\",";
		$query .= " \"$REM3[$i]\", \"$REM4[$i]\", \"$REM5[$i]\", \"$REM6[$i]\", \"$TANKA[$i]\", \"$KAZU[$i]\", \"$SHIP1[$i]\")";

		$sth = $dbh->prepare($query);
		$sth->execute();
	}

	$dbh->disconnect();

# MySQL ======================================

#20060717追加ここまで


# 20031115追加
	open(OUT,">> $buydata_file" );
	flock(OUT, 2);
	print OUT "$in{'_order'},$in{'_EMAIL'},$in{'電話'},$order_syousai\n";
	close(OUT);
# ここまで

	if (-e "$tmp_dir$in{'_order'}\.bk5") { unlink("$tmp_dir$in{'_order'}\.bk5"); }
	exit;
}

sub error {

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

	print "Content-type: text/html\n\n";

	print <<"EOF";
	<HTML>
	<HEAD>
	<TITLE>$title_bar</TITLE>
	</HEAD>
	<body>
	<h1>$_[0]</h1>
	<ul>
EOF
	foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }

	print <<"EOF";
	</ul>
	<hr>
	<DIV ALIGN=CENTER>
	<A HREF="icargo.cgi?_order=$in{'_order'}$a8_tag">注文・かごを見る</a><br>
	<A HREF="icargo.cgi?_order=$in{'_order'}&form=menu$a8_tag">商品メニューへ</a><br>
	<A HREF="kensaku.html?_order=$in{'_order'}&form=menu$a8_tag">商品検索へ</a><br>
	<A HREF="$bye?_order=$in{'_order'}$a8_tag">トップへ</a>
	</DIV>
	</BODY>
	</HTML>
EOF
	exit;
}

sub EncodeCSV {

	local(@fields) = @_;
	local(@CSV) = ();

	foreach $text (@fields) {

		$text =~ s/"/""/g;
		if ($text =~ /,|"/) { $text = "\"$text\""; }

		$text =~ s/&amp;/&/g;
		$text =~ s/&quot;/"/g;
		$text =~ s/&lt;/</g;
		$text =~ s/&gt;/>/g;

		push(@CSV,$text);
	}

	return join(',',@CSV);
}

sub figure {

	local($fgr) = @_;
	if ($fgr eq "") { $fgr = 0; }
	else { 1 while $fgr =~ s/(.*\d)(\d\d\d)/$1,$2/g; } # 桁カンマ挿入
	$fgr;
}

sub jis {

	local($msg) = @_;
	&jcode'convert(*msg,'jis'); # メール用JIS変換
	$msg;
}

########20071203 追加　Moba8.netに送信するパラメータ作成
sub Get_M8param{
	local $si_params,$tanka,$kigo,$kosu,$goukei,@order;

########ここからは　商品点数にかかわらず1件に対して報酬が発生する場合
		$si_params = "&SI=1.1.1.mousikomi";
########ここまでは　商品点数にかかわらず1件に対して報酬が発生する場合


########ここからは　各商品の売り上げに対して報酬が発生する場合
#	if (!open(ORDER,"$tmp_dir$in{'_order'}\.bk5")) { &error("何も選択されていません"); }
#	@order= <ORDER>;
#	close(ORDER);
#	foreach $tmp(@order){
#		@param = split(/\t/,$tmp);
#		$kigo = @param[1];
#		$tanka = @param[3];
#		$kosu = @param[4];
#		$goukei = $tanka*$kosu;
#		$si_params .= "&SI=";	
#		$si_params .= "$tanka.";
#		$si_params .= "$kosu.";
#		$si_params .= "$goukei.";
#		$si_params .= "$kigo"
#	}
########ここまでは　各商品の売り上げに対して報酬が発生する場合
	
	return $si_params;
}

sub Send_Tom8{
	local $ua,$a8_pid,$url;
	
	use LWP::UserAgent;
	$ua = LWP::UserAgent->new();
	$a8_pid = "m00000000866001";
#	$url = "https://px.moba8.net/cgi-bin/a8fly/a8flyec?F=S&";
	$url = "https://www.beauty-info.net/index.php?";	
	$url .= "a8=$a8&";
	$url .= "PID=$a8_pid&";
#	$url .= "SO=$in{'_order'}";
	$url .= $si_param;

	$req = HTTP::Request->new("GET",$url);
	$res = $ua->request($req);

#	if(!$res->is_success()){
#		print "Content-type: text/html\n\n";
#		print $res->content();		
#	}
#		print "Content-type: text/html\n\n";
#		print $res->content();			
}