#!/usr/local/bin/perl

#===========================================================
#個人情報
#===========================================================
sub acceptorder_001
{
$mailbd_orderinfo = <<END_OF_DATA;
■送り先
郵便番号：$recieve_yubin
都道府県：$prefecture
市町村　：$recieve_adrs1
番地　　：$recieve_adrs2
お名前　：$recieve_name　様
電話番号：$recieve_tel
■\お\申\込\者
メール　：$order_email
住所１　：$order_adrs1
住所２　：$order_adrs2
お名前　：$order_name　様
電話番号：$order_tel
END_OF_DATA
         
if (($paymethod >= 2) && ($paymethod <= 3)) {
  #振込
  $mailbd_orderinfo .= <<END_OF_DATA;
お支払い方法：$paymes[$paymethod]
\お\振\込\先\名\義：$meigi　様
END_OF_DATA

} elsif ($paymethod == 4) {
  #クレジットカード
  $mailbd_orderinfo .= <<END_OF_DATA;
お支払い方法：$paymes[$paymethod]
カード種類：$cardcp
END_OF_DATA

} else {
  #代引
  $vprice = formatPrice($mpay + $mpaytax);
  $mailbd_orderinfo .= <<END_OF_DATA;
お支払い方法：$paymes[$paymethod]
代引手数料(税込)：$vprice円
END_OF_DATA
}

#配達希望日と備考
$mailbd_orderinfo .= <<END_OF_DATA;
配達希望日　：$delidate
配達日時指定：$delit1012,$delit1214,$delit1416,$delit1618,$delit1820,$delit2022
備考：$request
END_OF_DATA

$mailbd_orderinfo .= <<END_OF_DATA;
お知らせ：$info_msg
お客様のポイント番号：$pid_pointid 現在$pid_pnumＰｔ ($pid_view)
END_OF_DATA
#
#フッタ部分はシングルクォートで囲むことで、例外文字を区別しない
$mailbd_orderinfo .= "\n";
$mailbd_orderinfo .= <<'END_OF_DATA';
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
輸入食品と雑貨のオンラインショップ・ジャスミン
HP http://www.jas-min.com
E-mail info@jas-min.com
END_OF_DATA
}
1;