#!/usr/bin/perl
#サーバーに合わせて(/usr/local/bin/perlなどに)設定。
#
###########################################################################
#
# Hal Shopping Cart System(shop_hal_proA3_4)
#
# スクリプト名：send.cgi(2003/2/28)
# 本スクリプトはハル・ネットワークスが書いたものです。
# 本スクリプトついての質問は下記へお願いします。
# info@hal9800.com http://www.hal9800.com/ 
#
# 2002/10/14 同じ頃に同じ商品を買うと在庫数が減らないバグを修正。
#
###########################################################################

####初期設定#######################

#トップページへのリンクを指定
$top="./frontpage.cgi";

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

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

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

#souryou.plへのパスを指定。
require './souryou.pl';

#mimew.pl
require './mimew.pl';

#基本設定読み込み
&config;

#地域別送料読み込み。
&souryou;

#ショップに届くメールのタイトル
$title='注文メール';

#ショップに届くメールのヘッダ
$mail_head='以下の注文をお受けしました。';

$text_bg="#ffffcc";#確認文の背景色
$text_border="#8fbc8f";#確認文のボーダーカラー


#テーブルカラー等はお好みに合わせて設定してください。
$table_bg_dark="#669966";#項目名の欄の背景色
$table_bg_dark2="#669966";#入力フォーム項目欄の背景色
$table_bg_light="#edf2db";#各項目表示部の背景色
$font2="#ffffff";#白文字

#######初期設定ここまで#################################################

#&decode;

$LENGTH=$ENV{'CONTENT_LENGTH'};
if($LENGTH>"4096"){&error("入力データが大きすぎます");}

	if($ENV{'REQUEST_METHOD'}eq"POST"){
		read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	}else { 
		$buffer = $ENV{'QUERY_STRING'}; 
	}

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

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

#	$value =~ s/&/&/g;
#	$value =~ s/</&lt;/g;
#	$value =~ s/>/&gt;/g;
#	$value =~ s/"/&quot;/g;
	$value =~ s/,/，/g;
	$value =~ s/\'/’/g;
	$value =~ s/\"/”/g;
	$value =~ s/\r\n/<br>/g;
	$value =~ s/\r/<br>/g;
	$value =~ s/\n/<br>/g;

	$in{$name} = $value;

	}

#商品記録ファイルを設定
$cart_id = $ENV{'REMOTE_ADDR'};
$cart = "$cart_dir/$cart_id.cart";

$mode = "$in{'mode'}";

$subtotal = "$in{'subtotal'}";
$tax = "$in{'tax'}";
$tesuryou = "$in{'tesuryou'}";
$souryou = "$in{'souryou'}";
$total = "$in{'total'}";

$namae = "$in{'namae'}";
$furigana =$_furigana= "$in{'furigana'}";
$post = "$in{'post'}";
$pref = "$in{'pref'}";
$address = "$in{'address'}";
$phone = "$in{'phone'}";
$email = "$in{'email'}";
$shiharai = "$in{'shiharai'}";
$comment = $comment2 = "$in{'comment'}";
#$comment =~ s/</&lt;/g;
#$comment =~ s/>/&gt;/g;
#$comment =~ s/\r\n/\n/g;
#$comment =~ s/\r/\n/g;
#$comment2 = $comment;
#$comment2 =~ s/\n/<br>/g;
$dat_mail = "$in{'dat_mail'}";
$dat_csv = "$in{'dat_csv'}";
$log = "$in{'log'}";
$namae2 = $_namae2="$in{'namae2'}";
$furigana2 =$_furigana2= "$in{'furigana2'}";
$post2 = $_post2="$in{'post2'}";
$pref2 = $_pref2="$in{'pref2'}";
$address2 = $_address2="$in{'address2'}";
$phone2 = $_phone2="$in{'phone2'}";
$kibou_m = "$in{'kibou_m'}";
$kibou_d = "$in{'kibou_d'}";
$kibou_t = "$in{'kibou_t'}";



#配送先の県名を得る
if ($pref2){$pref3="$pref2";}
else {$pref3="$pref";}

if ( $mode eq 'kakunin2' ) { &kakunin2; exit; }

if ($zaiko_kanri eq "ON"){
	&zaiko_check;
}

&sendmail1;

if($mailto2){&sendmail_add2;}

if($mailto3){&sendmail_add3;}

&sendmail2;

&csv;

if ($zaiko_kanri eq "ON"){
	&change_zaiko;
}

&del_cart;

if ($shiharai eq "クレジットカード"){&sent_credit;exit;}
else{&sent;exit;}

exit;

############################################################
#確認画面表示サブルーチン
############################################################


sub kakunin2{
if ($namae eq "") { &error("名前が入力されていません");}
if ($post eq "") { &error("郵便番号が入力されていません");}
if ($post !~ /^\d{3}-\d{4}$/) { &error("郵便番号の入力が不正です"); }
if ($pref eq "") { &error("県名が入力されていません");}
if ($address eq "") { &error("住所が入力されていません");}
if ($phone eq "") { &error("電話番号が入力されていません");}
if ($phone!~ /^\d{2,5}-\d{1,4}-\d{4}$/) { &error("電話番号は半角数字でハイフォンで区切って入力して下さい"); }
if ($email eq "") { &error("メールアドレスが入力されていません");}
if ($email =~ /\s|\,/) { &error("メールアドレスの入力が不正です");}
if ($email !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error("メールアドレスは半角で正しくご入力ください");}
#if ($email !~ /(.+)\@(.+)\.(.+)/) { &error("メールアドレスの入力が不正です");}

if ($shiharai eq "") { &error("支払方法が選択されていません");}


if ($post2){
   if ($post2 !~ /^\d{3}-\d{4}$/) { &error("お届け先郵便番号の入力が不正です"); }
}
if ($phone2) {
	if ($phone2!~ /^\d{2,5}-\d{1,4}-\d{4}$/) { &error("電話番号は半角数字でハイフォンで区切って入力して下さい"); }
}




	if (!$_furigana){$_furigana="--";}
	if (!$comment){$comment="--";}
	if (!$comment2){$comment2="--";}
	if (!$kibou_m){$kibou_m="--";}
	if (!$kibou_d){$kibou_d="--";}
	if (!$kibou_t){$kibou_t="--";}
	if (!$_namae2){$_namae2="--";}
	if (!$_furigana2){$_furigana2="--";}
	if (!$_post2){$_post2="--";}
	if (!$_pref2){$_pref2="--";}
	if (!$_address2){$_address2="--";}
	if (!$_phone2){$_phone2="--";}


open(CART,$cart) || &error("$cartを開けません");
@lines = <CART>;
close(CART);


#送信前に買い物カゴをチェック、空ならエラーを表示(2003/04/11)
#修正ここから

$count = @lines;

if ( $count==0 ) {

&header("Empty");

print <<"EOF";
<center>

<table border=0 cellpadding=0 cellspacing=0 width=500>
<tr><td height=2 bgcolor=#336699> </td></tr>


<tr><td align=center>
&nbsp;<br>
<font color=red style="font-size:$size;"><u>買い物かごの中が空です。</u></font><br>&nbsp;</td></tr>
<tr><FORM METHOD="POST" ACTION = "frontpage.cgi"><td align=center>
<INPUT TYPE = "submit" VALUE = "商品トップページに戻る"><br>&nbsp;
</td></tr>
<tr><td height=2 bgcolor=#336699> </td></tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF

&footer;

exit;

}

#修正ここまで


foreach $line (@lines){

      ($code,$category,$name,$price,$zaiko,$kazu,$option1,$option2,$option3) = split (/<>/, $line);
#      chop $option3;#行末を<>で終わるようにした(02/09/10)
	  $shoukei=$price*$kazu;
      #メール送信用および確認画面用商品データの処理
      $order1="[$category] $name $option1 $option2 $option3 $price円× $kazu＝ $shoukei円";
      push(@NEW1,$order1);

}

#確認画面用データ
$dat_kakunin=join("<br>",@NEW1);

#メール送信用データ
$dat_mail=join("\%",@NEW1);

#&get_date;

&header;

#買い物かごの中身を表示する
print <<"EOF";
    <CENTER>

<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
<tr><td colspan="2" height=2 bgcolor="#669966"> </td></tr>
<tr><td colspan="2" height=2> </td></tr>
<tr><td colspan="2" bgcolor="#669966" align="center"><font color="#ffffff"><b>$shop</b></font></td></tr>
<tr><td colspan="2" height=2> </td></tr>
<tr><td colspan="2" height=2 bgcolor="#669966"> </td></tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 width=675 cellpadding=0 cellspacing=0 bgcolor=#336699>

<tr><td align=left>
 &nbsp;<font color=#ffffff>●●●●●</font><font color=#ffffff><b>最終確認</b></font>
</td>
<td align=right>

<table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <FORM METHOD=\"POST\" ACTION = \"frontpage.cgi\">
  <td>
    <INPUT TYPE = "submit" VALUE = "買い物を続ける">
</td></tr></form></table>
</td></tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="5"><br><br>

以下の内容で送信いたします。ご確認の上注文ボタンを押してください。<br>
<img src="$img_dir/spacer.gif" width="14" height="5"><br>
<font color="#00cc00">▼</font><br>
<img src="$img_dir/spacer.gif" width="14" height="5"><br>

<table border=0 cellspacing=2 cellpadding=2 width=600>
    <tr><td colspan=5 bgcolor=#336633 align="center"><font color="#ffffff">お買い上げ商品</font></td></tr>
    <tr>
    <td bgcolor=$table_bg_dark align=center><font color=$font2>商品名</font></td>
    <td bgcolor=$table_bg_dark align=center><font color=$font2>備考</font></td>
    <td bgcolor=$table_bg_dark align=center width=60><font color=$font2>単価</font></td>
    <td bgcolor=$table_bg_dark align=center width=20><font color=$font2>数</font></td>
    <td bgcolor=$table_bg_dark align=center width=60><font color=$font2>金額</font></td>
    </tr>
EOF


foreach $line (@lines){

      ($code,$category,$name,$price,$zaiko,$kazu,$option1,$option2,$option3) = split (/<>/, $line);
      $unit_subtotal = int($price*$kazu);
      $subtotal = $subtotal+$unit_subtotal;

print <<"EOF";
      <TR>
      <TD ALIGN = \"center\" bgcolor=$table_bg_light>$name</TD>
      <TD bgcolor=$table_bg_light>$option1&nbsp;$option2&nbsp;$option3</TD>
      <TD bgcolor=$table_bg_light align=right>\\$price</TD>
      <TD bgcolor=$table_bg_light align=right>$kazu</TD>
      <TD bgcolor=$table_bg_light align=right>\\$unit_subtotal</TD>
      </TR>
EOF

}

#送料処理
if ($souryou_type eq 2){
   if ($muryou eq 0){$souryou=$souryou_list{"$pref3"};}
   else{
      if ($subtotal>=$muryou) {$souryou=0;} else {$souryou=$souryou_list{"$pref3"};}
   }
}else { 
   if ($muryou eq 0){$souryou=$souryou_same;}
   else{
      if ($subtotal>=$muryou) {$souryou=0;} else {$souryou=$souryou_same;}
   }
}


#if ($souryou_type eq 2){
#   
#   if ($subtotal>=$muryou) {$souryou=0;} else {$souryou=$souryou_list{"$pref"};#}
#}else{
#
#   if ($subtotal>=$muryou) {$souryou=0;} else {$souryou=$souryou;}
#
#}

$tax = int($tax_rate*$subtotal/100);


$tesuryou=0;

#代引き手数料処理
if ($shiharai eq "代金引換"){
   	if ($subtotal < $daihiki_limit) {
		$tesuryou=$daihiki_charge;
	} 
}

#コンビニ手数料処理
if ($shiharai eq "コンビニ決済"){
   	if ($subtotal < $conv_limit) {
		$tesuryou=$conv_charge;
	} 
}



#クロネコペイメント/eコレクト手数料処理

$total_kuro= $subtotal+$tax+$souryou;

if ($shiharai eq "クレジットカード"){
	if ($subtotal<$kuro_limit){
		if ($kuro_type eq "1"){
			$tesuryou=$kuro_charge;
		}else{
   			$tesuryou=int($kuro_rate*$total_kuro/100);
		}
	}
}

#eコレクト手数料処理
if ($shiharai eq "e-コレクト"){
	if ($subtotal<$ecol_limit){
		if ($ecol_type eq "1"){
			$tesuryou=$ecol_charge;
		}else{
   			$tesuryou=int($ecol_rate*$total_kuro/100);
		}
	}
}


$total= $subtotal+$tax+$souryou+$tesuryou;

print <<"EOF";
<tr><td colspan=5 height=1 bgcolor=#336633> </td></tr>
<tr>
<td colspan=4 bgcolor=$table_bg_light align=right>小計</td>
<td bgcolor=$table_bg_light align=right>\\$subtotal</td>
</tr>
<tr>
<td  colspan=4 bgcolor=$table_bg_light align=right>消費税</td>
<td bgcolor=$table_bg_light align=right>\\$tax</td>
</tr>
<tr>
<td  colspan=4 bgcolor=$table_bg_light align=right>送料</td>
<td bgcolor=$table_bg_light align=right>\\$souryou</td>
</tr>
<tr>
<td  colspan=4 bgcolor=$table_bg_light align=right>手数料</td>
<td bgcolor=$table_bg_light align=right>\\$tesuryou</td>
</tr>
<tr><td colspan=5 height=2 bgcolor=#336633> </td></tr>
<tr><td> </td>
<td  colspan=3 align=right>合計</td>
<td align=right><font color=red><b>\\$total</b></font></td>
</tr>
<tr><td colspan=5 height=2 bgcolor=#336633> </td></tr>
</table>

EOF

print <<"EOF";

<center>
<img src="$img_dir/spacer.gif" width="14" height="5"><br>

<font color="#00cc00">▼</font><br>


<img src="$img_dir/spacer.gif" width="14" height="5"><br>


<table border=0 cellpadding=5 cellspacing="2" width=400>
<form action=\"./send.cgi\" method=post>
<tr><td bgcolor=#336633 colspan="2" align="center"><font color="#ffffff">お客様情報</font></td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>お名前</font></td><td bgcolor=$table_bg_light>$namae様</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>ふりがな</font></td><td bgcolor=$table_bg_light>$_furigana様</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>郵便番号</font></td><td bgcolor=$table_bg_light>$post</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>都道府県</font></td><td bgcolor=$table_bg_light>$pref</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>ご住所</font></td><td bgcolor=$table_bg_light>$address</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>電話番号</font></td><td bgcolor=$table_bg_light>$phone</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>Email</font></td><td bgcolor=$table_bg_light>$email</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>コメント</font></td><td bgcolor=$table_bg_light>$comment2</td></tr>
<tr><td bgcolor=#336633 colspan="2" align="center"><font color="#ffffff">支払方法</font></td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>支払い方法</font></td><td bgcolor=$table_bg_light>$shiharai</td></tr>
<tr><td bgcolor=#336633 colspan="2" align="center"><font color="#ffffff">配送希望日時</font></td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>配送希望日</font></td><td bgcolor=$table_bg_light>$kibou_m月$kibou_d日</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>配送希望時間</font></td><td bgcolor=$table_bg_light>$kibou_t</td></tr>
<tr><td bgcolor=#336633 colspan="2" align="center"><font color="#ffffff">お届け先</font></td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>お名前</font></td><td bgcolor=$table_bg_light>$_namae2様</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>ふりがな</font></td><td bgcolor=$table_bg_light>$_furigana2様</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>郵便番号</font></td><td bgcolor=$table_bg_light>$_post2</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>都道府県</font></td><td bgcolor=$table_bg_light>$_pref2</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>住所</font></td><td bgcolor=$table_bg_light>$_address2</td></tr>
<tr><td align=right bgcolor=$table_bg_dark2 width=120><font color=$font2>電話番号</font></td><td bgcolor=$table_bg_light>$_phone2</td></tr>
</table><br>
<INPUT TYPE="submit" VALUE="注文する"><br><br>
<A HREF="javascript:history.back()"><u>前の画面に戻る</u></A><br>

</center>

EOF

print << "EFG";
<center>
<INPUT TYPE="hidden" NAME="mode" value="send">
<INPUT TYPE="hidden" NAME="subtotal" value="$subtotal">
<INPUT TYPE="hidden" NAME="tax" value="$tax">
<INPUT TYPE="hidden" NAME="tesuryou" value="$tesuryou">
<INPUT TYPE="hidden" NAME="souryou" value="$souryou">
<INPUT TYPE="hidden" NAME="total" value="$total">
<INPUT TYPE="hidden" NAME="namae" value="$namae">
<INPUT TYPE="hidden" NAME="furigana" value="$furigana">
<INPUT TYPE="hidden" NAME="post" value="$post">
<INPUT TYPE="hidden" NAME="pref" value="$pref">
<INPUT TYPE="hidden" NAME="address" value="$address">
<INPUT TYPE="hidden" NAME="phone" value="$phone">
<INPUT TYPE="hidden" NAME="email" value="$email">
<INPUT TYPE="hidden" NAME="namae2" value="$namae2">
<INPUT TYPE="hidden" NAME="furigana2" value="$furigana2">
<INPUT TYPE="hidden" NAME="post2" value="$post2">
<INPUT TYPE="hidden" NAME="pref2" value="$pref2">
<INPUT TYPE="hidden" NAME="address2" value="$address2">
<INPUT TYPE="hidden" NAME="phone2" value="$phone2">
<INPUT TYPE="hidden" NAME="shiharai" value="$shiharai">
<INPUT TYPE="hidden" NAME="comment" value="$comment">
<INPUT TYPE="hidden" NAME="kibou_m" value="$kibou_m">
<INPUT TYPE="hidden" NAME="kibou_d" value="$kibou_d">
<INPUT TYPE="hidden" NAME="kibou_t" value="$kibou_t">
<INPUT TYPE="hidden" name="dat_mail" value="$dat_mail">
</center>
</FORM>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EFG

&footer;

}



##############################
#在庫数再チェックサブルーチン#
##############################

sub zaiko_check{

@lines=();
@goods=();

open(DATA,"$datafile") || &error("データファイルを開けません");
@lines = <DATA>;
close(DATA);

open(CART,$cart) || &error("カートファイルを開けません");
@goods = <CART>;
close(CART);

foreach $line (@lines){
    ($database_id,$category,$name,$price,$zaiko,$description,$shohinpage,$picture,$option1,$option2,$option3)=split(/,/,$line);
    $description =~ s/\n//g;
#    chop $option3;#行末を<>で終わるようにした(02/09/08)
    foreach $goods (@goods){
	($t_code,$t_category,$t_name,$t_price,$t_zaiko,$t_kazu,$t_option1,$t_optin2,$t_optin3) = split(/<>/,$goods);
#	chop $t_option3;#行末を<>で終わるようにした(02/09/10)
		if($database_id eq $t_code){

           if ($zaiko ne OK && $zaiko<$t_kazu){&zaiko_error("\"$t_name\"の在庫数に不足が生じました。");}

		}
	}
}

}


##################################################
#CSVデータ処理サブルーチン
##################################################

sub csv{

&get_date;

#########################
#購買商品データ更新処理
#########################

open(SHOHIN,"$logfile2") || &error("$logfile2を開けません");
@shohins = <SHOHIN>;
close(SHOHIN);

($s_no,$s_serial,$s_date,$s_year,$s_mon,$s_code,$s_shohin,$s_kazu,$s_sum,$s_namae,$s_email) = split(/,/,$shohins[0]);

$count=$s_no;

open(CART,$cart) || &error("$cartを開けません");
@lines = <CART>;
close(CART);

foreach $line (@lines){
      $count++;
      ($code,$category,$shohin,$price,$zaiko,$kazu,$option1,$option2,$option3) = split (/<>/, $line);
#      chop $option3;#行末を<>で終わるようにした(02/09/10)
      $sum=$price*$kazu;
      $work="$count,$serial,$date,$year,$mon,$code,$shohin$option1$option2$option3,$kazu,$sum,$namae,$email,\n";#行末に「,」を挿入(02/09/10)
      unshift(@shohins,$work);
  }

&lock;
open(SHOHIN,"+< $logfile2") || &error("データファイルに書き込めません","unlock");
truncate(SHOHIN,0);
seek(SHOHIN,0,0);
print SHOHIN @shohins;
close(SHOHIN);
&unlock;

#########################
#顧客データ更新処理
#########################
open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

@new=();

$exist=0;

foreach $log (@logs){
   $flag=0;
   ($c_serial,$c_date,$c_namae,$c_post,$c_pref,$c_address,$c_phone,$c_email,$c_subtotal) = split(/,/,$log);
#   chop $c_subtotal;

      if($email eq $c_email){
           $flag=1;
           $exist=1;
           $subtotal=$subtotal+$c_subtotal;
	   $cdata = "$serial,$date,$namae,$post,$pref,$address,$phone,$email,$subtotal,\n";
           unshift(@new,$cdata);
      }

      if ($flag==0){
           unshift(@new,$log);
      }

  }

if ($exist==0){
   $cdata3 = "$serial,$date,$namae,$post,$pref,$address,$phone,$email,$subtotal,\n";
   unshift(@new,$cdata3);
  }

&lock;
open(LOG, "+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @new;
close(LOG);
&unlock;

}

######################################################
#メール送信サブルーチン
######################################################

sub sendmail1 {

open(CART,$cart) || &error("$cartを開けません");
close(CART);

&get_date;

$order_date="$year\/$w_mon\/$w_mday ($hour:$min)";
$order_no=$w_mday.$hour.$min.$sec.$$;

	if (!$_furigana){$_furigana="--";}
	if (!$_namae2){$_namae2="--";}
	if (!$_furigana2){$_furigana2="--";}
	if (!$_post2){$_post2="--";}
	if (!$_pref2){$_pref2="--";}
	if (!$_address2){$_address2="--";}
	if (!$_phone2){$_phone2="--";}


$comment2 =~ s/<br>/\n/g;

$dat_mail=~ s/%/\n/g;
#$dat_mail=~ s/<br>/\n/g;
#&jcode'convert(*dat_mail,'jis');

$mail_data1 = <<END;
To: $mailto
From: $email
Subject: $title
Content-Type: text/plain; charset=iso-2022-jp

END

&jcode'convert(*mail_data1,'jis');

$mail_data2 = <<END;
------------------------------------------------------------
受付日時：[$order_date]                注文番号：[$order_no]
------------------------------------------------------------
●お買い上げ商品
============================================================
$dat_mail
------------------------------------------------------------
▼小計：$subtotal円
▼消費税：$tax円
▼送料：$souryou円
▼手数料：$tesuryou円
▼合計：$total円
============================================================
●お客様情報
------------------------------------------------------------
お名前：$namae様
フリガナ：$_furigana様
郵便番号：$post
都道府県：$pref
ご住所：$address
電話番号：$phone
メール： $email
コメント：$comment2
------------------------------------------------------------
●支払方法：$shiharai
------------------------------------------------------------
●配送希望日時
------------------------------------------------------------
配送希望日：$kibou_m月$kibou_d日
配送希望時間：$kibou_t
------------------------------------------------------------
●お届け先
------------------------------------------------------------
お名前：$_namae2様
フリガナ：$_furigana2様
郵便番号：$_post2
都道府県：$_pref2
ご住所：$_address2
電話番号：$_phone2
============================================================
END

&jcode'convert(*mail_data2,'jis');
&jcode'convert(*mail_head,'jis');

#送信
if(!open(MAIL, "| $sendmail_script -t")){&error('sendmail起動エラー：メール送信に失敗しました');}
print MAIL "$mail_data1\n";
print MAIL "$mail_head\n";
print MAIL "$mail_data2\n";
close(MAIL);


}

#メール送信２ヶ所目
sub sendmail_add2{

$add_mail2 = <<END;
To: $mailto2
From: $email
Subject: $title
Content-Type: text/plain; charset=iso-2022-jp

END

&jcode'convert(*add_mail2,'jis');

#送信
if(!open(MAIL, "| $sendmail_script -t")){&error('sendmail起動エラー：メール送信に失敗しました');}
print MAIL "$add_mail2\n";
print MAIL "$mail_head\n";
print MAIL "$mail_data2\n";
close(MAIL);

}


#メール送信３ヶ所目

sub sendmail_add3{

$add_mail3 = <<END;
To: $mailto3
From: $email
Subject: $title
Content-Type: text/plain; charset=iso-2022-jp

END

&jcode'convert(*add_mail3,'jis');

#送信
if(!open(MAIL, "| $sendmail_script -t")){&error('sendmail起動エラー：メール送信に失敗しました');}
print MAIL "$add_mail3\n";
print MAIL "$mail_head\n";
print MAIL "$mail_data2\n";
close(MAIL);

}


################
#確認メール送信#
################

sub sendmail2 {

$from="$sender<$mailto>";
$from = mimeencode($from);
$subject = mimeencode($subject);


$mail_data3 = <<END;
To: $email
From: $from
Subject: $subject
Content-Type: text/plain; charset=iso-2022-jp

END
#&jcode'convert(*mail_data3,'jis');
&jcode'convert(*thanks1,'jis');
&jcode'convert(*thanks2,'jis');


#送信
if(!open(MAIL, "| $sendmail_script -t")){&error('sendmail起動エラー：メール送信に失敗しました');}
print MAIL "$mail_data3\n";
print MAIL "$thanks1\n";
print MAIL "$mail_data2\n";
print MAIL "$thanks2\n";
close(MAIL);

}

############################################################
#在庫更新サブルーチン
############################################################

sub change_zaiko{

@lines=();
@new=();

open(DATA,"$datafile") || &error("データファイルを開けません");
@lines = <DATA>;
close(DATA);

open(CART,$cart) || &error("カートファイルを開けません");
@goods = <CART>;
close(CART);

foreach $line (@lines){
    ($database_id,$category,$name,$price,$zaiko,$description,$shohinpage,$picture,$option1,$option2,$option3)=split(/,/,$line);
    $description =~ s/\n//g;
#    chop $option3;#行末を<>で終わるようにした(02/09/08)
    $flag=0;
    foreach $goods (@goods){
	($t_code,$t_category,$t_name,$t_price,$t_zaiko,$t_kazu,$t_option1,$t_option2,$t_option3) = split(/<>/,$goods);
#	chop $t_option3;#行末を<>で終わるようにした(02/09/10)
	if($database_id eq $t_code){
           $flag=1;
           if ($zaiko eq 'OK'){$new_zaiko=$zaiko;}
           else{$new_zaiko=$zaiko-$t_kazu;}
	   $data1 = "$database_id,$category,$name,$price,$new_zaiko,$description,$shohinpage,$picture,$option1,$option2,$option3,EOD\n";
           push(@new,$data1);
           last;
        }
     }


    if (!$flag==1){

		push(@new,$line);

    }

}

#@new = sort(@new);

&lock;
open(DATA,"+< $datafile") || &error("$datafileに書き込めません","unlock");
truncate(DATA,0);
seek(DATA,0,0);
print DATA @new;
close(DATA);
&unlock;

}

##################################################
#買い物かご消去
##################################################

sub del_cart {

#open (TEMP, ">$tempfile") || &open_error($tempfile);
#close (TEMP);
#rename ($tempfile, $cart);
#chmod 0777, $cart;

unlink($cart);
}

##################################################
#送信完了メッセージ
##################################################

sub sent{

print "Content-type: text/html\n";
&setcookie;
print "\n";
print "<HTML><HEAD><META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
print "<TITLE>送信完了</TITLE>\n";

print << "EOM";
<style type="text/css">
<!--

  body,tr,td{font-size: $size; color:$font;
}

  a:link    {font-size: $size; text-decoration:none; color:$link ;}
  a:visited {font-size: $size; text-decoration:none; color:$vlink ;}
  a:active  {font-size: $size; text-decoration:none; color:$alink ;}
  a:hover   {font-size: $size; text-decoration:underline; color:$hlink ;}

-->
</style>
</head>
<body text=$font bgcolor=$bgcolor>
<center><hr width='75%' color=\"#336699\">
<table border=0 width=400><tr><td><center>
<font color=\"RED\">送信完了</FONT></center><BR>
ご注文ありがとうございました。$email宛てに確認メールを送信いたしました。<br><br>
買い物カゴは消去しました。<font color=red><u>買い物を続ける場合はいったんトップページにお戻りください。</u></font><br><br>
<center>&gt;&gt;<a href=$top>トップページに戻る</a><br>
</center></td></tr></table>
<hr width='75%' color=\"#336699\"></center></body></html>

EOM
}


#クロネコペイメント用送信完了画面
sub sent_credit{
print "Content-type: text/html\n";
&setcookie;
print "\n";
print "<HTML><HEAD><META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
print "<TITLE>送信完了</TITLE>\n";

print << "EOM";
<style type="text/css">
<!--

  body,tr,td{font-size: $size; color:$font;
}

  a:link    {font-size: $size; text-decoration:none; color:$link ;}
  a:visited {font-size: $size; text-decoration:none; color:$vlink ;}
  a:active  {font-size: $size; text-decoration:none; color:$alink ;}
  a:hover   {font-size: $size; text-decoration:underline; color:$hlink ;}

-->
</style>
</head>
<body text=$font bgcolor=$bgcolor>
<center><hr width='75%' color=\"#336699\"><br>
<font size=\"3\"color=\"RED\">送信完了</FONT><BR><br>
<table border=0 width=400><tr><td>
ご注文ありがとうございました。$email宛てに確認メールを送信いたしました。
</td></tr></table><br>

<!------------クロネコ＠ペイメントへのリンク------------->
<FORM NAME="UserForm" ACTION="https://〜 " METHOD="post" target="_blank">
<INPUT TYPE="hidden" NAME="TRS_MAP" VALUE="L_TEST">
<INPUT TYPE="hidden" NAME="trader_code" VALUE="">
<INPUT TYPE="hidden" NAME="order_no" VALUE="$order_no">
<INPUT TYPE="hidden" NAME="goods_name" VALUE="注文メールにて通知済">
<INPUT TYPE="hidden" NAME="settle_price" VALUE="$total"> 
<INPUT TYPE="hidden" NAME="buyer_name_kanji" VALUE="$namae">
<INPUT TYPE="hidden" NAME="buyer_tel" VALUE="$phone">
<INPUT TYPE="hidden" NAME="buyer_email" VALUE="$email">

<CENTER><FONT COLOR="#FF00FF">続けてクロネコ＠ペイメントの決済手続きを行ってください。</FONT><BR><br>
（注文番号は$order_noです。確認メールに記されています。）
<br><br>
<font color=#ff6600>★</font>クロネコ＠ペイメントから送られてくるURLと加盟店コードを設定する必要があります。<br><br>
<INPUT TYPE="submit" VALUE="決済手続きへ"></CENTER>
</FORM>
<!-------------------------------------------------------->

&gt;&gt;<a href=$top>トップページに戻る</a><br>
<hr width='75%' color=\"#336699\"></center></body></html>

EOM

}


#他のクレジット決済用
sub sent_credit_old{

print "Content-type: text/html\n";
&setcookie;
print "\n";
print "<HTML><HEAD><META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
print "<TITLE>送信完了</TITLE>\n";

print << "EOM";
<style type="text/css">
<!--

  body,tr,td{font-size: $size; color:$font;
}

  a:link    {font-size: $size; text-decoration:none; color:$link ;}
  a:visited {font-size: $size; text-decoration:none; color:$vlink ;}
  a:active  {font-size: $size; text-decoration:none; color:$alink ;}
  a:hover   {font-size: $size; text-decoration:underline; color:$hlink ;}

-->
</style>
</head>
<body text=$font bgcolor=$bgcolor>
<center><hr width='75%' color=\"#336699\">
<font size=\"4\"color=\"RED\">送信完了</FONT><BR><br>
<table border=0 width=400><tr><td>
ご注文ありがとうございました。$email宛てに確認メールを送信いたしました。<br><br>
買い物カゴは消去しました。<font color=red><u>買い物を続ける場合はいったんトップページにお戻りください。</u></font><br><br>
引き続きクレジットカード決済をお済ませください。<BR>
(注)ご契約のクレジット決済会社へのリンクを張リます。
</td></tr></table>
<FORM METHOD="POST" ACTION="https://***********" TARGET="_top">
<INPUT TYPE="hidden" NAME="send" VALUE="cardsv">
<INPUT TYPE="hidden" NAME="clientip" VALUE="******">
<INPUT TYPE="hidden" NAME="money" VALUE="$total">
<INPUT TYPE="submit" VALUE="決済ページへ">
</FORM>

&gt;&gt;<a href=$top>トップページに戻る</a><br>
<hr width='75%' color=\"#336699\"></center></body></html>

EOM

}

#顧客情報クッキー発行
sub setcookie {

  ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg)
                                         = gmtime(time + 365*24*60*60);

  @mong  = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
  @weekg = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');

  $date_gmt = sprintf("%s, %02d\-%s\-%04d %02d\:%02d\:%02d GMT",
              $weekg[$wdayg],$mdayg,$mong[$mong],$yearg+1900,$hourg,$ming,$secg);

  $cook = "namae\:$namae\,furigana\:$furigana\,post\:$post\,address\:$address\,phone\:$phone\,email\:$email\,pref\:$pref,shiharai\:$shiharai\,namae2\:$namae2\,furigana2\:$furigana2\,post2\:$post2\,address2\:$address2\,phone2\:$phone2\,pref2\:$pref2";

  print "Set-Cookie: SHOP_HAL_PROA=$cook; expires=$date_gmt\n";
}


sub zaiko_error{

&header;
print<<"EOF";
<br>
<center>
<hr size=2 color=#336699 width=75%><br>
<font color=red>$_[0]</font><br><br>
商品トップページに戻って、改めて買い物を始めてください。<br><br>
<A HREF="$top">商品トップに戻る</A><br>
<hr size=2 color=#336699 width=75%>
</center>
EOF
&footer;
exit;
}