--- loncom/auth/lontokacc.pm 2007/03/02 23:43:29 1.18 +++ loncom/auth/lontokacc.pm 2007/05/16 09:45:58 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network # Access Handler for User File Transfers # -# $Id: lontokacc.pm,v 1.18 2007/03/02 23:43:29 albertel Exp $ +# $Id: lontokacc.pm,v 1.19 2007/05/16 09:45:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -46,29 +46,7 @@ sub handler { if ($reqhost eq '127.0.0.1') { return OK; } - my $readline; - 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; + return OK; } sub removefile {