CGI-BBS > 基本認証 > ホスト制限 > 自作で入室チェックを作ったのですが…


カレッヂ
カレッヂ


質問者 めせた  投稿日 5/29(水) 18:18:56  [削除] (返信・回答が付いた後にこの質問の削除はできません)
初めまして。
自作で入室制限のスクリプトを作ったのですが
入室制限したいIPにワイルドカードを適応させる事が出来ません。
自分なりに資料を読んで調べてみたのですが原因は分かりませんでした(汗)
大変恐縮ですが、皆様のお知恵を借りる事が出来ると嬉しく思います。


#入室チェック
sub check{
        $REMOTE_ADDR = $ENV{'REMOTE_ADDR'};
        $REMOTE_HOST = gethostbyaddr(pack('C4',split(/\./,$REMOTE_ADDR)),2) || $REMOTE_ADDR;
        if ($REMOTE_HOST =~ /(.*)\.(\d+)$/) { ; }
        elsif ($REMOTE_HOST =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $REMOTE_HOST = "\*\.$2\.$3\.$4"; }
        elsif ($REMOTE_HOST =~ /(.*)\.(.*)\.(.*)$/) { $REMOTE_HOST = "\*\.$2\.$3"; }

#入室不可IP or ホスト
        @in = ("*.*.*.*","","");
        foreach $ipcheck(@in){ if($REMOTE_HOST eq $ipcheck || $REMOTE_ADDR eq $ipcheck){ $ip_ok=1; } }
        if($ip_ok == 1){ exit; }
        else{ &count; &time; &log; &form; }
}

返信(回答)する

Ｗｅｂ裏技