version 1.14, 2005/02/10 22:30:56
|
version 1.16, 2006/02/07 19:46:26
|
Line 59 sub handler {
|
Line 59 sub handler {
|
$readline=~s/\s*$//; |
$readline=~s/\s*$//; |
my ($id,$domain,$role,$name)=split(/:/,$readline); |
my ($id,$domain,$role,$name)=split(/:/,$readline); |
foreach my $hostid (@{$hostids}) { |
foreach my $hostid (@{$hostids}) { |
if ($name =~ /^\Q$hostid\E$/i) { |
my $hostname=$Apache::lonnet::hostname{$hostid}; |
|
if ($name =~ /^\Q$hostname\E$/i) { |
return OK; |
return OK; |
} |
} |
} |
} |
} |
} |
|
|
} |
} |
$r->log_reason("Invalid request for user file transfer from $reqhost", |
$r->log_reason("Invalid request for user file transfer from $reqhost (".join(",",@{$hostids}).")", |
$r->filename); |
$r->filename); |
return FORBIDDEN; |
return FORBIDDEN; |
} |
} |
Line 79 sub removefile {
|
Line 80 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__ |