--- loncom/auth/lonuploadedacc.pm	2003/05/13 01:56:32	1.9
+++ loncom/auth/lonuploadedacc.pm	2008/11/12 20:01:09	1.14
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Access Handler for User Files
 #
-# $Id: lonuploadedacc.pm,v 1.9 2003/05/13 01:56:32 www Exp $
+# $Id: lonuploadedacc.pm,v 1.14 2008/11/12 20:01:09 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -26,45 +26,64 @@
 # http://www.lon-capa.org/
 #
 
+=head1 NAME
+
+Apache::lonuploadedacc
+
+=head1 SYNOPSIS
+
+The way this is supposed to work:
+
+ User A has client machine C 
+ User A is logged into LON-CAPA server S
+ needs file from user B
+ homeserver for user B is H
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 HANDLER SUBROUTINE
+
+This handler runs on H
+To access a userfile:
+Server S generates a token and puts it into the query string of URL for H
+Client box C asks H for file with token issued by C
+H now must ask S if token is valid, uses S's lond-command tokenauthuserfile
+
+=cut
+
 package Apache::lonuploadedacc;
 
-#
-# The way this is supposed to work:
-#
-# User A has client machine C
-# User A is logged into LON-CAPA server S
-# needs file from user B
-# homeserver for user B is H
-# 
-# This handler runs on H
-# To access a userfile:
-# Server S generates a token and puts it into the query string of URL for H
-# Client box C asks H for file with token issued by C
-# H now must ask S if token is valid, uses S's lond-command tokenauthuserfile
 
 use strict;
-use Apache::Constants qw(:common);
-use Apache::lonnet();
+use Apache::Constants qw(:common :http);
+use Apache::lonnet;
 
 sub handler {
     my $r = shift;
     my $args=$r->args;
     &Apache::loncommon::get_unprocessed_cgi($args,['token','tokenissued']); 
-    my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri);
+    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");
+       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;
    }
 }
 
+sub skip_phase {
+    return OK;
+}
+
 1;
 __END__