KENT-WEB サポートコーナー 過去ログ [ 0481 ]


記事No: 10701
投稿日: 2012/07/05(Thu) 16:28:35
タイトルwebmartでhtml位置NG
ID情報: palick
投稿者: palick
URLhttp://palif.jp/wi/fc/mart1.html

お世話になります。

サーバー移転にてwebmartを移設したのすが
どうしてもエラーが解決出来ずこちらでお尋ねさせていただきます。
商品登録(右上角のみ)をし、カートに入れるを
クリックすると

Open Err: mart.html

になりカートが動かない状態です。check.cgiでチェックすると
html位置がNGになっています。
前回を階層は変わっていないと思うのですがどこが悪いのでしょうか?
位置関係はhtmlファイルと同じ階層にmartフォルダを設置しています。
よろしくお願いいたします。


記事No: 10707
投稿日: 2012/07/05(Thu) 21:35:33
タイトルRe: webmartでhtml位置NG
ID情報: kent
投稿者: KENT

> お世話になります。
>
> サーバー移転にてwebmartを移設したのすが
> どうしてもエラーが解決出来ずこちらでお尋ねさせていただきます。
> 商品登録(右上角のみ)をし、カートに入れるを
> クリックすると
>
> Open Err: mart.html
>
> になりカートが動かない状態です。check.cgiでチェックすると
> html位置がNGになっています。
> 前回を階層は変わっていないと思うのですがどこが悪いのでしょうか?
> 位置関係はhtmlファイルと同じ階層にmartフォルダを設置しています。
> よろしくお願いいたします。

ここでエラーになるという mart.html は、買物カゴのmart.htmlではなく、tmplフォルダのmart.htmlのことでは?


記事No: 11124
投稿日: 2012/11/05(Mon) 19:51:12
タイトルRe: webmartでhtml位置NG
ID情報: palick
投稿者: palick

当該ページは未修正ですが、
新たに設置しなおしてみたら
正常に作動いたしました。
ありがとうございました。


記事No: 11130
投稿日: 2012/11/07(Wed) 21:12:35
タイトルRe^2: webmartでhtml位置NG
ID情報: bunsan
投稿者: bunsan
URLhttp://www.banbino.jp/banbi-shop/b_ht/xmas.html

横から失礼します。

palickさんと同じ症状で、Check Modeでhtml位置NGと出るので、ディレクトリを変更、またCGIの再設置をしてみましたが、効果はありませんでした。
WebMart 3.0を利用させていただいています。

上記URLから、カートボタンをクリックすると
Software error
at. ./init.cgi line 262.

と出ます。

サーバーはCsideNetでお借りしています。
Kent Web さんからダウンロードしたmartフォルダーを、そのままサーバーのpublic_html直下に置いていますが、CheckModeのhtml位置NGとはディレクトリのことでしょうか?

また、在庫ファイルも位置NGとなっています。
init.cgiへの私の記述ミスなのか、ディレクトリ設置の初歩的な知識不足と見当をつけていますが、おわかりになる範囲で、お知恵をいただけたらとおもいます。


記事No: 11136
投稿日: 2012/11/09(Fri) 08:27:11
タイトルRe^3: webmartでhtml位置NG
ID情報: bunsan
投稿者: bunsan
URLhttp://www.banbino.jp/banbi-shop/b_ht/xmas.html

説明不足でした。

CGIを設置した場所は
/public_html/ssl_html/mart/
にadmin.cgi とorder.cgi
/public_html/mart/
にcheck.cgi , init.cgi , mart.cgi ,と
CSS , data , lib , log , tmpl



Check Modeでのメッセージは

番号ファイル位置 : OK
番号ファイルパーミッション : OK
データファイル位置 : OK
データファイルパーミッション : OK
在庫ファイル位置 : NG
特商法ファイル位置 : OK
特商法ファイルパーミッション : OK
mart.html位置 : NG
addr.html位置 : NG
conf.html位置 : NG
send.html位置 : NG
send-credit.html位置 : NG
error.html位置 : NG
law.html位置 : NG
mail.txt位置 : NG
order.txt位置 : NG
ログディレクトリ位置 : OK
ログディレクトリパーミッション : OK
sendmailパス : OK



init.cgi への記述は

# モジュール宣言/変数初期化
use strict;
my %cf;
#┌─────────────────────────────────
#│ WEB MART : init.cgi - 2012/10/07
#│ Copyright (c) KentWeb
#│ http://www.kent-web.com/
#└─────────────────────────────────
$cf{version} = 'Web Mart v3.0';
#┌─────────────────────────────────
#│ [注意事項]
#│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した
#│ いかなる損害に対して作者は一切の責任を負いません。
#│ 2. 設置に関する質問はサポート掲示板にお願いいたします。
#│ 直接メールによる質問は一切お受けいたしておりません。
#└─────────────────────────────────

#===========================================================
# ■ 基本設定
#===========================================================

# 管理用パスワード
$cf{password} = 'hrf9bcf';

# 暗号化キー(適当な英数字を指定)
# → 注文者情報をクッキー保存する際の暗号化キー
$cf{passphrase} = "wkxuji2y3";

# 管理者アドレス
$cf{master} = 'shop@banbino.jp';

# sendmailパス【サーバパス】
$cf{sendmail} = '/usr/sbin/sendmail';

# sendmailの -fオプション (0=no 1=yes)
# → サーバ仕様として必要な場合
$cf{sendm_f} = 0;

# 買物プログラムURL 【URLパス】
$cf{mart_cgi} = 'http://www.banbino.jp/mart/mart.cgi';

# 注文プログラムURL【URLパス】
$cf{order_cgi} = 'https://www.banbino.jp/mart/order.cgi';

# 管理プログラムURL 【URLパス】
$cf{admin_cgi} = 'https://www.banbino.jp/mart/admin.cgi';

# データファイル【サーバパス】
$cf{datfile} = '/home/pw02003-1312/public_html/mart/data/mart.dat';

# 注文番号ファイル【サーバパス】
$cf{numfile} = './data/num.dat';

# 特商法データファイル【サーバパス】
$cf{lawfile} = '/home/pw02003-1312/public_html/mart/data/law.txt';

# ログディレクトリ【サーバパス】
$cf{logdir} = '/home/pw02003-1312/public_html/mart/log';

# 在庫管理を行う (0=no 1=yes)
$cf{stock} = 0;

# 在庫ファイル【サーバパス】
$cf{stkfile} = 'home/pw02003-1312/public_html/mart/data/stock.dat';

# テンプレートディレクトリ【サーバパス】
$cf{tmpldir} = 'home/pw02003-1312/public_html/mart/tmpl';

# クッキー(顧客情報)をSSL対応 (0=no 1=yes)
# → SSL配下でクッキー(顧客情報)を使う場合secure属性を付加
$cf{ssl_cookie} = 1;

# 戻り先URL【URLパス】
$cf{home} = 'http://www.banbino.jp/index.html';

# 都道府県
# → 県別に送料を指定する時はコンマの後に送料を指定
# → 送料が不要な場合は送料部分を 0 とする
$cf{pref} = [
'',
'北海道,1260',
'青森県,1050',
'岩手県,1050',
'宮城県,1050',
'秋田県,1050',
'山形県,1050',
'福島県,1050',
'茨城県,525',
'栃木県,525',
'群馬県,525',
'埼玉県,525',
'千葉県,525',
'東京都,525',
'神奈川県,525',
'新潟県,840',
'富山県,840',
'石川県,840',
'福井県,840',
'山梨県,525',
'長野県,840',
'岐阜県,840',
'静岡県,840',
'愛知県,840',
'三重県,840',
'滋賀県,840',
'京都府,840',
'大阪府,840',
'兵庫県,840',
'奈良県,840',
'和歌山県,840',
'鳥取県,1050',
'島根県,1050',
'岡山県,1050',
'広島県,1050',
'山口県,1050',
'徳島県,1050',
'香川県,1050',
'愛媛県,1050',
'高知県,1050',
'福岡県,1050',
'佐賀県,1050',
'長崎県,1050',
'熊本県,1050',
'大分県,1050',
'宮崎県,1050',
'鹿児島県,1050',
'沖縄県,1260',
];

# 送料の無料サービスの合計金額 (税抜き)
# → 一定金額以上の場合に送料を無料
# → この機能を使用しない場合は 0 にする
$cf{cari_serv} = 10000;

# 支払方法の選択
# → 支払い別に手数料を指定する時はコンマの後に送料を指定
# → 手数料が不要な場合は手数料部分を 0 とする
$cf{payment} = [
'銀行振込,0',
'郵便振替,0',
'代金引換,525',
];

# 支払手数料は税込み (0=no 1=yes)
$cf{paym_tax} = 1;

# 配達時間の選択
$cf{deli} = ['午前中', '12-14時', '14-16時', '16-18時', '18-20時', '20-21時'];

# 属性情報
# → name値は順に、color, size
$cf{op_color} = 'カラー';
$cf{op_size} = 'サイズ';

# クッキーID
# → 順に、買物データ、住所氏名情報
$cf{cookieID} = 'wmart_cart';
$cf{cookieID2} = 'wmart_cust';

# ホスト取得方法
# 0 : gethostbyaddr関数を使わない
# 1 : gethostbyaddr関数を使う
$cf{gethostbyaddr} = 0;

# 管理画面のページ当り商品表示件数
$cf{pageLog} = 20;

# 買物カゴの中身画面での数量調節の範囲(プルダウン式)
# → 必ず 1 以上の値にすること
$cf{max_select} = 10;

# 1度の投稿で受理できる最大サイズ (bytes)
# → 1024Byte = 100KB
$cf{maxdata} = 307200;

# --- [ ここより下はゼウス (ZEUS) クレジット決済の設定 ]
#
# [ ゼウスサービスを利用する ]
# 0 : しない
# 1 : クレジットサービスのみ利用【ゼウス社との契約が必要】
# 2 : クレジットと銀行決済サービスを利用【ゼウス社との契約が必要】
$cf{zeus_serv} = 0;

# ゼウス契約NO (IPコード)
$cf{zeus_num} = '99999';

#===========================================================
# ■ 設定完了
#===========================================================

# 再定義
if ($cf{zeus_serv} == 1) {
push(@{$cf{payment}}, "クレジット[連携して決済します],0");
} elsif ($cf{zeus_serv} == 2) {
push(@{$cf{payment}}, "銀行決済[連携して決済します],0", "クレジット[連携して決済します],0");
}

# 設定内容を返す
sub init {
return %cf;
}

#-----------------------------------------------------------
# フォームデコード
#-----------------------------------------------------------
sub parse_form {
my ($buf,%in);
if ($ENV{REQUEST_METHOD} eq "POST") {
&error('受理できません') if ($ENV{CONTENT_LENGTH} > $cf{maxdata});
read(STDIN, $buf, $ENV{CONTENT_LENGTH});
} else {
$buf = $ENV{QUERY_STRING};
}
foreach ( split(/&/, $buf) ) {
my ($key,$val) = split(/=/);
$key =~ tr/+/ /;
$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;

# 無効化
$val =~ s/&/&/g;
$val =~ s/</&lt;/g;
$val =~ s/>/&gt;/g;
$val =~ s/"/&quot;/g;
$val =~ s/'/&#39;/g;
$val =~ s/\r\n/\t/g;
$val =~ s/\n/\t/g;
$val =~ s/\r/\t/g;

$in{$key} .= "\0" if (defined($in{$key}));
$in{$key} .= $val;
}
return %in;
}

#-----------------------------------------------------------
# 特定商取引法
#-----------------------------------------------------------
sub law_data {
open(IN,"$cf{lawfile}") or &error("open err: $cf{lawfile}");
my $data = join('', <IN>);
close(IN);

open(IN,"$cf{tmpldir}/law.html") or &error("open err: law.html");
my $tmpl = join('', <IN>);
close(IN);

$tmpl =~ s/!law_data!/$data/;

print "Content-type: text/html; charset=utf-8\n\n";
print $tmpl;
exit;
}

#-----------------------------------------------------------
# エラー処理
#-----------------------------------------------------------
sub error {
my $msg = shift;

open(IN,"$cf{tmpldir}/error.html") or die;
my $tmpl = join('', <IN>);
close(IN);

$tmpl =~ s/!message!/$msg/g;

print "Content-type: text/html; charset=utf-8\n\n";
print $tmpl;
exit;
}

#-----------------------------------------------------------
# フッター
#-----------------------------------------------------------
sub footer {
my $foot = shift;

# 著作権表記(削除・改変禁止)
my $copy = <<EOM;
<p style="margin-top:2.5em;text-align:center;font-family:Verdana,Helvetica,Arial;font-size:10px;">
- <a href="http://www.kent-web.com/" target="_top">WebMart</a> -
</p>
EOM

if ($foot =~ /(.+)(<\/body[^>]*>.*)/si) {
print "$1$copy$2\n";
} else {
print "$foot$copy\n";
print "</body></html>\n";
}
exit;
}

#-----------------------------------------------------------
# back属性チェック
#-----------------------------------------------------------
sub chk_back {
my $back = shift;

if ($back !~ /^https?:\/\/[\w-.!~*'();\/?:\@&=+\$,%#]+$/i) {
&error("BACK属性が不正です");
}
}

#-----------------------------------------------------------
# 商品データ認識
#-----------------------------------------------------------
sub get_data {
my %cart;
open(IN,"$cf{datfile}") or &error("open err: $cf{datfile}");
while (<IN>) {
my ($code,$name,$price,$intax,$deli,$dai) = split(/<>/);

$cart{$code} = $_;
}
close(IN);

return %cart;
}

#-----------------------------------------------------------
# コンマ区切
#-----------------------------------------------------------
sub comma {
local($_) = @_;

1 while s/(.*\d)(\d\d\d)/$1,$2/;
$_;
}


1;


記事No: 11139
投稿日: 2012/11/09(Fri) 11:29:15
タイトルRe^3: webmartでhtml位置NG
ID情報: kent
投稿者: KENT

> 横から失礼します。
>
> palickさんと同じ症状で、Check Modeでhtml位置NGと出るので、ディレクトリを変更、またCGIの再設置をしてみましたが、効果はありませんでした。
> WebMart 3.0を利用させていただいています。
>
> 上記URLから、カートボタンをクリックすると
> Software error
> at. ./init.cgi line 262.
>
> と出ます。
>
> サーバーはCsideNetでお借りしています。
> Kent Web さんからダウンロードしたmartフォルダーを、そのままサーバーのpublic_html直下に置いていますが、CheckModeのhtml位置NGとはディレクトリのことでしょうか?
>
> また、在庫ファイルも位置NGとなっています。
> init.cgiへの私の記述ミスなのか、ディレクトリ設置の初歩的な知識不足と見当をつけていますが、おわかりになる範囲で、お知恵をいただけたらとおもいます。

新たに質問する場合には、新規にスレッドを立ててください。


記事No: 11147
投稿日: 2012/11/09(Fri) 22:56:51
タイトルRe^4: webmartでhtml位置NG
ID情報: bunsan
投稿者: bunsan
URLhttp://www.banbino.jp/mart/b_ht/xmas.html

> > 横から失礼します。
> >
> > palickさんと同じ症状で、Check Modeでhtml位置NGと出るので、ディレクトリを変更、またCGIの再設置をしてみましたが、効果はありませんでした。
> > WebMart 3.0を利用させていただいています。
> >
> > 上記URLから、カートボタンをクリックすると
> > Software error
> > at. ./init.cgi line 262.
> >
> > と出ます。
> >
> > サーバーはCsideNetでお借りしています。
> > Kent Web さんからダウンロードしたmartフォルダーを、そのままサーバーのpublic_html直下に置いていますが、CheckModeのhtml位置NGとはディレクトリのことでしょうか?
> >
> > また、在庫ファイルも位置NGとなっています。
> > init.cgiへの私の記述ミスなのか、ディレクトリ設置の初歩的な知識不足と見当をつけていますが、おわかりになる範囲で、お知恵をいただけたらとおもいます。
>
> 新たに質問する場合には、新規にスレッドを立ててください。
無作法、失礼しました。
スレッドを新たに立てさせていただきました。


[検索ページ] [掲示板]