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"); |