loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.13, 2006/12/06 22:22:36	version 1.14.10.1, 2020/03/05 22:02:32
Line 52 sub handler {	Line 52 sub handler {
$r->filename(&propath($udom,$uname).	$r->filename(&propath($udom,$uname).
'/userfiles/'.(join('/',@ufile)));	'/userfiles/'.(join('/',@ufile)));
}	}
} elsif ($r->uri=~m\|^/~\|) {	return OK;
#internal authentication, needs fixup.	} elsif ($r->uri =~ m{^\Q/adm/wrapper/ext/https:/\E[^/]}) {
my $fn = $r->uri(); # non users do not get the full path request	my $uri = $r->uri;
# through SCRIPT_FILENAME	$uri =~ s{^(\Q/adm/wrapper/ext/https:/\E)}{$1/};
$fn=~s\|^/~($LONCAPA::username_re)\|/home/$1/public_html\|;	$r->uri($uri);
$r->filename($fn);	}
} else { return DECLINED; }	return DECLINED;
return OK;
}	}

1;	1;