version 1.4, 2002/08/01 22:36:11
|
version 1.6, 2002/08/08 13:45:21
|
Line 37 sub handler {
|
Line 37 sub handler {
|
my $r = shift; |
my $r = shift; |
my $reqhost; |
my $reqhost; |
unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) { |
unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) { |
$r->log_reason("Spoof request"); |
$r->log_reason("Spoof request ".$reqhost); |
return FORBIDDEN; |
return FORBIDDEN; |
} |
} |
|
if ($reqhost eq 'localhost.localdomain') { |
|
$r->register_cleanup(\&removefile); |
|
return OK; |
|
} |
my $readline; |
my $readline; |
my $lontabdir=$r->dir_config('lonTabDir'); |
my $lontabdir=$r->dir_config('lonTabDir'); |
{ |
{ |
Line 50 sub handler {
|
Line 54 sub handler {
|
} |
} |
while ($readline=<$fh>) { |
while ($readline=<$fh>) { |
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline); |
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline); |
if ($name =~ /$reqhost/i) { return OK; } |
if ($name =~ /$reqhost/i) { |
|
$r->register_cleanup(\&removefile); |
|
return OK; |
|
} |
} |
} |
|
|
} |
} |
Line 59 sub handler {
|
Line 66 sub handler {
|
return FORBIDDEN; |
return FORBIDDEN; |
} |
} |
|
|
|
sub removefile { |
|
my $r=shift; |
|
if ($r->status==200) { |
|
unlink($r->filename); |
|
&Apache::lonnet::logthis('Unlinking '.$r->filename); |
|
} else { |
|
&Apache::lonnet::logthis('Failed to transfer '.$r->filename); |
|
} |
|
} |
1; |
1; |
__END__ |
__END__ |
|
|