#!/usr/local/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=shift_jis\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");
}
}
