loncom/auth/lonuploadedacc.pm - diff

Return to lonuploadedacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;
}	}
}	}