sanjeok77
311 lines
9.0 KiB
Perl
Executable File
311 lines
9.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
||
# サーバーの環境に合わせて変更して下さい。
|
||
require './ore_config.cgi'; # ore_config.cgi의 패스
|
||
#-----------------------------------------------------------#
|
||
# 罪と罰++ 二律背反 #
|
||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||
# BLANK BOARD [ http://www17.big.or.jp/~obochan/chat/ ] #
|
||
#-----------------------------------------------------------#
|
||
# トップページ Version 1.0
|
||
#--- [注意事項] --------------------------------------------#
|
||
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||
#-----------------------------------------------------------#
|
||
|
||
#===============================================================================
|
||
# 設定項目
|
||
$help = "./html/Help.html"; # 사용설명서[PC]
|
||
$help_i = "./html/Help_i.html"; # 사용설명서[MV]
|
||
|
||
#===============================================================================
|
||
# 以下処理 基本的にこれ以下はいじらないように。
|
||
&get_time; # 日時取得
|
||
&axs_check; # アクセスチェック
|
||
&read_data_index; # ログデータ読み込み
|
||
|
||
print "Content-type: text/html; charset=UTF-8\n\n" ;
|
||
# メニュー表示
|
||
($mv_mode eq 'mv') ? &html_top_mv : &html_top_pc ;
|
||
# 削除・移動・変更不可
|
||
©right;
|
||
|
||
exit;
|
||
|
||
#-------------------------------------------------------------------------------
|
||
# html生成(PC)
|
||
sub html_top_pc{
|
||
print <<"EOM";
|
||
|
||
<html>
|
||
<head>
|
||
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
|
||
<title>$titleh</title>
|
||
<style type="text/css">
|
||
<!--
|
||
.button1{
|
||
font-family: "ＭＳ Ｐゴシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
|
||
border: 2px #666699 ridge; cursor: hand; background-color: #222244;
|
||
width:100px;
|
||
}
|
||
body,td { font-size: 10px; color: #aaaab9; background-color: #000000; cursor: crosshair}
|
||
.bar {
|
||
scrollbar-face-color: #333333;
|
||
scrollbar-highlight-color: #333333;
|
||
scrollbar-shadow-color: #000000;
|
||
scrollbar-arrow-color: #ffffff;
|
||
scrollbar-base-color: #000000;
|
||
scrollbar-3d-light-color: #ffffff;
|
||
scrollbar-dark-shadow-color: #000000
|
||
}
|
||
-->
|
||
</style>
|
||
</head>
|
||
|
||
<body bgcolor="#000000" text="#aaaaaa" link="#b5a7cF" vlink="#b5a7cF" alink="#b5a7cF" class="bar">
|
||
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center">
|
||
<tr>
|
||
<td align="center" valign="middle">
|
||
|
||
<table border="0" cellspacing="0" cellpadding="0" width="200">
|
||
<tr>
|
||
<td align="center" valign="top"><img src="$imgs/title_text.png" width="166" height="56"></td>
|
||
<td rowspan="2"><img src="$imgs/fairy2_la.jpg" width="110" height="160"></td>
|
||
</tr>
|
||
<tr>
|
||
<td align="center" valign="top"><img src="$imgs/title_game.png" width="220" height="52"></td>
|
||
</tr>
|
||
</table>
|
||
|
||
<br><br><br><br><br><br><br><br><br><br>
|
||
|
||
<table border="0" cellspacing="0" cellpadding="0">
|
||
<tr>
|
||
<form method="$method" action="$script" name="ore_">
|
||
<td align="left" valign="top">
|
||
<tt>
|
||
<span style="font-size:12px">유구한 대지로</span><br>
|
||
EOM
|
||
|
||
if($now_nm_cnt>=$play_limit){
|
||
print qq|<br><span style="color:#dddd00;font-size:12px">현재 로그인 제한 중</span><br><br>|;
|
||
}
|
||
else{
|
||
print <<"EOM";
|
||
유저 ID:<input type="text" name="id" value="" class="button1" style="width:95px">
|
||
<br>
|
||
비밀번호:<input type="password" name="pw" value="" class="button1" style="width:60px" maxlength="8">
|
||
<input type="submit" value="IN" class="button1" style="width:30px">
|
||
<input type="hidden" name="mode" value="1">
|
||
EOM
|
||
}
|
||
|
||
print <<"EOM";
|
||
</tt>
|
||
</td>
|
||
</form>
|
||
<td rowspan=4> </td>
|
||
<td rowspan=2 align="left" valign="top" nowrap style="font-size:12px;">
|
||
>> 플레이 중인 참가자 [ $now_nm_cnt 명]
|
||
<hr size=1 style="color:bbbbcc">
|
||
<div style="height:140px; overflow-y:auto; padding:2; background-color:#292929" class="bar">
|
||
$now_nm
|
||
</div>
|
||
<td>
|
||
|
||
</tr>
|
||
<tr>
|
||
<td align="left" valign="top">
|
||
<tt>
|
||
<br>
|
||
<br>
|
||
<span style="font-size:12px"><a href="$ore_reg">신규 등록</a></span><br>
|
||
등록하기 전에 반드시 ↓ 내용을 읽어주세요.
|
||
</tt>
|
||
</td>
|
||
</tr>
|
||
<tr>
|
||
<td align="left" valign="top">
|
||
<tt>
|
||
<br>
|
||
<br>
|
||
<span style="font-size:12px"><a href="$help">사용 설명서</a></span><br>
|
||
안 읽으면 도통 이해하기 힘들걸요?
|
||
</tt>
|
||
</td>
|
||
<td align="left">
|
||
<tt>
|
||
<br>
|
||
<br>
|
||
<span style="font-size:12px"><a href="$hist?mode=guest">과거의 영광</a></span><br>
|
||
유구한 대지의 역사를 돌아보다
|
||
</tt>
|
||
</td>
|
||
</tr>
|
||
<tr>
|
||
<td align="left" valign="top">
|
||
<tt>
|
||
<br>
|
||
<br>
|
||
<span style="font-size:12px"><a href="$home">본관으로 돌아가기</a></span><br>
|
||
</tt>
|
||
</td>
|
||
<td align="left">
|
||
<tt>
|
||
<br>
|
||
<br>
|
||
<span style="font-size:12px"><a href="$hist_hasya">죄와 벌++의 석비</a></span><br>
|
||
유구한 대지에서 패권을 쥔 자의 이름
|
||
</tt>
|
||
</td>
|
||
</tr>
|
||
<tt>
|
||
<td align="left" valign="top" colspan="3">
|
||
<tt>
|
||
<br>
|
||
<br>
|
||
<span style="font-size:12px"><br>
|
||
>> 현재 등록 인원 [ $now_sanka 명] 최대 등록 인원 [ $sanka 명]<br>
|
||
삭제 방치 기간 [ $del_limit 일] 플레이 제한 시간대 [ $safe_time ]
|
||
</span>
|
||
<br><br>
|
||
<span style="font-size:12px"><br>
|
||
모바일(i-mode, J-Sky) 완벽 대응, ezweb 대응. PC가 필요 없습니다.<br>
|
||
모바일에서 PC와 동일한 URL로 접속하시면 됩니다.
|
||
</span>
|
||
|
||
</tt>
|
||
</td>
|
||
</tr>
|
||
</table>
|
||
|
||
</td>
|
||
</tr>
|
||
</table>
|
||
|
||
EOM
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
# html生成(ﾓﾊﾞｲﾙ)
|
||
sub html_top_mv{
|
||
print <<"EOM";
|
||
|
||
<html>
|
||
<head>
|
||
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
|
||
<title>$titleh</title>
|
||
</head>
|
||
|
||
<body bgcolor="#000000" text="#aaaaaa" link="#c597ff" vlink="#c597ff" alink="#c597ff">
|
||
$title_i
|
||
<hr color="white">
|
||
그대가 바라는 영원 그것은 유구한 대지에
|
||
<hr color="white">
|
||
<form method="$method" action="$script" name="ore_">
|
||
이어하기<br>
|
||
EOM
|
||
|
||
if($now_nm_cnt>=$play_limit){
|
||
print qq|현재 로그인 제한 중|;
|
||
}
|
||
else{
|
||
print <<"EOM";
|
||
I D:<input type="text" name="id" value="" size="8"><br>
|
||
비밀번호:<input type="text" name="pw" value="" size="2" maxlength="8">
|
||
<input type="hidden" name="mode" value="1">
|
||
<input type="submit" value="IN">
|
||
EOM
|
||
}
|
||
print <<"EOM";
|
||
</form>
|
||
<hr color="white">
|
||
<a href="$ore_reg" ACCESKEY="1">1.신규 등록</a><br>등록하기 전에 반드시 ↓ 내용을 읽어주세요<hr color="white">
|
||
<a href="$help_i" ACCESKEY="2">2.설 명 서</a><br>안 읽으면 도통 이해하기 힘들걸요?<hr color="white">
|
||
<a href="$hist?mode=guest" ACCESKEY="3">3.과거의 영광</a><br>유구한 대지의 역사를 돌아보다<hr color="white">
|
||
<a href="$hist_hasya" ACCESKEY="4">4.죄와 벌++ 석비</a><br>유구한 대지에서 패권을 쥔 자의 이름<hr color="white">
|
||
<a href="$home_i" ACCESKEY="9">9.본관으로 돌아가기</a><hr color="white">
|
||
플레이 중인 캐릭터 $now_nm_cnt명<br>
|
||
$now_nm
|
||
<hr color="white">
|
||
현재 등록 인원[$now_sanka명]<br>
|
||
최대 등록 인원[$sanka 명]<br>
|
||
삭제 방치 기간[$del_limit일]<br>
|
||
플레이 제한 시간대[$safe_time]<br>
|
||
<hr color="white">
|
||
<br>
|
||
|
||
EOM
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
# データ読み込み
|
||
# 参加者データ一括読み込み
|
||
sub read_data_index{
|
||
|
||
local @tdat;
|
||
# 参加者データファイル一覧取得/一括読み込み
|
||
&usrdata_read;
|
||
&usrdata_open;
|
||
|
||
$now_sanka=$#tdat+1;
|
||
$now_nm_cnt=0;
|
||
foreach(0 .. $#tdat){
|
||
%DAT = '';
|
||
my @prats = split(/,/,$tdat[$_]);
|
||
foreach $prats (@prats){
|
||
my($key,$v) = split(/;/,$prats);
|
||
$DAT{$key} = $v;
|
||
}
|
||
|
||
# 現在のプレイヤー抽出
|
||
if($player_now>=$time-$DAT{'la'}){
|
||
if($mv_mode eq 'pc'){
|
||
$now_nm .= ($DAT{'sogo'}) ? qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]] [$cmp[$DAT{'camp'}]]</div>| : qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$cmp[$DAT{'camp'}]]</div>| ;
|
||
}else{
|
||
$now_nm .= ($DAT{'sogo'}) ? "$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]]/" : "$DAT{'nm'}/" ;
|
||
}
|
||
$now_nm_cnt++;
|
||
}
|
||
}
|
||
|
||
foreach (0 .. $#safetime){
|
||
$safe_time .= ($safetime[$_]<0) ? "--" : "$safetime[$_],";
|
||
}
|
||
|
||
# 自動バックアップ
|
||
&auto_backup if($backdata);
|
||
|
||
return ($now_nm,$now_sanka,$now_nm_cnt,$safe_time);
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
# 自動バップアップ
|
||
sub auto_backup{
|
||
|
||
my $backup_flag1 = "backup_flag1";
|
||
my $backup_flag2 = "backup_flag2";
|
||
|
||
# フラグ消失は作成
|
||
if(!-e "$backdata$backup_flag1" && !-e "$backdata$backup_flag2"){
|
||
open (OUT,">$backdata$backup_flag1");
|
||
print OUT "이 파일은 삭제하거나 이름을 변경하지 마십시오.";
|
||
close(OUT) or die "Can't close : $!";
|
||
chmod($chmod,"$backdata$backup_flag1");
|
||
}
|
||
|
||
# 0時にバックアップ
|
||
if(!$hour){
|
||
if(-e "$backdata$backup_flag1"){
|
||
open (OUT,">$backdata$week[$wday]\.cgi");
|
||
print OUT @tdat;
|
||
close(OUT) or die "Can't close : $!";
|
||
chmod($chmod,"$backdata$week[$wday]\.cgi");
|
||
|
||
rename("$backdata$backup_flag1","$backdata$backup_flag2");
|
||
}
|
||
}else{
|
||
rename("$backdata$backup_flag2","$backdata$backup_flag1");
|
||
}
|
||
}
|