📄 ebs_sub7.cgi
字号:
sub MAINTENANCE{
&HEADER2;
print << " -----END-----";
<table width=100% height=100%><tr><td align=center>
<table border=0 cellpadding=0 cellspacing=0 bgcolor="#909090" align=center
style="border:1px outset #909090;font-size:16px;">
<form action=$MAIN_SCRIPT method=POST><input type=hidden name="cmd" value="MAINTE2">
<tr><td style="background-color:#404040;font=16px" colspan=2 align=center>
基本管理介面</td></tr>
<tr><td align=center><b style="color:#f13214;">PaSsWoRd</b></td>
<td><input type=password name="pass" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;">
<input type=submit value=Login class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</td></tr></form></table>
<form action=$MAIN_SCRIPT method=POST>
<input type=submit value=返回 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
<input type=button value="高级管理介面" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="parent.top.location.replace('master.cgi')">
</form>
</td></tr></table>
-----END-----
}
sub MAINTENANCE2{
&ERROR('请输入正确的密码！') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER;
print << " -----END-----";
<form action=$MAIN_SCRIPT method=POST name=mainte>
<input type=hidden name="cmd"><input type=hidden name="pass" value="$FORM{'pass'}">
<table width=100% height=100%><tr><td align=center>
<table class=font9 cellspacing=2 cellpadding=3 bgcolor="#909090">
<tr><td bgcolor=#404040 colspan=3><b>管理选项</b></td></tr>
<tr><td bgcolor=#404040 align=center>历史记录</td>
<td style="border:1px solid #404040;font-size:12px;color:#000000;">过去的五十件历史事件列表</td>
<td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='LGIN_RIREKI'"></td>
</tr>
<tr><td valign=top colspan=3 style="line-height:0px;"> </td></tr>
<tr><td bgcolor=#404040 align=center>破损机师资料取出</td>
<td style="border:1px solid #404040;font-size:12px;color:#000000;">修正破损的机师资料</td>
<td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='XPL_LIST';"></td>
</tr>
<tr><td bgcolor=#404040 align=center>破损国家资料取出</td>
<td style="border:1px solid #404040;font-size:12px;color:#000000;">修正破损的国家资料</td>
<td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='XCO_LIST';"></td>
</tr>
<tr><td bgcolor=#404040 align=center>机师资料删除</td>
<td style="border:1px solid #404040;font-size:12px;color:#000000;">当有人恶意抢注资料时<br>此选项可以把机师资料删除，请慎重使用</td>
<td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='PL_DEL';"></td>
</tr>
<tr><td bgcolor=#404040 align=center>国家资料删除</td>
<td style="border:1px solid #404040;font-size:12px;color:#000000;">当有人恶意注册国家资料时<br>此选项可以把国家删除，请慎重使用</td>
<td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='CO_DEL';"></td>
</tr>
<tr><td valign=top colspan=3 style="line-height:0px;"> </td></tr>
<tr><td bgcolor=#404040 align=center>历史编撰</td>
<td style="border:1px solid #404040;font-size:12px;color:#000000;">过一把篡改历史的瘾：）</td>
<td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='HISTORY_EDIT';"></td>
</tr>
</table></form>
<form action=$MAIN_SCRIPT method=POST>
<input type=submit value=完成 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</form>
</td></tr></table>
-----END-----
}
sub LGIN_RIREKI2{
&ERROR('请输入正确的密码！') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER;
&DBM_INPORT(L);
print << " -----END-----";
<table width=100% height=100%><tr><td align=center>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;">
<tr><td bgcolor=#404040 colspan=5><b>管理记录</b></td></tr>
-----END-----
foreach $t(sort {$b <=> $a} keys %L){$lc++;
if ($lc <= $LOGIN_H){
@lgn=split(/!/,$L{"$t"});
print "<tr style=\"color:#000000;\"><td nowrap>$lc</td><td nowrap>".&DATE_DECORD($t);
print "</td><td nowrap>$lgn[0]</td><td nowrap>$lgn[1]</td><td nowrap>$lgn[2]</td></tr>";
}
}
print << " -----END-----";
<form action=$MAIN_SCRIPT method=POST>
<input type=hidden name="cmd" value="MAINTE2">
<input type=hidden name="pass" value=\"$FORM{'pass'}\"><tr><td colspan=5>
<input type=submit value=完成 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</td></tr></table>
-----END-----
&FOOTER;
print "</td></tr></table></form></body>";
}
sub XPL_LIST2{
&ERROR('请输入正确的密码') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER;
&DBM_INPORT(P);
print << "-----END-----";
<script language="JavaScript">
function syusei(nm){
fm1.plname.value=nm;
fm1.sbm1.click();
}
</script>
<form action=$MAIN_SCRIPT method=POST name=fm1 style="position:absolute;visibility:hidden;">
<input type=hidden name="cmd" value=SYUSEI>
<input type=hidden name="plname">
<input type=hidden name="pass" value="$FORM{'pass'}">
<input type=submit name="sbm1">
</form>
<table width=100% height=100%><tr><td align=center>
<table class=font9 cellspacing=3 cellpadding=3 bgcolor="#909090">
<tr><td bgcolor=#404040 colspan=3><b>错误机师资料抽出和修正</b></td></tr>
-----END-----
while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);$ER='';
$ER.= " [MSType Undefined]" if $VALS[4] eq '';
$ER.= " [Weapon Undefined]" if $VALS[9] eq '';
$ER.= " [Character Undefined]" if $VALS[12] eq '';
$ER.= " [Color Undefined]" if $VALS[13] eq '';
$ER.= " [HP Undefined]" if $VALS[16] eq '';
$ER.= " [EN Undefined]" if $VALS[18] eq '';
$ER.= " [AT Undefined]" if $VALS[19] eq '';
$ER.= " [AT Incorrect]" if $VALS[19] > 50 || $VALS[19] < 0;
$ER.= " [GD Undefined]" if $VALS[20] eq '';
$ER.= " [GD Incorrect]" if $VALS[20] > 50 || $VALS[20] < 0;
$ER.= " [SP Undefined]" if $VALS[21] eq '';
$ER.= " [SP Incorrect]" if $VALS[21] > 50 || $VALS[21] < 0;
$ER.= " [HIT Undefined]" if $VALS[22] eq '';
$ER.= " [HIT Incorrect]" if $VALS[22] > 50 || $VALS[22] < 0;
$ER.= " [EXP Incorrect]" if $VALS[30] < 0;
if ($ER){$c++;$c = sprintf("%03d", $c);
print "<tr><td nowrap>$c <b>$key</b></td><td nowrap>$ER</td><td><a href=\"javascript:syusei('$key')\">修正</a></td></tr>";
}
}
print "<tr><td colspan=3><br><br>资料修正<br><br></td></tr>" if !$c;
print "<tr><td colspan=3 style=\"font-size:12px;color:#000000;\">未定义（Undefined）的项目<br>不正确（Incorrect）的数值和项目一览<br>按修正後这些内容将被系统自动修正。
<form action=$MAIN_SCRIPT method=POST>
<input type=hidden name=\"cmd\" value=\"MAINTE2\">
<input type=hidden name=\"pass\" value=\"$FORM{'pass'}\">
<input type=submit value=完成 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</form>
</td></tr></table>";
&FOOTER;
print "</td></tr></table></body>";
}
sub SYUSEI2{
dbmopen (%P,"$DBM_P",0666);
@VALS = split(/\s/,$P{"$FORM{'plname'}"});
$VALS[4]='0' if $VALS[4] eq '';
$VALS[9]='a' if $VALS[9] eq '';
$VALS[12]='0' if $VALS[12] eq '';
$VALS[13]='ffffff' if $VALS[13] eq '';
$VALS[16]='5000' if $VALS[16] eq '';
$VALS[18]='200' if $VALS[18] eq '';
$VALS[19]='5' if $VALS[19] eq '';$VALS[19]='50' if $VALS[19] > 50;$VALS[19]='0' if $VALS[19] < 0;
$VALS[20]='5' if $VALS[20] eq '';$VALS[20]='50' if $VALS[20] > 50;$VALS[20]='0' if $VALS[20] < 0;
$VALS[21]='5' if $VALS[21] eq '';$VALS[21]='50' if $VALS[21] > 50;$VALS[21]='0' if $VALS[21] < 0;
$VALS[22]='5' if $VALS[22] eq '';$VALS[22]='50' if $VALS[22] > 50;$VALS[22]='0' if $VALS[22] < 0;
$VALS[30]='0' if $VALS[30] < 0;
$P{"$FORM{'plname'}"}="@VALS";
dbmclose %P;
}
sub XCO_LIST2 {
&ERROR('请输入正确的密码！') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER;
&DBM_INPORT(C);
print << "-----END-----";
<script language="JavaScript">
function syusei(nm){
fm1.coname.value=nm;
fm1.sbm1.click();
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -