loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.3, 2002/09/30 20:32:45	version 1.5, 2003/03/26 00:03:21
Line 47 sub propath {	Line 47 sub propath {
sub handler {	sub handler {
my $r = shift;	my $r = shift;
if ($r->uri=~m\|^/uploaded/\|) {	if ($r->uri=~m\|^/uploaded/\|) {
my ($dum1,$dum2,$udom,$uname,$ufile)=split(/\//,$r->uri);	my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri);
$ufile=~s/^[\~\.]+//;	$ufile=~s/^[\~\.]+//;
$r->filename(&propath($udom,$uname).'/userfiles/'.$ufile);	$r->filename(&propath($udom,$uname).'/userfiles/'.$ufile);
} elsif ($r->uri=~m\|^/~\|) {	} elsif ($r->uri=~m\|^/~\|) {
Line 57 sub handler {	Line 57 sub handler {
$fn=~s\|^/~(\w+)\|/home/$1/public_html\|;	$fn=~s\|^/~(\w+)\|/home/$1/public_html\|;
$r->filename($fn);	$r->filename($fn);
} else { return DECLINED; }	} else { return DECLINED; }
	return OK;
}	}

1;	1;