#
#マスターモード（削除機能とパスワード閲覧）
#
#0.52βm1(04/10/04)

sub master{
print "master mode<BR>";
print "<HR><a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";
print "<a href='#config'>[各種設定]</a><a href='#sort'>[ソ\ート]</a><a href='#backup'>[バックアップ]</a><a href='#info'>[お知らせ変更]</a><BR>";

	if(($g_pass ne $master_pass)){&error_message('illegal login','password is not correct.');}

if ($mode eq "delete" && $anon eq "on")
{

print "$name さんを削除します。データはすべて抹消されます。<BR>";

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

@out=();
foreach $i (@all){
 ($r_no,$r_name,$dummy)=split(/\t/,$i);
	if($name ne $r_name){
	push(@out,$i);
	}
}
if(!open(OUT,">$datafile")){&error_message('datafile error204','data file access failed.');}
print OUT @out;
close OUT;

print "$name さんのデータは削除されました。<BR>";

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

} elsif ($mode eq "edit") {

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

$match="";
foreach $i(@all){
		 ($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
	if($r_name eq $name){
			$match=$i;
	}
}

if($match eq ""){&header; &error_message('id/pass error','access failed.');}

	 ($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])=split(/\t/,$match);

    @prod_r = split(/,/,$etc[1]);

print "'$name'($no) さんのデータを修正します。<BR><table><form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=g_pass value=$g_pass><input type=hidden name=function value=master><input type=hidden name=mode value=modify>";

print "<TR><TD>$field[0]</TD><TD><input type=text name=class size=80 value='$class'></TD>";

print "<input type=hidden name=name value=$name></TR>\n";


print "<TR><TD>$field[1]</TD><TD><input type=text name=name2 value=$name></TD><TR><TD>$field[2]</TD><TD><input type=text name=pass value=$pass></TD></TR>\n";

print "<TR><TD>no</TD><TD><input type=text name=no value=$no></TD></TR>";

print "<TR><TD>$field[3]</TD><TD><select name=anon>";
if($anon eq on){
print "<option value=off>off</option><option value=on selected>on</option>";
} else {
print "<option value=off selected>off</option><option value=on>on</option>";
}	
print "</select></TD></TR>\n";



print "<TR><TD>$field[4]</TD><TD><select name=race>";
for($i=0;$i<$#racelist+1;$i++){
	if($i==$race){
	print "<option value=$i selected>$racelist[$i]</option>\n";
	} else {
	print "<option value=$i>$racelist[$i]</option>\n";
	}
}
print "</select></TD></TR>\n";

print "<TR><TD>$field[5] (<a href=$icondir";
print "samples.htm target='_blank'>$field[18]</a>)</TD><TD><select name=ftype>";
for($i=0;$i<$#facetypename+1;$i++){
    if($i==$etc[0]){
    print "<option value=$i selected>$facetypename[$i]</option>\n";
    } else {
    print "<option value=$i>$facetypename[$i]</option>\n";
    }
}
print "</select></TD></tr>\n";

print "<TR><TD>$field[6]</TD><TD><select name=relm>";
for($i=0;$i<$#relmlist+1;$i++){
	if($i==$relm){
	print "<option value=$i selected>$relmlistl[$i]</option>\n";
	} else {
	print "<option value=$i>$relmlistl[$i]</option>\n";
	}
}
print "</select></TD></TR>\n";


print "<TR><TD colspan=2><HR></TD></TR>\n";
print "<TR><TD>$field[7]</TD><TD><select name=mainjob>";
for($i=0;$i<$job_max;$i++){
	if($i==$mainjob){
	print "<option value=$i selected>$joblist[$i]</option>\n";
	} else {
	print "<option value=$i>$joblist[$i]</option>\n";
	}
}
print "</select></TD></TR>\n";


print "<TR><TD>$field[8]</TD><TD><select name=supportjob>";
	print "<option value=99>none</option>\n";

for($i=0;$i<$job_max;$i++){
	if($i==$supportjob){
	print "<option value=$i selected>$joblist[$i]</option>\n";
	} else {
	print "<option value=$i>$joblist[$i]</option>\n";
	}
}
print "</select></TD></TR>\n";



for($i=0;$i<$job_max;$i++){
print "<TR><TD>$joblist[$i]</TD><TD><input type=text size=2 name=lev$i value=$lev[$i]></TD></TR>\n";
}

print "<TR><TD colspan=2><HR></TD></TR>\n";

for($i=0;$i<$prod_max;$i++){
print "<TR><TD>$prodlist[$i]</TD><TD><input type=text size=2 name=prod$i value=$prod[$i]>\n";
print "<select name=prod_r$i>";
	for($j=0;$j<$#ranklist+1;$j++){
		if($j==$prod_r[$i]){
			print "<option value=$j selected>$ranklist[$j]</option>\n";
		} else {
			print "<option value=$j>$ranklist[$j]</option>\n";
		}
	}
print "</select></TD></TR>\n";
}

####ミッション進行度フラグ
#pm,jm,sm,bm,wm,ds,db,dw,dj,df,dx

    @mission = split(/,/,$prod[15]);

print "<TR><TD>プロマシア </TD><TD>";
print "<select name=mission0>";
	for($j=0;$j<$#pmlist+1;$j++){
		if($j==$mission[0]){
			print "<option value=$j selected>$pmlist[$j]</option>\n";
		} else {
			print "<option value=$j>$pmlist[$j]</option>\n";
		}
	}
print "</select></TD></TR>\n";
print "<TR><TD>ジラート</TD><TD>";
print "<select name=mission1>";
	for($j=0;$j<$#jmlist+1;$j++){
		if($j==$mission[1]){
			print "<option value=$j selected>$jmlist[$j]</option>\n";
		} else {
			print "<option value=$j>$jmlist[$j]</option>\n";
		}
	}
print "</select></TD></TR>\n";
print "<TR><TD>サンドリア</TD><TD>";
print "<select name=mission2>";
	for($j=0;$j<$#smlist+1;$j++){
		if($j==$mission[2]){
			print "<option value=$j selected>$smlist[$j]</option>\n";
		} else {
			print "<option value=$j>$smlist[$j]</option>\n";
		}
	}
print "</select></TD></TR>\n";
print "<TR><TD>バストゥーク</TD><TD>";
print "<select name=mission3>";
	for($j=0;$j<$#bmlist+1;$j++){
		if($j==$mission[3]){
			print "<option value=$j selected>$bmlist[$j]</option>\n";
		} else {
			print "<option value=$j>$bmlist[$j]</option>\n";
		}
	}
print "</select></TD></TR>\n";
print "<TR><TD>ウインダス</TD><TD>";
print "<select name=mission4>";
	for($j=0;$j<$#wmlist+1;$j++){
		if($j==$mission[4]){
			print "<option value=$j selected>$wmlist[$j]</option>\n";
		} else {
			print "<option value=$j>$wmlist[$j]</option>\n";
		}
	}
print "</select></TD></TR>\n";

print "<TR><TD>デュナミスーサンドリア</TD><TD>";
print "<select name=mission5>";
		if($mission[5]){
			print "<option value=0>×</option>\n";
			print "<option value=1 selected>○</option>\n";
		} else {
			print "<option value=0 selected>×</option>\n";
			print "<option value=1>○</option>\n";
		}
print "</select></TD></TR>\n";
print "<TR><TD>デュナミスーバストゥーク</TD><TD>";
print "<select name=mission6>";
		if($mission[6]){
			print "<option value=0>×</option>\n";
			print "<option value=1 selected>○</option>\n";
		} else {
			print "<option value=0 selected>×</option>\n";
			print "<option value=1>○</option>\n";
		}
print "</select></TD></TR>\n";
print "<TR><TD>デュナミスーウインダス</TD><TD>";
print "<select name=mission7>";
		if($mission[7]){
			print "<option value=0>×</option>\n";
			print "<option value=1 selected>○</option>\n";
		} else {
			print "<option value=0 selected>×</option>\n";
			print "<option value=1>○</option>\n";
		}
print "</select></TD></TR>\n";
print "<TR><TD>デュナミスージュノ</TD><TD>";
print "<select name=mission8>";
		if($mission[8]){
			print "<option value=0>×</option>\n";
			print "<option value=1 selected>○</option>\n";
		} else {
			print "<option value=0 selected>×</option>\n";
			print "<option value=1>○</option>\n";
		}
print "</select></TD></TR>\n";
print "<TR><TD>デュナミスーボスディン</TD><TD>";
print "<select name=mission9>";
		if($mission[9]){
			print "<option value=0>×</option>\n";
			print "<option value=1 selected>○</option>\n";
		} else {
			print "<option value=0 selected>×</option>\n";
			print "<option value=1>○</option>\n";
		}
print "</select></TD></TR>\n";
print "<TR><TD>デュナミスーザルカバード</TD><TD>";
print "<select name=mission10>";
		if($mission[10]){
			print "<option value=0>×</option>\n";
			print "<option value=1 selected>○</option>\n";
		} else {
			print "<option value=0 selected>×</option>\n";
			print "<option value=1>○</option>\n";
		}
print "</select></TD></TR>\n";


####ミッション進行度ここまで


##############
#-- 以下スキル表示機能で追加した部分 
    @skill = split(/,/,$etc[2]);

if ($skill_visible) {
    print "<tr><td colspan=2>※各スキルの入力は任意です。記録を希望されるときだけご利用ください<br><table border=0><tr bgcolor=$indexcolor>";
    for($i=0;$i<15;$i++){
        print "<th width=6.66%>$skilllist[$i]</th>";
    }
    print "</tr><tr$bgn>";
    for($i=0;$i<15;$i++){
        print "<TD width=6.66% align=center><input type=text size=5 name=skill$i value=$skill[$i]></TD>\n";
    }
    print "</table></td></tr>";

    print "<tr><td colspan=2><table border=0><tr bgcolor=$indexcolor>";
    for($i=15;$i<$#skilllist+1;$i++){
        print "<th width=6.66%>$skilllist[$i]</th>";
    }
    print "</tr><tr>";
    for($i=15;$i<$#skilllist+1;$i++){
        print "<TD width=6.66% align=center><input type=text size=4 name=skill$i value=$skill[$i]></TD>\n";
    }
    print "</table></td></tr>";
}
#-- スキル表示機能で追加した部分ここまで 
##############


print "<TR><TD>$field[9]</TD><TD><input type=text name=point size=80 value='$point'></TD></TR>\n";
print "<TR><TD>$field[10]</TD><TD><input type=text name=mrank value='$mrank'></TD></TR>\n";
print "<TR><TD>$field[11]</TD><TD><input type=text name=comment size=80 value='$comment'></TD></TR>\n";

print "<TR><TD colspan=2><HR></TD></TR></TR>\n";
print "<TR><TD>$field[12]</TD><TD><select name=prof>";
if($prof eq off){
print "<option value=off selected>off</option><option value=on>on</option>";
} else {
print "<option value=off>off</option><option value=on selected>on</option>";
}	
print "</select></TD></TR>\n";

print "<TR><TD>$field[13]</TD><TD><input type=text name=handle value='$handle'></TD></TR>\n";
print "<TR><TD>$field[14]</TD><TD><input type=text name=polhn value='$polhn'></TD></TR>\n";
print "<TR><TD>$field[15]</TD><TD><input type=text name=mail value='$mail'></TD></TR>\n";

print "<TR><TD>$field[16]</TD><TD><input type=text name=home size=80 value='$home'></TD></TR>\n";

$comment2 =~ s/<BR>/\r/g;
print "<TR><TD>$field[17]</TD><TD><textarea name=comment2 rows=5 cols=60>$comment2</textarea></TD></TR>\n";



print "<TR><TD><input type=submit value=modify></TD><TD></TD></TR>\n</form></table>";

}  elsif ($mode eq "modify") {

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

	if($mainjob == $supportjob){&header; &error_message('main/job error','メインとサポートは同一のジョブにはできません');}
	if( !($pass =~ /^[A-Za-z0-9_]+$/) ){
	&error_message('そのパスワードは登録に利用できません。','パスワードは半角英数字で登録してください。');
	}
	if( !($name2 =~ /^[A-Za-z0-9_]+$/) ){
	&error_message('その名前は使えません。','名前は半角英数字で登録してください。');
	}

@out=();
foreach $i(@all){
		 ($r_no,$r_name,$dummy1,$dummy2,$dummy3,$dummy4,$dummy5,$dummy6,$dummy7,$dummy8,$dummy9,$dummy10,$dummy11,$dummy12,$dummy13,$dummy14,$r_time)=split(/\t/,$i);
	if($r_name eq $name){
		push(@out,"$no\t$name2\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$r_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\n");
	} else {
		push(@out,$i);
	}
}
		if(!open(OUT,">$datafile")){&header; &error_message('datafile error353','data file access failed.');}
		print OUT @out;
		close OUT;
rmdir($lockdir);

print "<table width=100%><TR bgcolor=$indexcolor><TD>'$name'さんのデータを修正しました</TD></TR></table>";
print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=g_pass value=$g_pass><input type=hidden name=function value=master><input type=submit value='マスターモードへ戻る'></form>";


} elsif($mode eq "backup"){

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

if(!open(OUT,">$name")){&error_message('datafile error368','data file access failed.');}
print OUT @all;
close OUT;

print "バックアップファイル'$name'を作成しました。データ破損の場合はこのファイルを'$datafile'に上書きしてください。<BR>";

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


} elsif($mode eq "sort"){

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

@all=sort(@all);

@out=();
$count=1;
foreach $i (@all){
@temp=split(/\t/,$i);

	$c=$count;
		if($c<10){$c="0$c";}
		if($c<100){$c="0$c";}
	$value="$c";

	for($j=1;$j<$#temp+1;$j++){
		$value="$value\t$temp[$j]";
	}
	
	push (@out,"$value");

	$count++;
}


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

print "Noを元にソ\ート、Noを振りなおしました。デフォルトでNo順で表\示されるようになります。<BR>";

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


} elsif($mode eq "sort2"){

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

@all=sort(@all);

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

print "Noを元にソ\ートしました。<BR>";

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


}  elsif($mode eq "message"){


$body =~ s/&lt;/</g;
$body =~ s/&gt;/>/g;
$name =~ s/&lt;/</g;
$name =~ s/&gt;/>/g;


if(!open(OUT,">message.tbl")){&error_message('message datafile error437','data file access failed.');}
print OUT "$name\n$body\n";
close OUT;

print "お知らせを書き換えました。<BR>";
print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=g_pass value=$g_pass><input type=hidden name=function value=master><input type=submit value='マスターモードへ戻る'></form>";


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

if($sort ne ""){

&sort_table;

}


print "<table border cellpading=0 cellspacing=0 width=100%><TR bgcolor=$indexcolor><TH width=5%>no</TH><TH width=10%><a href='$script?function=master&g_pass=$g_pass&sort=15'>class</a></TH><TH width=10%><a href='$script?function=master&g_pass=$g_pass&sort=1'>name</a></TH><TH>pass</TH>";
print "<TH width=5%><a href='$script?function=master&g_pass=$g_pass&sort=16&mode=r'>time</a></TH><TH>edit</TH></TR>";



$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])=split(/\t/,$i);


if($count==$c_max){
print "</table><BR><table border cellpading=0 cellspacing=0 width=100%><TR bgcolor=$indexcolor><TH width=5%>no</TH><TH width=10%>class</TH><TH width=10%>name</TH><TH>pass</TH><TH>time</TH><TH>edit</TH></TR>";

$count=0;
}

print "<TR><TD>$no</TD><TD>$class</TD><TD>$name</TD><TD>$pass</TD>";

print "<form method=post enctype='multipart/form-data'  action=$script><TD>$time</TD><TD><input type=hidden name=g_pass value=$g_pass><input type=hidden name=function value=master><input type=hidden name=name value=$name>確認<input type=checkbox name=anon value=on> <input type=submit name=mode value='delete'><input type=submit name=mode value='edit'></TD></form></TR>";


$count++;

}



print "</table>";


if(!open(IN,"message.tbl")){$osirase="no"}
else {
$osirase=<IN>;
$osirase =~ s/\n//g;
$osirase =~ s/\r//g;
$osirasebody=<IN>;
close IN;
}
$osirasebody =~ s/<BR>/\n/g;

print <<"EOM";
<HR>
<a name='config'>
設定ファイルを書き換えます<BR>
<form method=post action=$script2><input type=hidden name=pass value='$g_pass'><input type=hidden name=function value=login>
<input type=submit name=mode value='config'></form>
表\示項目のカスタマイズ<BR>
<form method=post action=$script2>
<input type=hidden name=function value="login2">
<input type=hidden name=pass value="$g_pass">
<input type=submit value="設定画面へ">
</form>
<HR>
<a name='sort'>
No順にソ\ート、Noを振りなおして、その順で書き込みます。<BR>
<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=g_pass value='$g_pass'><input type=hidden name=function value=master>
<input type=submit name=mode value='sort'></form>
<HR>
No順にソ\ート、Noを振りなおしません。<BR>
<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=g_pass value='$g_pass'><input type=hidden name=function value=master>
<input type=submit name=mode value='sort2'></form>
<HR>
<a name='backup'>
データのバックアップ<BR>
ファイル名を入れてバックアップボタンを押してください。<BR>
<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=g_pass value='$g_pass'><input type=hidden name=function value=master>
<input type=text name=name value='bk$year$mon$mday.gld'><input type=submit name=mode value='backup'></form>
<HR>
<a name='info'>
お知らせの表\示<BR>
お知らせの文章を入れてください。<BR>
<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=g_pass value='$g_pass'><input type=hidden name=function value=master>
お知らせのタイトル（なしで表\示しません）<BR>
<input type=text name=name size=80 value='$osirase'><BR>
お知らせの文章<BR>
<textarea name=body rows=5 cols=60>$osirasebody</textarea><BR>
<input type=submit name=mode value='message'></form>
EOM

print "<a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";


}


}

1;