-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathinc-mt.cgi
79 lines (73 loc) · 2.68 KB
/
inc-mt.cgi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
use utf8;
# メンテナンス表示 2005/03/30 由來
my $msg="";
if(-f "./lock")
{
open(IN,"./lock");
$msg=join("",<IN>);
close(IN);
}
elsif(-f "$DATA_DIR/lock")
{
open(IN,"<:encoding(UTF-8)","$DATA_DIR/lock");
$msg=join("",<IN>);
close(IN);
}
if($ENV{REMOTE_ADDR} ne $msg)
{
PrintMt();
exit;
}
1;
sub PrintMt
{
my $er;
if (-e "$DATA_DIR/error.log")
{
$er=<<"STR";
<br><TABLE cellspacing="0" cellpadding="1" border="0">
<TBODY><TR vAlign=center align=middle><TD bgcolor="#6B6599">
<TABLE cellspacing="0" cellpadding="5" width="700" border="0">
<TBODY><TR><TD width="80" bgcolor="#ABA5FF" align="center">
<FONT color="#FFFFFF"><small>for Admin</small></FONT></TD>
<TD align="center" bgcolor="#DBD5FF">${\l('エラーのためシステムを停止しました。')} …
<A HREF="$DATA_DIR/error.log">[${\l('エラー情報')}]</A> ： <A HREF="http://akimono.org/">[${\l('エラー相談')}]</A>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
STR
}
print "Cache-Control: no-cache, no-store\n";
print "Pragma: no-cache\n";
print "Content-type: text/html; charset=utf-8\n\n";
print <<"STR";
<HTML><HEAD>
<Style Type="text/css">
<!--
A:link { font-weight: bold; text-decoration:none}
A:visited{ font-weight: bold; text-decoration:none}
A:hover { font-weight: bold; text-decoration:underline;}
BODY,TR,TD,TH { font-family:"MS UI Gothic"; font-size:11pt; }
SPAN { font-family:"Comic Sans MS"; font-size:16pt; color:#664499 ;}
input,input.button{color:#000000;background-color:#FFFFFF;border:1 #5f5f8c solid}
-->
</Style>
<TITLE>$HTML_TITLE:${\l('メンテ中')}</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#6050cc" VLINK="#6050cc" ALINK="#FF0000">
<center><br><SPAN>Sorry, Now Under Site Maintenance.</SPAN><br><br>
<TABLE cellspacing="0" cellpadding="0"><TBODY><TR><TD bgcolor="#6B6599">
<TABLE cellspacing="1" cellpadding="0" border="0" width="700"><TBODY><TR><TD bgcolor="#FFFFFF" align="center">
<br>${\l('ただいまメンテナンス作業中のため，ゲームが停止しております。')}<br><br>
${\l('プレイ中の方にはご不便をおかけしますが，もうしばらくお待ちください。')}<br>
${\l('数時間以上経っても戻らない場合は，お手数ですが<a href="mailto:%1">管理人までご連絡</a>ください。',$ADMIN_EMAIL)}<br><br>
<A HREF=\"$HOME_PAGE\" TARGET=_top>[ホームに戻る]</A>
<br><div align="right"><small>
<A HREF="http://akimono.org/">${\l('商人物語')}</A></small></div>
</TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
$er<br>$msg</CENTER>
<br><div align="right">
<FORM ACTION="admin.cgi" METHOD="POST"><INPUT TYPE=PASSWORD size=6 NAME=admin>
<INPUT TYPE=SUBMIT VALUE="Admin"></FORM></div>
</body></html>
STR
}