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

★三　【スクリプト� ..

599:594
05/01/30 01:16:06
たぶんできました。
sub axs_check {
　# ホスト名を取得
　&get_host;
　if ($deny[0]) {
　　local($flag)=0;
　　foreach (@deny) {
　　　$_ =~ s/\*/\.\*/g;
　　　if ($host =~ /$_/) { $flag=1; last; }
　　}
　　if (!$flag) { &error("許可されていないアクセスです！") ; exit;}
　}
}
これで何とか動作しました。
>>596さん、いろいろヒントありがとうでした。
>>595の
>if ($_ eq '') { last; }
これ、@denyが空の設定がありうる、ということを失念しておりました(^-^;
#だってデフォルトからして空ではなかったので、なんて言い訳してみるテスト（ぉぉ

次ページ