loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.6, 2003/11/12 21:37:07	version 1.7, 2004/03/31 17:02:51
Line 33 use Apache::Constants qw(:common :remote	Line 33 use Apache::Constants qw(:common :remote
use Apache::lonnet();	use Apache::lonnet();
use Apache::File();	use Apache::File();
use Apache::loncommon;	use Apache::loncommon;
	use LONCAPA::Configuration;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
if ($r->uri=~m\|^/uploaded/\|) {	my $configvars = &LONCAPA::Configuration::read_conf('loncapa.conf');
my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri);	if ($r->uri=~m\|^(/raw)?/uploaded/\|) {
$ufile=~s/^[\~\.]+//;	my $fn = $r->uri();
$r->filename(&Apache::loncommon::propath($udom,$uname).	$fn=~s/^\/raw//;
'/userfiles/'.$ufile);	my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn);
	$ufile[-1]=~s/^[\~\.]+//;
	my $chome=&Apache::lonnet::homeserver($uname,$udom);
	if ($chome eq $$configvars{'lonHostID'}) {
	$r->filename(&Apache::loncommon::propath($udom,$uname).
	'/userfiles/'.(join('/',@ufile)));
	}
} elsif ($r->uri=~m\|^/~\|) {	} elsif ($r->uri=~m\|^/~\|) {
#internal authentication, needs fixup.	#internal authentication, needs fixup.
my $fn = $r->uri(); # non users do not get the full path request	my $fn = $r->uri(); # non users do not get the full path request