version 1.18, 2007/03/02 23:43:29
|
version 1.19, 2007/05/16 09:45:58
|
Line 46 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) { |
|
my $hostname=&Apache::lonnet::hostname($hostid); |
|
if ($name =~ /^\Q$hostname\E$/i) { |
|
return OK; |
|
} |
|
} |
|
} |
|
|
|
} |
|
$r->log_reason("Invalid request for user file transfer from $reqhost (".join(",",@hostids).")", |
|
$r->filename); |
|
return FORBIDDEN; |
|
} |
} |
|
|
sub removefile { |
sub removefile { |