[過去ログ]
bbs.cgi 再開発プロジェクト (1001レス)
bbs.cgi 再開発プロジェクト http://qb5.5ch.net/test/read.cgi/operate/1053067870/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
308: 304 [ sage ] 03/05/27 02:33 ID:bDKAl7Ph とりあえず、ホストチェックの部分だけ提示しとく。 $PATH_ACCESS = "/access"; sub hostcheck() { my ($HOST) = @_; my @host = split( /\./,$HOST); for( $i = 0; $i <= $#host ; $i++){ my $path = $PATH_ACCESS; for( $j = $#host; $j >= $i; $j -- ){ $path .= "/" ; $path .= $host[$j]; } #print $path,"\n"; open( ACCESS, $path) or next; my $partial = "forbidden"; while( <ACCESS> ){ if( $_[0] == '/'){ chop; $_ =~ s/\///; $partial = "permit"; close( ACCESS ); return "forbidden" if( $HOST =~ $_ ); } } close( ACCESS ); return $partial; } return "permit"; } print &hostcheck( $ARGV[0] ); http://qb5.5ch.net/test/read.cgi/operate/1053067870/308
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 693 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.006s