loncom/auth/lonuploadedacc.pm - diff

Return to lonuploadedacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2008/11/20 15:19:22	version 1.16, 2017/02/08 06:35:31
Line 34 package Apache::lonuploadedacc;	Line 34 package Apache::lonuploadedacc;
use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
	use LONCAPA qw(:match);

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 46 sub handler {	Line 47 sub handler {
$udom.'/'.$uname.'/'.$ufile.':'.$env{'form.token'},	$udom.'/'.$uname.'/'.$ufile.':'.$env{'form.token'},
$remoteserver);	$remoteserver);
if ($reply eq 'ok') {	if ($reply eq 'ok') {
	if (($r->user() eq '') && ($env{'form.token'} ne '')) {
	my ($cuname,$cudom) =
	($env{'form.token'} =~ /^($match_username)_\d+_($match_domain)_/);
	if ($cuname ne '') {
	if ($cudom eq $r->dir_config('lonDefDomain')) {
	$r->user($cuname);
	} else {
	$r->user($cuname.':'.$cudom);
	}
	} else {
	$r->user('public:public');
	}
	} else {
	$r->user('public:public');
	}
return OK;	return OK;
} elsif ($reply eq 'con_lost' \|\| $reply eq 'no_such_host') {	} 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");