admin.cgi

三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具

@S_MOVE = <IN>;
close(IN);
&TIME_DATA;

unshift(@S_MOVE,"<font color=red><B>\[削除\]</B></font> $knameは削除されました。($mday日$hour時$min分)<BR>\n");
splice(@S_MOVE,20);

open(OUT,">$MAP_LOG_LIST") or &ERR2('LOG 新しいデータを書き込めません。');
print OUT @S_MOVE;
close(OUT);

&HEADER;
print <<"EOM";
<center><h2><font color=red>$knameを削除しました。</font></h2><hr size=0>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
<br></form>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ ファイル削除 _/#
#_/_/_/_/_/_/_/_/_/#

sub DEL2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
&HOST_NAME;
open(IN,"./charalog/main/$in{'filename'}") or &ERR('ファイルを削除できませんでした。');
@CN_DATA = <IN>;
close(IN);
($kid,$kpass,$kname) = split(/<>/,$CN_DATA[0]);

$dir2="./charalog/main";
unlink("$dir2/$in{'filename'}");
$dir2="./charalog/log";
unlink("$dir2/$in{'filename'}");
$dir2="./charalog/command";
unlink("$dir2/$in{'filename'}");
&ADMIN_LOG("<font color=red>$knameを削除しました。「$host」 </font>");


&HEADER;
print <<"EOM";
<center><h2><font color=red>$knameを削除しました。</font></h2><hr size=0>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
<br></form>
EOM

&FOOTER;
exit;
}

sub ADMIN_LOG {

if($lockkey) { &F_LOCK; }
open(IN,"$ADMIN_LIST");
@A_LOG = <IN>;
close(IN);
&TIME_DATA;

unshift(@A_LOG,"$_[0]($mday日$hour時$min分)<BR>\n");
splice(@A_LOG,20);

open(OUT,">$ADMIN_LIST") or &ERR('LOG 新しいデータを書き込めません。');
print OUT @A_LOG;
close(OUT);
if (-e $lockfile) { unlink($lockfile); }

}

#_/_/_/_/_/_/_/_/_/#
#_/ 防具編集 _/#
#_/_/_/_/_/_/_/_/_/#

sub PRO {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR2("ＩＤ、パスワードエラー $num ");}

open(IN,"$TOWN_LIST") or &ERR("指定されたファイルが開けません。");
@TOWN_DATA = <IN>;
close(IN);

foreach(@TOWN_DATA){
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/);
$town_name[$zcid] = $zname;
}

open(IN,"$PRO_LIST");
@PRO_DATA = <IN>;
close(IN);

$i=0;
foreach(@PRO_DATA) {
($kproname,$kproval,$kprodmg,$kprowei,$kproele,$kprosta,$kproclass,$kprotownid) = split(/<>/);
if($kprotownid eq "0"){
$town = "全て";
}elsif($town_name[$kprotownid] eq ""){
$town = "非売品";
}else{
$town = "$town_name[$kprotownid]";
}
if($i >= 92 && $i <= 101){
$pro_data .= "<tr bgcolor=FFF8f8><td><input type=radio name=select value=$i></td><td bgcolor=$ELE_C[$kproele]>$kproname</td><td>$kproval</td><td>$kprodmg</td><td>$kprowei</td><td>$town</td></tr>";
}elsif($kproval eq ""){
$pro_data .= "<tr><th colspan=6>$kproname</th></tr>";
}else{
$pro_data .= "<tr><td><input type=radio name=select value=$i></td><td bgcolor=$ELE_C[$kproele]>$kproname</td><td>$kproval</td><td>$kprodmg</td><td>$kprowei</td><td>$town</td></tr>";
}
$i++;
}
$pro_data .= "<tr><td><input type=radio name=select value=$i></td><th colspan=5>新規防具作成</th></tr>";

&HEADER;
print <<"EOM";
<h2>防具管理ツール</h2>
<br>
現在装備している防具も変更されるので注意してください。<br>
メモリが足りない場合は\表\示できない場合があります。<br>
<form method="post" action="admin.cgi">
<input type=hidden name=mode value=PRO2>編集する防具：
<table bgcolor=aa0000><tbody bgcolor=FFFFF8>
<tr><td>選択</td><td>防具名</td><td>価格</td><td>防御力</td><td>重さ</td><td>販売店舗</td></tr>
$pro_data</tbody></table>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
</select><input type=submit value='TOP'>
<br></form>

EOM
&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub PRO2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}

open(IN,"$TOWN_LIST") or &ERR2("指定されたファイルが開けません。");
@TOWN_DATA = <IN>;
close(IN);

foreach(@TOWN_DATA){
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/);
if($zcid eq "1"){
$zcid = 0;
$town = "全て";
}elsif($zname eq ""){
$town = "非売品";
}else{
$town = "$zname";
}
$town_sel .= "<option value=$zcid>$town\n";
}
$town_sel .= "<option value=10000>非売品\n";

open(IN,"$PRO_LIST");
@PRO_DATA = <IN>;
close(IN);

$i=0;
($kproname,$kproval,$kprodmg,$kprowei,$kproele,$kprosta,$kproclass,$kprotownid) = split(/<>/,$ARM_DATA[$in{'select'}]);
if($kprosta eq ""){$kprosta = 0;}
if($kproele eq ""){$kproele = 0;}
$pro_data .= "<tr><td><input type=text name=name value=$kproname></td><td><input type=text name=val value=$kproval></td><td><input type=text name=dmg value=$kprodmg></td><td><input type=text name=wei value=$kprowei></td><td><input type=text name=ele value=$kproele></td><td><input type=text name=sta value=$kprosta></td><td><select name=townid>$town_sel</select></td></tr>";
$i++;

&HEADER;
print <<"EOM";
<form method="post" action="admin.cgi">
<h3><font size=5 color=orange>$kproname</font> ファイル</h3>
<table>
<tr><td>防具名</td><td>価格</td><td>威力</td><td>重さ</td><td>属性</td><td>ステータス</td><td>販売店舗</td></tr>
$pro_data

</table>
<br>
<input type=hidden name=mode value=PRO3>
<input type=hidden name=select value=$in{'select'}>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集を止める'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub PRO3 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}


open(IN,"$PRO_LIST");
@PRO_DATA = <IN>;
close(IN);

($kproname,$kproval,$kprodmg,$kprowei,$kproele,$kprosta,$kproclass,$kprotownid) = split(/<>/,$PRO_DATA[$in{'select'}]);
splice(@PRO_DATA,$in{'select'},1,"$in{'name'}<>$in{'val'}<>$in{'dmg'}<>$in{'wei'}<>$in{'ele'}<>$in{'sta'}<>$in{'class'}<>$in{'townid'}<>\n");

open(OUT,">$PRO_LIST") or &ERR('PRO 新しいデータを書き込めません。');
print OUT @PRO_DATA;
close(OUT);


&HEADER;
print <<"EOM";
<h2><font color=red>$in{'name'}</font>を編集しました。</h2>
<br>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/_/_/_/#
#_/ アクセサリ編集 _/#
#_/_/_/_/_/_/_/_/_/_/_/_/#

sub ACC {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR2("ＩＤ、パスワードエラー $num ");}

open(IN,"$TOWN_LIST") or &ERR("指定されたファイルが開けません。");
@TOWN_DATA = <IN>;
close(IN);

foreach(@TOWN_DATA){
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/);
$town_name[$zcid] = $zname;
}

open(IN,"$ACC_LIST");
@ACC_DATA = <IN>;
close(IN);

$i=0;
foreach(@ACC_DATA) {
($kaccname,$kaccval,$kaccdmg,$kaccwei,$kaccele,$kaccsta,$kaccclass,$kacctownid) = split(/<>/);
if($kacctownid eq "0"){
$town = "全て";
}elsif($town_name[$kacctownid] eq ""){
$town = "非売品";
}else{
$town = "$town_name[$kacctownid]";
}
if($kaccval eq ""){
$acc_data .= "<tr><th colspan=6>$kaccname</th></tr>";
}else{
$acc_data .= "<tr><td><input type=radio name=select value=$i></td><td>$kaccname</td><td>$kaccval</td><td>$kaccdmg</td><td>$kaccwei</td><td>$town</td></tr>";
}
$i++;
}
$acc_data .= "<tr><td><input type=radio name=select value=$i></td><th colspan=5>新規アクセサリ作成</th></tr>";

&HEADER;
print <<"EOM";
<h2>アクセサリ管理ツール</h2>
<br>
現在装備している武器も変更されるので注意してください。<br>
メモリが足りない場合は\表\示できない場合があります。<br>
<form method="post" action="admin.cgi">
<input type=hidden name=mode value=ACC2>編集するアクセサリ：
<table bgcolor=aa0000><tbody bgcolor=FFFFF8>
<tr><td>選択</td><td>武器名</td><td>価格</td><td>防御力</td><td>重さ</td><td>販売店舗</td></tr>
$acc_data</tbody></table>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
</select><input type=submit value='TOP'>
<br></form>

EOM
&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub ACC2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}

open(IN,"$TOWN_LIST") or &ERR2("指定されたファイルが開けません。");
@TOWN_DATA = <IN>;
close(IN);

foreach(@TOWN_DATA){
($zcid,$zname,$zele,$zcon,$zmoney,$zmes,$zx,$zy,$zarm,$zpro,$zacc,$zuni,$zdis,$zbat)=split(/<>/);
if($zcid eq "1"){
$zcid = 0;
$town = "全て";
}elsif($zname eq ""){
$town = "非売品";
}else{
$town = "$zname";
}
$town_sel .= "<option value=$zcid>$town\n";
}
$town_sel .= "<option value=10000>非売品\n";

open(IN,"$ACC_LIST");
@ACC_DATA = <IN>;
close(IN);

$i=0;
($kaccname,$kaccval,$kaccdmg,$kaccwei,$kaccele,$kaccsta,$kaccclass,$kacctownid) = split(/<>/,$ACC_DATA[$in{'select'}]);
if($kaccsta eq ""){$kaccsta = 0;}
if($kaccele eq ""){$kaccele = 0;}
$acc_data .= "<tr><td><input type=text name=name value=$kaccname></td><td><input type=text name=val value=$kaccval></td><td><input type=text name=dmg value=$kaccdmg></td><td><input type=text name=wei value=$kaccwei></td><td><input type=text name=ele value=$kaccele></td><td><input type=text name=sta value=$kaccsta></td><td><select name=townid>$town_sel</select></td></tr>";
$i++;

&HEADER;
print <<"EOM";
<form method="post" action="admin.cgi">
<h3><font size=5 color=orange>$kaccname</font> ファイル</h3>
<table>
<tr><td>アクセサリ名</td><td>価格</td><td>防御力</td><td>重さ</td><td>属性</td><td>ステータス</td><td>販売店舗</td></tr>
$acc_data

</table>
<br>
<input type=hidden name=mode value=ACC3>
<input type=hidden name=select value=$in{'select'}>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集を止める'>
</form>
<br>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub ACC3 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
if($in{'select'} eq ""){&ERR2("選択されていません。");}


open(IN,"$ACC_LIST");
@ACC_DATA = <IN>;
close(IN);

($kaccname,$kaccval,$kaccdmg,$kaccwei,$kaccele,$kaccsta,$kaccclass,$kacctownid) = split(/<>/,$ARM_DATA[$in{'select'}]);
splice(@ACC_DATA,$in{'select'},1,"$in{'name'}<>$in{'val'}<>$in{'dmg'}<>$in{'wei'}<>$in{'ele'}<>$in{'sta'}<>$in{'class'}<>$in{'townid'}<>\n");

open(OUT,">$ACC_LIST") or &ERR('ARM 新しいデータを書き込めません。');
print OUT @ACC_DATA;
close(OUT);


&HEADER;
print <<"EOM";
<h2><font color=red>$in{'name'}</font>を編集しました。</h2>
<br>
<br>
<form method="post" action="admin.cgi">
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='戻る'>
</form>
<br>
EOM

&FOOTER;
exit;
}


#_/_/_/_/_/_/_/_/_/#
#_/ 国編集 _/#
#_/_/_/_/_/_/_/_/_/#

sub CONT {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR2("ＩＤ、パスワードエラー $num ");}