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("許可されていないアクセスです！") }
}
}