version 1.6, 2002/08/08 13:45:21
|
version 1.7, 2002/10/21 19:15:10
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::Constants qw(:common :remotehost); |
use Apache::Constants qw(:common :remotehost); |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::File(); |
use Apache::File(); |
|
use Data::Dumper; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my $reqhost; |
my $reqhost = $r->get_remote_host(REMOTE_DOUBLE_REV); |
unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) { |
if (!$reqhost && $r->get_remote_host(REMOTE_NOLOOKUP) eq $r->get_server_name()) { |
$r->log_reason("Spoof request ".$reqhost); |
$reqhost = $r->get_server_name(); |
return FORBIDDEN; |
} |
|
unless ($reqhost) { |
|
$r->log_reason("Spoof request from ". $reqhost); |
|
return FORBIDDEN; |
} |
} |
if ($reqhost eq 'localhost.localdomain') { |
if ($reqhost eq 'localhost.localdomain') { |
$r->register_cleanup(\&removefile); |
$r->register_cleanup(\&removefile); |