#!/usr/bin/perl
#///////////////////////////////////////////////////////////////////////////////
# Set-Up manager for Digital Contents Cart Ver10.00
# ----- 2006(C) WEB INVENTOR(Solve) -----
# solve@wb-i.net
# http://wb-i.net/
#
#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
# http://・・/setup.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】自社アフィリエイト・プログラムのための設定';
$content_table[26] ='【27】宣伝広告機能の設定';
$content_table[27] ='【28】アフィリエイトプログラム（ＡＳＰ）用の設定';
$content_table[28] ='【29】口コミ情報用掲示板の設定';
$content_table[29] ='【30】トップ１のページのHTMLの設定';
$content_table[30] ='【31】トップ２のページのHTMLの設定';
$content_table[31] ='【32】トップ３のページのHTMLの設定';
$content_table[32] ='【33】トップ４のページのHTMLの設定';
$content_table[33] ='【34】トップ５のページのHTMLの設定';
$content_table[34] ='【35】携帯のHOMEのHTMLの設定';
$content_table[35] ='【36】Cタイプのスタイルシート';
$content_table[36] ='【37】携帯のTOP１のHTMLの設定';
$content_table[37] ='【38】携帯のTOP２のHTMLの設定';
$content_table[38] ='【39】携帯のTOP３のHTMLの設定';
$content_table[39] ='【40】携帯のTOP４のHTMLの設定';
$content_table[40] ='【41】携帯のTOP５のHTMLの設定';
$content_table[41] ='【42】絵文字テーブルの設定';
$content_table[42] ='【43】電子マネーの設定';
#===============================================================================
# ▼設定▼
#===============================================================================
# パスワード
$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;}
if ( $in{'mode'} eq '26' ) { &field26; exit;}
if ( $in{'mode'} eq '27' ) { &field27; exit;}
if ( $in{'mode'} eq '28' ) { &field28; exit;}
if ( $in{'mode'} eq '29' ) { &field29; exit;}
if ( $in{'mode'} eq '30' ) { &field30; exit;}
if ( $in{'mode'} eq '31' ) { &field31; exit;}
if ( $in{'mode'} eq '32' ) { &field32; exit;}
if ( $in{'mode'} eq '33' ) { &field33; exit;}
if ( $in{'mode'} eq '34' ) { &field34; exit;}
if ( $in{'mode'} eq '35' ) { &field35; exit;}
if ( $in{'mode'} eq '36' ) { &field36; exit;}
if ( $in{'mode'} eq '37' ) { &field37; exit;}
if ( $in{'mode'} eq '38' ) { &field38; exit;}
if ( $in{'mode'} eq '39' ) { &field39; exit;}
if ( $in{'mode'} eq '40' ) { &field40; exit;}
if ( $in{'mode'} eq '41' ) { &field41; exit;}
if ( $in{'mode'} eq '42' ) { &field42; 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 =22;
while($i < 22){
$fied_name .="| $content_table[$i]\ | ";
unless($j == 50 ){
$fied_name .="$content_table[$j]\ |
";
}else{
$fied_name .="$content_table[$j]\ | ";
}
$i ++;
$j ++;
}
print <<"EOF";
$foot
