#!/usr/bin/perl
#///////////////////////////////////////////////////////////////////////////////
#
# ----- ant -----
# info@ant3.jp
# http://ant3.jp
#
#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
# http://・・/shop.cgi
#===============================================================================
require './set.pl';
#==================目次テーブル==============
$content_table[0] ='【1】sendmailのパス/ライセンス/パスワード/テストモード/ロックモード/プログラムのタイトル';
$content_table[1] ='【2】スクリプト＆ファイルのパス';
$content_table[2] ='【3】メニュー用リンク';
$content_table[3] ='【4】会員制＆ポイント制';
$content_table[4] ='【5】注文控えCSV及び注文ログ';
$content_table[5] ='【6】分類＆カテゴリーの設定';
$content_table[6] ='【7】在庫管理&オプションの設定';
$content_table[7] ='【8】消費税の扱い';
$content_table[8] ='【9】送料&ラッピングの設定';
$content_table[9] ='【10】お支払方法&配達時間指定';
$content_table[10] ='【11】注文メールの情報';
$content_table[11] ='【12】注文の完了メッセージ';
$content_table[12] ='【13】デザインの設定';
$content_table[13] ='【14】商品一覧のテーブル＆詳細説明のデザイン';
$content_table[14] ='【15】X/G用スタイルシート';
$content_table[15] ='【16】S/s用スタイルシート';
$content_table[16] ='【17】商品管理の設定';
$content_table[17] ='【18】販売管理の設定';
$content_table[18] ='【19】会員管理＆メルマガの設定';
$content_table[19] ='【20】携帯用の基本設定';
$content_table[20] ='【21】携帯用メール情報';
$content_table[21] ='【22】携帯用完了メッセージ';
$content_table[22] ='【23】特定商取引法＆個人情報保護法＆購入方法の設定(PC)';
$content_table[23] ='【24】特定商取引法＆個人情報保護法＆購入方法の設定(携帯)';
$content_table[24] ='【25】宣伝広告機能の設定';
$content_table[25] ='【26】Cタイプのスタイルシート';
#===============================================================================
# ▼設定▼
#===============================================================================
# パスワード
$manage_pass =$adm_pass; #1234以外を設定して下さい。
# jcode.plへのパス
require './jcode.pl';
# cgi-lib.plへのパス
require './cgi-lib.pl';
# MIMEコード変換ライブラリ
require './mimew.pl';
# 本スクリプトのパス
$script_set = "./setup.cgi";
# 設定ファイルのパス
$setup_file = "./shop_info.cgi";
# テーブルのサイズ
$t_width ='700';
# バックの色
$bg_color2 = "#ffffff"; #壁の色
# 薄い背景色
$color_r ="#ffff88";
# のカスタマイズ
$body = "";
$header = <<"EOF";
EOF
}else{
$foot = <
|
$replace_name |
EOF
}
$style = <
EOF
# ===============================================================================
# ▲設定終了▲
# ===============================================================================
&ReadParse;
while (($key,$val) = each %in) {
&jcode'convert(*val, "sjis");
$val =~ s/<>//g;
$val =~ s/\r\n/
/g;
$val =~ s/\r/
/g;
$val =~ s/\n/
/g;
if ($val =~ /
$/) {
while ($val =~ /
$/) { $val =~ s/
$//g; }
}
$in{$key} = $val;
}
#===== 戻り先========================================================
$modoru ="$script_set?mode=m_manager&pass=$in{'pass'}";
$menu_modoru ="./shop.cgi?mode=adm_menu&pass=$in{'pass'}";
$top_modoru ="$script";
$top_mail ="$script_set?mode=mail&pass=$in{'pass'}";
$header .= <<"EOF";
EOF
#====================================================================
if ( $in{'mode'} eq 'adm1' ) { &adm1; exit;}
if ( $in{'pass'} ne $manage_pass ) { &adm1; exit; }
if ( $in{'mode'} eq 'contents' ) { &contents; exit;}
if ( $in{'mode'} eq 'renew' ) { &renew; exit;}
if ( $in{'mode'} eq '0' ) { &field00; exit;}
if ( $in{'mode'} eq '1' ) { &field01; exit;}
if ( $in{'mode'} eq '2' ) { &field02; exit;}
if ( $in{'mode'} eq '3' ) { &field03; exit;}
if ( $in{'mode'} eq '4' ) { &field04; exit;}
if ( $in{'mode'} eq '5' ) { &field05; exit;}
if ( $in{'mode'} eq '6' ) { &field06; exit;}
if ( $in{'mode'} eq '7' ) { &field07; exit;}
if ( $in{'mode'} eq '8' ) { &field08; exit;}
if ( $in{'mode'} eq '9' ) { &field09; exit;}
if ( $in{'mode'} eq '10' ) { &field10; exit;}
if ( $in{'mode'} eq '11' ) { &field11; exit;}
if ( $in{'mode'} eq '12' ) { &field12; exit;}
if ( $in{'mode'} eq '13' ) { &field13; exit;}
if ( $in{'mode'} eq '14' ) { &field14; exit;}
if ( $in{'mode'} eq '15' ) { &field15; exit;}
if ( $in{'mode'} eq '16' ) { &field16; exit;}
if ( $in{'mode'} eq '17' ) { &field17; exit;}
if ( $in{'mode'} eq '18' ) { &field18; exit;}
if ( $in{'mode'} eq '19' ) { &field19; exit;}
if ( $in{'mode'} eq '20' ) { &field20; exit;}
if ( $in{'mode'} eq '21' ) { &field21; exit;}
if ( $in{'mode'} eq '22' ) { &field22; exit;}
if ( $in{'mode'} eq '23' ) { &field23; exit;}
if ( $in{'mode'} eq '24' ) { &field24; exit;}
if ( $in{'mode'} eq '25' ) { &field25; exit;}
else { &contents; exit;}
#=======================================================================
sub adm1 {
if($manage_pass eq "1234"){
$dis_closure = "
[パスワード = 1234]
";
}
&html_header();
print <<"EOF";
$foot
EOF
}
#====================================目次
sub contents {
&html_header();
$t2_width =$t_width /2 ;
$i =0;
$j =13;
while($i < 13){
$fied_name .="| $content_table[$i]\ | ";
$fied_name .="$content_table[$j]\ |
";
$i ++;
$j ++;
}
print <<"EOF";
$foot
