|
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 { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lontokacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth