ACART コントロール画面

- 次のとおり修正しました -

ログインパスワード：$in{'pw2'}\　\※忘れないでください！！

送料：$souryou2

送料が無料になる場合の商品代金：$in{'muryou'}円

代引料金：$in{'daibikifee'}円

代引料金が無料になる場合の商品代金：$in{'daimuryou'}円

ショップに届く注文メールのタイトル：$in{'mailtitle'}

注文者に届く確認メールのタイトル：$in{'confmailtitle'}

ショップのメールアドレス：$in{'myaddress1'}

ショップのメールアドレス2：$in{'myaddress2'}

注文完了後に戻るページのURL：
$in{'backurl'}

リンク元データが得られない場合に戻るページのURL：
$in{'nonrefferurl'}

カートのタイトル画像のURL：
$in{'titlegif'}

カートの備考1の項目名：$in{'rem1'}

カートの備考2の項目名：$in{'rem2'}

カートのページの背景色：$in{'bgcolor'}

カートのテーブルの枠の色：$in{'tablebgcolor'}

カートのテーブルの項目名欄の色：$in{'tablecolor'}

ドメイン名：$in{'domain'}

カートCGIまでのパス：$in{'path'}

sendmailのパス：$in{'sendmail'}

setcook.cgiの場所をURL：
$in{'setcookurl'}

サーバーの時差：$in{'timediff'}

ゼウス決済ページURL：
$in{'zeusurl'}

ゼウスショップIP：$in{'zeusid'}

EOF }else{ print <

- コントロール画面 -
（設定情報修正）
修正が必要な場合は、必要事項を修正後に下の「修正」ボタンを押して下さい。設定には\@のような特殊な文字は使えません（メールアドレスの設定は除きます）。

ログインパスワード：
初回は必ず変更して下さい（半角文字）。

送料設定：

全国一律及び地域別の設定が\可\能\です。金額は税込みで設定します。
全国一律ならその金額を半角で入れます。
例）全国一律1000円の場合
1000円

地域毎に異なる場合は、（地域名）：（金額）を*で区切ります。
例）北海道が1000円、本州が800円、九州沖縄が1000円の場合
北海道：1000円*本州：800円*九州沖縄：1000円

これらにより送料が設定できない場合は「別途」とします。

送料が無料になる場合の商品代金設定：円
送料が無料になる場合の商品代金を設定します。半角数字です。円は入れません。無料にしたくない場合は99999999と入力します。

代引料金設定：円
代引料金設定を設定します。金額は税込みで設定します。半角数字です。円は入れません。

代引料金が無料になる場合の商品代金：円
代引料金が無料になる場合の商品代金を設定します。半角数字です。円は入れません。無料にしたくない場合は99999999と入力します

ショップに届く注文メールのタイトル：

注文者に届く確認メールのタイトル：

ショップのメールアドレス：

このアドレスあてに注文メールが届きます。

ショップのメールアドレス2：

もう1ヶ所に注文メールを送りたい場合はメールアドレスを入れます。

注文完了後に戻るページのURL：

http://から記入します。

リンク元データが得られない場合に戻るページのURL：

このカートCGIでは、カートに入れた商品ページのURLを自動取得してカートからそのページに戻るようにしていますが、ときどきこのデータを送信しないブラウザがあります。この場合、戻り先が分からなくなりますので、その際に戻るページのURLを設定します。
http://から記入します。

カートのタイトル画像のURL：

http://から記入します。

カートの備考1の項目名：
カートの備考1の項目名を変更したいときはここで項目名を設定します。

カートの備考2の項目名：
カートの備考2の項目名を変更したいときはここで項目名を設定します。

カートのページの背景色：
英語\表\記\又は#から始まるカラーコードを入れます

カートのテーブルの枠の色：
英語\表\記\又は#から始まるカラーコードを入れます

カートのテーブルの項目名欄の色：
英語\表\記\又は#から始まるカラーコードを入れます

ドメイン名：

ご利用のドメイン名をwwwから入れます。
例）www.iluv.net

カートCGIまでのパス：

カートCGIまでのパス入れます。独自ドメインを利用されている場合は/でOKです。

sendmailのパス：

sendmailのパス入れます。

setcook.cgiの場所をURL：

setcook.cgiの場所をURLをhttp://から記入します。
例）http://www.yourdomain.com/cgi-bin/acart/setcook.cgi

サーバーの時差：
海外サーバーで時差がある場合は入れます。半角数字

ゼウス決済ページURL：

ゼウスオンラインクレジット決済\機\能\を\利\用\する場合のみ、ゼウスから指定されたURLをhttp://から記入します。

ゼウスショップIP：
ゼウスオンラインクレジット決済\機\能\を\利\用\する場合のみ、ゼウスから指定されたIPを記入します。

EOF } print <
Advanced Shopping cart by FreeCart.jp

EOF exit; sub error { print < エラー

エラー

EOM exit; } sub login { print < ログイン

Advanced Shopping cart by FreeCart.jp

EOM exit; } sub trans{ $from='[＠０１-９Ａ-Ｚａ-ｚ．＿－]'; $to='[@01-9A-Za-z._-]'; &jcode'convert(*xx, 'euc'); &jcode'convert(*from, 'euc'); &jcode'convert(*to, 'euc'); &jcode'tr(*xx, $from, $to); &jcode'convert(*xx, 'sjis'); } sub check{ $xx=~ s/\'|\"|\@|\$|\&|\;|\%|\#|\{|$|$|\*|\!|\=|\+//g; $xx=~ s/\ //g; $xx=~ s/\　//g; $xx=~ s/\r\n//g; $xx=~ s/\n//g; } sub check2{#@抜き $xx=~ s/\'|\"|\$|\&|\;|\%|\#|\{|$|$|\*|\!|\=|\?|\+//g; $xx=~ s/\ //g; $xx=~ s/\　//g; $xx=~ s/\r\n//g; $xx=~ s/\n//g; } sub check3{# #抜き $xx=~ s/\'|\"|\@|\$|\&|\;|\%|\{|$|$|\*|\!|\=|\?|\+//g; $xx=~ s/\ //g; $xx=~ s/\　//g; $xx=~ s/\r\n//g; $xx=~ s/\n//g; } sub gethostname { local ($address) = shift(@_); local (@octets); local ($name, $aliases, $type, $len, $addr); local ($ip_number); @octets = split ('\.', $address); $ip_number = pack ("CCCC", @octets[0..3]); ($name, $aliases, $type, $len, $addr) = gethostbyaddr ($ip_number, 2); if ($name) {$hostname = $name; }else {$hostname = $ENV{'REMOTE_ADDR'}; } }