EOF
$description =~ s/\r\n|\r|\n/
/g;
$play .=<<"EOF";
概要 |
$description |
| メール |
$masteremail |
| お電話 |
$tel |
| 所在地 |
〒$masterzip1-$masterzip2
$shopadd |
|
|
全文 |
|
EOF
&designdisp;
}
#お問い合わせ--------------------------------------------------------------------------------------------------------------
if($mode eq "contact"){
$disptxtcontact = &loadPS("$disptxtcontact");
$play .=<<"EOF";
EOF
&designdisp;
}
#お問い合わせ送信完了--------------------------------------------------------------------------------------------------------------
if($mode eq "cthanks"){
unless($contactmsg){ &exitError("お問い合わせ内容を入力してください"); }
unless($contactmsg){ &exitError("お名前を入力してください"); }
unless($contactemail){ &exitError("メールアドレスを入力してください"); }
$subject = "[StoreNavi：お問い合わせ]$shopname";
jcode::convert(*subject,'sjis');
$EncodeSubject = &EncodeSubject("$subject");
$subject = <<"SBJ";
$EncodeSubject
SBJ
$mailhead = <<"EOM";
Return-Path: <$masteremail>
Reply-To: $contactemail
Content-type: Text/Plain; charset=iso-2022-jp
Content-transfer-Encoding: 7bit
From: $contactemail
To: $masteremail
Subject: $subject
EOM
$mailbody = <<"EOF";
$shopnameにお問い合わせがきました。
------------------------------------------------------------
■お問い合わせ
------------------------------------------------------------
ジャンル $contacttitle
お名前 $contactname
メール $contactemail
------------------------------------------------------------
■送信内容
------------------------------------------------------------
$contactmsg
------------------------------------------------------------
■アクセス情報
Remote host: $ENV{'REMOTE_HOST'}
User Agent : $ENV{'HTTP_USER_AGENT'}
HTTP_REFERER: $ENV{'HTTP_REFERER'}
REMOTE_ADDR : $ENV{'REMOTE_ADDR'}
------------------------------------------------------------
EOF
jcode::convert(*mailhead, 'jis');
jcode::convert(*mailbody, 'jis');
open(MAIL, "| $sendmail $masteremail");
print MAIL $mailhead;
print MAIL $mailbody;
close(MAIL);
$play .=<<"EOF";
 |
| $disptxtcthanks
|
EOF
&designdisp;
}
#カートの処理--------------------------------------------------------------------------------------------------------------
if($mode eq "cart"){
$ds = 'dbi:Pg:dbname=store';
$user = 'pgsql';
$dbpass = '';
$dbh = DBI->connect($ds,$user)or exitError("Cannot connect.");
if($cmode eq "buy"){
#被っていないかチェック
$sth = $dbh->prepare("select * from mobcart where mobid = '$mobid' and cgid = '$gid' and explus='$newexplus'");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){$buyalready = @$ref[0];}
if($buyalready){
$msg = "すでに同じ商品を購入されています。追加でご購入される場合は、下記のリストの追加したい項目の数を選択し、必ず「変更」ボタンを押して下さい。
";
}else{
$sth = $dbh->prepare("insert into mobcart values('$mobid','$uid','$gid','$newgoodsmath','$time','$newexplus')");
$sth->execute;
}
}elsif($cmode eq "cge"){
$sth = $dbh->prepare("update mobcart set cgsmath='$cgemath' where mobid = '$mobid' and cgid = '$cgegs' and explus='$newexplus'");
$sth->execute;
$msg = "商品数の変更を一件行いました。
";
}elsif($cmode eq "ers"){
if ($ersexplus) {
$sth = $dbh->prepare("delete from mobcart where mobid='$mobid' and cgid='$ersgs' and explus='$ersexplus'");
} else {
$sth = $dbh->prepare("delete from mobcart where mobid='$mobid' and cgid='$ersgs'");
}
$sth->execute;
$msg = "商品を一件削除しました。
";
}
$sth = $dbh->prepare("select cuid,cgid,cgsmath,explus from mobcart where mobid = '$mobid'");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){
$buyerdata = join(':-snichcode-:',@$ref);
push(@lines,$buyerdata);
}
$sth->finish;
$dbh->disconnect;
if(@lines){$dispcart = "yes";}
$disptxtcart = &loadPS("$disptxtcart");
if($dispcart eq "yes"){
$play.=<<"EOF";
 |
| $msg$disptxtcart |
|
| 商品名 |
単価 |
種別／個数 |
小計 |
削除 |
EOF
$allmath = 0;
#データベース---------------------------------------------------------
$ds = 'dbi:Pg:dbname=store';
$user = 'pgsql';
$dbpass = '';
$dbh = DBI->connect($ds,$user)or exitError("Cannot connect.");
foreach (@lines){
($c_uid,$c_gid,$c_gsmath,$c_explus) = split(':-snichcode-:',$_);
$sth = $dbh->prepare("select gsname,gsprice,gstax,gsallmath,gsunit,explus from goodslist where uid='$uid' and gid='$c_gid'");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){$gsdata = join(':-snichcode-:',@$ref);}
unless($gsdata){next;}
($gsname,$gsprice,$gstax,$gsallmath,$gsunit,$explus) = split(":-snichcode-:",$gsdata);
$pfee = $c_gsmath * $gsprice;
$total = $total + $pfee;
if($gstax){$tax = $tax + int($c_gsmath * $gsprice * 0.05);}else{ $tax=$tax+0; }
if($c_explus) {
$gsname .= "($c_explus)";
}
$play.=<<"EOF";
| $gsname |
$gsprice円 |
$pfee円 |
EOF
}#end_foreach
$sth->finish;
$dbh->disconnect;
$total_all = $total + $tax;
$play.=<<"EOF";
| 商品計 |
$total円 | |
| 送料 |
住所・送付方法
決定後算出 | |
| 消費税(課税対象のみ) |
$tax円 | |
| お支払い合計
（送料は住所入力後） |
$total_all円＋送料 | |
EOF
}else{
$play.=<<"EOF";
|
現在、まだ何も購入されていません。
$disptxtcart |
|
EOF
}
# $cookietag = <<"EOF";
#
#EOF
$gogocookie="set";
&designdisp;
}
#チェックモード---------------------------------------------------------------------------------------------------------------------
if($mode eq "check"){
#メールｔが記入されていたらデータベース読み込み-------------------------------------------------------------------------------------------------
if($email && $password){
#もし、全店共通でユーザー情報を使用する場合、下記検索からuidを削除すればよい
$ds = 'dbi:Pg:dbname=store';
$user = 'pgsql';
$dbpass = '';
$dbh = DBI->connect($ds,$user)or exitError("Cannot connect.");
$sth = $dbh->prepare("select * from buyerdata where uid = '$uid' and email = '$email' and pass = '$password' order by buytime DESC limit 1");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){
$buyerdata = join(':-snichcode-:',@$ref);
}
$sth->finish;
$dbh->disconnect;
unless($buyerdata){ exitError("パスワードが違います。誤入力の場合は、前の画面に戻り正しい情報をご入力するか入力文字を削除して下さい。");}
if($buyerdata){($uid,$bid,$buytime,$pass,$regname,$freename,$email,$sex,$zip1,$zip2,$ken,$add1,$add2,$add3,$tel,$fax,$birtha,$birthb,$birthc,$end)=split(':-snichcode-:',$buyerdata);}
}
#-------------------------------------------------------------------------------------------------
$script=<
EOF
##############
$disptxtintext = &loadPS("$disptxtintext");
$play.= <
| $disptxtintext |
|
";}
#店舗デザインの読み込み--------------------------------------------------------------------------------------
#メニューの読み込み--------------------------------------------------------------------------------------
$sth = $dbh->prepare("select * from category where uid = '$uid' order by cnum");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){
$categorypart = join(':-snichcode-:',@$ref);
push(@category,$categorypart);
}
#メニューの読み込み--------------------------------------------------------------------------------------
#バナーの読み込み--------------------------------------------------------------------------------------
$sth = $dbh->prepare("select * from bunner where uid = '$uid' order by bid");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){
$bannerpart = join(':-snichcode-:',@$ref);
push(@banner,$bannerpart);
}
#バナーの読み込み--------------------------------------------------------------------------------------
#メニューデザインの読み込み--------------------------------------------------------------------------------------
$sth = $dbh->prepare("select * from menu where uid = '$uid' order by mnum");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){
$menupart = join(':-snichcode-:',@$ref);
push(@menu,$menupart);
}
#メニューデザインの読み込み--------------------------------------------------------------------------------------
#各ページテキストの読み込み--------------------------------------------------------------------------------------
$sth = $dbh->prepare("select * from textbox where uid = '$uid'");
$sth->execute;
$num = $sth->{'NUM_OF_FIELDS'};
while($ref = $sth->fetchrow_arrayref){$textbox = join(':-snichcode-:',@$ref);}
($uid,$disptxttoptext,$disptxtcart,$disptxtintext,$disptxtchecktxt,$disptxtprofile,$disptxtcontact,$disptxtcthanks,$disptxtthanks,$dispfooter) = split(":-snichcode-:",$textbox);
$disptxttoptext =~ s/\n/
";}else{$shopnamedisp=" <$titlestyle>$shopname";}
$titleheight = "60" if($titleimg || $titlebgcolor);
#店舗表示設定-------------------------------------------------------------------------------------
#データベース---------------------------------------------------------
#ショッピングトップページ----------------------------------------------------------------------------------------------------------------------
unless($mode){
if($topimgdisp){
$topimgdata=<<"EOF";
";}
if($gstax){$dispgstax="（税抜）";}else{$dispgstax="（税込）";}
$extext =~ s/\n/
EOF
$mtitlebgcolor="";
}else{
$menutitlein=<<"EOF";
EOF
}else{
$menuline=<<"EOF";
";}
$play.=<<"EOF";
