俺ペナ改造

メンテナンスプログラム

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　maintenance.zip

ココからダウンロード　ver 1.07

バグ修正ver 1.07
バグ修正ver 1.06
らくらく特殊設定（投手）修正ver 1.05
らくらく特殊設定、球団データ調整、メンテナンスモード追加ver 1.04
アクセス禁止リスト追加 ver 1.03
投手野手の配列判定修正 ver 1.02
投手野手の配列判定修正 ver 1.01
公開 ver 1.00

以前のバージョン
ココからダウンロード　ver 1.06
ココからダウンロード　ver 1.05
ココからダウンロード　ver 1.04
ココからダウンロード　ver 1.02
ココからダウンロード　ver 1.03

ダウンロードしたら　パールパスを変更してください。
一般的には　#!/usr/local/bin/perl
解らない場合はサーバーに問い合わせてください。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ini.cgiを以下に変更

適当なところに下記を追加

$alertfile='alert.cgi'; #アラートログ
$prohibitionlistfile='prohibitionlist.cgi';#アクセス禁止リスト

$leaguefold = 'date'; # リーグデータ用フォルダ
で指定されているフォルダに

$alertfile　$prohibitionlistfileで指定したファイルを作成してください

上記の場合
dataフォルダの中にalert.cgi　prohibitionlist.cgiファイルを作ってください

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ore.cgiを以下に変更

青色の部分を変更・追加してください

ver 1.00以降

プログラムの上から1548行付近

##### エラーの時の処理
sub error{

&get_cookie;

if(!$c_sukin){ $c_sukin = "$kihoncss"; }
$err_msg = @_[0];
print "Content-type: text/html\n\n";#コンテントタイプ出力
print <<"_ERROR_";
<html><head><title>ERROR</title><link rel="stylesheet" type="text/css" href="$cssurl/$c_sukin"></head>
$body<center>
エラー
 
$err_msg 
</body>
</html>
_ERROR_

$com_max2=100;
open(AR,"+<./$alertfile");
eval 'flock(AR,2);';

@comments = <AR>;

$kakiko = "$c_sakusya<>$c_saku<>$err_msg<>$host<>\n";

unshift(@comments, $kakiko);
splice(@comments, $com_max2);

truncate (AR, 0);
seek(AR,0,0); print AR @comments;
close(AR);
eval 'flock(AR,8);';

&footer;
&chosaku;
exit;

ver 1.03以降

プログラムの上から6行付近

require './jcode.pl';
require './ini.cgi';

open(AC,"$leaguefold/$prohibitionlistfile") || &error('指定されたファイルが開けません');
eval 'flock(AC,1);';
while(<AC>){
($prohibitionlist) = split /<>/;
push(@badhost, $prohibitionlist);
}
close(AC);
eval 'flock(AC,8);';

ver 1.03以降

プログラムの上から268行付近

open(PR,"$leaguefold/$past_rankfile") || &error('指定されたファイルが開けません');
seek(PR,0,0); @past_rank = <PR>; close(PR);
($pr_date, $pripri, $kousin, $menteflag) = split(/<d>/, $past_rank[0]);

&error('メンテナンス中です。しばらくお待ちください。') if $menteflag == 1;

既存のサブルーチンを使ったメンテナンスプログラム。
独立型なのでファイル名を変えると、セキリュティが上がります。
master.cgiはサーバー上から消しても問題ないです。

フレームが無かったらココをクリックしてください