version 1.5, 2002/08/02 14:45:04
|
version 1.13, 2005/02/07 17:04:53
|
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 IO::Socket; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my $reqhost; |
my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP); |
unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) { |
my $netaddr=inet_aton($reqhost); |
$r->log_reason("Spoof request ".$reqhost); |
($reqhost) = gethostbyaddr($netaddr,AF_INET); |
return FORBIDDEN; |
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') { |
|
return OK; |
} |
} |
my $readline; |
my $readline; |
my $lontabdir=$r->dir_config('lonTabDir'); |
my $lontabdir=$r->dir_config('lonTabDir'); |
Line 49 sub handler {
|
Line 55 sub handler {
|
return FORBIDDEN; |
return FORBIDDEN; |
} |
} |
while ($readline=<$fh>) { |
while ($readline=<$fh>) { |
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline); |
$readline=~s/\s*$//; |
if ($name =~ /$reqhost/i) { |
my ($id,$domain,$role,$name)=split(/:/,$readline); |
$r->register_cleanup(\&removefile); |
if ($name =~ /\Q$reqhost\E/i) { |
return OK; |
return OK; |
} |
} |
} |
} |
|
|
} |
} |
Line 64 sub handler {
|
Line 70 sub handler {
|
|
|
sub removefile { |
sub removefile { |
my $r=shift; |
my $r=shift; |
if ($r->status==HTTP_OK) { |
if ($r->status==200) { |
&Apache::lonnet::logthis('Unlinking '.$r->filename); |
unlink($r->filename); |
|
#&Apache::lonnet::logthis('Unlinking '.$r->filename); |
} else { |
} else { |
&Apache::lonnet::logthis("Failed to transfer ".$r->filename); |
&Apache::lonnet::logthis('Failed to transfer '.$r->filename); |
} |
} |
} |
} |
1; |
1; |