version 1.1, 2002/08/02 14:45:04
|
version 1.2, 2002/08/08 13:45:21
|
Line 31 package Apache::lonuploadedacc;
|
Line 31 package Apache::lonuploadedacc;
|
use strict; |
use strict; |
use Apache::Constants qw(:common :remotehost); |
use Apache::Constants qw(:common :remotehost); |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::File(); |
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
return OK; |
my $args=$r->args; |
|
&Apache::loncommon::get_unprocessed_cgi($args,['token']); |
|
my ($dum1,$dum2,$udom,$uname,$ufile)=split(/\//,$r->uri); |
|
$ufile=~s/^[\~\.]+//; |
|
my ($server)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/); |
|
|
|
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'. |
|
$udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'}, |
|
$server); |
|
if ($reply eq 'ok') { |
|
return OK; |
|
} else { |
|
&Apache::lonnet::logthis( |
|
"Refused userfile access $uname at $udom for $ufile from $server with $ENV{'form.token'}: $reply"); |
|
return FORBIDDEN; |
|
} |
} |
} |
|
|
1; |
1; |