version 1.9, 2003/05/13 01:56:32
|
version 1.10, 2004/02/11 00:10:02
|
Line 43 package Apache::lonuploadedacc;
|
Line 43 package Apache::lonuploadedacc;
|
# H now must ask S if token is valid, uses S's lond-command tokenauthuserfile |
# H now must ask S if token is valid, uses S's lond-command tokenauthuserfile |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
|
sub handler { |
sub handler { |
Line 58 sub handler {
|
Line 58 sub handler {
|
$remoteserver); |
$remoteserver); |
if ($reply eq 'ok') { |
if ($reply eq 'ok') { |
return 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 { |
} else { |
&Apache::lonnet::logthis( |
&Apache::lonnet::logthis("Refused userfile access $uname at $udom for $ufile with $remoteserver token $ENV{'form.token'}: $reply"); |
"Refused userfile access $uname at $udom for $ufile with $remoteserver token $ENV{'form.token'}: $reply"); |
|
return FORBIDDEN; |
return FORBIDDEN; |
} |
} |
} |
} |