| お返事遅くなりまして申し訳ありません。 今回はちょっと自信がないってゆーか、解からなかったので…。 もう一度質問させて下さいませ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";
↑の様にすれば宜しいのでしょうか?
|