#!/usr/bin/perl

#------------------------------------------
# FFXI Member Registration System Admin
# Version 0.67a(07/11/24)
# script by seno 2002-2007
# webmaster@senobeya.com
# 著作権表示は消すなとかしょうもないことは
# 言わないのですヨ。好きにしてよし！
#------------------------------------------


#設定類
# $lockdir＝""; とすることで、ファイルロックをしません。
# ただしデータ消滅の危険度は飛躍的に高くなります。
# バックアップを取るなどの対応をしてください。

$lockdir="lock";

#バージョン番号。いじらないでネ。改造した場合は適当にどうぞ。
$version="Version 0.67a(config ver must be 0.67)";

#このスクリプトのなまえ。ファイル名を変更したときはここも変更してください。
$script="guildmember.cgi";
$script2="admin.cgi";

#設定ファイル読み出し
require "setup.cgi";

#日本語らいぶらり
require './jcode.pl';

#
# MAIN ROUTINE
#

&form_read;


if($function eq "login"){
	&login;
}
elsif($function eq "regist") {
	&regist;
}
elsif($function eq "login2") {
	&login2;
}
elsif($function eq "verup") {
	&verup;
}
elsif($function eq "maintenance") {
	&maintenance;
}
elsif($function eq "custom") {
	&custom;
}
elsif($function eq "regist2") {
	&regist2;
} else {
	&entrance;
}
&footer;


#
# SUB ROUTINE
#

#
#入り口。
#

sub entrance{
&header;
if($language ne "English"){
print <<"EOM";
管理モードへのパスワードを入力してください。<BR>
<form method=post action=$script2><input type=hidden name=function value="login"><input type=password name=pass><input type=submit value='enter'></form>
<a href=$script>Go Top</a>
EOM
} else {
print <<"EOM";
Enter Master password to go administrator mode<BR>
<form method=post action=$script2><input type=hidden name=function value="login"><input type=password name=pass><input type=submit value='enter'></form>
<a href=$script>Go Top</a>
EOM
}
&vercheck;

}

#
#レジスト
#
sub regist{
	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}

$homepage=$FORM{'homepage'};
$bbspage=$FORM{'bbspage'};
$datafile=$FORM{'datafile'};
$diaryletter=$FORM{'diaryletter'};
$diarymax=$FORM{'diarymax'};
$diaryres=$FORM{'diaryres'};
$showmax=$FORM{'showmax'};
$master_pass=$FORM{'master_pass'};
$guild_name=$FORM{'guild_name'};

$guild_name =~ s/\\/\\\\/g;

$topic=$FORM{'topic'};

$topic =~ s/\\/\\\\/g;


$reg_mode=$FORM{'reg_mode'};
$reg_pass=$FORM{'reg_pass'};
$class_edit=$FORM{'class_edit'};
$anon_mode=$FORM{'anon_mode'};
$level_mode=$FORM{'level_mode'};
$limit_table=$FORM{'limit_table'};
$bgimg=$FORM{'bgimg'};
$diarygif=$FORM{'diarygif'};
$upgif=$FORM{'upgif'};
$background=$FORM{'background'};
$textcolor=$FORM{'textcolor'};
$indexcolor=$FORM{'indexcolor'};
$maincolor=$FORM{'maincolor'};
$supportcolor=$FORM{'supportcolor'};
$mydata=$FORM{'mydata'};
$otherdata=$FORM{'otherdata'};
$titlebg=$FORM{'titlebg'};
$tableborder=$FORM{'tableborder'};
$profcolor=$FORM{'profcolor'};
$skillcolor=$FORM{'skillcolor'};
$color0=$FORM{'color0'};
$color1=$FORM{'color1'};
$color2=$FORM{'color2'};
$color3=$FORM{'color3'};
$color4=$FORM{'color4'};
$color5=$FORM{'color5'};
$color6=$FORM{'color6'};
$color7=$FORM{'color7'};
$color8=$FORM{'color8'};
$color9=$FORM{'color9'};
$color10=$FORM{'color10'};
$font_body=$FORM{'font_body'};
$font_big=$FORM{'font_big'};
$font_small=$FORM{'font_small'};
$font_td=$FORM{'font_td'};
$font_th=$FORM{'font_th'};
$font_title=$FORM{'font_title'};
$diarybg=$FORM{'diarybg'};
$imgallow=$FORM{'imgallow'};
$imgmax=$FORM{'imgmax'};
$rescolor=$FORM{'rescolor'};
$oekaki=$FORM{'oekaki'};
$c_max=$FORM{'c_max'};
$c_link=$FORM{'c_link'};
$c_visit=$FORM{'c_visit'};
$c_active=$FORM{'c_active'};
$c_hover=$FORM{'c_hover'};
$skill_visible=$FORM{'skill_visible'};
$imgdir=$FORM{'imgdir'};
$putdir=$FORM{'putdir'};
$diarydir=$FORM{'diarydir'};
$iconuse=$FORM{'iconuse'};
$icondir=$FORM{'icondir'};
$iconurl=$FORM{'iconurl'};
$iconhp=$FORM{'iconhp'};
$iconhp =~ s/\\/\\\\/g;
$diaryallow=$FORM{'diaryallow'};
$cookie_check=$FORM{'cookie_check'};
$key_avail=$FORM{'key_avail'};
$rss_avail=$FORM{'rss_avail'};
$denyhost=$FORM{'denyhost'};
$denyhost=~ s/<BR>/ /g;
$denyword=$FORM{'denyword'};
$denyword=~ s/<BR>/ /g;
$sage=$FORM{'sage'};
$loghistory=$FORM{'loghistory'};
$logmax=$FORM{'logmax'};
$historyfile=$FORM{'historyfile'};
$mesdir=$FORM{'mesdir'};
$mes_avail=$FORM{'mes_avail'};
$mexpmode=$FORM{'mexpmode'};
$denyeng=$FORM{'denyeng'};
$default_sort=$FORM{'default_sort'};
$default_mode=$FORM{'default_mode'};
$default_function=$FORM{'default_function'};
$default_no=$FORM{'default_no'};
$pulldown_menu=$FORM{'pulldown_menu'};
$site=$FORM{'site'};
$rdfname=$FORM{'rdfname'};
$channnelurl=$FORM{'channnelurl'}; #nが1個多い件について。

@list=('homepage',
'bbspage',
'datafile',
'diaryletter',
'diarymax',
'diaryres',
'showmax',
'master_pass',
'guild_name',
'topic',
'reg_mode',
'reg_pass',
'class_edit',
'anon_mode',
'level_mode',
'limit_table',
'bgimg',
'diarygif',
'upgif',
'background',
'textcolor',
'indexcolor',
'maincolor',
'supportcolor',
'mydata',
'otherdata',
'titlebg',
'tableborder',
'profcolor',
'skillcolor',
'color0',
'color1',
'color2',
'color3',
'color4',
'color5',
'color6',
'color7',
'color8',
'color9',
'color10',
'font_body',
'font_big',
'font_small',
'font_td',
'font_th',
'font_title',
'diarybg',
'imgallow',
'imgmax',
'rescolor',
'c_max',
'c_link',
'c_visit',
'c_active',
'c_hover',
'skill_visible',
'oekaki',
'imgdir',
'putdir',
'diarydir',
'iconuse',
'icondir',
'iconurl',
'iconhp',
'diaryallow',
'cookie_check',
'key_avail',
'rss_avail',
'logmax',
'loghistory',
'sage',
'historyfile',
'denyhost',
'mes_avail',
'mesdir',
'mexpmode',
'denyeng',
'denyword',
'default_sort',
'default_function',
'default_no',
'default_mode',
'pulldown_menu',
'site',
'rdfname',
'channnelurl',
);

&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=<IN>;
close IN;

&header;
foreach $item(@list){



$match=0;
	for($i=0;$i<$#all+1;$i++){
		if($all[$i] =~ /^\$$item=(.*);(.*)/){



			$all[$i]="\$$item=\"$$item\";$2\n";
			$match=1;



		}
	}
	if($match==0){

		push(@all,"\$$item=\"$$item\";\n");
	}

}

@out=@all;
&check_out;

if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @out;
close OUT;
rmdir($lockdir);
$registed="yes";
$pass=$master_pass;
&login;
}

#
#ログイン
#

sub login{
	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}
	if($registed eq "yes"){
if($language ne "English"){
	print "設定ファイルを書き換えました。";
} else {
	print "Configuration file is modifyed.";
}

	} else {
		&header;
		&vercheck;
	}
	srand();
    $xx = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        . "abcdefghijklmnopqrstuvwxyz"
        . "0123456789.";
    $salt = substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);

if($language ne "English"){
print "<HR><a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";
} else {
print "<HR><a href=$script?$salt>[Go Top]</a><a href=$script?function=faq>[Usage]</a><a href='$homepage'>[back to homepage]</a><BR>";
}

	&dirlock;
	if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
	@all=<IN>;
	close IN;
	foreach $i(@all){
		if(!($i =~ /^#/ || $i eq "\n")){
			if($i =~/^\$([\[\]\w ]*)=(.*);/){
				$d1=$1;$d2=$2;
				$d2 =~ s/\"//g;
				$$d1=$d2;
			}
		}
	}
rmdir($lockdir);

$denyhost =~ s/ /\n/g;
$denyword =~ s/ /\n/g;

if($language ne "English"){

print <<"EOM";
<form method=post action=$script2>
<input type=hidden name=function value=regist>
<input type=hidden name=pass value="$pass">
<table><TR valign=top><TD>
General Settings

<table border>
<TR><TH colspan=2>一般設定</TH></TR>
<TR><TD>ホームページurl</TD><TD><input type=text name=homepage value='$homepage'></TD></TR>
<TR><TD>掲示板url（空欄でリンク自体が出なくなります）</TD><TD><input type=text name=bbspage value='$bbspage'></TD></TR>
<TR><TD>データファイル名</TD><TD><input type=text name=datafile value='$datafile'></TD></TR>
EOM
print "<TR><TD>マスターパスワード</TD><TD><input type=text name=master_pass value='$master_pass'></TD></TR>";
print "<TR><TD>ギルド名</TD><TD><input type=text name=guild_name value=\"$guild_name\"></TD></TR>";
print "<TR><TD>トピック、タイトル名</TD><TD><input type=text name=topic value=\"$topic\"></TD></TR>";
print "<TR><TD>新規登録</TD><TD><select name=reg_mode>";
if($reg_mode == 1){
print "<option value=1 selected>自由</option>";
print "<option value=0>パス必要</option>";
} else {
print "<option value=1>自由</option>";
print "<option value=0 selected>パス必要</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>新規登録パスワード</TD><TD><input type=text name=reg_pass value='$reg_pass'></TD></TR>
<TR><TD>Classの編集</TD><TD><select name=class_edit>

EOM
if($class_edit == 1){
print "<option value=1 selected>本人可</option>";
print "<option value=0>マスターのみ</option>";
} else {
print "<option value=1>本人可</option>";
print "<option value=0 selected>マスターのみ</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>Anonモードの</TD><TD><select name=anon_mode>
EOM
if($anon_mode == 1){
print "<option value=1 selected>有効</option>";
print "<option value=0>無効</option>";
} else {
print "<option value=1>有効</option>";
print "<option value=0 selected>無効</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>レベル表\示のバックカラー</TD><TD><select name=level_mode>
EOM
if($level_mode == 1){
print "<option value=1 selected>レベル別</option>";
print "<option value=0>メイン／サポ</option>";
} else {
print "<option value=1>レベル別</option>";
print "<option value=0 selected>メイン／サポ</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>初期表\示モード</TD><TD><select name=limit_table>
EOM
@limtlist=('シンプル','ジョブ','合成','ステータス','フル','フル２','アイコン','スキル','アイコン(新着順)','レベルサーチ','ミッション','アサルト','履歴','カスタム');
for($i=0;$i<$#limtlist+1;$i++){
print "<option value=$i";
if($limit_table == $i){print " selected";}
print ">$limtlist[$i]</option>"
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TH colspan=2>日記関連</TH></TR>
<TR><TD>日記ファイル拡張子</TD><TD><input type=text name=diaryletter value='$diaryletter'></TD></TR>
<TR><TD>日記最大件数</TD><TD><input type=text name=diarymax value='$diarymax'></TD></TR>

<TR><TD>日記機能\の許可</TD><TD><select name=diaryallow>
EOM
if($diaryallow == 1){
print "<option value=1 selected>無効</option>";
print "<option value=0>有効</option>";
} else {
print "<option value=1>無効</option>";
print "<option value=0 selected>有効</option>";
}
print "</select></TD></TR>";

print "<TR><TD>日記へのレス</TD><TD><select name=diaryres>";
if($diaryres == 1){
print "<option value=1 selected>有効</option>";
print "<option value=0>無効</option>";
} else {
print "<option value=1>有効</option>";
print "<option value=0 selected>無効</option>";
}
print "</select></TD></TR>";

print "<TR><TD>日記フロート機能\</TD><TD><select name=sage>";
if($sage == 1){
print "<option value=1 selected>有効</option>";
print "<option value=0>無効</option>";
} else {
print "<option value=1>有効</option>";
print "<option value=0 selected>無効</option>";
}
print "</select></TD></TR>";

$topic =~ s/\\\\/\\/g;
$guild_name =~ s/\\\\/\\/g;
$iconhp =~ s/\\\\/\\/g;


print "<TR><TD>日記表\示数</TD><TD><input type=text name=showmax value='$showmax'></TD></TR>";
print "<TR><TD>画像アップの許可\</TD><TD><select name=imgallow>";
if($imgallow == 1){
print "<option value=1 selected>許可</option>";
print "<option value=0>許可しない</option>";
} else {
print "<option value=1>許可</option>";
print "<option value=0 selected>許可しない</option>";
}
print "</select></TD></TR>";

	print "<TR><TD>同時画像アップの最大数\</TD><TD><input type=text name=imgmax value='$imgmax'></TD></TR>";

print "<TR><TD>お絵描きの許可\</TD><TD><select name=oekaki>";
if($oekaki == 1){
print "<option value=1 selected>許可</option>";
print "<option value=0>許可しない</option>";
} else {
print "<option value=1>許可</option>";
print "<option value=0 selected>許可しない</option>";
}
print "</select></TD></TR>";

print "<TR><TD>英語レスの禁止</TD><TD><select name=denyeng>";
if($denyeng == 1){
print "<option value=1 selected>許可しない</option>";
print "<option value=0>許可</option>";
} else {
print "<option value=1>許可しない</option>";
print "<option value=0 selected>許可</option>";
}
print "</select></TD></TR>";

print "<TR><TD>メニュー形式</TD><TD><select name=pulldown_menu>";
if($pulldown_menu == 1){
print "<option value=1 selected>プルダウン</option>";
print "<option value=0>リンク</option>";
} else {
print "<option value=1>プルダウン</option>";
print "<option value=0 selected>リンク</option>";
}
print "</select></TD></TR>";

print "<TR><TH colspan=2>初期ソ\−ト設定</TH></TR>";
print "<TR><TD>ソ\ート条件</TD><TD><select name=default_sort>";
if($default_sort == 33){
print "<option value=33 selected>カスタム項目</option>";
print "<option value=16>更新時間</option>";
print "<option value=0>無指定</option>";
} elsif($default_sort ==16){
print "<option value=33>カスタム項目</option>";
print "<option value=16 selected>更新時間</option>";
print "<option value=0>無指定</option>";
} else  {
print "<option value=33>カスタム項目</option>";
print "<option value=16>更新時間</option>";
print "<option value=0 selected>無指定</option>";
}
print "</select></TD></TR>";

print "<TR><TD>昇順・逆順</TD><TD><select name=default_mode>";
if($default_mode eq "r"){
print "<option value='r' selected>逆順</option>";
print "<option value=''>昇順</option>";
} else {
print "<option value='r'>逆順</option>";
print "<option value='' selected>昇順</option>";
}
print "</select></TD></TR>";

print "<TR><TD>カスタム検索キー項目</TD><TD><select name=default_function>";
for($i=1;$i<$#custom_field+1;$i++){
print "<option value=$i";
if($default_function == $i){print " selected";}
print ">$custom_field[$i]</option>"
}
print "</select></TD></TR>";

print "<TR><TD>カスタム検索ソ\−トモード</TD><TD><select name=default_no>";
if($default_no == 1){
print "<option value=1 selected>数字</option>";
print "<option value=0 >文字</option>";
} else {
print "<option value=1>数字</option>";
print "<option value=0 selected>文字</option>";
}
print "</select></TD></TR>";





print "<TR><TH colspan=2>機能\関連</TH></TR>";

print "<TR><TD>スキル関係表\示</TD><TD><select name=skill_visible>";
if($skill_visible == 1){
print "<option value=1 selected>許可</option>";
print "<option value=0>許可しない</option>";
} else {
print "<option value=1>許可</option>";
print "<option value=0 selected>許可しない</option>";
}
print "</select></TD></TR>";

print "<TR><TD>クッキーセキュリティ制御</TD><TD><select name=cookie_check>";
if($cookie_check == 1){
print "<option value=1 selected>使用</option>";
print "<option value=0>未使用</option>";
} else {
print "<option value=1>使用</option>";
print "<option value=0 selected>未使用</option>";
}
print "</select></TD></TR>";
print "<TR><TD>RSSフィード設定(テスト用)</TD><TD><select name=rss_avail>";
if($rss_avail == 1){
print "<option value=1 selected>使用</option>";
print "<option value=0>未使用</option>";
} else {
print "<option value=1>使用</option>";
print "<option value=0 selected>未使用</option>";
}
print "</select></TD></TR>";

print "<TR><TD>RSS設定 url(スクリプト設置場所のurl)</TD><TD><input type=text name=site value='$site'></TD></TR>";
print "<TR><TD>RSS設定 rdf名称</TD><TD><input type=text name=rdfname value='$rdfname'></TD></TR>";
print "<TR><TD>RSS設定 channnelurl(通常urlと同じです)</TD><TD><input type=text name=channnelurl value='$channnelurl'></TD></TR>";

print "<TR><TD>キーワードリンク機能\(テスト用)</TD><TD><select name=key_avail>";
if($key_avail == 1){
print "<option value=1 selected>使用</option>";
print "<option value=0>未使用</option>";
} else {
print "<option value=1>使用</option>";
print "<option value=0 selected>未使用</option>";
}
print "</select></TD></TR>";

print "<TR><TD>メッセージ機能\</TD><TD><select name=mes_avail>";
if($mes_avail == 1){
print "<option value=1 selected>使用</option>";
print "<option value=0>未使用</option>";
} else {
print "<option value=1>使用</option>";
print "<option value=0 selected>未使用</option>";
}
print "</select></TD></TR>";

print "<TR><TD>メリットポイントexp表\示</TD><TD><select name=mexpmode>";
if($mexpmode == 1){
print "<option value=1 selected>総合計</option>";
print "<option value=0>別表\示</option>";
} else {
print "<option value=1>総合計</option>";
print "<option value=0 selected>別表\示</option>";
}
print "</select></TD></TR>";

print <<"EOM";
<TR><TD>背景画像</TD><TD><input type=text name=bgimg value='$bgimg'></TD></TR>
<TR><TD>日記アイコンのurl (<img src="$diarygif">)</TD><TD><input type=text name=diarygif value='$diarygif'></TD></TR>
<TR><TD>Upアイコンのurl (<img src="$upgif">)</TD><TD><input type=text name=upgif value='$upgif'></TD></TR>
<TR><TD>インデックス行数</TD><TD><input type=text name=c_max value='$c_max'></TD></TR>
EOM
print "<TR><TH colspan=2>履歴関連</TH></TR>";
print "<TR><TD>履歴取得</TD><TD><select name=loghistory>";
if($loghistory == 1){
print "<option value=1 selected>使用</option>";
print "<option value=0>未使用</option>";
} else {
print "<option value=1>使用</option>";
print "<option value=0 selected>未使用</option>";
}
print "</select></TD></TR>";
print <<"EOM";

<TR><TD>履歴行数</TD><TD><input type=text name=logmax value='$logmax'></TD></TR>
<TR><TD>履歴ファイル名</TD><TD><input type=text name=historyfile value='$historyfile'></TD></TR>

</table>
</TD><TD>
Coloring<BR>
<table border class=tbl>
<TR><TD>背景色</TD><TD><input type=text name=background value="$background"></TD></TR>
<TR><TD>文字色</TD><TD><input type=text name=textcolor value="$textcolor"></TD></TR>
<TR><TD><font color="$rescolor">レス文字色</font></TD><TD><input type=text name=rescolor value="$rescolor"></TD></TR>
<TR bgcolor=$indexcolor><TD>表\見出し色</TD><TD><input type=text name=indexcolor value="$indexcolor"></TD></TR>
<TR bgcolor=$maincolor><TD>メインジョブ背景色</TD><TD><input type=text name=maincolor value="$maincolor"></TD></TR>
<TR bgcolor=$supportcolor><TD>サポートジョブ背景色</TD><TD><input type=text name=supportcolor value="$supportcolor"></TD></TR>
<TR bgcolor=$mydata><TD>自データ背景色</TD><TD><input type=text name=mydata value="$mydata"></TD></TR>
<TR bgcolor=$otherdata><TD>他データ背景色</TD><TD><input type=text name=otherdata value="$otherdata"></TD></TR>
<TR bgcolor=$titlebg><TD>タイトル背景色</TD><TD><input type=text name=titlebg value="$titlebg"></TD></TR>
<TR bgcolor=$tableborder><TD>枠線色</TD><TD><input type=text name=tableborder value="$tableborder"></TD></TR>
<TR bgcolor=$profcolor><TD>プロフィール背景色</TD><TD><input type=text name=profcolor value="$profcolor"></TD></TR>
<TR bgcolor=$skillcolor><TD>合成スキル表\示用背景色</TD><TD><input type=text name=skillcolor value="$skillcolor"></TD></TR>
<TR bgcolor=$diarybg><TD>日記背景色(無指定で透明）</TD><TD><input type=text name=diarybg value="$diarybg"></TD></TR>
</table>
<BR>
Folder
<table border>
<TR><TD>画像フォルダ</TD><TD><input type=text name=imgdir value="$imgdir"></TD></TR>
<TR><TD>画像出力url</TD><TD><input type=text name=putdir value="$putdir"></TD></TR>
<TR><TD>日記フォルダ</TD><TD><input type=text name=diarydir value="$diarydir"></TD></TR>
<TR><TD>メッセージフォルダ</TD><TD><input type=text name=mesdir value="$mesdir"></TD></TR>
EOM

print "<TR><TD>顔アイコンの使用</TD><TD><select name=iconuse>";
if($iconuse eq "yes"){
print "<option value=yes selected>使用</option>";
print "<option value=no>使用しない</option>";
} else {
print "<option value=yes>使用</option>";
print "<option value=no selected>使用しない</option>";
}

print <<"EOM";
<TR><TD>アイコン格納フォルダ</TD><TD><input type=text name=icondir value="$icondir"></TD></TR>
<TR><TD>アイコン著作ページurl</TD><TD><input type=text name=iconurl value="$iconurl"></TD></TR>
<TR><TD>アイコン著作ページタイトル</TD><TD><input type=text name=iconhp value="$iconhp"></TD></TR>

</table>

</TD><TD>
JobColor<BR>
<table border class=tbl>
<TR bgcolor=$color0><TD>Level 1-10</TD><TD><input type=text name=color0 value="$color0"></TD></TR>
<TR bgcolor=$color1><TD>Level11-20</TD><TD><input type=text name=color1 value="$color1"></TD></TR>
<TR bgcolor=$color2><TD>Level21-30</TD><TD><input type=text name=color2 value="$color2"></TD></TR>
<TR bgcolor=$color3><TD>Level31-40</TD><TD><input type=text name=color3 value="$color3"></TD></TR>
<TR bgcolor=$color4><TD>Level41-50</TD><TD><input type=text name=color4 value="$color4"></TD></TR>
<TR bgcolor=$color5><TD>Level51-60</TD><TD><input type=text name=color5 value="$color5"></TD></TR>
<TR bgcolor=$color6><TD>Level61-70</TD><TD><input type=text name=color6 value="$color6"></TD></TR>
<TR bgcolor=$color7><TD>Level71-80</TD><TD><input type=text name=color7 value="$color7"></TD></TR>
<TR bgcolor=$color8><TD>Level81-90</TD><TD><input type=text name=color8 value="$color8"></TD></TR>
<TR bgcolor=$color9><TD>Level91-99</TD><TD><input type=text name=color9 value="$color9"></TD></TR>
<TR bgcolor=$color10><TD>Level100</TD><TD><input type=text name=color10 value="$color10"></TD></TR>
</table>
Fonts
<table class=tbl>
<TR><TD>body(本文)</TD><TD><input type=text name=font_body value="$font_body"></TD></TR>
<TR><TD>big(強調文字)</TD><TD><input type=text name=font_big value="$font_big"></TD></TR>
<TR><TD>small(小文字)</TD><TD><input type=text name=font_small value="$font_small"></TD></TR>
<TR><TD>td(表\中フォント)</TD><TD><input type=text name=font_td value="$font_td"></TD></TR>
<TR><TD>th(表\見出しフォント)</TD><TD><input type=text name=font_th value="$font_th"></TD></TR>
<TR><TD>title(タイトルサイズ)</TD><TD><input type=text name=font_title value="$font_title"></TD></TR>
<TR><TD>リンク色</TD><TD><input type=text name=c_link value="$c_link"></TD></TR>
<TR><TD>既知リンク色</TD><TD><input type=text name=c_visit value="$c_visit"></TD></TR>
<TR><TD>クリック時リンク色</TD><TD><input type=text name=c_active value="$c_active"></TD></TR>
<TR><TD>上に載せたときリンク色</TD><TD><input type=text name=c_hover value="$c_hover"></TD></TR>
</table><BR><HR>
アクセス制限リスト(制限したいホスト・IPを1行ごとに列記してください）<BR>
<textarea name=denyhost cols=20 rows=5>$denyhost</textarea><BR>
禁止キーワード(禁止ワードがあるとレスできなくなります。ワードを1行ごとに列記してください）<BR>
<textarea name=denyword cols=20 rows=5>$denyword</textarea><BR>
<input type=submit value="変更">
</TD></TR></table>

</form>
<HR>
EOM
print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=gpass value=$pass><input type=hidden name=function value=master><input type=submit value='マスターモードへ戻る'></form>";

} else {

#english mastermode

print <<"EOM";
<form method=post action=$script2>
<input type=hidden name=function value=regist>
<input type=hidden name=pass value="$pass">
<table><TR valign=top><TD>



General Settings

<table border>
<TR><TH colspan=2>General Settings</TH></TR>
<TR><TD>Webpage url</TD><TD><input type=text name=homepage value='$homepage'></TD></TR>
<TR><TD>BBS url</TD><TD><input type=text name=bbspage value='$bbspage'></TD></TR>
<TR><TD>datafile name</TD><TD><input type=text name=datafile value='$datafile'></TD></TR>
EOM
print "<TR><TD>master password</TD><TD><input type=text name=master_pass value='$master_pass'></TD></TR>";
print "<TR><TD>guild name</TD><TD><input type=text name=guild_name value=\"$guild_name\"></TD></TR>";
print "<TR><TD>page title</TD><TD><input type=text name=topic value=\"$topic\"></TD></TR>";
print "<TR><TD>new entry</TD><TD><select name=reg_mode>";
if($reg_mode == 1){
print "<option value=1 selected>free</option>";
print "<option value=0>need password</option>";
} else {
print "<option value=1>free</option>";
print "<option value=0 selected>need password</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>new entry password</TD><TD><input type=text name=reg_pass value='$reg_pass'></TD></TR>
<TR><TD>Class Edit</TD><TD><select name=class_edit>

EOM
if($class_edit == 1){
print "<option value=1 selected>free</option>";
print "<option value=0>master only</option>";
} else {
print "<option value=1>free</option>";
print "<option value=0 selected>master only</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>Anon mode </TD><TD><select name=anon_mode>
EOM
if($anon_mode == 1){
print "<option value=1 selected>Enable</option>";
print "<option value=0>not enable</option>";
} else {
print "<option value=1>Enable</option>";
print "<option value=0 selected>not enable</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>Backcolor for level mode</TD><TD><select name=level_mode>
EOM
if($level_mode == 1){
print "<option value=1 selected>Level</option>";
print "<option value=0>Main/sub</option>";
} else {
print "<option value=1>Level</option>";
print "<option value=0 selected>Main/Sub</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>Default mode</TD><TD><select name=limit_table>
EOM
@limtlist=('Simple','Job','Synthesis','Status','Full','Full2','Icon','Skill','Icon by time','LevelSearch','Mission','Assault','History','CustomField');
for($i=0;$i<$#limtlist+1;$i++){
print "<option value=$i";
if($limit_table == $i){print " selected";}
print ">$limtlist[$i]</option>"
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TH colspan=2>Diary Functions</TH></TR>
<TR><TD>diary file extension</TD><TD><input type=text name=diaryletter value='$diaryletter'></TD></TR>
<TR><TD>diary max articles</TD><TD><input type=text name=diarymax value='$diarymax'></TD></TR>

<TR><TD>Diary function</TD><TD><select name=diaryallow>
EOM
if($diaryallow == 1){
print "<option value=1 selected>not enable</option>";
print "<option value=0>enable</option>";
} else {
print "<option value=1>not enable</option>";
print "<option value=0 selected>enable</option>";
}
print "</select></TD></TR>";

print "<TR><TD>response for diary</TD><TD><select name=diaryres>";
if($diaryres == 1){
print "<option value=1 selected>Enable</option>";
print "<option value=0>not enable</option>";
} else {
print "<option value=1>enable</option>";
print "<option value=0 selected>not enable</option>";
}
print "</select></TD></TR>";

print "<TR><TD>Floating Diary Articles</TD><TD><select name=sage>";
if($sage == 1){
print "<option value=1 selected>Enable</option>";
print "<option value=0>not enable</option>";
} else {
print "<option value=1>Enable</option>";
print "<option value=0 selected>not enable</option>";
}
print "</select></TD></TR>";

$topic =~ s/\\\\/\\/g;
$guild_name =~ s/\\\\/\\/g;
$iconhp =~ s/\\\\/\\/g;


print "<TR><TD>max articles on screen</TD><TD><input type=text name=showmax value='$showmax'></TD></TR>";
print "<TR><TD>image upload</TD><TD><select name=imgallow>";
if($imgallow == 1){
print "<option value=1 selected>enable</option>";
print "<option value=0>not enable</option>";
} else {
print "<option value=1>enable</option>";
print "<option value=0 selected>not enable</option>";
}
print "</select></TD></TR>";

	print "<TR><TD>upload image numbers</TD><TD><input type=text name=imgmax value='$imgmax'></TD></TR>";

print "<TR><TD>free drawing</TD><TD><select name=oekaki>";
if($oekaki == 1){
print "<option value=1 selected>enable</option>";
print "<option value=0>not enable</option>";
} else {
print "<option value=1>enable</option>";
print "<option value=0 selected>not enable</option>";
}
print "</select></TD></TR>";

print "<TR><TD>Deny English comment(for Japanese)</TD><TD><select name=denyeng>";
if($denyeng == 1){
print "<option value=1 selected>not allow</option>";
print "<option value=0>allow</option>";
} else {
print "<option value=1>not allow</option>";
print "<option value=0 selected>allow</option>";
}
print "</select></TD></TR>";

print "<TR><TD>menu style</TD><TD><select name=pulldown_menu>";
if($pulldown_menu == 1){
print "<option value=1 selected>pulldown</option>";
print "<option value=0>link</option>";
} else {
print "<option value=1>pulldown</option>";
print "<option value=0 selected>link</option>";
}
print "</select></TD></TR>";

print "<TR><TH colspan=2>default sort condition</TH></TR>";
print "<TR><TD>sort condition</TD><TD><select name=default_sort>";
if($default_sort == 33){
print "<option value=33 selected>custom field</option>";
print "<option value=16>time</option>";
print "<option value=0>no sort</option>";
} elsif($default_sort ==16){
print "<option value=33>custom field</option>";
print "<option value=16 selected>time</option>";
print "<option value=0>no sort</option>";
} else  {
print "<option value=33>custom field</option>";
print "<option value=16>time</option>";
print "<option value=0 selected>no sort</option>";
}
print "</select></TD></TR>";

print "<TR><TD>order</TD><TD><select name=default_mode>";
if($default_mode eq "r"){
print "<option value='r' selected>reverse</option>";
print "<option value=''>normal</option>";
} else {
print "<option value='r'>reverse</option>";
print "<option value='' selected>normal</option>";
}
print "</select></TD></TR>";

print "<TR><TD>CustomField sort</TD><TD><select name=default_function>";
for($i=1;$i<$#custom_field+1;$i++){
print "<option value=$i";
if($default_function == $i){print " selected";}
print ">$custom_field[$i]</option>"
}
print "</select></TD></TR>";

print "<TR><TD>CustomField sort mode</TD><TD><select name=default_no>";
if($default_no == 1){
print "<option value=1 selected>number</option>";
print "<option value=0 >letter</option>";
} else {
print "<option value=1>number</option>";
print "<option value=0 selected>letter</option>";
}
print "</select></TD></TR>";





print "<TR><TH colspan=2>Other Functions</TH></TR>";

print "<TR><TD>Weapon/Magic Skill feature</TD><TD><select name=skill_visible>";
if($skill_visible == 1){
print "<option value=1 selected>enable</option>";
print "<option value=0>not enable</option>";
} else {
print "<option value=1>enable</option>";
print "<option value=0 selected>not enable</option>";
}
print "</select></TD></TR>";

print "<TR><TD>cookie list limit</TD><TD><select name=cookie_check>";
if($cookie_check == 1){
print "<option value=1 selected>use</option>";
print "<option value=0>no use</option>";
} else {
print "<option value=1>use</option>";
print "<option value=0 selected>no use</option>";
}
print "</select></TD></TR>";
print "<TR><TD>RSS feed(test)</TD><TD><select name=rss_avail>";
if($rss_avail == 1){
print "<option value=1 selected>use</option>";
print "<option value=0>not use</option>";
} else {
print "<option value=1>use</option>";
print "<option value=0 selected>not use</option>";
}
print "</select></TD></TR>";

print "<TR><TD>RSS url(script url)</TD><TD><input type=text name=site value='$site'></TD></TR>";
print "<TR><TD>RSS rdf filename </TD><TD><input type=text name=rdfname value='$rdfname'></TD></TR>";
print "<TR><TD>RSS channe lurl</TD><TD><input type=text name=channnelurl value='$channnelurl'></TD></TR>";

print "<TR><TD>keyword link(test)</TD><TD><select name=key_avail>";
if($key_avail == 1){
print "<option value=1 selected>use</option>";
print "<option value=0>not use</option>";
} else {
print "<option value=1>use</option>";
print "<option value=0 selected>not use</option>";
}
print "</select></TD></TR>";

print "<TR><TD>message function</TD><TD><select name=mes_avail>";
if($mes_avail == 1){
print "<option value=1 selected>use </option>";
print "<option value=0>not use</option>";
} else {
print "<option value=1>use</option>";
print "<option value=0 selected>not use</option>";
}
print "</select></TD></TR>";

print "<TR><TD>merit point exp calcuration</TD><TD><select name=mexpmode>";
if($mexpmode == 1){
print "<option value=1 selected>total</option>";
print "<option value=0>divide</option>";
} else {
print "<option value=1>total</option>";
print "<option value=0 selected>divide</option>";
}
print "</select></TD></TR>";

print <<"EOM";
<TR><TD>background image</TD><TD><input type=text name=bgimg value='$bgimg'></TD></TR>
<TR><TD>diary icon url (<img src="$diarygif">)</TD><TD><input type=text name=diarygif value='$diarygif'></TD></TR>
<TR><TD>Up icon url (<img src="$upgif">)</TD><TD><input type=text name=upgif value='$upgif'></TD></TR>
<TR><TD>table index</TD><TD><input type=text name=c_max value='$c_max'></TD></TR>
EOM
print "<TR><TH colspan=2>History Function</TH></TR>";
print "<TR><TD>Use History Function</TD><TD><select name=loghistory>";
if($loghistory == 1){
print "<option value=1 selected>use</option>";
print "<option value=0>not use</option>";
} else {
print "<option value=1>use </option>";
print "<option value=0 selected>not use</option>";
}
print "</select></TD></TR>";
print <<"EOM";

<TR><TD>History Lines</TD><TD><input type=text name=logmax value='$logmax'></TD></TR>
<TR><TD>History Filename</TD><TD><input type=text name=historyfile value='$historyfile'></TD></TR>

</table>


</TD><TD>
Coloring<BR>
<table border class=tbl>
<TR><TD>back color</TD><TD><input type=text name=background value="$background"></TD></TR>
<TR><TD>text color</TD><TD><input type=text name=textcolor value="$textcolor"></TD></TR>
<TR><TD><font color="$rescolor">response color</font></TD><TD><input type=text name=rescolor value="$rescolor"></TD></TR>
<TR bgcolor=$indexcolor><TD>topic color</TD><TD><input type=text name=indexcolor value="$indexcolor"></TD></TR>
<TR bgcolor=$maincolor><TD>main job back</TD><TD><input type=text name=maincolor value="$maincolor"></TD></TR>
<TR bgcolor=$supportcolor><TD>sub job back</TD><TD><input type=text name=supportcolor value="$supportcolor"></TD></TR>
<TR bgcolor=$mydata><TD>my data color</TD><TD><input type=text name=mydata value="$mydata"></TD></TR>
<TR bgcolor=$otherdata><TD>other data color</TD><TD><input type=text name=otherdata value="$otherdata"></TD></TR>
<TR bgcolor=$titlebg><TD>title back color</TD><TD><input type=text name=titlebg value="$titlebg"></TD></TR>
<TR bgcolor=$tableborder><TD>table border color</TD><TD><input type=text name=tableborder value="$tableborder"></TD></TR>
<TR bgcolor=$profcolor><TD>profile column back color</TD><TD><input type=text name=profcolor value="$profcolor"></TD></TR>
<TR bgcolor=$skillcolor><TD>synthesis back color(no use)</TD><TD><input type=text name=skillcolor value="$skillcolor"></TD></TR>
<TR bgcolor=$diarybg><TD>dairy back color</TD><TD><input type=text name=diarybg value="$diarybg"></TD></TR>
</table>
<BR>
Folder
<table border>
<TR><TD>image folder</TD><TD><input type=text name=imgdir value="$imgdir"></TD></TR>
<TR><TD>image put url</TD><TD><input type=text name=putdir value="$putdir"></TD></TR>
<TR><TD>diary folder</TD><TD><input type=text name=diarydir value="$diarydir"></TD></TR>
<TR><TD>message folder</TD><TD><input type=text name=mesdir value="$mesdir"></TD></TR>
EOM

print "<TR><TD>face icon</TD><TD><select name=iconuse>";
if($iconuse eq "yes"){
print "<option value=yes selected>use</option>";
print "<option value=no>not use</option>";
} else {
print "<option value=yes>use</option>";
print "<option value=no selected>not use</option>";
}

print <<"EOM";
<TR><TD>icon folder</TD><TD><input type=text name=icondir value="$icondir"></TD></TR>
<TR><TD>icon page url</TD><TD><input type=text name=iconurl value="$iconurl"></TD></TR>
<TR><TD>icon page title</TD><TD><input type=text name=iconhp value="$iconhp"></TD></TR>
<TR><TD colspan=2>

</TD></TR>

</table>

</TD><TD>
JobColor<BR>
<table border class=tbl>
<TR bgcolor=$color0><TD>Level 1-10</TD><TD><input type=text name=color0 value="$color0"></TD></TR>
<TR bgcolor=$color1><TD>Level11-20</TD><TD><input type=text name=color1 value="$color1"></TD></TR>
<TR bgcolor=$color2><TD>Level21-30</TD><TD><input type=text name=color2 value="$color2"></TD></TR>
<TR bgcolor=$color3><TD>Level31-40</TD><TD><input type=text name=color3 value="$color3"></TD></TR>
<TR bgcolor=$color4><TD>Level41-50</TD><TD><input type=text name=color4 value="$color4"></TD></TR>
<TR bgcolor=$color5><TD>Level51-60</TD><TD><input type=text name=color5 value="$color5"></TD></TR>
<TR bgcolor=$color6><TD>Level61-70</TD><TD><input type=text name=color6 value="$color6"></TD></TR>
<TR bgcolor=$color7><TD>Level71-80</TD><TD><input type=text name=color7 value="$color7"></TD></TR>
<TR bgcolor=$color8><TD>Level81-90</TD><TD><input type=text name=color8 value="$color8"></TD></TR>
<TR bgcolor=$color9><TD>Level91-99</TD><TD><input type=text name=color9 value="$color9"></TD></TR>
<TR bgcolor=$color10><TD>Level100</TD><TD><input type=text name=color10 value="$color10"></TD></TR>
</table>
Fonts
<table class=tbl>
<TR><TD>body</TD><TD><input type=text name=font_body value="$font_body"></TD></TR>
<TR><TD>big</TD><TD><input type=text name=font_big value="$font_big"></TD></TR>
<TR><TD>small</TD><TD><input type=text name=font_small value="$font_small"></TD></TR>
<TR><TD>td</TD><TD><input type=text name=font_td value="$font_td"></TD></TR>
<TR><TD>th</TD><TD><input type=text name=font_th value="$font_th"></TD></TR>
<TR><TD>title</TD><TD><input type=text name=font_title value="$font_title"></TD></TR>
<TR><TD>link</TD><TD><input type=text name=c_link value="$c_link"></TD></TR>
<TR><TD>visited</TD><TD><input type=text name=c_visit value="$c_visit"></TD></TR>
<TR><TD>on click</TD><TD><input type=text name=c_active value="$c_active"></TD></TR>
<TR><TD>hover</TD><TD><input type=text name=c_hover value="$c_hover"></TD></TR>
</table><BR><HR>
Deny hosts<BR>
<textarea name=denyhost cols=20 rows=5>$denyhost</textarea><BR>
Deny words<BR>
<textarea name=denyword cols=20 rows=5>$denyword</textarea><BR>
<input type=submit value="submit">
</TD></TR></table>
</form>
EOM


}



}

#
#汎用サブ
#


sub form_read {

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }


@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	&jcode'convert(*value,'sjis');

#	$value =~ s/</&lt;/g;
#	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$value =~ s/\t//g;
	$value =~ s/\r/<BR>/g;
	$value =~ s/\,//g;

	$FORM{$name} = $value;
}

$pass=$FORM{'pass'};
$function=$FORM{'function'};
$mode=$FORM{'mode'};



if($page eq ""){$page=1;}
if($level==1){$level_mode=1;}
if($limit eq ""){$limit=$limit_table;}


$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@wday_array = ('日','月','火','水','木','金','土');
$mon++;
$year=$year-100;

if($year<10){
	$year="0$year";
}
if($mon<10){
	$mon="0$mon";
}
if($mday<10){
	$mday="0$mday";
}
if($hour<10){
	$hour="0$hour";
}
if($min<10){
	$min="0$min";
}

$timenow="$year/$mon/$mday/$hour$min";
$today = "$mon/$mday";
$today2= "$mon/$mday $hour:$min";
}

sub header {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$topic</title>\n";
if($language ne "English"){
	print '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
} else {
	print '<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">';
}
	print "<STYLE type='text/css'>\n";
	print "<!--\n";
	print "body { font-size: $font_body pt }\n";
	print "a:hover { color: $c_hover }\n";
	print "a:link { color: $c_link }\n";
	print "a:visited { color: $c_visit }\n";
	print "a:active { color: $c_active }\n";
	print "big  { font-size: $font_big pt }\n";
	print "small { font-size: $font_small pt }\n";
	print "td { font-size: $font_td pt }\n";
	print "th { font-size: $font_th pt }\n";
	print ".tbl{ border: 2px solid $tableborder; }\n";
	print ".title{ font-size: $font_title px; }\n";
	print "-->\n";
	print "</STYLE>\n";

if($bgimg eq ""){
	print "</head>\n<body bgcolor=$background text=$textcolor>\n";
} else {
	print "</head>\n<body background='$bgimg' bgcolor=$background text=$textcolor>\n";
}	


}

sub reload_header {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$topic</title>\n";
if($language ne "English"){
	print '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
} else {
	print '<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">';
}
	print "<META HTTP-EQUIV='Refresh' CONTENT='1;URL=$script2$_[0]'>";
	print '<STYLE type="text/css">';
	print "<!--";
	print "body { font-size: $font_body pt }\n";
	print "a:hover { color: #c00000 }\n";
	print "big  { font-size: $font_big pt }\n";
	print "small { font-size: $font_small pt }\n";
	print "td { font-size: $font_td pt }\n";
	print "th { font-size: $font_th pt }\n";
	print ".tbl{ border: 2px solid $tableborder; }\n";
	print ".title{ font-size: $font_title px; }\n";
	print "-->";
	print "</STYLE>";
	print "</head>\n<body bgcolor=$background text=$textcolor>\n";

}

sub footer {

	print "<HR>";
	print "<div align=right>Script by <a href='http://www.senobeya.com'>senobeya.com</a></div>\n";
	print "<div align=right>FF11 Member Registration System Admin $version</div>\n";
	print "</body></html>";
}



sub error_message {


        print "<h1>$_[0]</h1>\n";
	print "<h3>$_[1]</h3>\n";
if($language ne "English"){
	print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
} else {
	print "Push back button for former page.<p>\n";
}

	&footer;
        exit;
}



sub dirlock {

if($dirlock eq ""){return;}

if((-M $lockdir)>0.001){ #1分半ほどlockdirが存在している場合は強制的に削除
	rmdir($lockdir);
}

for ($i = 0; $i <= 20; $i++) {
   if (mkdir($lockdir, 0755)) {
     last;
   } else {
     sleep(1);
   }
 }
$SIG{'TERM'} = $SIG{'PIPE'} = $SIG{'HUP'} = "sigexit";
if($i == 20){&error_message('busy','処理が混雑しています');}
}

sub sigexit { rmdir($lockdir); exit(1); }


sub custom{
#カスタムフィールド編集・入力
#mode list 
#input 一括入力（入力）
#submit 一括入力（登録）
#list 項目リスト編集
#insert 項目リスト追加
#delete 項目リスト削除
#custom 編集項目更新
#listedit リスト編集
#listmodify リスト更新
#listinsert リスト追加
#lisetdelete リスト削除
local(@templist);

if($language ne "English"){
@templist=('一括入力','  を一括修正しました。','フィールド編集','項目タイトル（空欄でカスタムフィールドなし)','未入力者表示','する','しない','項目名','編集属性','ソート設定','リスト設定','自由編集','マスター編集','リスト式','リスト内容設定','新規項目追加','挿入位置(指定番号の後ろに追加されます)','項目削除','項目削除番号','項目追加処理','項目削除処理','項目編集','更新','追加項目名','追加','削除','リスト編集へ戻る','さらに追加','カスタムメニューへ','マスターモードへ戻る','メンバーリストへ戻る');
} else {
@templist=('master input mode','  modified all custom field','CustomField edit','CutomField title','no input members data','View','omit','Column name','attribute','sort','list edit','free','master','pulldown','List Edit','New Field','Insert position','Field Delete','Delete field number','Add Field','Delete Field','Edit Field','modify','New Field Name','Add','delete','back to list edit','more','back to custom menu','back to master mode','back to member list');
}



	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}

	&header;

	if($mode eq "input"){
		#一括入力モード(入力画面)
		print "$templist[0]";

	print "<table border width=100%><TR><TH>name</TH>";
	for($i=1;$i<$#custom_field+1;$i++){
		print "<TH>$custom_field[$i]</TH>";
	}
	print "</TR>";
	print "<form method=post action=$script2>";

	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;


	$count=0;
	foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

	@custom=split(/,/,$prod[11]);
	print "<TR><TD>$name</TD>";
	for($j=1;$j<$#custom_field+1;$j++){
		if($custom_pulldown[$j]==1){
			print "<TD><select name=custom$count"."_$j>";
			for($k=0;$k<$#{"custom_list$j"}+1;$k++){
				if($k == $custom[$	j]){
					print "<option value=$k selected>".${"custom_list$j"}[$k]."</option>";
				} else {
					print "<option value=$k>".${"custom_list$j"}[$k]."</option>";
				}
			}
			print "</select></TD>";
		} else {	
			print "<TD><input type=text name=custom$count"."_$j value='$custom[$j]' size=8></TD>";
		}
	}
	print "</TR>";
	$count++;
	}
	print "</table>";

print <<"EOM";
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="submit">
<input type=hidden name=pass value="$master_pass">
<input type=submit value="submit">
</form>
EOM

	} elsif($mode eq "submit"){
		#一括入力モード(登録処理)
		print "$custom_field[0]";
		print "$templist[1]";


&dirlock;
	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;


	@out=();
	$count=0;
	foreach $i (@all){
	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

	@custom=();
	for ($j=1;$j<$#custom_field+1;$j++){
			$temp="custom$count"."_$j";
		    $custom[$j]=$FORM{"$temp"};
	}
	$prod[11]=join(",", @custom);
	push(@out,"$no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$time\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
	$count++;
	}

		if(!open(OUT,">$datafile")){&header; &error_message('datafile error1560','data file access failed.');}
		print OUT @out;
		close OUT;
rmdir($lockdir);


	} elsif($mode eq "list"){
		#項目リスト(編集画面)

	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;

	print "$templist[2]<HR>";
	print "<form method=post action=$script2>";

		print "$templist[3]<input type=text name=custom0 value='$custom_field[0]'><BR>";
		if($custom_control[0]==1){
			print "$templist[4]<select name=customc0><option value=0>$templist[5]</option><option value=1 selected>$templist[6]</option></select><BR><BR>";
		} else {
			print "$templist[4]<select name=customc0><option value=0 selected>$templist[5]</option><option value=1>$templist[6]</option></select><BR><BR>";
		}
		print "<table><TR><TH>No.</TH><TH>$templist[7]</TH><TH>$templist[8]</TH><TH>$templist[9]</TH><TH>$templist[10]</TH></TR>";
		for($i=1;$i<$#custom_field+1;$i++){
			print "<TR><TD>$i</TD><TD><input type=text name=custom$i value='$custom_field[$i]'></TD>";
			print "<TD><select name=customc$i>";
			if($custom_control[$i]==1){
				print "<option value=0>$templist[11]</option><option value=1 selected>$templist[12]</option>";
			} elsif($custom_control[$i]==0) {
				print "<option value=0 selected>$templist[11]</option><option value=1>$templist[12]</option>";
			} else {
				print "<option value=0>$templist[11]</option><option value=1>$templist[12]</option>";
			}
			foreach $j(@all){
				($no,$name)=split(/\t/,$j);
				if($custom_control[$i] eq $name){
					print "<option value='$name' selected>$name</option>";
				} else {
					print "<option value='$name'>$name</option>";
				}
			}
			print "</select></TD>\n";
			#ソート設定
			if($language ne "English"){
			@sortname=('通常','数字','逆順','数字逆順');
			} else {
			@sortname=('normal','number','reverse','reverse number');
			}
			print "<TD><select name=customs$i>";
			for($j=0;$j<4;$j++){
				if($custom_sort[$i]==$j){
					print "<option value='$j' selected>$sortname[$j]</option>";
				} else {
					print "<option value='$j'>$sortname[$j]</option>";
				}
			}
			print "</select></TD>";
			#プルダウン設定
			print "<TD><select name=customp$i>";
			if($custom_pulldown[$i]==1){
				print "<option value=0>$templist[11]</option><option value=1 selected>$templist[13]</option></select></TD>";
			} else {
				print "<option value=0 selected>$templist[11]</option><option value=1>$templist[13]</option></select></TD>";
			}
			if($#{"custom_list$i"} != -1){print "<TD>List Exist</TD></TR>";}
			
		}
		

	print <<"EOM";
</table>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="custom">
<input type=hidden name=pass value="$pass">
<input type=submit value="customize">
</form>
$templist[14]
<form method=post action=$script2>
<select name=custom0>
EOM
for($i=1;$i<$#custom_field+1;$i++){
	print "<option value=$i>$i($custom_field[$i])</option>";
}
print <<"EOM";
</select>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="listedit">
<input type=hidden name=pass value="$pass">
<input type=submit value="customize">
</form>
<HR>
$templist[15]
<form method=post action=$script2>
$templist[7]:<input type=text name=custom0><BR>
$templist[8]<select name=custom1><option value=0>$templist[11]</option><option value=1>$templist[12]</option></select><BR>
$templist[16]<select name=custom2>
EOM

for($i=0;$i<$#custom_field;$i++){
	print "<option value=$i>$i($custom_field[$i])</option>";
}
print "<option selected value=$i>$i($custom_field[$i])</option></select>";
print <<"EOM";
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="insert">
<input type=hidden name=pass value="$pass">
<input type=submit value="insert">
</form>
$templist[17]
<form method=post action=$script2>
$templist[18]:<select name=custom0>
EOM
for($i=1;$i<$#custom_field+1;$i++){
	print "<option value=$i>$i($custom_field[$i])</option>";
}
print <<"EOM";
</select>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="delete">
<input type=hidden name=pass value="$pass">
<input type=submit value="delete">
</form>
<form method=post action=$script2>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="input">
<input type=hidden name=pass value="$pass">
<input type=submit value="$templist[0]">
</form>
EOM

	} elsif($mode eq "insert"){
		#項目追加 custom0:項目名 custom1:項目属性 custom2 挿入位置
		print "$templist[19]<HR>";
		
		if($FORM{"custom0"} eq ""){print"項目名がありません。(No field name)";return;}
		@new_customfield=();
		@new_customcontrol=();
		@new_customsort=();
		@new_custompulldown=();
		for($i=0;$i<$#custom_field+1;$i++){
			push(@new_customfield,$custom_field[$i]);
			push(@new_customcontrol,$custom_control[$i]);
			push(@new_customsort,$custom_sort[$i]);
			push(@new_custompulldown,$custom_pulldown[$i]);
			if($i == $FORM{"custom2"}){
				push(@new_customfield,$FORM{"custom0"});
				push(@new_customcontrol,$FORM{"custom1"});
				push(@new_customsort,"0");
				push(@new_custompulldown,"0");
			}	
		}
		@custom_field=@new_customfield;
		@custom_control=@new_customcontrol;
		@custom_sort=@new_customsort;
		@custom_pulldown=@new_custompulldown;
		&custom_setup_write;
#customlist番号整理

&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=<IN>;
close IN;

for($list=$#custom_field;$list>0;$list--){
	$item="custom_list$list";
	$new=$list+1;
	$newitem="custom_list$new";
	
	if($list>$FORM{'custom2'}){
		for($i=0;$i<$#all+1;$i++){
			if($all[$i] =~ /^\@$item=(.*);(.*)/){
				$temp=$2;
				$arr="\@$newitem=(";
				for($j=0;$j<$#$item+1;$j++){
					if ($$item[$j] =~ /.*\\$/){
						$$item[$j].="\\";
					}
					$$item[$j] =~ s/'//g;
				    $arr.="'$$item[$j]',";
				}
				$arr.=");$2\n";
				$all[$i]=$arr;
			}
		}
	}
}

@out=@all;
&check_out;

if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @out;
close OUT;
rmdir($lockdir);

#新規に空欄追加
&dirlock;
	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;


	@out=();
	$count=0;
	foreach $i (@all){
	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

	@customold=split(/,/,$prod[11]);
	@custom=();
	for($j=0;$j<$#custom_field+1;$j++){
		push(@custom,$customold[$j]);	
		if($j == $FORM{"custom2"}){
			push(@custom,"");
		}
	}
	$prod[11]=join(",", @custom);
	push(@out,"$no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$time\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
	$count++;
	}

		if(!open(OUT,">$datafile")){&header; &error_message('datafile error1560','data file access failed.');}
		print OUT @out;
		close OUT;
rmdir($lockdir);


		print "[$FORM{'custom0'}] を新規カスタム項目として追加しました。<BR>";
		print "New Field [$FORM{'custom0'}] wasa added.";


	} elsif($mode eq "delete"){
		#項目追加 custom0:削除項目番号
		if($FORM{"custom0"} == 0){ print "番号が存在しません。(such number does not exist)";return;}
		print "$templist[20]<HR>";
		@new_customfield=();
		@new_customcontrol=();
		@new_customsort=();
		@new_custompulldown=();
		for($i=0;$i<$#custom_field+1;$i++){
			if($i != $FORM{"custom0"}){
				push(@new_customfield,$custom_field[$i]);
				push(@new_customcontrol,$custom_control[$i]);
				push(@new_customsort,$custom_sort[$i]);
				push(@new_custompulldown,$custom_pulldown[$i]);
			}	
		}
		@custom_field=@new_customfield;
		@custom_control=@new_customcontrol;
		@custom_sort=@new_customsort;
		@custom_pulldown=@new_custompulldown;
		&custom_setup_write;
#customlist番号整理

&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=<IN>;
close IN;

#ターゲット削除
$item="custom_list$FORM{'custom0'}";
for($i=0;$i<$#all+1;$i++){
		if($all[$i] =~ /^\@$item=(.*);(.*)/){
			$all[$i]="\n";
		}
}

for($list=1;$list<$#custom_field+3;$list++){
	$item="custom_list$list";
	$new=$list-1;
	$newitem="custom_list$new";
	
	if($list>$FORM{'custom0'}){
		for($i=0;$i<$#all+1;$i++){
			if($all[$i] =~ /^\@$item=(.*);(.*)/){
				$temp=$2;
				$arr="\@$newitem=(";
				for($j=0;$j<$#$item+1;$j++){
					if ($$item[$j] =~ /.*\\$/){
						$$item[$j].="\\";
					}
					$$item[$j] =~ s/'//g;
				    $arr.="'$$item[$j]',";
				}
				$arr.=");$2\n";
				$all[$i]=$arr;
			}
		}
	}
}

&check_out;

if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @all;
close OUT;
rmdir($lockdir);

#指定行データ削除
&dirlock;
	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;


	@out=();
	$count=0;
	foreach $i (@all){
	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

	@customold=split(/,/,$prod[11]);
	@custom=();
	for($j=0;$j<$#custom_field+2;$j++){
		if($j != $FORM{"custom0"}){
			push(@custom,$customold[$j]);	
		}
	}

	$prod[11]=join(",", @custom);
	push(@out,"$no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$time\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
	$count++;
	}

		if(!open(OUT,">$datafile")){&header; &error_message('datafile error1560','data file access failed.');}
		print OUT @out;
		close OUT;
rmdir($lockdir);



		print "項目No. $FORM{'custom0'} を削除しました。<BR>";
		print "Field No. $FORM{'custom0'} was deleted.";


	} elsif($mode eq "custom"){
		#編集項目更新処理
		for($i=0;$i<$#custom_field+1;$i++){
			$custom_field[$i]=$FORM{"custom$i"};
			$custom_control[$i]=$FORM{"customc$i"};
			$custom_sort[$i]=$FORM{"customs$i"};
			$custom_pulldown[$i]=$FORM{"customp$i"};
		}

		&custom_setup_write;

		print "編集項目更新処理を行いました。<BR>";
		print "Custom field updated.";


	} elsif($mode eq "listedit"){
		#custom0 番項目のリスト編集
		$j=$FORM{'custom0'};
		if($j eq ""){&header;&error_message('no number1548','illegal number');}

	print "No.$j ($custom_field[$j])のリスト編集を行います。<BR>";
	print "Editing List No.$j ($custom_field[$j])<BR>";

if($#{"custom_list$j"} !=-1){
		print "$templist[21]<form method=post action=$script2>";
		for($i=0;$i<$#{"custom_list$j"}+1;$i++){
			print "code: $i <input type=text name=customlist$i value='".${"custom_list$j"}[$i]."'><BR>";
		}

print <<"EOM";
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="listmodify">
<input type=hidden name=custom0 value='$FORM{'custom0'}'>
<input type=hidden name=pass value="$master_pass">
<input type=submit value="$templist[22]">
</form>
EOM
} else {
	print "現在リストは存在しません。<BR>";
	print "No list exists.<BR>";
}


print <<"EOM";
<HR>
$templist[15]
<form method=post action=$script2>
<input type=hidden name=function value="custom">
$templist[23]:<input type=text name=custom1>
<input type=hidden name=mode value="listinsert">
<input type=hidden name=custom0 value='$FORM{'custom0'}'>
<input type=hidden name=pass value="$master_pass">
<input type=submit value="$templist[24]"><BR>
$templist[16]<select name=custom2>
EOM

print "<option value=-1>-1(top)</option>";
if($#{"custom_list$j"}!=-1){
for($i=0;$i<$#{"custom_list$j"};$i++){
	print "<option value=$i>$i(".${"custom_list$j"}[$i].")</option>";
}
print "<option selected value=$i>$i(".${"custom_list$j"}[$i].")</option>";
}
print "</select></form><HR>\n";

if($#{"custom_list$j"} != -1){
print <<"EOM";
$templsit[17]
<form method=post action=$script2>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="listdelete">
<input type=hidden name=custom0 value='$FORM{'custom0'}'>
EOM
	$j=$FORM{'custom0'};
	print "<select name=custom1>";
	for($i=0;$i<$#{"custom_list$j"}+1;$i++){
		print "<option value=$i>".${"custom_list$j"}[$i]."</option>";
	}
print <<"EOM";
</select>
<input type=hidden name=pass value="$master_pass">
<input type=submit value="$templist[25]">
</form>
EOM
}

	} elsif($mode eq "listmodify"){
		#custom0番編集 customlist0-X custom_listへ出力
		print "listmodify<BR>";
		for($i=0;$i<$#{"custom_list$FORM{'custom0'}"}+1;$i++){
			${"custom_list$FORM{'custom0'}"}[$i]=$FORM{"customlist$i"};
		}
		&custom_list_write;

		print "項目を編集しました。<BR>";
		print "Field was modified.";
print <<"EOM";

<form method=post action=$script2>
<input type=hidden name=custom0 value='$FORM{'custom0'}'>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="listedit">
<input type=hidden name=pass value="$pass">
<input type=submit value="$templist[26]">
</form>
EOM


	} elsif($mode eq "listinsert"){
		#custom0番編集 custom1をリストに追加 custom2番目に。
		@new_list=();
		if($FORM{"custom2"}==-1){
			push(@new_list,$FORM{"custom1"})	;
		}
		for($i=0;$i<$#{"custom_list$FORM{'custom0'}"}+1;$i++){
			push(@new_list,${"custom_list$FORM{'custom0'}"}[$i]);
			if($i==$FORM{"custom2"}){
				push(@new_list,$FORM{"custom1"});
			}
		}

		@{"custom_list$FORM{'custom0'}"}=@new_list;

		&custom_list_write;
		print $FORM{"custom1"}."を追加しました。<BR>";
		print $FORM{"custom1"}." was added.";
print <<"EOM";

<form method=post action=$script2>
<input type=hidden name=function value="custom">
$templist[27]:<input type=text name=custom1>
<input type=hidden name=mode value="listinsert">
<input type=hidden name=custom0 value='$FORM{'custom0'}'>
<input type=hidden name=pass value="$master_pass">
<input type=submit value="$templist[24]">
</form>
<form method=post action=$script2>
<input type=hidden name=custom0 value='$FORM{'custom0'}'>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="listedit">
<input type=hidden name=pass value="$pass">
<input type=submit value="$templist[26]">
</form>
EOM
EOM
	} elsif($mode eq "listdelete"){
		#custom0番編集 custom1番目をリストから削除
		@new_list=();
		for($i=0;$i<$#{"custom_list$FORM{'custom0'}"}+1;$i++){
			if($i!=$FORM{"custom1"}){push(@new_list,${"custom_list$FORM{'custom0'}"}[$i]);}
		}
		@{"custom_list$FORM{'custom0'}"}=@new_list;	

		if($#{"custom_list$FORM{'custom0'}"} == -1){
			&custom_list_delete;
		} else {
			&custom_list_write;
		}
		print "項目を削除しました。<BR>";
		print "Field deleted.";
print <<"EOM";
<form method=post action=$script2>
<input type=hidden name=custom0 value='$FORM{'custom0'}'>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="listedit">
<input type=hidden name=pass value="$pass">
<input type=submit value="$templist[26]">
</form>
EOM

	} else {
		print "mode:$mode";
	}
print <<"EOM";
<HR>
<form method=post action=$script2>
<input type=hidden name=function value="custom">
<input type=hidden name=mode value="list">
<input type=hidden name=pass value="$master_pass">
<input type=submit value="$templist[28]">
</form>
<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=gpass value=$pass><input type=hidden name=function value=master><input type=submit value='$templist[29]'></form>
<a href="$script">$templist[30]</a><BR>
EOM


}

sub custom_list_write{

&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=<IN>;
close IN;

$item="custom_list".$FORM{"custom0"};
$match=0;

	for($i=0;$i<$#all+1;$i++){
		if($all[$i] =~ /^\@$item=(.*);(.*)/){
			$match=1;
			$temp=$2;
			$arr="\@$item=(";
			for($j=0;$j<$#$item+1;$j++){
				if ($$item[$j] =~ /.*\\$/){
					$$item[$j].="\\";
				}
				$$item[$j] =~ s/'//g;
			    $arr.="'$$item[$j]',";
			}
			$arr.=");$2\n";
			$all[$i]=$arr;
		}
	}
	if($match==0){
			$arr="\@$item=(";
			for($j=0;$j<$#$item+1;$j++){
				if ($$item[$j] =~ /.*\\$/){
					$$item[$j].="\\";
				}
				$$item[$j] =~ s/'//g;
			    $arr.="'$$item[$j]',";
			}
			$arr.=");\n\n";
	push(@all,$arr);
	
	}

@out=@all;
&check_out;


if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @out;
close OUT;
rmdir($lockdir);
}

sub custom_list_delete{

&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=<IN>;
close IN;

$item="custom_list".$FORM{"custom0"};
$match=0;

	for($i=0;$i<$#all+1;$i++){
		if($all[$i] =~ /^\@$item=(.*);(.*)/){
			$all[$i]="";
		}
	}
	
@out=@all;
&check_out;

if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @out;
close OUT;
rmdir($lockdir);
}

sub custom_setup_write{

@list=(
'custom_field',
'custom_control',
'custom_sort',
'custom_pulldown',
);
&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=<IN>;
close IN;

foreach $item(@list){
	$match=0;
	for($i=0;$i<$#all+1;$i++){
		if($all[$i] =~ /^\@$item=(.*);(.*)/){
			$match=1;
			$temp=$2;
			$arr="\@$item=(";
			for($j=0;$j<$#$item+1;$j++){
				if ($$item[$j] =~ /.*\\$/){
					$$item[$j].="\\";
				}
				$$item[$j] =~ s/'//g;
			    $arr.="'$$item[$j]',";
			}
			$arr.=");$2\n";
			$all[$i]=$arr;
		}
	}
	if($match==0){
		$arr="\@$item=(";
		for($j=0;$j<$#$item+1;$j++){
			if ($$item[$j] =~ /.*\\$/){
				$$item[$j].="\\";
			}
			$$item[$j] =~ s/'//g;
		    $arr.="'$$item[$j]',";
		}
		$arr.=");\n\n";
		push(@all,$arr);
	}

}
@out=@all;
&check_out;

if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @out;
close OUT;
rmdir($lockdir);
}


sub maintenance{


	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}

	&header;

	if($mode eq "ahtjob"){


	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;

	@out=();
	foreach $i (@all){

	

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($no eq ""){
print "delete blank line<BR>";
} else {
	for($j=0;$j<20;$j++){
		$lev[$j] =~ s/\n//g;
	}

	push(@out,"$no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$time\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");

print "modify $name aht job data<BR>";
}

	}

	if(!open(OUT,">$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	print OUT @out;
	close OUT;

	print "アトルガンジョブ追加による改行補正と空行の削除を行いました。<BR>";
	print "Aht Urgan new job data was modified, and blank user data was deleted.<BR>";

	} else {

	print "メンテモード予備<BR>";

	}

if($language ne "English"){
print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=gpass value=$master_pass><input type=hidden name=function value=master><input type=submit value='マスターモードへ戻る'></form>";
print "<HR><a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";
} else {
print "<HR><a href=$script?$salt>[Entrance]</a><a href=$script?function=faq>[usage]</a><a href='$homepage'>[back to home]</a><BR>";

}


}


sub vercheck{

#バージョンチェック。行数決め打ちという危険仕様
#$verにはサブバージョンをカットして格納。


	if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
	@all=<IN>;
	close IN;

	if($ver eq ""){
		if( $all[2] =~ /(0\.[A-Za-z0-9]+)/){$ver="$1";} else {$ver="unknown";}
	}
	print "<BR>Configfile version:$ver<BR>";

}


sub verup{
	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}

&header;
&vercheck; #@all取得済

	if($mode eq '060' || $mode eq '060a' || $mode eq '067'){
		print "check version<BR>";
	if($mode eq '060a'){$ver="0.5";}
	if($mode eq '067'){$ver="0.63";}


		#要設定ファイル変更点

if($ver eq "0.5"){
		print "setup config 050 to 052<BR>";
		#050->052 RSS・複数画像・keyword・mission menu・icon sort追加 日記入力フラグ
push (@all,"
#日記入力無効化(1:無効) 0.52新設
\$diaryallow=\"0\";

#アップ画像最大数
\$imgmax=\"5\";

#キーワード
\$keyfile=\"keyword.dat\";
\$key_avail=\"0\";
\$keydir=\"keyword/\";
\$scriptdir=\"../\";
#\$scriptdir=\"http://\";（フルパス）
");


$count=0;
foreach $i(@all){
	if($i =~ /^\@modelist=/){$all[$count]="\@modelist=('Simple','Job','合成スキル','Status','Full','ALL','Icon','Skill','Icon(Time)','LevelSearch','Mission');\n";}
	if($i =~ /^\@menu=/){$all[$count]="\@menu=('シンプル','Job','Job(Lv)','合成','','','フル2','アイコン','スキル','アイコン(新着順)','レベルサーチ','ミッション');\n";}
	$count++;
}

$ver="0.52";	
}

if($ver eq "0.52"){
		print "setup config 052 to 053<BR>";
		#052->053 history 日記フロートフラグ

push(@all,'
#日記フロート機能(0:無効 1:有効)
$sage="1";
#履歴書き込みファイル
$historyfile="history.cgi";
#ログ取得の有無
$loghistory="1";
#ログ取得行数
$logmax="50";


');

$ver="0.53";
}

if($ver eq "0.53"){
		print "setup config 053 to 060<BR>";
		print "max_job change<BR>";
		print "default joblist change<BR>";

$count=0;
foreach $i(@all){
	if($i =~ /^\$job_max=/){$all[$count]="\$job_max=18;\n";}
	if($i =~ /^\@joblist=/){$all[$count]="\@joblist=('戦','モ','白','黒','赤','シ','ナ','暗','狩','吟','獣','竜','召','忍','侍','青','コ','か','？','19');\n";}
	$count++;
}
		print "msg config set<BR>";
		#めせじ設定がない場合はconfigに追記
if($msg_avail eq ""){
	push(@all,'
#メッセージ関連機能
$mes_avail="1";
$mesdir="message/";

');
}


}

#0.60a3スキル追加、ミッション追加
#0.61 履歴追加・メリットポイント追加

#メリポ設定がない場合はconfigに追記
if($mpoint eq ""){
	push(@all,'
#メリポ設定
$mpoint="1";

');
}


#カスタム設定がない場合はconfigに追記

if($custom_field[1] eq ""){
	push(@all,"
#カスタムフィールド 0.63beta1(最初のデータはボタン名兼利用フラグ)
\@custom_field=('追加項目','チョコボ名前','チョコボ性別','フェロー名前','フェローレベル','好きなお肉','ブラビアＸ',);
#カスタムフィールドコントロールコード(0:ユーザー自由 1:アドミンのみ)
\@custom_control=('','0','0','0','0','0','0',);
#カスタムフィールドソート(0:なし 1:数値 2:逆順 3:数値逆順)
\@custom_sort=('','0','0','0','0','0','0',);
#カスタムフィールドプルダウン(0:自由編集 1:プルダウン)
\@custom_pulldown=('','0','0','0','0','1','0',);

\@custom_list5=('','タン','ミノ','ロース','テッチャン','コリコリ','ウルテ','センマイ','ハート','ユッケ','コブクロ','ハラミ','ツラミ','テール',);

");
}

$count=0;
foreach $i(@all){
	if($i =~ /^\@tablelist=/){$all[$count]="\@tablelist=('table_limit','table_job','table_prod','table_stat','table_full2','table_full3','table_limit2','table_skill','table_limit3','table_level','table_mission','table_assault','table_history','table_custom');\n";}
	if($i =~ /^\@tablelimit=/){$all[$count]="\@tablelimit=('0','1','1','2','3','4','5','6','7','8','9','10','11','12','13');\n";}
	if($i =~ /^\@skilllist=/){$all[$count]="\@skilllist=('格闘','短剣','片手剣','両手剣','片手斧','両手斧','両手鎌','両手槍','片手刀','両手刀','片手棍','両手棍','弓術','射撃','投擲','ガード','回避','盾','受流し','神聖','回復','強化','弱体','精霊','暗黒','歌唱','弦楽器','管楽器','忍術','召喚','青魔');\n";}
	if($i =~ /^\@menu=/){$all[$count]="\@menu=('シンプル','Job','Job(Lv)','合成','','','フル2','アイコン','スキル','アイコン(新着順)','レベルサーチ','ミッション','アサルト','履歴','カスタム');\n";}
	if($i =~ /^\@modelist=/){$all[$count]="\@modelist=('Simple','Job','合成スキル','Status','Full','ALL','Icon','Skill','Icon(Time)','LevelSearch','Mission','Assault','History','Custom');\n";}

	$count++;
$ver="0.63";
}
print "table.pl subroutine configuration modification.<BR>";



#ver0.63 to 0.67 Altana 拡張

if($ver eq "0.63"){
		print "setup config 063 to 067<BR>";
		print "max_job change<BR>";
		print "default joblist change<BR>";

$count=0;
foreach $i(@all){
	if($i =~ /^\$job_max=/){$all[$count]="\$job_max=20;\n";}
	if($i =~ /^\@joblist=/){$all[$count]="\@joblist=('戦','モ','白','黒','赤','シ','ナ','暗','狩','吟','獣','竜','召','忍','侍','青','コ','か','踊','学');\n";}
	$count++;
}

}





# ver cahange
$all[2]="# ver. 0.67 (automatically modified)\n";

@out=@all;
&check_out;


	if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
	print OUT @out;
	close OUT;

####data.cgi conv (0.60a3 to 0.60a4)
if($ver eq "0.60a3"){
		print "convert 0.60a3 to 0.60a4(assault rank addition)<BR>";

	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;

	@out=();
	foreach $i (@all){
	
 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

    @mission = split(/,/,$prod[15]);
	$mission[16]="X".$mission[16];
	$prod[15]=join(",", @mission);
	
	$lev[15] =~ s/\n//g;
	$lev[16] =~ s/\n//g;

	push(@out,"$no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$time\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
	}


	if(!open(OUT,">$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	print OUT @out;
	close OUT;
	
	
}
####data.cgi conv end



		print "change/convert done<BR>";
print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=gpass value=$pass><input type=hidden name=function value=master><input type=submit value='マスターモードへ戻る'></form>";
		print "<a href='$script'>memberlist top</a>";
	}

}


sub login2{
	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}

&header;
&vercheck;
	if($registed eq "yes"){
if($language ne "English"){
	print "設定ファイルを書き換えました。";
print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=gpass value=$pass><input type=hidden name=function value=master><input type=submit value='マスターモードへ戻る'></form>";
} else {
	print "Configuration file modified.";
}

	}

	srand();
    $xx = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        . "abcdefghijklmnopqrstuvwxyz"
        . "0123456789.";
    $salt = substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
if($language ne "English"){
print "<HR><a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";
} else {
print "<HR><a href=$script?$salt>[Entrance]</a><a href=$script?function=faq>[usage]</a><a href='$homepage'>[back to home]</a><BR>";

}


if($language ne "English"){

@drelmlist=("Sand'Oria",'Bastok','Windurst');
@drelmlist=('<img src="icon/snd.gif">','<img src="icon/bas.gif">','<img src="icon/win.gif">'); #大
@drelmlistl=("Sand'Oria",'Bastok','Windurst');
#@drelmlist=('<img src="icon/snd2.gif">','<img src="icon/bas2.gif">','<img src="icon/win2.gif">'); #小
#@dindex=('No.','称号','名前','種族','国','ポイント','ミッションランク','ジョブ','時間','コメント');
@dindex=('No.','class','name','race','realm','point','m_rank','job','time','comment');
@dmenu=('Simple','Job','Job(Lv)','Skill','Status','Full','Full2','Icon','Skill','','LevelSearch','Mission','Assault','History','Custom');
@dmenux=('BBS','Home','Manual','Menu: ','Memberlist Top');
#@dmenu=('シンプル','ジョブ1','ジョブ2','スキル','ステータス','フル','フル２','アイコン','掲示板','ホーム','マニュアル','メニュー：','リストトップ');
@dfield=('class','name','pass','anon mode','Race','フェイスタイプ','Realm','MainJob','SupportJob','個人ポイント  ','ミッションランク  ','comment  ','profile 公開','ハンドル','POL内ハンドル  ','e-mail','homepage url','プロフィール用コメント','サンプル');
@dmodelist=('Simple','Job','Production','Status','Full','Full2','Icon','Skill,','Icon(Time)','LevelSearch','Mission','Assault','History','Custom');
@dranklist=('素人','見習','徒弟','下級職人','名取','目録','印可','高弟','皆伝','Rank9','Rank10');
@dracelist=('Hume♂','Hume♀','Elvaan♂','Elvaan♀','Tarutaru♂','Tarutaru♀','Mithra♀','Galka♂');
#@djoblist=('WAR','MNK','WHM','BLM','RDM','THF','PLD','DRK','RNG','BRD','BST','DRG','SMN','NIN','SAM','BLU','COR','PAP','18','19');
@djoblist=('戦','モ','白','黒','赤','シ','ナ','暗','狩','吟','獣','竜','召','忍','侍','青','コ','か','18','19');
#@dprodlist=('鍛冶','裁縫','錬金','木工','彫金','革細工','骨工','釣り','調理');
@dprodlist=('鍛','織','錬','木','彫','革','骨','釣','調');
@dskilllist=('格闘','短剣','片手剣','両手剣','片手斧','両手斧','両手鎌','両手槍','片手刀','両手刀','片手棍','両手棍','弓術','射撃','投擲','ガード','回避','盾','受流し','神聖','回復','強化','弱体','精霊','暗黒','歌唱','弦楽器','管楽器','忍術','召喚','青魔法');
@buttonlist=('login','writediary','new entry','master mode');

print "表\示項目には国別表\示以外は[']は使えません。どうしても使用したい場合は全角の[’]を利用してください。";
print "<form method=post action=$script2>";

print "表\のインデックス項目<BR>";
print "<table border>";
for($i=0;$i<$#index+1;$i++){
print "<TR><TD>$i($dindex[$i])</TD><TD><input type=text name=index$i value='$index[$i]'></TD></TR>";
}
print "</table>";
print "上部メニュー表\示(空欄でメニュー自体を非表\示)<BR>";
print "<table border>";
for($i=0;$i<$#menu+1;$i++){
print "<TR><TD>$i($dmenu[$i])</TD><TD><input type=text name=menu$i value='$menu[$i]'></TD></TR>";
}
print "</table>";
print "上部メニュー表\示2(空欄でメニュー自体を非表\示)<BR>";
print "<table border>";
for($i=0;$i<$#menux+1;$i++){
print "<TR><TD>$i($dmenux[$i])</TD><TD><input type=text name=menux$i value='$menux[$i]'></TD></TR>";
}
print "</table>";
print "登録時の各フィールドの説明文<BR>";
print "<table border>";
for($i=0;$i<$#field+1;$i++){
print "<TR><TD>$i($dfield[$i])</TD><TD><input type=text name=field$i value='$field[$i]'></TD></TR>";
}
print "</table>";
print "右上モード表\示<BR>";
print "<table border>";
for($i=0;$i<$#modelist+1;$i++){
print "<TR><TD>$i($dmodelist[$i])</TD><TD><input type=text name=modelist$i value='$modelist[$i]'></TD></TR>";
}
print "</table>";
print "合成ランク種類<BR>";
print "<table border>";
for($i=0;$i<$#ranklist+1;$i++){
print "<TR><TD>$i($dranklist[$i])</TD><TD><input type=text name=ranklist$i value='$ranklist[$i]'></TD></TR>";
}
print "</table>";
print "種族リスト<BR>";
print "<table border>";
for($i=0;$i<$#racelist+1;$i++){
print "<TR><TD>$i($dracelist[$i])</TD><TD><input type=text name=racelist$i value='$racelist[$i]'></TD></TR>";
}
print "</table>";
print "ジョブリスト<BR>";
print "<table border>";
for($i=0;$i<$#joblist+1;$i++){
print "<TR><TD>$i($djoblist[$i])</TD><TD><input type=text name=joblist$i value='$joblist[$i]'></TD></TR>";
}
print "</table>";
print "合成スキルリスト<BR>";
print "<table border>";
for($i=0;$i<$#prodlist+1;$i++){
print "<TR><TD>$i($dprodlist[$i])</TD><TD><input type=text name=prodlist$i value='$prodlist[$i]'></TD></TR>";
}
print "</table>";
print "国リスト（表\示用）<BR>";
print "<table border>";
for($i=0;$i<$#relmlistl+1;$i++){
print "<TR><TD>$i($drelmlistl[$i])</TD><TD><input type=text name=relmlistl$i value=\"$relmlistl[$i]\"></TD></TR>";
}
print "</table>";
print "国リスト（実表\示用）[\"] は無視します。<BR>";
print "<table border>";
for($i=0;$i<$#relmlist+1;$i++){
    $relmlist[$i] =~ s/\"//g;
print "<TR><TD>$i($drelmlist[$i])</TD><TD><input type=text size=30 name=relmlist$i value=\"$relmlist[$i]\"></TD></TR>";
}
print "</table>";
print "スキルリスト<BR>";
print "<table border>";
for($i=0;$i<$#skilllist+1;$i++){
print "<TR><TD>$i($dskilllist[$i])</TD><TD><input type=text name=skilllist$i value='$skilllist[$i]'></TD></TR>";
}
print "</table>";
print "ボタン名称<BR>";
print "<table border>";
for($i=0;$i<$#button+1;$i++){
print "<TR><TD>$i($buttonlist[$i])</TD><TD><input type=text name=button$i value='$button[$i]'></TD></TR>";
}
print "</table>";
print <<"EOM";
<input type=hidden name=function value="regist2">
<input type=hidden name=pass value="$pass">
<input type=submit value="設定変更">
</form>
EOM

} else {

@drelmlist=("Sand'Oria",'Bastok','Windurst');
@drelmlist=('<img src="icon/snd.gif">','<img src="icon/bas.gif">','<img src="icon/win.gif">'); #大
@drelmlistl=("Sand'Oria",'Bastok','Windurst');
@dindex=('No.','class','name','race','realm','point','m_rank','job','time','comment');
@dmenu=('Simple','Job','Job(Lv)','Skill','Status','Full','Full2','Icon','Skill','','LevelSearch','Mission','Assault','History','Custom');
@dmenux=('BBS','Home','Manual','Menu: ','Memberlist Top');
@dfield=('class','name','pass','anon mode','Race','FaceType','Realm','MainJob','SupportJob','Conquest point','MissionRank','comment','profile open','handle','POL handle','e-mail','homepage url','profile comment','sample');
@dmodelist=('Simple','Job','Production','Status','Full','Full2','Icon','Skill,','Icon(Time)','LevelSearch','Mission','Assault','History','Custom');
@dranklist=('Rank0','Rank1','Rank2','Rank3','Rank4','Rank5','Rank6','Rank7','Rank8','Rank9','Rank10');
@dracelist=('HumeMale','HumeFemale','ElvaanMale','ElvaanFemale','TarutaruMale','TarutaruFemale','Mithra','Galka');
@djoblist=('WAR','MNK','WHM','BLM','RDM','THF','PLD','DRK','RNG','BRD','BST','DRG','SMN','NIN','SAM','BLU','COR','PUP','18','19');
@dprodlist=('SMITH','CLOTH','ALCHEMY','WOOD','GOLDSMTH','TANNER','BONEWRK','FISHING','COOKING');
@dskilllist=('Hand-To-Hand','Dagger','Sword','GreatSword','Axe','GreatAxe','Sythe','Spear','Katana','GreatKatana','Club','GreatClub','Archery','Marksmanship','Throwing','Guard','Evasion','Shield','Parrying','DivineMagic','HealingMagic','EnhanceMagic','EnfMagic','ElemantalMagic','DarkMagic','Singing','Strings','WindInstrument','Ninjutsu','Summoning','BlueMagic');
@buttonlist=('login','writediary','new entry','master mode');

print "<form method=post action=$script2>";

print "table index<BR>";
print "<table border>";
for($i=0;$i<$#index+1;$i++){
print "<TR><TD>$i($dindex[$i])</TD><TD><input type=text name=index$i value='$index[$i]'></TD></TR>";
}
print "</table>";
print "menu<BR>";
print "<table border>";
for($i=0;$i<$#menu+1;$i++){
print "<TR><TD>$i($dmenu[$i])</TD><TD><input type=text name=menu$i value='$menu[$i]'></TD></TR>";
}
print "</table>";
print "menu 2<BR>";
print "<table border>";
for($i=0;$i<$#menux+1;$i++){
print "<TR><TD>$i($dmenux[$i])</TD><TD><input type=text name=menux$i value='$menux[$i]'></TD></TR>";
}
print "</table>";
print "registration information letters<BR>";
print "<table border>";
for($i=0;$i<$#field+1;$i++){
print "<TR><TD>$i($dfield[$i])</TD><TD><input type=text name=field$i value='$field[$i]'></TD></TR>";
}
print "</table>";
print "mode<BR>";
print "<table border>";
for($i=0;$i<$#modelist+1;$i++){
print "<TR><TD>$i($dmodelist[$i])</TD><TD><input type=text name=modelist$i value='$modelist[$i]'></TD></TR>";
}
print "</table>";
print "Synthesis Rank<BR>";
print "<table border>";
for($i=0;$i<$#ranklist+1;$i++){
print "<TR><TD>$i($dranklist[$i])</TD><TD><input type=text name=ranklist$i value='$ranklist[$i]'></TD></TR>";
}
print "</table>";
print "race<BR>";
print "<table border>";
for($i=0;$i<$#racelist+1;$i++){
print "<TR><TD>$i($dracelist[$i])</TD><TD><input type=text name=racelist$i value='$racelist[$i]'></TD></TR>";
}
print "</table>";
print "job<BR>";
print "<table border>";
for($i=0;$i<$#joblist+1;$i++){
print "<TR><TD>$i($djoblist[$i])</TD><TD><input type=text name=joblist$i value='$joblist[$i]'></TD></TR>";
}
print "</table>";
print "synthesis<BR>";
print "<table border>";
for($i=0;$i<$#prodlist+1;$i++){
print "<TR><TD>$i($dprodlist[$i])</TD><TD><input type=text name=prodlist$i value='$prodlist[$i]'></TD></TR>";
}
print "</table>";
print "realm list<BR>";
print "<table border>";
for($i=0;$i<$#relmlistl+1;$i++){
print "<TR><TD>$i($drelmlistl[$i])</TD><TD><input type=text name=relmlistl$i value=\"$relmlistl[$i]\"></TD></TR>";
}
print "</table>";
print "realm list 2<BR>";
print "<table border>";
for($i=0;$i<$#relmlist+1;$i++){
    $relmlist[$i] =~ s/\"//g;
print "<TR><TD>$i($drelmlist[$i])</TD><TD><input type=text size=30 name=relmlist$i value=\"$relmlist[$i]\"></TD></TR>";
}
print "</table>";
print "skill list<BR>";
print "<table border>";
for($i=0;$i<$#skilllist+1;$i++){
print "<TR><TD>$i($dskilllist[$i])</TD><TD><input type=text name=skilllist$i value='$skilllist[$i]'></TD></TR>";
}
print "</table>";
print "button name<BR>";
print "<table border>";
for($i=0;$i<$#button+1;$i++){
print "<TR><TD>$i($buttonlist[$i])</TD><TD><input type=text name=button$i value='$button[$i]'></TD></TR>";
}
print "</table>";
print <<"EOM";
<input type=hidden name=function value="regist2">
<input type=hidden name=pass value="$pass">
<input type=submit value="change">
</form>
EOM
print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=gpass value=$pass><input type=hidden name=function value=master><input type=submit value='マスターモードへ戻る'></form>";

}



}

sub regist2{
	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}

for($j=0;$j<$#index+1;$j++){
    $index[$j]=$FORM{"index$j"};
}
for($j=0;$j<$#menu+1;$j++){
    $menu[$j]=$FORM{"menu$j"};
}
for($j=0;$j<$#menux+1;$j++){
    $menux[$j]=$FORM{"menux$j"};
}
for($j=0;$j<$#field+1;$j++){
    $field[$j]=$FORM{"field$j"};
}
for($j=0;$j<$#modelist+1;$j++){
    $modelist[$j]=$FORM{"modelist$j"};
}
for($j=0;$j<$#ranklist+1;$j++){
    $ranklist[$j]=$FORM{"ranklist$j"};
}
for($j=0;$j<$#racelist+1;$j++){
    $racelist[$j]=$FORM{"racelist$j"};
}
for($j=0;$j<$#joblist+1;$j++){
    $joblist[$j]=$FORM{"joblist$j"};
}
for($j=0;$j<$#prodlist+1;$j++){
    $prodlist[$j]=$FORM{"prodlist$j"};
}
for($j=0;$j<$#relmlistl+1;$j++){
    $relmlistl[$j]=$FORM{"relmlistl$j"};
}
for($j=0;$j<$#relmlist+1;$j++){
    $relmlist[$j]=$FORM{"relmlist$j"};
    $relmlist[$j] =~ s/\"//g;

}
for($j=0;$j<$#skilllist+1;$j++){
    $skilllist[$j]=$FORM{"skilllist$j"};
}

for($j=0;$j<$#button+1;$j++){
    $button[$j]=$FORM{"button$j"};
}

@list=(
'index',
'menu',
'menux',
'field',
'modelist',
'ranklist',
'racelist',
'joblist',
'prodlist',
'relmlistl',
'relmlist',
'skilllist',
'button'
);

&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=<IN>;
close IN;

foreach $item(@list){
	for($i=0;$i<$#all+1;$i++){
		if($all[$i] =~ /^\@$item=(.*);(.*)/){
		$temp=$2;
		$arr="\@$item=(";
		for($j=0;$j<$#$item+1;$j++){
			if ($$item[$j] =~ /.*\\$/){
				$$item[$j].="\\";
			}
			if(($item eq "relmlist") || ($item eq "relmlistl")){
			    $arr.="\"$$item[$j]\",";
			} else {
			$$item[$j] =~ s/'//g;
			    $arr.="'$$item[$j]',";
			}
		}
		$arr.=");$2\n";
			$all[$i]=$arr;
		}
	}
}

@out=@all;
&check_out;

if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @out;
close OUT;
rmdir($lockdir);
$registed="yes";


$function="login2";
&login2;

}

sub check_out{

	@temp=@out;
	@out=();
	foreach $i(@temp){
		if( !($i =~ /^1;/) ){
			push(@out,$i);
		}
	}
	push(@out,"1;\n");

}