■8962 / inTopicNo.10) |
Re[9]: IpAcDeny.cgiにて
|
□投稿者/ sin -(2004/04/05(Mon) 17:17:53)
| ■No8956に返信(りゅういちさんの記事) > http://www.cj-c.com/sp/cbbs.cgi?mode=al2&namber=7286&no=1&KLOG=3 > のほうで取得していましたね。これまでの記事を総合すると > if(@ips){ > my($match)=0; > my($ip)=$ENV{'REMOTE_ADDR'}; > my($host)=gethostbyaddr(pack("C4", split(/\./, $ip)), 2); > foreach (@ips) { > $_=~ s/\n//; > if($ip=~ /^$_/){$match=1; last;}elsif($host=~ /$_$/){$match=1; last;} > } > if($match){&er_("閲覧権限がありません!");} > } > にすればよいのではないでしょうか。
やっとできました! 本当にいろいろとご迷惑をおかけして申し訳ございませんでした。
> > そうですね。ただ、禁止文字列に追加して制限するには > if(@NW){ > foreach(0..$#NW){ > $NW[$_]=~ s/\n//; > if(index($new_,$NW[$_]) >= 0){&er_("書き込みエラー");} > } > } > を1171行目の > $new_.="$Ip:$file:$E:$TL:...:$R:<>$time_k<>$send<>\n"; > の下に挿入してください(...は省略)。
それはIDで拒否をする場合ですよね? 以前も設定したと思うのですが知らぬうちにできなくなっていたのでもう一度やってみます。。
現在のibbs.cgiは http://www.talers.net/ibbs/ibbs.txt のような感じなんですが いろいろと検索したのですが $new_.="$Ip:$file:$E:$TL:...:$R:<>$time_k<>$send<>\n"; の部分が見つかりません。。 ...は省略部分であるということはもちろん承知ですので<>$send<>\n";だけなどでも検索したのですがやはり見つからないです。。
何度も申し訳ございませんがご教授いただけると幸いです。。
|
|