--- loncom/auth/lonuploadedacc.pm	2004/10/26 15:03:08	1.11
+++ loncom/auth/lonuploadedacc.pm	2005/04/07 06:56:21	1.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Access Handler for User Files
 #
-# $Id: lonuploadedacc.pm,v 1.11 2004/10/26 15:03:08 albertel Exp $
+# $Id: lonuploadedacc.pm,v 1.12 2005/04/07 06:56:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,7 +44,7 @@ package Apache::lonuploadedacc;
 
 use strict;
 use Apache::Constants qw(:common :http);
-use Apache::lonnet();
+use Apache::lonnet;
 
 sub handler {
     my $r = shift;
@@ -52,17 +52,17 @@ sub handler {
     &Apache::loncommon::get_unprocessed_cgi($args,['token','tokenissued']); 
     my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri,5);
     $ufile=~s/^[\~\.]+//;
-    my $remoteserver=$ENV{'form.tokenissued'};
+    my $remoteserver=$env{'form.tokenissued'};
     my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.
-                 $udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'},
+                 $udom.'/'.$uname.'/'.$ufile.':'.$env{'form.token'},
 				     $remoteserver);
     if ($reply eq 'ok') {
        return OK;
    } elsif ($reply eq 'con_lost' || $reply eq 'no_such_host') {
-       &Apache::lonnet::logthis("Server unavailable for userfile access $uname at $udom for $ufile with $remoteserver token $ENV{'form.token'}: $reply");
+       &Apache::lonnet::logthis("Server unavailable for userfile access $uname at $udom for $ufile with $remoteserver token $env{'form.token'}: $reply");
        return HTTP_SERVICE_UNAVAILABLE;
    } else {
-       &Apache::lonnet::logthis("Refused userfile access $uname at $udom for $ufile with $remoteserver token $ENV{'form.token'}: $reply");
+       &Apache::lonnet::logthis("Refused userfile access $uname at $udom for $ufile with $remoteserver token $env{'form.token'}: $reply");
        return FORBIDDEN;
    }
 }