version 1.14, 2005/02/10 22:30:56
|
version 1.20, 2020/12/18 15:23:03
|
Line 36 use IO::Socket;
|
Line 36 use IO::Socket;
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP); |
my $reqhost = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP,1); |
my %iphost=&Apache::lonnet::get_iphost(); |
my @hostids= &Apache::lonnet::get_hosts_from_ip($reqhost); |
my $hostids=$iphost{$reqhost}; |
if (!@hostids && $reqhost ne '127.0.0.1' ) { |
if (!$hostids && $reqhost ne '127.0.0.1' ) { |
|
$r->log_reason("Unable to find a host for ". |
$r->log_reason("Unable to find a host for ". |
$r->get_remote_host(REMOTE_NOLOOKUP)); |
$r->get_remote_host(REMOTE_NOLOOKUP)); |
return FORBIDDEN; |
return FORBIDDEN; |
Line 47 sub handler {
|
Line 46 sub handler {
|
if ($reqhost eq '127.0.0.1') { |
if ($reqhost eq '127.0.0.1') { |
return OK; |
return OK; |
} |
} |
my $readline; |
return OK; |
my $lontabdir=$r->dir_config('lonTabDir'); |
|
{ |
|
my $fh; |
|
unless ($fh=Apache::File->new("$lontabdir/hosts.tab")) { |
|
$r->log_reason("Could not find host tab file"); |
|
return FORBIDDEN; |
|
} |
|
while ($readline=<$fh>) { |
|
$readline=~s/\s*$//; |
|
my ($id,$domain,$role,$name)=split(/:/,$readline); |
|
foreach my $hostid (@{$hostids}) { |
|
if ($name =~ /^\Q$hostid\E$/i) { |
|
return OK; |
|
} |
|
} |
|
} |
|
|
|
} |
|
$r->log_reason("Invalid request for user file transfer from $reqhost", |
|
$r->filename); |
|
return FORBIDDEN; |
|
} |
} |
|
|
sub removefile { |
sub removefile { |
Line 79 sub removefile {
|
Line 57 sub removefile {
|
} else { |
} else { |
&Apache::lonnet::logthis('Failed to transfer '.$r->filename); |
&Apache::lonnet::logthis('Failed to transfer '.$r->filename); |
} |
} |
|
return OK; |
} |
} |
1; |
1; |
__END__ |
__END__ |