| ■No8951に返信(sinさんの記事)
> http://www.talers.net/narikirichat/ichat.txt
> お忙しい中恐縮なのですがもしよろしければお願いします。。
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";
の下に挿入してください(...は省略)。
|
