version 1.11, 2005/02/05 22:20:56
|
version 1.12, 2005/02/06 07:23:40
|
Line 36 use Apache::File();
|
Line 36 use Apache::File();
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my $reqhost = $r->get_remote_host(REMOTE_HOST); |
my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP); |
|
my $netaddr=inet_aton($reqhost); |
|
($reqhost) = gethostbyaddr($netaddr,AF_INET); |
|
if (!$reqhost) { |
|
$r->log_reason("Unable to do hostname $reqhost lookup for ".$r->get_remote_host(REMOTE_NOLOOKUP)); |
|
return FORBIDDEN; |
|
} |
if ($reqhost eq 'localhost.localdomain') { |
if ($reqhost eq 'localhost.localdomain') { |
return OK; |
return OK; |
} |
} |