";
print "
$reji
\n";
# ファイルデータを配列へ
print "
\n";
if($mk == 1){
print "";
}
else{
print " ";
}
print "【HOME】 \n";
if($pages_num > 1){
print "\n";
print "【";
for($i = 1;$i<=$pages_num;$i++){
if($i == $MYDATA{'pageNum'}){
print " $i \n";
}
else{
print " ";
print "$i \n";
}
}
$cur = ($MYDATA{'pageNum'} - 1) * $pageMax;
print "】 \n";
}
print "全部で$item_Max件
\n";
print "
\n";
#####################
# テンプレート2
#####################
for($i=0;$i<$cur;$i++){
Se::Fetch();
}
$i = 0;
while ( Se::Fetch($v_num,$goods_id,$name,$colors,$price,$omosa,$picture1,$picture2,$picture3,$template,$memo,$memo2,$dt13,$dt13_1,$dt15,$dt15_1,$dt17,$dt18,$itiran_pic) == 0 ) {
if ($i >= $pageMax){
last;
}
$price_ = $price;
&comma($price_);
$selectgoods= "
0
1
2
3
4
5
6
7
8
9
10
11
12
";
print "
\n";
print "\n";
$i++;
}
print "
$reji
";
print "
\n";
print "
$copyright \n";
&option;
close DB;
©
}
#--------------------------#
# カートディスプレイ詳細 #
#--------------------------#
elsif($cart eq "s"){
#ページヘッダ
($page_title,$logo_path,$pic_dir,$haikei) = split(/:=:/,
);
if($haikei ne ""){
$setting = "";
}
else{
$setting = "";
}
&top($page_title);
#***************************##店ロゴ
if ($mk == 1){
print "\n";
print "
\n";
}
else{
print " \n";
print "
\n";
}
print " \n";
#****************************##
if($logo_path ne ""){
print " \n";
}
else{
print "$page_title \n";
}
print " \n";
#詳細
Se::DBOpen("MAIN", "$fileDir$page_id.csv");
Se::Execute("SELECT * FROM MAIN WHERE dt2 = \"$goods\"");
while ( Se::Fetch($v_num,$goods_id,$name,$colors,$price,$omosa,$picture1,$picture2,$picture3,$template,$memo,$memo2,$dt13,$dt13_1,$dt15,$dt15_1,$dt17,$dt18) == 0 ) {
if ($goods_id eq $goods){
if ($template == 1){
&s_template1;
}
last;
}
}
$reji;
©
}
#--------------------------#
# 商品注文 #
#--------------------------#
if ($cart eq "レジに行く") {
✓
# if ($MYDATA{'tiku'} eq ""){
# &error ("未選択エラー","地区を選択してください。","BACK");
# exit;
# }
print "Content-type: text/html\n\n";
print "オートライフ $setting\n";
print "";
print "ご注文商品明細 \n";
print " ";
print "\n";
©
}
#--------------------------#
# メール確認 #
#--------------------------#
if ($cart eq reg) {
open READ,";
close READ;
foreach (@lines) {
if (/(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*)/) {
$email_c = $1;
if ($memo_mail eq $email_c) {
$email = $1;
$regname = $2;
$zip = $3;
$add = $4;
$tel = $5;
$fax = $6;
}
}
}
&pass;
}
sub pass {
✓
&conv;
# 記入漏れチェック
if ($regname eq "" || $email eq "" || $add11 eq "" || $tel eq "" || $shiharai eq "") {
&error("ERROR","記入漏れがあります","BACK");
exit;
}
print "Content-type: text/html\n\n";
print "オートライフ $setting\n";
print "\n";
print "";
print "";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print "\n ";
print <<"HTML_REG";
ご注文者
氏名
$regname
郵便番号
$zip
住所
$add11 $add12 $add13
電話番号
$tel
E-Mail
$email
お支払い方法
$shiharai
連絡事項
$comment
お届け先
氏名
$regname2
郵便番号
$zip2
住所
$add21 $add22 $add23
電話番号
$tel2
@上記内容の控えのメールがお客様宛に自動送信されます。ご注文控えがお手元に届かない場合はお客様のメールアドレスの間違いが考えられますので再度ご注文下さい。
A折り返し納期のご連絡をいたしておりますが、2営業日が過ぎても連絡が無い場合はお問い合わせ下さい。
HTML_REG
print " \n";
print " \n";
print " \n";
print "\n";
print " \n";
©
exit;
}
#--------------------------#
# メール送信 #
#--------------------------#
if ($cart eq reg_send) {
## 記入漏れチェック
#if ($regname eq "" || $email eq "" || $add11 eq "" || $tel eq "" ) {
#
# &error("ERROR","記入漏れがあります","BACK");
#
#exit;
#}
unless ($email =~ /.+\@.+\..+/) {
&error2("ERROR","メールアドレスをご確認ください。","BACK");
}
if( open(MAIL,"| /usr/sbin/sendmail $user")) {
&conv;
print MAIL "From: $email\n";
print MAIL "Subject: $subject\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL " ご注文主の情報\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "ご注文No. = $id\n";
print MAIL "お名前 = $regname\n";
print MAIL "電子メール = $email\n";
print MAIL "郵便番号1 = $zip\n";
print MAIL "ご住所1 = $add11\n";
print MAIL "ご住所2 = $add12\n";
print MAIL "ご住所3 = $add13\n";
print MAIL "お電話1 = $tel\n";
print MAIL "お支払方法 = $shiharai\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "連絡事項\n";
print MAIL "$comment\n";
print MAIL "__end__\n";
if ($regname2 ne "") {
print MAIL "---------------------------------------------------------------\n";
print MAIL " お届け先の情報\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "お名前2 = $regname2\n";
print MAIL "郵便番号2 = $zip2\n";
print MAIL "ご住所21 = $add21\n";
print MAIL "ご住所22 = $add22\n";
print MAIL "ご住所23 = $add23\n";
print MAIL "お電話2 = $tel2\n";
}
print MAIL "---------------------------------------------------------------\n";
print MAIL " 商品情報 \n";
print MAIL "---------------------------------------------------------------\n";
open IN, ";
close IN;
foreach (@lines) {
if (/(\w*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*)/) {
$goods_id = $1;
$name = $2;
$price = $3;
$kazu = $4;
$iro = $5;
$vali1 = $6;
$vali2 = $7;
$omosa = $8;
$subtotal = $price * $kazu;
++$cnt;
print MAIL "商品 = $cnt;$name;$price;$kazu;$subtotal;";
if ($iro ne ""){
print MAIL "$iro";
}
if ($vali1 ne ""){
print MAIL ":$vali1";
}
if ($vali2 ne ""){
print MAIL ":$vali2";
}
print MAIL "\n";
print MAIL "商品名 $cnt $name $iro $vali1 $vali2\n";
print MAIL " $price X $kazu = $subtotal 円\n";
print MAIL "---------------------------------------------------------------\n";
}
}
print MAIL "---------------------------------------------------------------\n";
print MAIL " 金額情報 \n";
print MAIL "---------------------------------------------------------------\n";
print MAIL " 合計 $MYDATA{'total1'} 円 \n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "商品合計 = $total 円\n";
if ($tax_in eq 'on'){
print MAIL "消費税 = $tax_ 円\n";
}
# print MAIL "送料 = $souryou_p 円\n";
print MAIL "お支払い合計= $tax 円\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
print MAIL "User Agent : $ENV{'HTTP_USER_AGENT'}\n";
close(MAIL);
if($user2 ne ""){
&mailsend2;
}
}else{
print "Content-type: text/html\n\n";
print "Request Rejected \n";
print "メール送信は失敗しました。 \n";
}
if ($email ne "") {
&next_mail;
} else {
unlink "cart_log/$id.txt";
&errortop ("送信完了","送信完了いたしました。","TOPへ");
}
exit;
}
##############################################
#
# 注文確認用メール(注文主への確認メール)
#
##############################################
sub next_mail {
unless ($email =~ /.+\@.+\..+/) {
&error2("ERROR","メールアドレスをご確認ください。","BACK");
}
if( open(MAIL,"| /usr/sbin/sendmail $email")) {
&conv;
print MAIL "From: $user\n";
print MAIL "Subject: $subject\n";
open (FILE,"mail1.txt");
@mailtext = ;
print MAIL @mailtext;
close(FILE);
print MAIL "---------------------------------------------------------------\n";
print MAIL " ご注文主の情報\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "ご注文No. $id\n";
print MAIL "お名前 $regname\n";
print MAIL "電子メール $email\n";
print MAIL "郵便番号 $zip\n";
print MAIL "ご住所 $add11$add12$add13\n";
print MAIL "お電話 $tel\n";
print MAIL "お支払方法 $shiharai\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "連絡事項\n";
print MAIL "$comment\n";
if ($regname2 ne "") {
print MAIL "---------------------------------------------------------------\n";
print MAIL " お届け先指定\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "お名前 $regname2\n";
print MAIL "郵便番号 $zip2\n";
print MAIL "ご住所 $add21$add22$add23\n";
print MAIL "お電話 $tel2\n";
}
print MAIL "---------------------------------------------------------------\n";
print MAIL "---------------------------------------------------------------\n";
open IN, ";
close IN;
foreach (@lines) {
if (/(\w*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*)/) {
$goods_id = $1;
$name = $2;
$price = $3;
$kazu = $4;
$iro = $5;
$vali1 = $6;
$vali2 = $7;
$omosa = $8;
$subtotal = $price * $kazu;
++$cnt2;
print MAIL "商品名 $cnt2 $name $iro $vali1 $vali2\n";
print MAIL " $price X $kazu = $subtotal 円\n";
print MAIL "---------------------------------------------------------------\n";
}
}
print MAIL " 合計 $MYDATA{'total1'} 円 \n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "商品合計 $total 円\n";
if ($tax_in eq 'on'){
print MAIL "消費税 $tax_ 円\n";
}
# print MAIL "送料 $souryou_p 円\n";
print MAIL "お支払い合計 $tax 円\n";
#
# 下記コメントは書き換えてください。
#
open (FILE,"mail2.txt");
@mailtext = ;
print MAIL "\n";
print MAIL @mailtext;
close(FILE);
close(MAIL);
unlink "cart_log/$id.txt";
&errortop ("送信完了","送信完了いたしました。","$url_name");
&del_cookie();
exit;
}
}
#--------------------------#
# 商品変更・削除表示 #
#--------------------------#
if ($cart eq '変更・削除') {
✓
print "Content-type: text/html\n\n";
print "商品変更&削除ページ $setting\n";
print "\n";
print "数量変更と削除 \n";
print "\n";
print "\n";
print "\n";
print "数量変更の場合は、プルダウンメニューよりお選び下さい。 商品を削除する場合は、無選択(0)のままにしておいてください。 よろしければ決定ボタンを押します。\n";
print " \n";
print " \n";
print "
\n";
print "\n";
print " \n";
print " \n";
print "\n";
print "商品名 金 額 変更前 変更後 \n";
open DB, ";
close DB;
foreach (@lines) {
if (/(\w*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*)/) {
$delid = $1;
$name = $2;
$price = $3;
$kazu = $4;
#
#***** プルダウンメニュー *****************************
#
$selectgoods= "\n";
for($i=0;$i<=$puru_max;$i++){
if ($i == $kazu){
$selectgoods .= "$i";
}
else{
$selectgoods .= " $i";
}
}
$selectgoods .= " ";
print "$name $price $kazu $selectgoods \n";
}
}
print "
\n";
print " \n";
&option;
print "\n";
print " \n";
©
exit;
}
#--------------------------#
# 数量変更・削除実行 #
#--------------------------#
if ($cart eq '決 定') {
open DB,">cart_log/$id.txt" || die "Could not open the file";
@all = $goods;
foreach (@all) {
s/\t+/\n/g;
print DB $_;
}
close DB;
open TEMP,";
close TEMP;
open OUT,">cart_log/$id.txt" || die "Could not open the file";
foreach (@templine) {
if (/(\w*):=:(.*):=:(.*):=:(.*)/) {
$delid = $1;
$name = $2;
$price = $3;
$kazu = $4;
if ($kazu != 0) {
print OUT "$_";
}
}
}
close OUT;
close TEMP;
# &top_disp;
&back_set(0);
&top("あなたのカートの中身");
&disptop;
©
exit;
}
#--------------------------#
# カートを空にする #
#--------------------------#
if ($cart eq 'カートを空にする') {
if (-e "cart_log/$id.txt") {
unlink "cart_log/$id.txt"; # 削除ボタンによるカートファイル削除
&cart_emp("カートを削除しました。","カートを削除しました。","トップページへ");
} else {
&error("Not Found","指定ファイルが存在しません","BACK");
}
}
#--------------------------#
# サブルーチン #
#--------------------------#
sub top {
print "Content-type: text/html\n\n";
print "$_[0] $style$setting\n";
print "\n";
}
sub top_itiran{
print "Content-type: text/html\n\n";
print "$_[0] $style";
print "$setting\n";
print "\n";
}
sub errortop {
print "Content-type: text/html\n\n";
print "$_[0] $setting";
print "$_[1] ";
print " \n";
print " \n";
exit;
}
sub error {
print "Content-type: text/html\n\n";
print "$_[0] $setting";
print "$_[1] ";
print " ";
print "\n";
print "\n";
print " \n";
print " \n";
exit;
}
sub error2 {
print "Content-type: text/html\n\n";
print "$_[0] $setting";
print "$_[1] ";
print " \n";
print " \n";
exit;
}
sub cart_emp {
print "Content-type: text/html\n\n";
print "$_[0] $setting";
print "$_[1] ";
print " \n";
print " \n";
exit;
}
sub option {
print " \n";
}
sub souryou1 {
if ($total >= $souryou2) {
$souryou_p = 0 ;
} else {
$souryou_p = $souryou1 ;
}
}
sub souryou2 {
$souryou_p = $souryou1 ;
}
sub check {
open IN, ";
$cartdisp = @lines;
close IN;
foreach (@lines) {
if (/\d+/) {
$item = ok;
}
}
if ($item ne ok) {
&error ("ERROR","カートは空です。","BACK");
exit;
}
}
sub f_lock {
if ($f_lock eq on) {
flock($_[0], 2);
seek($_[0], 0, 2);
}
}
sub conv {
&jcode'convert(*regname, 'sjis');
&jcode'convert(*regname2, 'sjis');
&jcode'convert(*add11, 'sjis');
&jcode'convert(*add12, 'sjis');
&jcode'convert(*add13, 'sjis');
&jcode'convert(*add21, 'sjis');
&jcode'convert(*add22, 'sjis');
&jcode'convert(*add23, 'sjis');
&jcode'convert(*comment, 'sjis');
&jcode'convert(*shiharai, 'sjis');
&jcode'convert(*zip, 'sjis');
&jcode'convert(*zip2, 'sjis');
&jcode'convert(*name, 'sjis');
}
sub disptop {
print "
$miseName カートの中身\n";
print " ";
print <<"DISPTOP";
商品名
備考(オプション等)
単価
数量
小計
DISPTOP
open CART, ";
close CART;
foreach (@lines) {
if (/(\w*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*)/) {
$delid = $1;
$name = $2;
$price = $3;
$kazu = $4;
$iro = $5;
$vali1 = $6;
$vali2 = $7;
$omosa = $8;
$subtotal = $price * $kazu;
print "$name $iro";
if ($vali1 ne ""){
print " $vali1";
}
if ($vali2 ne ""){
print " $vali2";
}
print " $price $kazu $subtotal 円 \n";
}
}
print "
";
##レジにいく
print "\n";
print " \n";
print "\n";
print " \n";
print "\n";
&option;
print " \n\n";
}
############################################################################
# テンプレート1 詳細
############################################################################
sub s_template1{
#カラーの取得
$colorlist = "";
if ($colors ne ""){
@clrs = split(/\//,$colors);
$colorlist = "";
foreach $colr (@clrs){
$colorlist .= "$colr";
}
$colorlist .= " ";
}
#バリエーション1の取得
# $valilist1 = "";
# if ($dt13_1 ne "" && $dt13 ne ""){
# @clrs = split(/\//,$dt13_1);
# $valilist1 = "";
# foreach $colr (@clrs){
# $valilist1 .= "$colr";
# }
# $valilist1 .= " ";
# }
#バリエーション2の取得
$valilist2 = "";
if ($dt15_1 ne "" && $dt15 ne ""){
@clrs = split(/\//,$dt15_1);
$valilist2 = "";
foreach $colr (@clrs){
$valilist2 .= "$colr";
}
$valilist2 .= " ";
}
$price_ = $price;
&comma($price_);
print <<"HTML_DISP";
HTML_DISP
########################## 商品情報
print <<"HTML_DISP";
HTML_DISP
if($picture1 ne ""){
print " \n";
}
else{
print " \n";
}
print <<"HTML_DISP";
商品名
$name
カラー
$colorlist
商品記号
$goods_id
$dt13
$dt13_1
$dt15
$valilist2
価格(税込)
$price_円
HTML_DISP
if($dt17 ne ""){
print "
メーカーの詳細はこちら \n";
}
print <<"HTML_DISP";
HTML_DISP
if ($dt18 eq "1"){
print "申\し訳ございません。只今、在庫がございません。
\n";
}
else{
print "\n";
print " \n";
print " \n";
print " \n";
print "\n";
print "0\n";
print " 1\n";
print " 2\n";
print " 3\n";
print " 4\n";
print " 5\n";
print " 6\n";
print " 7\n";
print " 8\n";
print " 9\n";
print " 10\n";
print " 11\n";
print " 12\n";
print " \n";
print " \n";
print "
\n";
}
print <<"HTML_DISP";
HTML_DISP
######################
print "\n";
print "";
if ($picture2 ne ''){
print "写真2 \n";
}
if ($picture3 ne ''){
print " 写真3 \n";
}
print " \n";
print "
\n";
######################
print <<"HTML_DISP";
HTML_DISP
#**********************
# レビュー 一覧
print "
";
print "お客様の声
";
Se::DBOpen("REVIEW","$reviewDir$page_id".'.csv');
Se::Execute("SELECT * FROM REVIEW WHERE GOODS_ID = \"$goods_id\"");
print " \n";
while(Se::Fetch($date[0],$date[1],$date[2],$date[3]) == 0){
print "";
print "";
$date[3] =~ s/\r\n/ /g;
$date[3] =~ s/\r/ /g;
$date[3] =~ s/\n/ /g;
print "$date[3]
";
if ($date[2] ne ''){
print " ";
}
else{
print " ";
}
print " ";
print "
";
print " \n";
}
print "$copyright \n";
}
#
sub copy { # 左記タグは残しておいてください。
print " \n"; # 左記タグは残しておいてください。
print "\n"; # 左記タグは残しておいてください。
} # 左記タグは残しておいてください。
######
sub back_set{
$back_ = 'cart_pro.cgi?page_id='.$MYDATA{'fpath'};
}
#
##### 金額の区切り処処理
#
sub comma {
$len=length($_[0])-3;
for($icomma=$len;$icomma>0;$icomma=$icomma-3){
$tmp=substr($_[0],0,$icomma);
substr($_[0],0,$icomma)="$tmp,";
}
}
sub mailsend2{
open(MAIL,"| /usr/sbin/sendmail $user2");
print MAIL "From: $email\n";
print MAIL "Subject: $subject\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL " ご注文主の情報\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "ご注文No. = $id\n";
print MAIL "お名前 = $regname\n";
print MAIL "電子メール = $email\n";
print MAIL "郵便番号1 = $zip\n";
print MAIL "ご住所1 = $add11\n";
print MAIL "ご住所2 = $add12\n";
print MAIL "ご住所3 = $add13\n";
print MAIL "お電話1 = $tel\n";
print MAIL "お支払方法 = $shiharai\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "連絡事項\n";
print MAIL "$comment\n";
print MAIL "__end__\n";
if ($regname2 ne "") {
print MAIL "---------------------------------------------------------------\n";
print MAIL " お届け先の情報\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "お名前2 = $regname2\n";
print MAIL "郵便番号2 = $zip2\n";
print MAIL "ご住所21 = $add21\n";
print MAIL "ご住所22 = $add22\n";
print MAIL "ご住所23 = $add23\n";
print MAIL "お電話2 = $tel2\n";
}
print MAIL "---------------------------------------------------------------\n";
print MAIL " 商品情報 \n";
print MAIL "---------------------------------------------------------------\n";
open IN, ";
close IN;
$cnt=0;
foreach (@lines) {
if (/(\w*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*):=:(.*)/) {
$goods_id = $1;
$name = $2;
$price = $3;
$kazu = $4;
$iro = $5;
$vali1 = $6;
$vali2 = $7;
$omosa = $8;
$subtotal = $price * $kazu;
++$cnt;
print MAIL "商品 = $cnt;$name;$price;$kazu;$subtotal;";
if ($iro ne ""){
print MAIL "$iro";
}
if ($vali1 ne ""){
print MAIL ":$vali1";
}
if ($vali2 ne ""){
print MAIL ":$vali2";
}
print MAIL "\n";
print MAIL "商品名 $cnt $name $iro $vali1 $vali2\n";
print MAIL " $price X $kazu = $subtotal 円\n";
print MAIL "---------------------------------------------------------------\n";
}
}
print MAIL "---------------------------------------------------------------\n";
print MAIL " 金額情報 \n";
print MAIL "---------------------------------------------------------------\n";
print MAIL " 合計 $MYDATA{'total1'} 円 \n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "商品合計 = $total 円\n";
if ($tax_in eq 'on'){
print MAIL "消費税 = $tax_ 円\n";
}
# print MAIL "送料 = $souryou_p 円\n";
print MAIL "お支払い合計= $tax 円\n";
print MAIL "---------------------------------------------------------------\n";
print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
print MAIL "User Agent : $ENV{'HTTP_USER_AGENT'}\n";
close(MAIL);
}
__END__