#!/usr/bin/perl
##d:/perl/bin/perl
##############################
# Create: jyoei
# Date:	2004/10/19
##############################

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use Carp ();

## HTMLテンプレート用モジュール
#use HTML::Template;

require './jcode.pl';
require 'hmltmpl.pl';
require 'common.cgi';
require './commfun.pl';
require 'fio.pl';

my $cgi = new CGI;
#メイン処理
my $action = $cgi->param('action');
$action = 'CartConfirm' if(!$action);

&OrderDispatch();
exit();


sub OrderDispatch
{
	if($action eq 'CartConfirm')
	{#買い物カゴの内容確認
		&init_header();
		&PrintCartConfirm();
	}
	elsif($action eq 'OrderEntry')
	{#注文フォームを表示
		&init_header();
		&PrintInputPage();		
	}
	elsif($action eq 'InfoConfirm')
	{#お客さんの入力を検証して確認画面を表示
		&init_header();
		&PrintConfirmPage();
	}
	elsif($action eq 'SaveOrder')
	{
		#戻るボタン押下
		if ($cgi->param('return')) {
			#注文フォームを再表示
			&init_header();
			&PrintInputPage();
			return;
		}
		#購入
		&SaveOrder();
	}
	elsif($action eq 'DelOrder')
	{
		#購入商品の取消
		&DelOrder();
	}
}

##----------------------------------------------------------------------------------------------##
## 買い物カゴの内容確認
##----------------------------------------------------------------------------------------------##
sub PrintCartConfirm()
{
	my ($errMsg,$cookieNM) = @_;
#@	my $template = HTML::Template->new(filename => $m_tmplDirNam.'cart_iteminfo.html');
	tmpl_init_tempalte($m_tmplDirNam.'cart_iteminfo.html');


	#▼購入商品のリストを表示
	my($cookieArray_ref,$cookieName_ref) = &ReadLogListInCookieCart();
	my @logList;
	my $taxkbStr = &getTaxkbStr();
	$pertax = &LoadInfoKey('$pertax')if($taxkbStr ne '非課税');
	$sumPrice=0;
	for(my $i=0;$i<@$cookieArray_ref;$i++)
	{
		if($errMsg eq '00')
		{
			next if($cookieNM eq @$cookieName_ref[$i]);
		}
		
		my %tmp_list;
		my ($itemNo,$quantity,$attr1,$attr2,$cookieName)=split(/,/,@$cookieArray_ref[$i]);		
		#▼商品名と価額を得る
		my @logInfo = &GetLogInfoByID($itemNo);
		#▲
		if(@logInfo)
		{
			$tmp_list{COOKIENM}= @$cookieName_ref[$i];
			$tmp_list{ITEMID}= $itemNo;
			$tmp_list{ITEMNM}=$logInfo[0];
			$tmp_list{ATTR1NM} = &LoadInfoKey('$attr1');#商品属性名１
			$tmp_list{ATTR2NM} = &LoadInfoKey('$attr2');#商品属性名２
			$tmp_list{ATTR1}=$attr1 if($tmp_list{ATTR1NM});
			$tmp_list{ATTR2}=$attr2 if($tmp_list{ATTR2NM});
			$tmp_list{QUANTITY}=$quantity;
			$tmp_list{UNIT} = $logInfo[5];
			$tmp_list{TAXKB} = $taxkbStr;
			## 単価
			$logInfo[1]=int($logInfo[1]*(1+$pertax))if($taxkbStr eq '税込み');
			$tmp_list{PRICE}=$logInfo[1];
			## 金額(数量×単価)
			$tmp_list{TOTALPRICE} = $quantity * $tmp_list{PRICE};
			## 小計に加算
			$sumPrice += $tmp_list{TOTALPRICE};
			## カンマ区切りで表示
			$tmp_list{PRICE} = &conertPrice2Str($tmp_list{PRICE});
			$tmp_list{TOTALPRICE} = &conertPrice2Str($tmp_list{TOTALPRICE});
			push(@logList,\%tmp_list);	
		}
	}
#@	$template->param(LOGLIST,\@logList) if(@logList);
	tmpl_param(LOGLIST,\@logList) if(@logList);
	#▲

	#▼小計を表示
#@	$template->param(SUM,&conertPrice2Str(int($sumPrice)));
	tmpl_param(SUM=>&conertPrice2Str(int($sumPrice)));
	#▲

	#▼消費税を表示
	if($taxkbStr eq '税抜き')
	{
		## 消費税を表示
#@		$template->param(TAX,&conertPrice2Str(int($pertax*$sumPrice)));
		tmpl_param(TAX=>&conertPrice2Str(int($pertax*$sumPrice)));
		$sumPrice*=(1+$pertax);
	}
	#▲

#@	print $template->output;
	print tmpl_output();
}

##----------------------------------------------------------------------------------------------##
## 注文フォームを表示
##----------------------------------------------------------------------------------------------##
sub PrintInputPage
{
#	my ($errMsg,$cname,$email,$email2,$postcode,$pre_name,$address,
#			$phone,$payment,$note,$cname2,$postcode2,
#			$pre_name2,$address2,$phone2)=@_;
	my ($errMsg,$email,$email2,$cname,$addr11,$addr12,$postcode,$pre_name,$phone,
			$payment,$postage,$note,$cname2,$postcode2,$pre_name2,$addr21,$addr22,$phone2)=@_;
				
	#戻るボタン押下時、入力内容を反映
	$cname = $cgi->param('cname');
	$email = $cgi->param('email');
#	my $email2 = $cgi->param('email2');
	$postcode = $cgi->param('postcode');
	$pre_name = $cgi->param('ADDR1_PRE');
	$addr11 = $cgi->param('address11');
	$addr12 = $cgi->param('address12');
	$phone = $cgi->param('phone');
	$payment = $cgi->param('payment');
	$postage = $cgi->param('postage');
	$note = $cgi->param('note');
	$cname2 = $cgi->param('cname2');
	$postcode2 = $cgi->param('postcode2');
	$pre_name2 = $cgi->param('ADDR2_PRE');
	$addr21 = $cgi->param('address21');
	$addr22 = $cgi->param('address22');
	$phone2 = $cgi->param('phone2');

#@	local $template = HTML::Template->new(filename => $m_tmplDirNam.'cart_orderentry.html');
	tmpl_init_tempalte($m_tmplDirNam.'cart_orderentry.html');

	&CreatePrefectureList("PRE_LIST",$pre_name);
	&CreatePrefectureList("PRE_LIST2",$pre_name2);
	&CreatePaymentList($payment);
	#手数料を取得
	my $payment_fee = &GetPaymentFee($payment);
	tmpl_param(PAYMENT_FEE => ($payment_fee > 0) ? &conertPrice2Str($payment_fee) : '');

#@	$template->param(
	tmpl_param(
			ERRMSG		=>$errMsg,
			CNAME			=>$cname,
			EMAIL			=>$email,
#				EMAIL2		=>$email2,
			POSTCODE	=>$postcode,
			ADDRESS11	=>$addr11,
			ADDRESS12	=>$addr12,
			PHONE			=>$phone,
#				POSTAGE		=>$postage,
			NOTE_TEXT	=>$note,
			CNAME2		=>$cname2,
			POSTCODE2	=>$postcode2,
			ADDRESS21	=>$addr21,
			ADDRESS22	=>$addr22,
			PHONE2		=>$phone2
		);
	
	#▼購入商品のリストを表示
	my($cookieArray_ref,$cookieName_ref) = &ReadLogListInCookieCart();
	my @logList;
	my $taxkbStr = &getTaxkbStr();
	$pertax = &LoadInfoKey('$pertax')if($taxkbStr ne '非課税');
	$sumPrice=0;
	for(my $i=0;$i<@$cookieArray_ref;$i++)
	{
		my %tmp_list;
		my ($itemNo,$quantity,$attr1,$attr2,$cookieName)=split(/,/,@$cookieArray_ref[$i]);		
		#▼商品名と価額を得る
		my @logInfo = &GetLogInfoByID($itemNo);
		#▲
		if(@logInfo)
		{
			$tmp_list{COOKIENM}= @$cookieName_ref[$i];
			$tmp_list{ITEMID}= $itemNo;
			$tmp_list{ITEMNM}=$logInfo[0];
			$tmp_list{ATTR1NM} = &LoadInfoKey('$attr1');#商品属性名１
			$tmp_list{ATTR2NM} = &LoadInfoKey('$attr2');#商品属性名２
#			$tmp_list{ATTR1}=$attr1;
#			$tmp_list{ATTR2}=$attr2;
			$tmp_list{ATTR1}=$attr1 if($tmp_list{ATTR1NM});
			$tmp_list{ATTR2}=$attr2 if($tmp_list{ATTR2NM});
			$tmp_list{QUANTITY}=$quantity;
			$tmp_list{UNIT} = $logInfo[5];
			$tmp_list{TAXKB} = $taxkbStr;
			## 単価
			$logInfo[1]=int($logInfo[1]*(1+$pertax))if($taxkbStr eq '税込み');
			$tmp_list{PRICE}=$logInfo[1];
			## 金額(数量×単価)
			$tmp_list{TOTALPRICE} = $quantity * $tmp_list{PRICE};
			## 小計に加算
			$sumPrice += $tmp_list{TOTALPRICE};
			## カンマ区切りで表示
			$tmp_list{PRICE} = &conertPrice2Str($tmp_list{PRICE});
			$tmp_list{TOTALPRICE} = &conertPrice2Str($tmp_list{TOTALPRICE});
			push(@logList,\%tmp_list);	
		}
	}
#@	$template->param(LOGLIST,\@logList);
	tmpl_param(LOGLIST=>\@logList);
	#▲

	#▼小計を表示
#@	$template->param(SUM,&conertPrice2Str($sumPrice));
	tmpl_param(SUM=>&conertPrice2Str($sumPrice));
	#▲

	#▼消費税を表示
	if($taxkbStr eq '税抜き')
	{
		## 消費税を表示
#@		$template->param(TAX,&conertPrice2Str(int($pertax*$sumPrice)));
		tmpl_param(TAX=>&conertPrice2Str(int($pertax*$sumPrice)));
		$sumPrice*=(1+$pertax);
	}
	#▲

	#▼送料を表示
	#合計金額(消費税含む)が送料無料下限値より小さい場合、送料を計算
	if($sumPrice < &LoadInfoKey('$farefree')) {
		#送料設定区分を表示
		tmpl_param(FAREKBNM=>&getFarekbStr);	
		if($farekb == 1)
		{#一律
			my $fare = &LoadInfoKey('$fare');
	#@		$template->param(FAREFEE,&conertPrice2Str($fare));
			tmpl_param(FAREFEE,&conertPrice2Str($fare));
		}
		elsif($farekb == 2)
		{#都道府県別送料を計算
			my $prefName = $pre_name;
			$prefName = $pre_name2 if($pre_name2);
			my $prefFareFee = &getFarebyPre($prefName);
	#@		$template->param(FAREFEE,&conertPrice2Str($prefFareFee));
			tmpl_param(FAREFEE=>&conertPrice2Str($prefFareFee));
		}
	} else {
		#送料無料
		tmpl_param(FAREKBNM=>'');
		tmpl_param(FAREFEE=>0);
	}
	#▲
	
#@	print $template->output;
	print tmpl_output();
}

##----------------------------------------------------------------------------------------------##
## お客さんの入力を検証して確認画面を表示
##----------------------------------------------------------------------------------------------##
sub PrintConfirmPage
{

	my $cname = $cgi->param('cname');
	my $email = $cgi->param('email');
#	my $email2 = $cgi->param('email2');
	my $postcode = $cgi->param('postcode');
	my $pre_name = $cgi->param('ADDR1_PRE');
	my $addr11 = $cgi->param('address11');
	my $addr12 = $cgi->param('address12');
	my $phone = $cgi->param('phone');
	my $payment = $cgi->param('payment');
	my $postage = $cgi->param('postage');
	my $note = $cgi->param('note');
	my $cname2 = $cgi->param('cname2');
	my $postcode2 = $cgi->param('postcode2');
	my $pre_name2 = $cgi->param('ADDR2_PRE');
	my $addr21 = $cgi->param('address21');
	my $addr22 = $cgi->param('address22');
	my $phone2 = $cgi->param('phone2');

	#入力チェック	
	$errMsg.='名前の入力がありません<br>' if(!$cname);
	$errMsg.='都道府県の選択がありません<br>' if(!$pre_name);
	$errMsg.='住所の入力がありません<br>' if(!$addr11);
	$errMsg.='電話番号の入力がありません<br>' if(!$phone);
#	$errMsg.='メールアドレスの入力を確認してください。<br>' if($email ne $email2);
	$errMsg.='E-Mailの入力が不正です<br>'if ($email !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/);
	$errMsg.='支払方法の選択がありません<br>'if(!$payment);
	#$errMsg.='ご住所を入力してください<br>' if(!$address||!$postcode||!$pre_name);
	
	$note =~ s/\n//g;
	$note =~ s/\r//g;
	
	#エラーを表示
	if($errMsg)
	{
		&init_header();
		&PrintInputPage($errMsg);
		return;
	}

#@	my $template = HTML::Template->new(filename => $m_tmplDirNam.'cart_orderconf.html');
	tmpl_init_tempalte($m_tmplDirNam.'cart_orderconf.html');

	#▼購入商品のリストを表示
	my($cookieArray_ref,$cookieName_ref) = &ReadLogListInCookieCart();
	my @logList;
	my $taxkbStr = &getTaxkbStr();
	$pertax = &LoadInfoKey('$pertax')if($taxkbStr ne '非課税');
	$sumPrice=0;
	for(my $i=0;$i<@$cookieArray_ref;$i++)
	{
		my %tmp_list;
		my ($itemNo,$quantity,$attr1,$attr2,$cookieName)=split(/,/,@$cookieArray_ref[$i]);		
		#▼商品名と価額を得る
		my @logInfo = &GetLogInfoByID($itemNo);
		#▲
		if(@logInfo)
		{
			$tmp_list{COOKIENM}= @$cookieName_ref[$i];
			$tmp_list{ITEMID}= $itemNo;
			$tmp_list{ITEMNM}=$logInfo[0];
			$tmp_list{ATTR1NM} = &LoadInfoKey('$attr1');#商品属性名１
			$tmp_list{ATTR2NM} = &LoadInfoKey('$attr2');#商品属性名２
#			$tmp_list{ATTR1}=$attr1;
#			$tmp_list{ATTR2}=$attr2;
			$tmp_list{ATTR1}=$attr1 if($tmp_list{ATTR1NM});
			$tmp_list{ATTR2}=$attr2 if($tmp_list{ATTR2NM});
			$tmp_list{QUANTITY}=$quantity;
			$tmp_list{UNIT} = $logInfo[5];
			$tmp_list{TAXKB} = $taxkbStr;
			## 単価
			$logInfo[1]=int($logInfo[1]*(1+$pertax))if($taxkbStr eq '税込み');
			$tmp_list{PRICE}=$logInfo[1];
			## 金額(数量×単価)
			$tmp_list{TOTALPRICE} = $quantity * $tmp_list{PRICE};
			## 小計に加算
			$sumPrice += $tmp_list{TOTALPRICE};
			## カンマ区切りで表示
			$tmp_list{PRICE} = &conertPrice2Str($tmp_list{PRICE});
			$tmp_list{TOTALPRICE} = &conertPrice2Str($tmp_list{TOTALPRICE});
			push(@logList,\%tmp_list);	
		}
	}
#@	$template->param(LOGLIST,\@logList);
	tmpl_param(LOGLIST=>\@logList);
	#▲

	#▼小計を表示
#@	$template->param(SUM,&conertPrice2Str($sumPrice));
	tmpl_param(SUM=>&conertPrice2Str($sumPrice));
	#▲

	#▼消費税を表示
	if($taxkbStr eq '税抜き')
	{
#@		$template->param(TAX,&conertPrice2Str(int($pertax*$sumPrice)));
		tmpl_param(TAX=>&conertPrice2Str(int($pertax*$sumPrice)));
		$sumPrice*=(1+$pertax);
		$sumPrice = int($sumPrice);
	}
	#▲

	#▼送料を表示
	#合計金額(消費税含む)が送料無料下限値より小さい場合、送料を計算
	if($sumPrice < &LoadInfoKey('$farefree')) {
		#送料設定区分を表示
		tmpl_param(FAREKBNM=>&getFarekbStr);	
		if($farekb == 1)
		{#一律
			my $fare = &LoadInfoKey('$fare');
	#@		$template->param(FAREFEE,&conertPrice2Str($fare));
			tmpl_param(FAREFEE,&conertPrice2Str($fare));
			$sumPrice+=$fare;
		}
		elsif($farekb == 2)
		{#都道府県別送料を計算
			my $prefName = $pre_name;
			$prefName = $pre_name2 if($pre_name2);
			my $prefFareFee = &getFarebyPre($prefName);
	#@		$template->param(FAREFEE,&conertPrice2Str($prefFareFee));
			tmpl_param(FAREFEE=>&conertPrice2Str($prefFareFee));
			$sumPrice+=$prefFareFee;
		}
	} else {
		#送料無料
		tmpl_param(FAREKBNM=>'');	
		tmpl_param(FAREFEE=>0);
	}
	#▲

	#▼手数料を表示
	my $payment_fee = &GetPaymentFee($payment);
	tmpl_param(PAYMENT_FEE => ($payment_fee > 0) ? &conertPrice2Str($payment_fee) : '');	
	$sumPrice+=$payment_fee;
	#▲

	#▼合計金額を表示
#@	$template->param(TOTALSUM,&conertPrice2Str($sumPrice));
	tmpl_param(TOTALSUM=>&conertPrice2Str($sumPrice));
	#▲


	
#@	$template->param(
		tmpl_param(
			PAYMENT_NAME		=>	$payment,
			CNAME						=>	$cname,
			EMAIL						=>	$email,
			POSTCODE				=>	$postcode,
			PRE_NAME				=>	$pre_name,
			ADDRESS11				=>	$addr11,
			ADDRESS12				=>	$addr12,
			PHONE						=>	$phone,
			NOTE_TEXT				=>	$note,
			CNAME2					=>	$cname2,
			POSTCODE2				=>	$postcode2,
			PRE_NAME2				=>	$pre_name2,
			ADDRESS21				=>	$addr21,
			ADDRESS22				=>	$addr22,
			PHONE2					=>	$phone2,
	);
	
	
#@	print $template->output();
	print tmpl_output();
	return;
	
}#PrintConfirmPage

##----------------------------------------------------------------------------------------------##
## 購入
##----------------------------------------------------------------------------------------------##
sub SaveOrder
{
#@	my $template = HTML::Template->new(filename => $m_tmplDirNam.'cart_ordercomp.html');
	tmpl_init_tempalte($m_tmplDirNam.'cart_ordercomp.html');
	
	my $cname = $cgi->param('cname');
	my $email = $cgi->param('email');
#	my $email2 = $cgi->param('email2');
	my $postcode = $cgi->param('postcode');
	my $pre_name = $cgi->param('ADDR1_PRE');
	my $addr11 = $cgi->param('address11');
	my $addr12 = $cgi->param('address12');
	my $phone = $cgi->param('phone');
	my $payment = $cgi->param('payment');
#	my $postage = $cgi->param('postage');
	my $note = $cgi->param('note');
	my $cname2 = $cgi->param('cname2');
	my $postcode2 = $cgi->param('postcode2');
	my $pre_name2 = $cgi->param('ADDR2_PRE');
	my $addr21 = $cgi->param('address21');
	my $addr22 = $cgi->param('address22');
	my $phone2 = $cgi->param('phone2');
	
	
	#▼日付を計算する
	my ($dummy1,$orderMin,$orderHour,$orderDay,$orderMon,$orderYear,$dummy3,$dummy2,$dummy4)= localtime(time);
	$orderYear+=1900;$orderMon+=1;
	my $orderDate = join(':',($orderYear,$orderMon,$orderDay,$orderHour,$orderMin));
	#▲
	
	#税込み単価の計算
	my $taxkbStr = &getTaxkbStr();

	#▼注文データの作成
	my($cookieArray_ref) = &ReadLogListInCookieCart();
	my @logList;
	$pertax = &LoadInfoKey('$pertax')if($taxkbStr ne '非課税');
	$sumPrice=0;
	$sumTax=0;
	my @records;
	for(my $i=0;$i<@$cookieArray_ref;$i++)
	{
		my %tmp_list;
		my ($itemNo,$quantity,$attr1,$attr2)=split(/,/,@$cookieArray_ref[$i]);
		#▼在庫数更新
		my ($isOK,$available) = &DecreaseStock($itemNo,$quantity);
		if($isOK!=1)
		{#在庫不足
			
		}
		#▲
		#▼商品名と価額を得る
		my @logInfo = &GetLogInfoByID($itemNo);
		#▲
		if(@logInfo)
		{
			## 単価
			$logInfo[1]=int($logInfo[1]*(1+$pertax))if($taxkbStr eq '税込み');
			my $price = $logInfo[1];
			## 金額(数量×単価)
			my $totalprice = $quantity * $price;
			## 金額に対しての消費税
			my $totaltax	= 0;
			$totaltax = int($totalprice * $pertax) if ($taxkbStr eq '税抜き');

			my @record = ($itemNo,$logInfo[0],$quantity,$price,$totalprice,$totaltax,$attr1,$attr2,0,0,0);
			push(@records,\@record);

			## 小計、消費税に加算
			$sumPrice += $totalprice;
			$sumTax += $totaltax;
		}
	}
	#▲

	#▼送料を計算
	my $postage;
	#合計金額(消費税含む)が送料無料下限値より小さい場合、送料を計算
#	if($sumPrice < &LoadInfoKey('$farefree')) {
	if(($sumPrice+$sumTax) < &LoadInfoKey('$farefree')) {
		#送料設定区分を取得
		&getFarekbStr();
		if($farekb == 1)
		{#一律
			$postage = &LoadInfoKey('$fare');
		}
		elsif($farekb == 2)
		{#都道府県別送料を計算
			my $prefName = $pre_name;
			$prefName = $pre_name2 if($pre_name2);
			$postage = &getFarebyPre($prefName);
		}
	} else {
		#送料無料
		$postage = 0;
	}
	#▲

	#▼手数料を計算
	my $payment_fee = &GetPaymentFee($payment);
	#▲

	#▼購買者と注文を登録
	my ($ok, $newID);
	#注文完了後、戻るボタンで戻り、再度送信した場合は、購買者情報を記録しない
	if (@$cookieArray_ref > 0) {
		my @customInfo =($email,$cname,$addr11,$addr12,$postcode,$pre_name,
									$phone,$payment,$postage,$payment_fee,$taxkbStr,
									$pertax,$sumPrice,$sumTax,$note,$cname2,
									$addr21,$addr22,$postcode2,$pre_name2,$phone2,$orderDate,0,0,0,0);
#&debuglog("customInfo = @customInfo");

		#購買者情報を記録する
		($ok, $newID) = &AppendOrderRecord(\@customInfo);
#	&debuglog("ok = $ok");
#	&debuglog("newID = $newID");

		#購買者情報の記録に成功していたら
		if ($ok > 0) {
			my @newRecords;
			my $subID = 0;
			foreach(@records)
			{
				$subID++;
				my @newRecord = ($newID,$subID);
				foreach(@$_)
				{
					push(@newRecord,$_);
				}
				push(@newRecords,\@newRecord);
			}
			#商品情報を記録する
			&AppendOrderItemRecord(\@newRecords);
		}
		#購買者にメールを送る
		my $autoremailkb = &LoadInfoKey('$autoremailkb');
		&send_order_mail($email,\@records,\@customInfo)if($autoremailkb eq 1);
	}
	#▲
	
	#▼すべてのクッキを削除
	&DelLogInCookieCart();
	
#@	print $template->output();
	print tmpl_output();

}#SaveOrder

##----------------------------------------------------------------------------------------------##
## 購入商品の取消
##----------------------------------------------------------------------------------------------##
sub DelOrder
{
	my $cookieNM = $cgi->param('cookieNM');
	
	DelLogInCookieCart($cookieNM);
	
	&PrintCartConfirm('00',$cookieNM);
}

##----------------------------------------------------------------------------------------------##
## メール送信
##----------------------------------------------------------------------------------------------##
sub send_order_mail
{


	my ($mailaddr,$orderList_ref,$custInfo_ref) = @_;
	my $sendmailPath = &LoadInfoKey('$sendmailPath');
	$orderemail = &LoadInfoKey('$orderemail');
	$taxkb = &LoadInfoKey('$taxkb');
	$pertax = &LoadInfoKey('$pertax');
	my $taxkbStr = &getTaxkbStr();
	
	my $kinkei=0;
	my $taxkei=0;
	my $soukei=0;

	my $mailheader = <<_END
To: $mailaddr
Bcc: $orderemail
From: $orderemail
Reply-To: $orderemail
Subject: 注文受付のお知らせ
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

_END
;
	$mailheader .= "ご注文いただきましてありがとうございます。" . "\n\r";
	$mailheader .= "以下の内容にて受付いたしました。" . "\n\r";
	$mailheader .= "\n\r";
	$mailheader .= "折り返しこちらよりご連絡をさせて頂きます。" . "\n\r";
	$mailheader .= "銀行振込みをご選択なされたお客様は、" . "\n\r";
	$mailheader .= "下記口座へ合計金額（メールの最下部に御座います）のお振込みお願い致します。" . "\n\r";
	$mailheader .= "\n\r";
	$mailheader .= "［三菱東京ＵＦＪ銀行　赤羽駅前支店（当座）9014104］" . "\n\r";
	$mailheader .= "\n\r";
	$mailheader .= "Titan Cast イトコー(株) 埼玉県川口市元郷3-22-2" . "\n\r";
	$mailheader .= "(048-224-8401)(050-8881-7841)" . "\n\r";
	$mailheader .= "\n\r";
	$mailheader .= "[ご注文主情報]" . "\n\r";
	$mailheader .= "お名前　：" . @$custInfo_ref[1] . "\n\r";
	$mailheader .= "郵便番号：" . @$custInfo_ref[4] . "\n\r";
	$mailheader .= "都道府県：" . @$custInfo_ref[5] . "\n\r";
	$mailheader .= "住所１　：" . @$custInfo_ref[2] . "\n\r";
	$mailheader .= "住所２　：" . @$custInfo_ref[3] . "\n\r";
	$mailheader .= "電話番号：" . @$custInfo_ref[6] . "\n\r";
	$mailheader .= "E-MAIL　：" . @$custInfo_ref[0] . "\n\r";
	$mailheader .= "支払方法：" . @$custInfo_ref[7] . "\n\r";
	$mailheader .= "連絡事項：" . @$custInfo_ref[14] . "\n\r";
	$mailheader .= "\n\r";
	$soukei = $soukei + @$custInfo_ref[8];
	if (@$custInfo_ref[12])
	{
		$mailheader .= "[お届先情報]" . "\n\r";
		$mailheader .= "お名前　：" . @$custInfo_ref[15] . "\n\r";
		$mailheader .= "郵便番号：" . @$custInfo_ref[18] . "\n\r";
		$mailheader .= "都道府県：" . @$custInfo_ref[19] . "\n\r";
		$mailheader .= "住所１　：" . @$custInfo_ref[16] . "\n\r";
		$mailheader .= "住所２　：" . @$custInfo_ref[17] . "\n\r";
		$mailheader .= "電話番号：" . @$custInfo_ref[20] . "\n\r";
		$mailheader .= "\n\r";
	}
#	foreach(@$custInfo_ref)
#	{
#		$mailheader.= "$_\n\r";
#	}
	for(my $i=0;$i<@$orderList_ref;$i++)
	{
		my $record_ref = @$orderList_ref[$i];
		$mailheader .= "[ご注文明細]" . "\n\r";
		$mailheader .= "商品番号：" . @$record_ref[0] . "\n\r";
		$mailheader .= "商品名　：" . @$record_ref[1] . " " . @$record_ref[6] . " " . @$record_ref[7] . "\n\r";
		$mailheader .= "数量　　：" . @$record_ref[2] . "\n\r";

		#単価
		my $tanka = int(@$record_ref[3]);
		#金額(単価*数量)
		my $kingk = int(@$record_ref[4]);
		#消費税
		my $taxtmp = int(@$record_ref[5]);
		$mailheader .= "単価　　：" . &conertPrice2Str($tanka) . "円\n\r";
		$mailheader .= "金額　　：" . &conertPrice2Str($kingk) . "円\n\r";
		$mailheader .= "消費税　：" . $taxkbStr . "\n\r";
		$mailheader .= "\n\r";

#		foreach(@$record_ref)
#		{
#			$mailheader.= "$_\n\r";
#		}
	}

	$soukei = @$custInfo_ref[12] + @$custInfo_ref[13];

	$mailheader .= "[ご注文合計]" . "\n\r";
	$mailheader .= "金額計　　：" . &conertPrice2Str(@$custInfo_ref[12]) . "円\n\r";

	#消費税を表示
	if($taxkb eq 1)
	{#税抜き
		$mailheader .= "消費税　　：" . &conertPrice2Str(@$custInfo_ref[13]) . "円\n\r";
	}
	#手数料を表示
	if (@$custInfo_ref[9] != '' && @$custInfo_ref[9] > 0)
	{
		$mailheader .= "手数料　　：" . &conertPrice2Str(@$custInfo_ref[9]) . "円\n\r";
		$soukei += int(@$custInfo_ref[9]);
	}
	#送料を表示
	$mailheader .= "送料　　　：" . &conertPrice2Str(@$custInfo_ref[8]) . "円\n\r";
	$soukei += int(@$custInfo_ref[8]);

	$mailheader .= "総合計　　：" . &conertPrice2Str($soukei) . "円\n\r";


	open (MAIL, "| /usr/sbin/sendmail -t") || die "Couldn't open qmail-inject!";
	&jcode'convert(\$mailheader, 'jis');
	print MAIL $mailheader."\n\r";
	close (MAIL);
}

1;