version 1.11, 2007/04/10 20:08:01
|
version 1.14, 2007/04/13 15:43:42
|
Line 356 while (<STDIN>) {
|
Line 356 while (<STDIN>) {
|
$address=~s/\/+/\//g; |
$address=~s/\/+/\//g; |
if ($address=~/^\/(status|adm\/|res\/adm\/)/) { |
if ($address=~/^\/(status|adm\/|res\/adm\/)/) { |
$fail = 0; |
$fail = 0; |
} elsif ($address =~ /^\/res\/([^\/]+)\/([^\/]+)\-domainconfig\/(logo|domlogo|img)\/[^\/]+$/) { |
} elsif ($address =~ /^\/res\/([\w\.\-]+)\/\1\-domainconfig\/(logo|domlogo|img)\/[^\/]+$/) { |
# FIXME - should check $1 is a real domain here - need a lightweight |
$fail = 0; |
# domain checker. |
|
# @alldomains = &Apache::lonnet::get_domains(); |
|
# if (grep(/^\Q$1\E$/,@alldomains)) { |
|
$fail = 0; |
|
# } |
|
} |
} |
|
|
# |
# |
# because existing restriction matrix would not do precedence across rules |
# because existing restriction matrix would not do precedence across rules |
# |
# |