★三　【スクリプト改造工房 PART 8 】　★三

★三　【スクリプト� ..

594:nobodyさん
05/01/29 16:02:16 BgaXde9b
【.　 CGI名　.】　Design BBS 1.80 【配布先URL】　URLﾘﾝｸ(prism-web.com)
【ヘルプ内容】　
このCGIについている、特定のIPからのアクセスを拒否するアクセス制限を、逆に特定のIPからのアクセスだけOKにするアクセス制限に変更したい。どうすればよいか。
DLしたままのファイルで、sub axs_checkのflagを逆にしてみたらスクリプトエラーになってしまい、他にどうすればよいかわからなくなった。
ーーここからスクリプト
@deny = (
"hogehoge.com",
);

&decode;　　#フォームデコード
&axs_check;　#アクセス制限
#（中略）：フォームの設定が数行
&html;　　　#BBS本体表示

# アクセス制限
sub axs_check {
　&get_host;

　if ($deny[0]) {
　　local($flag)=0;#ここを1にして･･･その下の$flag=1を0にするとスクリプトエラー。
　　foreach (@deny) {
　　#↓これは、@denyにないIPならループ抜けの意味ですよね？違う？（・・、
　　　if ($_ eq '') { last; }
　　　$_ =~ s/\*/\.\*/g;
　　　if ($host =~ /$_/) { $flag=1; last; }
　　}
　　if ($flag) { &error("許可されていないアクセスです！") }
　}
}

次ページ