version 1.7, 2002/12/04 15:23:39
|
version 1.12, 2005/04/07 06:56:21
|
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 { |
my $r = shift; |
my $r = shift; |
my $args=$r->args; |
my $args=$r->args; |
&Apache::loncommon::get_unprocessed_cgi($args,['token','tokenissued']); |
&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/^[\~\.]+//; |
$ufile=~s/^[\~\.]+//; |
my $remoteserver=$ENV{'form.tokenissued'}; |
my $remoteserver=$env{'form.tokenissued'}; |
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'. |
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'. |
$udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'}, |
$udom.'/'.$uname.'/'.$ufile.':'.$env{'form.token'}, |
$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; |
} |
} |
} |
} |