O@y XNvg ..
629:nobody³ρ
05/02/12 14:58:20
cgiΙ±€’€ΜπόκΔAXgΙ ιIPπe’Δ’ά·B
±κπtΙXgΙ ιIPΎ―ΒΕ«ιζ€Ιό’ūȒš倩H
¨θ’΅ά·B
&hostcheck;
sub hostcheck{
local($host_file,$remote_host,$line);
local(@lines);
$host_file = './host.dat';
$host=$ENV{'REMOTE_HOST'};
open(DB,"$host_file") || die "Cannot Open Log File $host_file: $!";
@lines = <DB>;
close(DB);
foreach $line (@lines) {
next if(length($line)<4);
chop $line;
if( $host=~/$line/ ){print "Status: 204\n\n";exit;}
}
}#hostcheck END
y[W±«π\¦1π\¦ΕVX\¦XbhΜυήXκbθΜj
[X¨ά©ΉXg₯IvVπ\¦ΙΒΤ΅2ch
4116ϊOΙXV/341 KB
S:undef