[過去ﾛｸﾞ] bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ (1001ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

308: ３０４ [ sage ] 03/05/27 02:33 ID:bDKAl7Ph(1) AAS
とりあえず、ホストチェックの部分だけ提示しとく。
$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] );

---

上下前次1-新書関写板覧索設栞歴

---

あと 693 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.011s