#!/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";
$titleh
| |
>> 플레이 중인 참가자 [ $now_nm_cnt 명]
$now_nm
|
|
신규 등록
등록하기 전에 반드시 ↓ 내용을 읽어주세요.
|
사용 설명서
안 읽으면 도통 이해하기 힘들걸요?
|
과거의 영광
유구한 대지의 역사를 돌아보다
|
본관으로 돌아가기
|
죄와 벌++의 석비
유구한 대지에서 패권을 쥔 자의 이름
|
>> 현재 등록 인원 [ $now_sanka 명] 최대 등록 인원 [ $sanka 명]
삭제 방치 기간 [ $del_limit 일] 플레이 제한 시간대 [ $safe_time ]
모바일(i-mode, J-Sky) 완벽 대응, ezweb 대응. PC가 필요 없습니다.
모바일에서 PC와 동일한 URL로 접속하시면 됩니다.
|
|
EOM
}
#-------------------------------------------------------------------------------
# html生成(ﾓﾊﾞｲﾙ)
sub html_top_mv{
print <<"EOM";
$titleh
$title_i
그대가 바라는 영원 그것은 유구한 대지에
1.신규 등록
등록하기 전에 반드시 ↓ 내용을 읽어주세요
2.설 명 서
안 읽으면 도통 이해하기 힘들걸요?
3.과거의 영광
유구한 대지의 역사를 돌아보다
4.죄와 벌++ 석비
유구한 대지에서 패권을 쥔 자의 이름
9.본관으로 돌아가기
플레이 중인 캐릭터 $now_nm_cnt명
$now_nm
현재 등록 인원[$now_sanka명]
최대 등록 인원[$sanka 명]
삭제 방치 기간[$del_limit일]
플레이 제한 시간대[$safe_time]
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|$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]] [$cmp[$DAT{'camp'}]]
| : qq|$DAT{'nm'} [$cmp[$DAT{'camp'}]]
| ;
}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");
}
}
