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 CHANGE2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
$dir="./charalog/main";

$newdata = "$in{'eid'}<>$in{'epass'}<>$in{'ename'}<>$in{'echara'}<>$in{'estr'}<>$in{'eint'}<>$in{'elea'}<>$in{'echa'}<>$in{'esol'}<>$in{'egat'}<>$in{'econ'}<>$in{'egold'}<>$in{'erice'}<>$in{'ecex'}<>$in{'eclass'}<>$in{'earm'}<>$in{'ebook'}<>$in{'ebank'}<>$in{'esub1'}<>$in{'esub2'}<>$in{'epos'}<>$in{'emes'}<>$in{'ehost'}<>$in{'edate'}<>$in{'email'}<>$in{'eos'}<>\n";

open(page,">$dir/$in{'fileno'}");
print page $newdata;
close(page);
&HOST_NAME;

&ADMIN_LOG("<font color=blue>$in{'ename'} $dir/$in{'fileno'}を更新しました。「$host」</font>");
&HEADER;
print <<"EOM";
<center><h2><font color=blue>$in{'ename'} のファイル$dir/$in{'fileno'}を更新しました。</font></h2><hr size=0>
<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>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ BANK 編集 _/#
#_/_/_/_/_/_/_/_/_/#

sub BANK {

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

$dir="./charalog/bank";
opendir(dirlist,"$dir");
$i=0;
while($file = readdir(dirlist)){
if($file =~ /\.cgi/i){
$datames = "検索：$dir/$file<br>\n";
if(!open(page,"$dir/$file")){
$datames .= "$dir/$fileがみつかりません。<br>\n";
return 1;
}
@page = <page>;
close(page);
$list[$i]="$file";
($eid,$epass,$gold) = split(/<>/,$page[0]);
$human_data[$i]="$gold<>$eid<>";
push(@newlist,"@page<br>");
$i++;
}
}
closedir(dirlist);
@human_data = sort @human_data;

&HEADER;
print <<"EOM";
<h2>銀行管理ツール</h2>
<br>
銀行データを編集します。<br>
<form method="post" action="admin.cgi">
<input type=hidden name=mode value=BANK2>編集するファイル：
<select name=fileno>
EOM
$i=0;$w_host="";
foreach(@human_data){
($gold,$eid,$epass) = split(/<>/);
print "<option value=$eid\.cgi>$gold\G $eid \n";
}
print <<"EOM";
</select><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
open(IN,"$ADMIN_LIST");
@A_LOG = <IN>;
close(IN);
print "@A_LOG";
&FOOTER;
exit;
}

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

sub BANK2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
$dir="./charalog/bank";
if(!open(page,"$dir/$in{'fileno'}")){
$datames .= "$dir/$fileがみつかりません。<br>\n";
return 1;
}
@page = <page>;
close(page);

($eid,$epass,$egold) = split(/<>/,$page[0]);

&HEADER;
print <<"EOM";
<form method="post" action="admin.cgi">
<table>
<tr><th>ID</th><td><input type=text name=eid value='$eid'></td>
<th>PASS</th><td><input type=text name=epass value='$epass'></td>
<th>GOLD</th><td><input type=text name=egold value='$egold'></td>
</table>
<br>
<input type=hidden name=mode value=BANK3>
<input type=hidden name=fileno value=$in{'fileno'}>
<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>
<br>
EOM

&FOOTER;
exit;
}
#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub BANK3 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
$dir="./charalog/bank";

$newdata = "$in{'eid'}<>$in{'epass'}<>$in{'egold'}<>\n";

open(page,">$dir/$in{'fileno'}");
print page $newdata;
close(page);
&HOST_NAME;

&ADMIN_LOG("<font color=blue>銀行ファイル $dir/$in{'fileno'}を更新しました。「$host」</font>");
&HEADER;
print <<"EOM";
<center><h2><font color=blue>銀行 ファイル$dir/$in{'fileno'}を更新しました。</font></h2><hr size=0>
<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>
EOM

&FOOTER;
exit;
}

#_/_/_/_/_/_/_/_/_/#
#_/ ITEM 編集 _/#
#_/_/_/_/_/_/_/_/_/#

sub ITEM {

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

$dir="./charalog/item";
opendir(dirlist,"$dir");
$i=0;
while($file = readdir(dirlist)){
if($file =~ /\.cgi/i){
$datames = "検索：$dir/$file<br>\n";
if(!open(page,"$dir/$file")){
$datames .= "$dir/$fileがみつかりません。<br>\n";
return 1;
}
@page = <page>;
close(page);
$list[$i]="$file";
($it_mark,$it_no,$it_name,$it_val,$it_dmg,$it_sta,$it_wei) = split(/<>/);
$human_data[$i]="$gold<>$eid<>";
push(@newlist,"@page<br>");
$i++;
}
}
closedir(dirlist);
@human_data = sort @human_data;

&HEADER;
print <<"EOM";
<h2>アイテム管理ツール</h2>
<br>
アイテムデータを編集します。<br>
<form method="post" action="admin.cgi">
<input type=hidden name=mode value=ITEM2>編集するファイル：
<select name=fileno>
EOM
$i=0;$w_host="";
foreach(@list){
($gold,$eid,$epass) = split(/<>/);
print "<option value=$list[$i]>$list[$i] \n";
$i++;
}
print <<"EOM";
</select><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
open(IN,"$ADMIN_LIST");
@A_LOG = <IN>;
close(IN);
print "@A_LOG";
&FOOTER;
exit;
}

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

sub ITEM2 {

if($in{'id'} ne "$adminid" || $in{'pass'} ne "$adminpass"){
&ERR("ＩＤ、パスワードエラー $num ");}
$dir="./charalog/item";
if(!open(page,"$dir/$in{'fileno'}")){
$datames .= "$dir/$fileがみつかりません。<br>\n";
return 1;
}
@page = <page>;
close(page);


&HEADER;
print "<form method=\"post\" action=\"admin.cgi\">";
print "変更したいアイテムを選択してください。<br>";
print "一度に変更できるアイテムは１つまでです。<br>";
$i=0;
foreach(@page){
($it_mark,$it_no,$it_name,$it_val,$it_dmg,$it_sta,$it_wei) = split(/<>/);
print <<"EOM";
<hr size=0>
<input type=radio name=select value=$i><font color=red size=5>$it_name</font>
<table>
<tr><th>種類</th><td><input type=text name=mark$i value='$it_mark'></td>
<th>番号</th><td><input type=text name=no$i value='$it_no'></td>
<th>NAME</th><td><input type=text name=name$i value='$it_name'></td>
<tr><th>価格</th><td><input type=text name=val$i value='$it_val'></td>
<th>威力</th><td><input type=text name=dmg$i value='$it_dmg'></td>
<th>ステータス</th><td><input type=text name=sta$i value='$it_sta'></td>
<tr><th>重さ</th><td><input type=text name=wei$i value='$it_wei'></td>
</table>
EOM
$i++;
}

print <<"EOM";
種類：<br>
0：武器<br>
1：防具<br>
2：アクセサリ<br>
3：アイテム<br>
<br>
<input type=hidden name=mode value=ITEM3>
<input type=hidden name=fileno value=$in{'fileno'}>
<input type=hidden name=id value="$in{id}">
<input type=hidden name=pass value="$in{pass}">
<input type=submit value='編集'>
<br></form>
<hr><h2>アイテムの削除</h2>
EOM
$i=0;
print "<form method=\"post\" action=\"admin.cgi\">";
foreach(@page){
($it_mark,$it_no,$it_name,$it_val,$it_dmg,$it_sta,$it_wei) = split(/<>/);
print <<"EOM";
<input type=radio name=select value=$i><font color=red size=2>$it_name</font><br>
EOM
$i++;
}
print <<"EOM";
<input type=hidden name=mode value=ITEM4>
<input type=hidden name=fileno value=$in{'fileno'}>
<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>
<br>
EOM

&FOOTER;
exit;
}
#_/_/_/_/_/_/_/_/_/#
#_/ 編集画面 _/#
#_/_/_/_/_/_/_/_/_/#

sub ITEM3 {

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

open(IN,"$dir/$in{'fileno'}");
@ITEM_DATA = <IN>;
close(IN);
$no = $in{'select'};
splice(@ITEM_DATA,$in{'select'},1,"$in{\"mark$no\"}<>$in{\"no$no\"}<>$in{\"name$no\"}<>$in{\"val$no\"}<>$in{\"dmg$no\"}<>$in{\"sta$no\"}<>$in{\"wei$no\"}<>\n");

open(page,">$dir/$in{'fileno'}");
print page @ITEM_DATA;
close(page);
&HOST_NAME;

&ADMIN_LOG("<font color=blue>アイテムファイル $dir/$in{'fileno'}を更新しました。「$host」</font>");
&HEADER;
print <<"EOM";
<center><h2><font color=blue>アイテム ファイル$dir/$in{'fileno'}を更新しました。</font></h2><hr size=0>
<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>
EOM

&FOOTER;
exit;
}

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

sub ITEM4 {

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

open(IN,"$dir/$in{'fileno'}");
@ITEM_DATA = <IN>;
close(IN);
$no = $in{'select'};

splice(@ITEM_DATA,$no,1);

open(page,">$dir/$in{'fileno'}");
print page @ITEM_DATA;
close(page);
&HOST_NAME;

&ADMIN_LOG("<font color=blue>アイテムファイル $dir/$in{'fileno'}を削除しました。「$host」</font>");
&HEADER;
print <<"EOM";
<center><h2><font color=blue>アイテム ファイル$dir/$in{'fileno'}を削除しました。</font></h2><hr size=0>
<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>
EOM

&FOOTER;
exit;
}


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

sub DEL {

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>");

open(IN,"$MAP_LOG_LIST");