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.8, 2004/04/01 20:18:29
Line 36 use Apache::loncommon;	Line 36 use Apache::loncommon;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
if ($r->uri=~m\|^/uploaded/\|) {	if ($r->uri=~m\|^(/raw)?/uploaded/\|) {
my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri);	my $fn = $r->uri();
$ufile=~s/^[\~\.]+//;	$fn=~s/^\/raw//;
$r->filename(&Apache::loncommon::propath($udom,$uname).	my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn);
'/userfiles/'.$ufile);	$ufile[-1]=~s/^[\~\.]+//;
	my $chome=&Apache::lonnet::homeserver($uname,$udom);
	if ($chome eq $Apache::lonnet::perlvar{'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