#!/usr/bin/perl
#///////////////////////////////////////////////////////////////////////////////
# System manager for メールフォーム Easy Mail Form Ver.1.00
# ----- 2007(C) WEB INVENTOR(Solve) -----
# solve@wb-i.net
# http://wb-i.net/
#
#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはフリーソフトです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
# http://・・/fsetup.cgi
#===============================================================================
require './fset.pl';
#==================目次テーブル==============
$content_table[0] ='【1】sendmailのパス/ライセンス/パスワード/テストモード/ロックモード/プログラムのタイトル';
$content_table[1] ='【2】スクリプト＆ファイルのパス';
$content_table[2] ='【3】メールフォームの共通設定（PC用）';
$content_table[3] ='【4】（未使用）';
$content_table[4] ='【5】デザインの設定';
$content_table[5] ='【6】スタイルシート';
$content_table[6] ='【7】問合せフォーム1';
$content_table[7] ='【8】問合せフォーム2';
$content_table[8] ='【9】問合せフォーム3';
$content_table[9] ='【10】問合せフォーム4';
$content_table[10] ='【11】問合せフォーム5';
$content_table[11] ='【12】問合せフォーム6';
$content_table[12] ='【13】問合せフォーム7';
$content_table[13] ='【14】問合せフォーム8';
$content_table[14] ='【15】問合せフォーム9';
$content_table[15] ='【16】問合せフォーム10';
$content_table[16] ='【17】決済方法の設定';
#===============================================================================
# ▼設定▼
#===============================================================================
# パスワード
$manage_pass =$adm_pass; #1234以外を設定して下さい。
# jcode.plへのパス
require './jcode.pl';
# cgi-lib.plへのパス
require './cgi-lib.pl';
# MIMEコード変換ライブラリ
require './mimew.pl';
# 本スクリプトのパス
$script_set = "./fsetup.cgi";
# 設定ファイルのパス
$setup_file = "./form_info.cgi";
# テーブルのサイズ
$t_width ='700';
# バックの色
$bg_color2 = "#ffffff"; #壁の色
# 薄い背景色
$color_r ="#ddeeff";
# のカスタマイズ
$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 ="./form.cgi?mode=adm_menu&pass=$in{'pass'}";
$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_15; exit;}
if ( $in{'mode'} eq '7' ) { &field06_15; exit;}
if ( $in{'mode'} eq '8' ) { &field06_15; exit;}
if ( $in{'mode'} eq '9' ) { &field06_15; exit;}
if ( $in{'mode'} eq '10' ) { &field06_15; exit;}
if ( $in{'mode'} eq '11' ) { &field06_15; exit;}
if ( $in{'mode'} eq '12' ) { &field06_15; exit;}
if ( $in{'mode'} eq '13' ) { &field06_15; exit;}
if ( $in{'mode'} eq '14' ) { &field06_15; exit;}
if ( $in{'mode'} eq '15' ) { &field06_15; exit;}
if ( $in{'mode'} eq '16' ) { &field16; 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 =9;
while($i < 9){
$fied_name .="| $content_table[$i]\ | ";
$fied_name .="$content_table[$j]\ |
";
$i ++;
$j ++;
}
print <<"EOF";
$foot
