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; |