#!/usr/local/bin/perl
# サーバーの環境に合わせて変更して下さい。
require './ore_config.cgi';				# ore_.plのパス
#-----------------------------------------------------------#
#  罪と罰++ 二律背反										#
#  管理者機能												#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
$ver	= 'v1.1';				# バージョン情報は書き換え不可
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#
# 以下処理 基本的にこれ以下はいじらないように。

&get_time;	# 日時取得
&decode;	# フォームデコード
&axs_check;	# アクセスチェック
&usr_del		if($mode eq 'usr_del');			# キャラ削除
&usr_regist		if($mode eq 'usr_regist');		# キャラデータ変更
&usr_regist2	if($mode eq 'usr_regist2');		# キャラデータ変更2
&cdat_regist	if($mode eq 'cdat_regist');		# 国データ変更
&cdat_regist2	if($mode eq 'cdat_regist2');	# 国データ変更2
&rd_usrdata		if($mode eq 'rd_usrdata');		# $usrdata内ファイル全削除
&rd_backdata	if($mode eq 'rd_backdata');		# $backdata内ファイル全削除
&cdata_reset	if($mode eq 'cdata_reset');		# 国パラメータ初期化
&restore_all_usr if($mode eq 'restore_all_usr');# 全参加者ログ一括復旧(バックアップデータ差し替え)
&restore_person	if($mode eq 'restore_person');	# 個別全参加者ログ復旧(バックアップデータ差し替え)
&restore_cdat	if($mode eq 'restore_cdat');	# 国ログ復旧(バックアップデータ差し替え)
&usr_list;	# キャラリスト表示

exit;

#-------------------------------------------------------------------------------
# キャラリスト表示
sub usr_list{

	&admin_head;

if($comment){
	print <<"EOM";
<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap align="left">$comment</th>
</tr>
</table>
<br>
EOM
}
	print <<EOM;
<form method="$method" action="$ore_admin" name="ore_admin">
<input type="hidden" name="administrator" value="$in{'administrator'}">
<input type="hidden" name="list_sort" value="$in{'list_sort'}">
<input type="hidden" name="list_view" value="$in{'list_view'}">
<input type="hidden" name="mode" value="usr_del">

<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<th nowrap colspan=4>ｿｰﾄ</th>
<th nowrap colspan=7>ﾃﾞｰﾀ\表\示</th>
</tr>
<tr>
<td nowrap><input class="button1" type="button" style="width:20px" value="無" onClick="location.href='$ore_admin?administrator=$in{'administrator'}'"></td>
<td nowrap><input class="button1" type="button" value="ﾚﾍﾞﾙ" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=4&list_view=$in{'list_view'}'"></td>
<td nowrap><input class="button1" type="button" value="IPｱﾄﾞﾚｽ" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=15&list_view=$in{'list_view'}'"></td>
<td nowrap><input class="button1" type="button" value="最終更新" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=18&list_view=$in{'list_view'}'"></td>

<td nowrap><input class="button1" type="button" value="全\表\示" style="width:80px"onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=-1'"></td>
<td nowrap><input class="button1" type="button" value="$cmp[0]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=-5'"></td>
<td nowrap><input class="button1" type="button" value="$cmp[1]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=1'"></td>
<td nowrap><input class="button1" type="button" value="$cmp[2]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=2'"></td>
<td nowrap><input class="button1" type="button" value="$cmp[3]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=3'"></td>
<td nowrap><input class="button1" type="button" value="$cmp[4]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=4'"></td>
<td nowrap><input class="button1" type="button" value="$cmp[5]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=5'"></td>
</tr>
</table>
<br>
EOM

	if($in{'list_view'}){

		print <<EOM;
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<th nowrap>削除</th>
<th nowrap>ﾛｸﾞｲﾝ</th>
<th nowrap>編集</th>
<th nowrap>名前</th>
<th nowrap>I D</th>
<th nowrap>ﾊﾟｽﾜｰﾄﾞ</th>
<th nowrap>性別</th>
<th nowrap>ﾚﾍﾞﾙ</th>
<th nowrap>所属</th>
<th nowrap>HP</th>
<th nowrap>MP</th>
<th nowrap>UA</th>
<th nowrap>UD</th>
<th nowrap>LR</th>
<th nowrap>AG</th>
<th nowrap>所持金</th>
<th nowrap>階級</th>
<th nowrap>行動</th>
<th nowrap>最終ﾛｸﾞｲﾝ</th>
<th nowrap>IPｱﾄﾞﾚｽ</th>
<th nowrap>ﾎｽﾄ名</th>
<th nowrap>ﾌﾞﾗｳｻﾞ</th>
</tr>
EOM

	# 参加者データファイル一覧取得
	&usrdata_read;

	# 参加者データ一括読み込み
	foreach (0 .. $#usrfile) {
		open(IN,"$usrdata$usrfile[$_]") || &error("Can't open $usrfile[$_]");
		@line = <IN>;
		close(IN);
		push(@dat,$line[0]);
		push(@dat2,$line[1]);
	}

	local(@usr_data);

	foreach (0 .. $#dat){
		%DAT = '';
		my @prats = split(/,/,$dat[$_]);
		foreach (0 .. $#prats){
			my ($key,$v) = split(/;/,$prats[$_]);
			$DAT{$key} = $v;
		}

		my @y1 = split(/<>/,$dat2[$_]);

		$in{'list_view'}=0 if($in{'list_view'}==-5);

		if($in{'list_view'} eq $DAT{'camp'} || $in{'list_view'} eq -1){
			$id = $DAT{'id'};
			# ハッシュ読み込み
			&hash_data;

			push(@usr_data,"$nm<>$id<>$pw<>$sei<>$lv<>$camp<>$max_hp<>$max_mp<>$ua<>$ud<>$lr<>$gold<>$rank<>$sogo<>$y1[0]<>$y1[1]<>$y1[2]<>$y1[3]<>$la<>$ag<>$type<>");
		}
	}

	@usr_data = @{&csvsort('<>',$in{'list_sort'},@usr_data)};

	foreach(0 .. $#usr_data){
		my @y2 = split(/<>/,$usr_data[$_]);

		$y2_0 = (!$y2[13]) ? "$y2[0]" : "$y2[0] [$sogo_p[$y2[13]]]" ;
		$y2[14] ="" if($y2[14] =~ /date/);
		$y2[20] = "待機中" if(!$y2[20]);
		print <<"EOM";
<tr>
<td nowrap><input type="checkbox" name="usr_del"value="$y2[1]"></td>
<td nowrap><input class="button1" type="button" value="ﾛｸﾞｲﾝ" onClick="window.open('$script?id=$y2[1]&pw=$in{'administrator'}')"></td>
<td nowrap><input class="button1" type="button" value="編集" onClick="window.open('$ore_admin?id=$y2[1]&administrator=$in{'administrator'}&mode=usr_regist')"></td>
<td nowrap>$y2_0</td>
<td nowrap>$y2[1]</td>
<td nowrap>$y2[2]</td>
<td nowrap>$seibetu[$y2[3]]</td>
<td nowrap>$y2[4]</td>
<td nowrap>$cmp[$y2[5]]</td>
<td nowrap>$y2[6]</td>
<td nowrap>$y2[7]</td>
<td nowrap>$y2[8]</td>
<td nowrap>$y2[9]</td>
<td nowrap>$y2[10]</td>
<td nowrap>$y2[19]</td>
<td nowrap>$y2[11]</td>
<td nowrap>$cl[$y2[12]]</td>
<td nowrap>$y2[20]</td>
<td nowrap>$y2[14]</td>
<td nowrap>$y2[15]</td>
<td nowrap>$y2[16]</td>
<td nowrap>$y2[17]</td>
</tr>
EOM
		}
	}
	print <<"EOM";
</table>
<br><br>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<th nowrap>ｷｬﾗ削除</th>
<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<th nowrap>国ﾃﾞｰﾀ編集</th>

<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<th nowrap>国ﾃﾞｰﾀﾘｾｯﾄ</th>

<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<th nowrap colspan="2">Warning!! ﾃﾞｨﾚｸﾄﾘ/ﾃﾞｰﾀ全削除</th>
</tr>
<tr>
<td nowrap align="center"><input class="button1" type="submit" value="ｷｬﾗ削除" style="width:80px"></td>
<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>

<td nowrap align="center"><input class="button1" type="button" value="国ﾃﾞｰﾀ編集" style="width:80px" onClick="window.open('$ore_admin?administrator=$in{'administrator'}&mode=cdat_regist')"></td>
<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>

<td nowrap align="center"><input class="button1" type="button" value="国ﾃﾞｰﾀﾘｾｯﾄ" style="width:100px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=cdata_reset'"></td>
<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>

<td nowrap align="center"><input class="button1" type="button" value="ｷｬﾗﾃﾞｰﾀ一括削除" style="width:120px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=rd_usrdata'"></td>
<td nowrap align="center"><input class="button1" type="button" value="ﾊﾞｯｸｱｯﾌﾟ一括削除" style="width:120px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=rd_backdata'"></td>
</tr>
</table>
</form>

<br>

<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<th nowrap colspan="5">キャラログ個別復旧</th>
<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<th nowrap colspan="3">全キャラログ復旧</th>
<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<th nowrap colspan="3">国ログ復旧</th>
</tr>
<tr>

<form method="$method" action="$ore_admin" name="ore_admin">
<input type="hidden" name="administrator" value="$in{'administrator'}">
<input type="hidden" name="list_sort" value="$in{'list_sort'}">
<input type="hidden" name="list_view" value="$in{'list_view'}">
<input type="hidden" name="mode" value="restore_person">

<td nowrap>ID</td>
<td nowrap>
<select name="restore_usr" class="button1" type="button" style="width:110px">
EOM
	foreach(1 .. $#usrfile){
		print qq|<option value="$usrfile[$_]"|;
		print qq|>$usrfile[$_]\n|;
	}
	print <<"EOM";
</select>
</td>
<td nowrap>日時</td>
<td nowrap>
<select name="restore_date" class="button1" type="button" style="width:130px">
EOM
	foreach(0 .. $#week){

		if(-e "$backdata$week[$_]\.cgi"){
			my $bk_time = (stat("$backdata$week[$_]\.cgi"))[9];
			my($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($bk_time);
			$min = "0$min" if($min<10);
			$sec = "0$sec" if($sec<10);
			$month++;
			my $date_bk = "$month/$mday($week[$wday]) $hour:$min:$sec";
	
			print qq|<option value="$backdata$week[$_]\.cgi"|;
			print qq|>$date_bk\n|;
		}
	}
	print <<"EOM";
</select>
</td>
<td nowrap align="center"><input class="button1" type="submit" value="復 旧" style="width:60px"></td>

</form>

<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>

<form method="$method" action="$ore_admin" name="ore_admin">
<input type="hidden" name="administrator" value="$in{'administrator'}">
<input type="hidden" name="list_sort" value="$in{'list_sort'}">
<input type="hidden" name="list_view" value="$in{'list_view'}">
<input type="hidden" name="mode" value="restore_all_usr">

<td nowrap>日時</td>
<td nowrap>
<select name="restore_date" class="button1" type="button" style="width:130px">
EOM
	foreach(0 .. $#week){

		if(-e "$backdata$week[$_]\.cgi"){
			my $bk_time = (stat("$backdata$week[$_]\.cgi"))[9];
			my($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($bk_time);
			$min = "0$min" if($min<10);
			$sec = "0$sec" if($sec<10);
			$month++;
			my $date_bk = "$month/$mday($week[$wday]) $hour:$min:$sec";
	
			print qq|<option value="$backdata$week[$_]\.cgi"|;
			print qq|>$date_bk\n|;
		}
	}
	print <<"EOM";
</select>
</td>
<td nowrap align="center"><input class="button1" type="submit" value="復 旧" style="width:60px"></td>

</form>

<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>

<form method="$method" action="$ore_admin" name="ore_admin">
<input type="hidden" name="administrator" value="$in{'administrator'}">
<input type="hidden" name="list_sort" value="$in{'list_sort'}">
<input type="hidden" name="list_view" value="$in{'list_view'}">
<input type="hidden" name="mode" value="restore_cdat">

<td nowrap>日時</td>
<td nowrap>
<select name="restore_date" class="button1" type="button" style="width:110px">
EOM

	open (IN,"$histfile") || &error("Open error : $histfile");
	my @hist_dat = <IN>;
	close(IN)    or die "Can't close   : $!";

	foreach(0 .. $#hist_dat){
		my @y1 = split(/,/,$hist_dat[$_]);
		$y1[42]	=~ s/date;//g;
		print qq|<option value="$_">$y1[42]\n|;
	}
	print <<"EOM";
</select>
</td>
<td nowrap align="center"><input class="button1" type="submit" value="復 旧" style="width:60px"></td>

</form>

</tr>
</table>
<br>

EOM
	&admin_end;
	exit;
}

# 個別参加者ログ復旧(バックアップデータ差し替え)
sub restore_person{

	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);

	# ファイルロック(rename式)
	$lock		= &lock if $lock_check;

	open(IN,"$in{'restore_date'}") || &error("Open Error : $in{'restore_date'}",1);
	my @tdat = <IN>;
	close(IN);

	$in{'restore_usr'} =~ s/\.cgi//g;

	foreach (0 .. $#tdat){

		%R = '';
		my @prats = split(/,/,$tdat[$_]);
		foreach $prats (@prats){
			my($y,$x) = split(/;/,$prats);
			$R{$y} = $x;

			if($in{'restore_usr'} eq $R{'id'}){
				open (OUT,">$usrdata$R{'id'}\.cgi") || &error("open error:$usrdata$R{'id'}\.cgi",1);
				print OUT $tdat[$_];
				close(OUT)		or die "Can't close   : $!";
			}
		}
	}

	&unlock($lock) if $lock_check;

	$comment ="$in{'restore_date'}から$usrdata$in{'restore_usr'}\.cgiを復旧完了";

}

# 全参加者ログ一括復旧(バックアップデータ差し替え)
sub restore_all_usr{

	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);

	# ファイルロック(rename式)
	$lock		= &lock if $lock_check;

	open(IN,"$in{'restore_date'}") || &error("Open Error : $in{'restore_date'}",1);
	my @tdat = <IN>;
	close(IN);

	foreach (0 .. $#tdat){

		%R = '';
		my @prats = split(/,/,$tdat[$_]);
		foreach $prats (@prats){
			my($y,$x) = split(/;/,$prats);
			$R{$y} = $x;
		}

		open (OUT,">$usrdata$R{'id'}\.cgi") || &error("open error:$usrdata$R{'id'}\.cgi",1);
		print OUT $tdat[$_];
		close(OUT)		or die "Can't close   : $!";

	}

	&unlock($lock) if $lock_check;

	$comment ="$in{'restore_date'}に含まれる全キャラ復旧完了";

}

# 国ログ復旧(バックアップデータ差し替え)
sub restore_cdat{

	# ファイルロック(rename式)
	$lock		= &lock if $lock_check;

	open (IN,"$histfile") || &error("Open error : $histfile");
	my @hist_dat = <IN>;
	close(IN)    or die "Can't close   : $!";

	foreach(0 .. $#hist_dat){
		my @y1 = split(/,/,$hist_dat[$_]);
		$y1[42]	=~ s/date;//g;
		print qq|<option value="$_">$y1[42]\n|;
	}

	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);

	open(IN,"$histfile") || &error("Open Error : $histfile",1);
	my @hist_dat = <IN>;
	close(IN);

	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
	print OUT $hist_dat[$_];
	close(OUT)		or die "Can't close   : $!";

	&unlock($lock) if $lock_check;

	$comment ="$cdatfile 復旧完了";

}

#-------------------------------------------------------------------------------
# 配列ソート処理
sub csvsort{
	local $key=shift;
	local $field=shift;
	local @in=@_;
	local @usr_data;
	@usr_data=map{$_->[0]}sort{$a->[1]<=>$b->[1]}map{[$_,(split /$key/) [$field]]}@in;
	return \@usr_data;
}

#-------------------------------------------------------------------------------
# 各種削除処理

# キャラ別削除
sub usr_del{
	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);
	foreach(0 .. $#USR_DEL){
		unlink("$usrdata$USR_DEL[$_]\.cgi") || &error("$usrdata$USR_DEL[$_]\.cgi が削除できません。");
		$comment.="$usrdata$USR_DEL[$_]\.cgi 削除完了<br>";
	}
}
# $usrdata内ファイル全削除
sub rd_usrdata{
	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);

	&usrdata_read;
	my $flag=0;
	$comment ="$usrdata に含まれる全ファイル削除完了<hr>";
	foreach(0 .. $#usrfile){
		unlink("$usrdata$usrfile[$_]");
		$comment .="[ $usrdata$usrfile[$_] ] ";
		$flag++;
		if($flag>=6){
			$comment .="<br>";
			$flag=0;
		}
	}
}
# $backdata内ファイル全削除
sub rd_backdata{
	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);

	$comment ="$backdata に含まれる全ファイル削除完了<hr>";
	my $flag=0;
	foreach(0 .. $#week){
		unlink("$backdata$week[$_]\.cgi");
		$comment .="[ $backdata$week[$_]\.cgi ] ";
		$flag++;
		if($flag>=6){
			$comment .="<br>";
			$flag=0;
		}
	}
}

#-------------------------------------------------------------------------------
# 国データ初期化
sub cdata_reset{
	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);

	$lock		= &lock if $lock_check;

	&cdata_open;

	require './inc/ore_sub-main_reset.cgi';&reset_cdat;

	&cdat_write;

	&unlock($lock) if $lock_check;

	$comment = "国データを初期化しました。<br>";
}

#-------------------------------------------------------------------------------
# キャラデータ変更

# 書き換え画面
sub usr_regist{

	&admin_head;
	&settei;

	# 参加者データ一括読み込み
	open(IN,"$usrdata$id\.cgi") || &error("Open Error : $usrdata$id\.cgi",1);
	@dat = <IN>;
	close(IN);

	%DAT = '';
	my @prats = split(/,/,$dat[0]);
	foreach (0 .. $#prats){
		my ($key,$v) = split(/;/,$prats[$_]);
		$DAT{$key} = $v;
	}

	# ハッシュ読み込み
	&hash_data;

	print <<"EOM";
<form method="$method" action="$ore_admin" name="ore_admin">
<input type="hidden" name="administrator" value="$in{'administrator'}">
<input type="hidden" name="mode" value="usr_regist2">
<input type="hidden" name="id_old" value="$id">

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap colspan=2 align="center">データ変更</th>
</tr>
<tr>
<td nowrap><input class="button1" type="submit" value="書き換え"></td>
<td nowrap><input class="button1" type="reset" value="戻す"></td>
</tr>
</table>

<br><br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>名前</th>
<th nowrap>I D</th>
<th nowrap>ﾊﾟｽﾜｰﾄﾞ</th>
<th nowrap>性別</th>
<th nowrap>ﾚﾍﾞﾙ</th>
<th nowrap>所属</th>
</tr>
<tr>
<td nowrap><input type="text" name="nm" value="$nm" style="width:100px"></td>
<td nowrap><input type="text" name="id" value="$id" style="width:100px"></td>
<td nowrap><input type="text" name="pw" value="$pw" style="width:80px"></td>

<td nowrap>
<select name="sei">
EOM
	foreach(1 .. $#seibetu){
		print "<option value=$_";
		print " selected" if($sei==$_);
		print ">$_:$seibetu[$_]\n";
	}
	print <<"EOM";
</select>
</td>

<td nowrap><input type="text" name="lv" value="$lv" style="width:30px"></td>

<td nowrap>
<select name="camp">
EOM
	foreach(0 .. $#cmp){
		print "<option value=$_";
		print " selected" if($camp==$_);
		print ">$_:$cmp[$_]\n";
	}
	print <<"EOM";
</select>
</td>

</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>HP</th>
<th nowrap>MP</th>
<th nowrap>UA</th>
<th nowrap>UD</th>
<th nowrap>LR</th>
<th nowrap>AG</th>
<th nowrap>GOLD</th>
<th nowrap>階級</th>
<th nowrap>称号</th>
<th nowrap>討伐回数</th>
</tr>
<tr>
</td>
<td nowrap><input type="text" name="max_hp" value="$max_hp" style="width:40px"></td>
<td nowrap><input type="text" name="max_mp" value="$max_mp" style="width:40px"></td>
<td nowrap><input type="text" name="ua" value="$ua" style="width:30px"></td>
<td nowrap><input type="text" name="ud" value="$ud" style="width:30px"></td>
<td nowrap><input type="text" name="lr" value="$lr" style="width:30px"></td>
<td nowrap><input type="text" name="ag" value="$ag" style="width:30px"></td>
<td nowrap><input type="text" name="gold" value="$gold" style="width:80px"></td>

<td nowrap>
<select name="rank">
EOM
	foreach(0 .. $#cl){
		print "<option value=$_";
		print " selected" if($rank==$_);
		print ">$_:$cl[$_]\n";
	}
	print <<"EOM";
</select>
</td>

<td nowrap>
<select name="sogo">
EOM
	foreach(0 .. $#sogo_p){
		print "<option value=$_";
		print " selected" if($sogo==$_);
		print ">$_:$sogo_p[$_]\n";
	}
	print <<"EOM";
</select>
</td>

<td nowrap><input type="text" name="we" value="$we" style="width:30px"></td>

</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap colspan="2">武具</th>
<th nowrap colspan="2">防具</th>
<th nowrap colspan="2">道具</th>
</tr>
<tr>

<td nowrap>
<select name="dg_a">
EOM
	foreach(0 .. $#dg_data){
		print "<option value=$_";
		print " selected" if($dg_a==$_);
		print ">$_:$dg_data[$_][1]\n";
	}
	print <<"EOM";
</select>
</td>
<td nowrap>残り<input type="text" name="dg_cnt" value="$dg_cnt" style="width:30px"></td>

<td nowrap>
<select name="df_a">
EOM
	foreach(0 .. $#df_data){
		print "<option value=$_";
		print " selected" if($df_a==$_);
		print ">$_:$df_data[$_][1]\n";
	}
	print <<"EOM";
</select>
</td>
<td nowrap>残り<input type="text" name="df_cnt" value="$df_cnt" style="width:30px"></td>

<td nowrap>
<select name="di_a">
EOM
	foreach(0 .. $#di_data){
		print "<option value=$_";
		print " selected" if($di_a==$_);
		print ">$_:$di_data[$_][1]\n";
	}
	print <<"EOM";
</select>
</td>
<td nowrap>残り<input type="text" name="di_cnt" value="$di_cnt" style="width:30px"></td>

</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>行動ﾌﾗｸﾞﾘｾｯﾄ</th>
<th nowrap>行動ｾｯｼｮﾝ</th>
<th nowrap>行動判定</th>
<th nowrap>行動判定</th>
<th nowrap>戦闘判別</th>
<th nowrap>対戦者</th>
<th nowrap>拘束時間</th>
<th nowrap>対象国</th>
</tr>
<tr>
</td>
<td nowrap>ｴﾗｰ発生時 各値0 or 削除</td>
<td nowrap><input type="text" name="act_cnt" value="$act_cnt" style="width:30px"></td>
<td nowrap><input type="text" name="type" value="$type" style="width:60px"></td>
<td nowrap><input type="text" name="tm" value="$tm" style="width:30px"></td>
<td nowrap><input type="text" name="ck" value="$ck" style="width:30px"></td>
<td nowrap><input type="text" name="bt" value="$bt" style="width:30px"></td>
<td nowrap><input type="text" name="pr" value="$pr" style="width:50px"></td>
<td nowrap><input type="text" name="nation" value="$nation" style="width:30px"></td>
</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>情報時に表\示\されるコメント(全角40字まで)</th>
</tr>
<tr>
</td>
<td nowrap><input type="text" name="info_mes" value="$info_mes" style="width:400px"></td>
</tr>
</table>

</form>
EOM
&admin_end;
exit;
}

# 書き換え処理＆結果
sub usr_regist2{

	&admin_head;

	# ファイルロック(rename式)
	$lock		= &lock if $lock_check;

	# 参加者データ一括読み込み
	open(IN,"$usrdata$in{'id_old'}\.cgi") || &error("Open Error : $usrdata$in{'id_old'}\.cgi",1);
	@dat = <IN>;
	close(IN);

	%DAT = '';
	my @prats = split(/,/,$dat[0]);
	foreach (0 .. $#prats){
		my ($key,$v) = split(/;/,$prats[$_]);
		$DAT{$key} = $v;
	}

	# ハッシュ読み込み
	&hash_data;

	$dat[0] = "la;$la,nm;$in{'nm'},pw;$in{'pw'},id;$in{'id'},sei;$in{'sei'},type;$in{'type'},age_time;$age_time,act_cnt;$in{'act_cnt'},hp;$hp,max_hp;$in{'max_hp'},lv;$in{'lv'},mp;$mp,max_mp;$in{'max_mp'},rank;$in{'rank'},ua;$in{'ua'},ud;$in{'ud'},lr;$in{'lr'},ag;$in{'ag'},ck;$in{'ck'},tm;$in{'tm'},bt;$in{'bt'},bst;$in{'bst'},exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$in{'nation'},we;$in{'we'},camp;$in{'camp'},pr;$in{'pr'},tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$in{'gold'},roku;$roku,dg_a;$in{'dg_a'},dg_cnt;$in{'dg_cnt'},df_a;$in{'df_a'},df_cnt;$in{'df_cnt'},di_a;$in{'di_a'},di_cnt;$in{'di_cnt'},sogo;$in{'sogo'},mes;$mes,info_mes;$in{'info_mes'},\n";

	open (OUT,">$usrdata$in{'id_old'}\.cgi") || &error("ｷｬﾗﾃﾞｰﾀが開けません[$in{'id_old'}]",1);
	print OUT @dat;
	close(OUT)		or die "Can't close   : $!";

	if($in{'id_old'} ne $in{'id'}){rename("$usrdata$in{'id_old'}\.cgi","$usrdata$in{'id'}\.cgi") || &error("ﾌｧｲﾙ名をID名に変更できません。",1);}

	# ファイルアンロック(rename式)
	&unlock($lock) if $lock_check;

	print <<"EOM";
<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap colspan=2 align="center">以下のとおりにデータ変更しました。</th>
</tr>
</table>

<br><br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>名前</th>
<th nowrap>I D</th>
<th nowrap>ﾊﾟｽﾜｰﾄﾞ</th>
<th nowrap>性別</th>
<th nowrap>ﾚﾍﾞﾙ</th>
<th nowrap>所属</th>
</tr>
<tr>
<td nowrap>$in{'nm'}</td>
<td nowrap>$in{'id'}</td>
<td nowrap>$in{'pw'}</td>
<td nowrap>$in{'sei'}</td>
<td nowrap>$in{'lv'}</td>
<td nowrap>$in{'camp'}</td>
</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>HP</th>
<th nowrap>MP</th>
<th nowrap>UA</th>
<th nowrap>UD</th>
<th nowrap>LR</th>
<th nowrap>AG</th>
<th nowrap>GOLD</th>
<th nowrap>階級</th>
<th nowrap>称号</th>
<th nowrap>討伐回数</th>
</tr>
<tr>
<td nowrap>$in{'max_hp'}</td>
<td nowrap>$in{'max_mp'}</td>
<td nowrap>$in{'ua'}</td>
<td nowrap>$in{'ud'}</td>
<td nowrap>$in{'lr'}</td>
<td nowrap>$in{'ag'}</td>
<td nowrap>$in{'gold'}</td>
<td nowrap>$in{'rank'}</td>
<td nowrap>$in{'sogo'}</td>
<td nowrap>$in{'we'}</td>
</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap colspan="2">武具</th>
<th nowrap colspan="2">防具</th>
<th nowrap colspan="2">道具</th>
</tr>
<tr>
<td nowrap>$in{'dg_a'}</td>
<td nowrap>残り $in{'dg_cnt'}</td>
<td nowrap>$in{'df_a'}</td>
<td nowrap>残り $in{'df_cnt'}</td>
<td nowrap>$in{'di_a'}</td>
<td nowrap>残り $in{'di_cnt'}</td>
</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>行動ｾｯｼｮﾝ</th>
<th nowrap>行動判定</th>
<th nowrap>行動判定</th>
<th nowrap>戦闘判別</th>
<th nowrap>対戦者</th>
<th nowrap>拘束時間</th>
<th nowrap>対象国</th>
</tr>
<tr>
<td nowrap>$in{'act_cnt'}</td>
<td nowrap>$in{'type'}</td>
<td nowrap>$in{'tm'}</td>
<td nowrap>$in{'ck'}</td>
<td nowrap>$in{'bt'}</td>
<td nowrap>$in{'pr'}</td>
<td nowrap>$in{'nation'}</td>
</tr>
</table>

<br>

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap>情報時に表\示\されるコメント(全角40字まで)</th>
</tr>
<tr>
</td>
<td nowrap>$info_mes</td>
</tr>
</table>

EOM
&admin_end;
exit;
}

#-------------------------------------------------------------------------------
# 国データ変更

# 書き換え画面
sub cdat_regist{

	&admin_head;
	&cdata_open;

	$set -= $time;

	print <<EOM;
<form method="$method" action="$ore_admin" name="ore_admin">
<input type="hidden" name="administrator" value="$in{'administrator'}">
<input type="hidden" name="mode" value="cdat_regist2">
<input type="hidden" name="id_old" value="$id">

<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap colspan="2" align="center">データ変更</th>
<th nowrap rowspan="2" align="left" style="font-size:14px;line-height:18px">
・状態 >> 0:正常 1:亡国<br>
・各国定員 >> 
EOM

($limit_mode) ? print "自動算出" : print "手動割り当て" ;

print <<EOM;
</th>
</tr>
<tr>
<td nowrap><input class="button1" type="submit" value="書き換え"></td>
<td nowrap><input class="button1" type="reset" value="戻す"></td>
</tr>
</table>

<br><br>

<table border="0" cellspacing="4" cellpadding="0" bgcolor="#444466" align="center">
<tr>
<td bgcolor="#000000" align="center" valign="top">

<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
<tr>
<td width="72">国名</td>
EOM

	foreach(1 .. 5){
		print qq|<td align="center" width="92">$cmp[$_]</td>\n|;
	}
	print <<EOM;
</tr><tr><td>状態</td>
<td><input type="text" name="ce1" value="$ce1" style="width:60px"></td>
<td><input type="text" name="ce2" value="$ce2" style="width:60px"></td>
<td><input type="text" name="ce3" value="$ce3" style="width:60px"></td>
<td><input type="text" name="ce4" value="$ce4" style="width:60px"></td>
<td><input type="text" name="ce5" value="$ce5" style="width:60px"></td>
</tr>
<tr>
<td>総国力</td>
<td><input type="text" name="cn1" value="$cn1" style="width:60px"></td>
<td><input type="text" name="cn2" value="$cn2" style="width:60px"></td>
<td><input type="text" name="cn3" value="$cn3" style="width:60px"></td>
<td><input type="text" name="cn4" value="$cn4" style="width:60px"></td>
<td><input type="text" name="cn5" value="$cn5" style="width:60px"></td>
</tr>
<tr>
<td>国家\予\算</td>
<td><input type="text" name="cg1" value="$cg1" style="width:60px"></td>
<td><input type="text" name="cg2" value="$cg2" style="width:60px"></td>
<td><input type="text" name="cg3" value="$cg3" style="width:60px"></td>
<td><input type="text" name="cg4" value="$cg4" style="width:60px"></td>
<td><input type="text" name="cg5" value="$cg5" style="width:60px"></td>
</tr>
<tr>
<td>総兵糧</td>
<td><input type="text" name="cf1" value="$cf1" style="width:60px"></td>
<td><input type="text" name="cf2" value="$cf2" style="width:60px"></td>
<td><input type="text" name="cf3" value="$cf3" style="width:60px"></td>
<td><input type="text" name="cf4" value="$cf4" style="width:60px"></td>
<td><input type="text" name="cf5" value="$cf5" style="width:60px"></td>
</tr>
<tr>
<td>総兵士数</td>
<td><input type="text" name="cs1" value="$cs1" style="width:60px"></td>
<td><input type="text" name="cs2" value="$cs2" style="width:60px"></td>
<td><input type="text" name="cs3" value="$cs3" style="width:60px"></td>
<td><input type="text" name="cs4" value="$cs4" style="width:60px"></td>
<td><input type="text" name="cs5" value="$cs5" style="width:60px"></td>
</tr>
<tr>
<td bgcolor=#CCCCFF>所属人数</td>
<td align=center>$c1/<input type="text" name="c1a" value="$c1a" style="width:30px"></td>
<td align=center>$c2/<input type="text" name="c2a" value="$c2a" style="width:30px"></td>
<td align=center>$c3/<input type="text" name="c3a" value="$c3a" style="width:30px"></td>
<td align=center>$c4/<input type="text" name="c4a" value="$c4a" style="width:30px"></td>
<td align=center>$c5/<input type="text" name="c5a" value="$c5a" style="width:30px"></td>
</tr>
</table>
統一期限:あと<input type="text" name="set" value="$set" style="width:60px">秒
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
現在<input type="text" name="goal_no" value="$goal_no" style="width:20px">期
</td>
</tr>
</table>
</form>
EOM
&admin_end;
exit;
}

# 書き換え処理
sub cdat_regist2{

	&admin_head;

	# ファイルロック(rename式)
	$lock		= &lock if $lock_check;

	&cdata_open;

	$cn1=$in{'cn1'};# 国1の国力
	$cg1=$in{'cg1'};# 国1の財政
	$cf1=$in{'cf1'};# 国1の蓄米
	$cs1=$in{'cs1'};# 国1の予備兵
	$ce1=$in{'ce1'};# 国1の現状
	$c1a=$in{'c1a'};# 国1の定員数
	$cn2=$in{'cn2'};
	$cg2=$in{'cg2'};
	$cf2=$in{'cf2'};
	$cs2=$in{'cs2'};
	$ce2=$in{'ce2'};
	$c2a=$in{'c2a'};
	$cn3=$in{'cn3'};
	$cg3=$in{'cg3'};
	$cf3=$in{'cf3'};
	$cs3=$in{'cs3'};
	$ce3=$in{'ce3'};
	$c3a=$in{'c3a'};
	$cn4=$in{'cn4'};
	$cg4=$in{'cg4'};
	$cf4=$in{'cf4'};
	$cs4=$in{'cs4'};
	$ce4=$in{'ce4'};
	$c4a=$in{'c4a'};
	$cn5=$in{'cn5'};
	$cg5=$in{'cg5'};
	$cf5=$in{'cf5'};
	$cs5=$in{'cs5'};
	$ce5=$in{'ce5'};
	$c5a=$in{'c5a'};

	$goal_no=$in{'goal_no'};
	$set=$in{'set'}+$time;

	&cdat_write;

	# ファイルアンロック(rename式)
	&unlock($lock) if $lock_check;

	print <<EOM;
<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<th nowrap colspan=2 align="center">以下のとおりにデータ変更しました。</th>
</tr>
</table>

<br><br>
<div align="center" style="font-size:14px;color:#222244">
・状態 >> 0:正常 1:亡国<br>
・各国定員 >> 
EOM

($limit_mode) ? print "自動算出" : print "手動割り当て" ;

print <<EOM;
</div>
<br><br>

<table border="0" cellspacing="4" cellpadding="0" bgcolor="#444466" align="center">
<tr>
<td bgcolor="#000000" align="center" valign="top">

<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
<tr>
<td width="72">国名</td>
EOM

	foreach(1 .. 5){
		print qq|<td align="center" width="92">$cmp[$_]</td>\n|;
	}
	print <<EOM;
</tr>
<tr>
<td>状態</td>
<td align=center>$in{'ce1'}</td>
<td align=center>$in{'ce2'}</td>
<td align=center>$in{'ce3'}</td>
<td align=center>$in{'ce4'}</td>
<td align=center>$in{'ce5'}</td>
</tr>
<tr>
<td>総国力</td>
<td>$in{'cn1'}</td>
<td>$in{'cn2'}</td>
<td>$in{'cn3'}</td>
<td>$in{'cn4'}</td>
<td>$in{'cn5'}</td>
</tr>
<tr>
<td>国家\予\算</td>
<td>$in{'cg1'}</td>
<td>$in{'cg2'}</td>
<td>$in{'cg3'}</td>
<td>$in{'cg4'}</td>
<td>$in{'cg5'}</td>
</tr>
<tr>
<td>総兵糧</td>
<td>$in{'cf1'}</td>
<td>$in{'cf2'}</td>
<td>$in{'cf3'}</td>
<td>$in{'cf4'}</td>
<td>$in{'cf5'}</td>
</tr>
<tr>
<td>総兵士数</td>
<td>$in{'cs1'}</td>
<td>$in{'cs2'}</td>
<td>$in{'cs3'}</td>
<td>$in{'cs4'}</td>
<td>$in{'cs5'}</td>
</tr>
<tr>
<td>所属人数</td>
<td align=center>$c1/$in{'c1a'}</td>
<td align=center>$c2/$in{'c2a'}</td>
<td align=center>$c3/$in{'c3a'}</td>
<td align=center>$c4/$in{'c4a'}</td>
<td align=center>$c5/$in{'c5a'}</td>
</tr>
</table>

統一期限:あと $in{'set'} 秒
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
現在 $in{'goal_no'} 期

</td>
</tr>
</table>
</form>
EOM
&admin_end;
exit;
}

#-------------------------------------------------------------------------------
# テンプレート

# ヘッダー
sub admin_head{

	&error("パスワードが違います！") if($in{'administrator'} ne $admin_pass);

	$in{'list_sort'} = 3 if(!$in{'list_sort'});

	&content_type;

	print <<"EOM";

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>$titleh</title>
<style type="text/css">
<!--
.button1{
	font-family: "ＭＳ Ｐゴシック", "Osaka"; font-size: 12px; font-weight: 400; color: #ddddee;
	border: 2px #aaaabb ridge; cursor: hand; background-color: #666699;
	width:50px;
}
body	{ font-size: 12px; color: #aaaab9; background-color: #ddddff; cursor: crosshair}
table	{ background-color: #666699;}
td		{ font-size: 14px; color: #222244; background-color: #eeeeff; cursor: crosshair}
th		{ font-size: 12px; color: #eeeeff; background-color: #222244; font-weight:400}

-->
</style>
</head>

<body bgcolor="#000000" text="#999999" link="#333399" vlink="#333399" alink="#333399">
EOM
}

# フッター
sub admin_end{
		print <<"EOM";
<br><br><br>
<table border="0" cellspacing="2" cellpadding="2" bgcolor="#9999CC" align="center">
<tr>
<td valign="middle" align="center" nowrap style="color:ddddee;font-size:14px;background-color:#333399">
罪と罰++ 二律背反　管理者機\能\ $ver　の使い方
</td>
</tr>
<tr>
<td bgcolor="#DDDDEE" valign="middle" align="left" nowrap style="line-height:20px; font-size:12px">
>> 各処理に詳細なエラー処理は行なっていません。データ書き換え等は慎重に行なってください。<br>
>> 各キャラの<b>[ﾛｸﾞｲﾝ]</b>ボタンをクリックすると、そのキャラにログインできます。<br>
>> 各キャラの<b>[ 編集 ]</b>ボタンをクリックすると、キャラデータ編集画面に移動します。<br>
&nbsp;&nbsp;&nbsp;&nbsp;・キャラデータのIDを変更するとキャラデータファイル名も変更されます。<br>
>> 各キャラの左端<b>[ 削除 ]</b>チェックボックスにチェックを入れ、下メニューの<b>[キャラ削除]</b>ボタンをクリックすると選択したキャラが削除されます。<br>
>> 下メニューの<b>[国データ編集]</b>ボタンをクリックすると現在の国データを編集できます。<br>
&nbsp;&nbsp;&nbsp;&nbsp;・定員人数の指定はore_config.cgiの<b>[\$limit_mode]</b>値が優先されます。<br>
>> 下メニューの<b>[国データ初期化]</b>ボタンをクリックすると現在の国データが初期化されます。<br>
>> CGI実行にユーザー権限がないサーバではキャラデータファイルとバックアップファイルが削除できない場合は、この管理者機\能\から削除を行ってください。<br>
&nbsp;&nbsp;&nbsp;&nbsp;・下メニューの<b>[ｷｬﾗﾃﾞｰﾀ一括削除]</b>をクリックすると全キャラデータを一括削除します。<br>
&nbsp;&nbsp;&nbsp;&nbsp;・下メニューの<b>[ﾊﾞｯｸｱｯﾌﾟ一括削除]</b>をクリックすると全バックアップデータを一括削除します。<br>
</td>
</tr>
<tr>
<td bgcolor="#DDDDEE" valign="middle" align="center" nowrap style="font-size:12px">
罪と罰++ 二律背反　管理者機\能\ $ver　<a href="http://pom.to/" target="_blank">BLANK BOARD[ねっと遊園地♪]</a>　<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank">Vivid Studio.</a>
</td>
</tr>
</table>
</body>
</html>
EOM
}