#!/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; # ログデータ読みsub html_top_pc{ print <<"EOM"; $titleh
유구한 대지로 로그인
EOM if($now_nm_cnt>=$play_limit){ print qq|
현재 로그인 제한 중
|; } else { print <<"EOM";
EOM } print <<"EOM";
메인 메뉴
신규 등록
등록하기 전에 반드시 설명서를 정독해주세요.
현재 접속자 [$now_nm_cnt명]
$now_nm
• 현재 등록 인원: $now_sanka명 / 최대 $sanka명
• 방치 삭제 기간: $del_limit일
• 플레이 제한 시간: $safe_time
EOM #------------------------------------------------------------------------------- #------------------------------------------------------------------------------- # html生成(ﾓﾊﾞｲﾙ) sub html_top_mv{ print <<"EOM"; $titleh $title_i
　　　그대가 바라는 영원 그것은 유구한 대지에
이어하기
EOM if($now_nm_cnt>=$play_limit){ print qq|현재 로그인 제한 중|; } else{ print <<"EOM"; I D:
비밀번호: EOM } print <<"EOM";
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"); } }