| お返事遅くなりまして申し訳ありません。
今回はちょっと自信がないってゆーか、解からなかったので…。
もう一度質問させて下さいませm（_ _）m
> まず、それらの cbbs.cgi にあるファイル設定を設定ファイルに移動します。
> さらに、cbbs.cgi の禁止IP/禁止文字列呼び込みの部分を
> &d_code_; 後ろにもって行きます。
if(-e $NWFile){
open(DE,"$NWFile");
while(<DE>){push(@NW,$_);}
close(DE);
}
if(-e $IpFile){
open(DE,"$IpFile");
while(<DE>){push(@ips,$_);}
close(DE);
}
if(@ips){
$match=0;
foreach (@ips) {$_=~ s/\n//; if($ENV{'REMOTE_ADDR'}=~ /$_/){$match=1; last;}}
if($match){&er_("あなたには閲覧権限がありません!");}
}
↑の部分を削除して、
# ---[排除IP/禁止文字列読み込み]---
# ---[設定ファイル読み込み]--------
$res_r=1;
&d_code_;
if(-e $NWFile){
open(DE,"$NWFile");
while(<DE>){push(@NW,$_);}
close(DE);
}
if(-e $IpFile){
open(DE,"$IpFile");
while(<DE>){push(@ips,$_);}
close(DE);
}
if(@ips){
$match=0;
foreach (@ips) {$_=~ s/\n//; if($ENV{'REMOTE_ADDR'}=~ /$_/){$match=1; last;}}
if($match){&er_("あなたには閲覧権限がありません!");}
}
if($no eq ""){$no=0;}
if($set[$no]){unless(-e $set[$no]){&er_('設定ファイルが無いです!');}else{$SetUpFile="$set[$no]"; require"$SetUpFile";}}
else{&er_('設定ファイルがCGIに設定されてません!');}
$nf="<input type=hidden name=no value=$no>\n";
↑の様にすれば宜しいのでしょうか？
|
