#/usr/bin/perl

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


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

$lockdir="lock";

#バージョン番号。いじらないでネ。改造した場合は適当にどうぞ。
$version="Version 0.5c3";

#このスクリプトのなまえ。ファイル名を変更したときはここも変更してください。
$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 "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
}

}

#
#レジスト
#
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'};
$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=
#$rss_avail=

@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',
'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'
);

&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\$dummy=\"a\";\n");
	}

}

if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');}
print OUT @all;
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;
	}
	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);


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>
Genral Settings

<table border>
<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>
<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>";

$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><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 "<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 <<"EOM";
<TR><TD>初期表\示モード</TD><TD><select name=limit_table>
EOM
@limtlist=('シンプル','ジョブ','合成','ステータス','フル','フル２','アイコン','アイコン(新着順)','スキル','レベルサーチ','ミッション');
for($i=0;$i<11;$i++){
print "<option value=$i";
if($limit_table == $i){print " selected";}
print ">$limtlist[$i]</option>"
}
print "</select></TD></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 <<"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>
</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>
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>
<TR><TD colspan=2>
推奨アイコン素材ページの名称とurl<HR>
FFXIで遊ぼうかな＋<BR>（http://hope.homeip.net/%7Eff11/）<BR>
kero web<BR>（http://flashup.jp/~kero/）<BR>
ちょんまげ素材店<BR>(http://mamicou.cool.ne.jp/FF11/）<BR>
</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>
</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>
<input type=submit value="変更">
</TD></TR></table>
</form>
EOM
} else {

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>
Genral Settings
<table border>
<TR><TD>Homepage 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>
<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>Response for diary</TD><TD><select name=diaryres>
EOM
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 <<"EOM";
<TR><TD>max articles</TD><TD><input type=text name=showmax value='$showmax'></TD></TR>
<TR><TD>master password</TD><TD><input type=text name=master_pass value='$master_pass'></TD></TR>
<TR><TD>guild name</TD><TD><input type=text name=guild_name value="$guild_name"></TD></TR>
<TR><TD>page title</TD><TD><input type=text name=topic value='$topic'></TD></TR>
<TR><TD>new entry</TD><TD><select name=reg_mode>
EOM
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>able</option>";
print "<option value=0>enable</option>";
} else {
print "<option value=1>able</option>";
print "<option value=0 selected>enable</option>";
}
print "</select></TD></TR>";
print <<"EOM";
<TR><TD>back color 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 "<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>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 <<"EOM";
<TR><TD>default mode</TD><TD><select name=limit_table>
EOM
@limtlist=('Simple','Job','Synthesis','Status','Full','Full2','Icon');
for($i=0;$i<7;$i++){
print "<option value=$i";
if($limit_table == $i){print " selected";}
print ">$limtlist[$i]</option>"
}
print "</select></TD></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 <<"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 lines</TD><TD><input type=text name=c_max value='$c_max'></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>
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>
</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>
<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'};




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 Registraion 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 login2{
	if($pass ne $master_pass){
		&header; &error_message('pass error','access failed.');
	}

&header;

	if($registed eq "yes"){
if($language ne "English"){
	print "設定ファイルを書き換えました。";
} 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');
@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');
@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','15','16');
@djoblist=('戦','モ','白','黒','赤','シ','ナ','暗','狩','吟','獣','竜','召','忍','侍','15','16');
#@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');
@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');
@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','15','16');
@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');
@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

}



}

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;
		}
	}
}

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


$function="login2";
&login2;

}