--- loncom/lonhttpd 2007/04/10 20:08:01 1.11 +++ loncom/lonhttpd 2007/04/13 15:43:42 1.14 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: lonhttpd,v 1.11 2007/04/10 20:08:01 raeburn Exp $ +# $Id: lonhttpd,v 1.14 2007/04/13 15:43:42 raeburn Exp $ $VERSION = "1.3.2 (Demonic/Linux/LON-CAPA Derivative $Revison$)"; @@ -356,15 +356,9 @@ while () { $address=~s/\/+/\//g; if ($address=~/^\/(status|adm\/|res\/adm\/)/) { $fail = 0; - } elsif ($address =~ /^\/res\/([^\/]+)\/([^\/]+)\-domainconfig\/(logo|domlogo|img)\/[^\/]+$/) { -# FIXME - should check $1 is a real domain here - need a lightweight -# domain checker. -# @alldomains = &Apache::lonnet::get_domains(); -# if (grep(/^\Q$1\E$/,@alldomains)) { - $fail = 0; -# } + } elsif ($address =~ /^\/res\/([\w\.\-]+)\/\1\-domainconfig\/(logo|domlogo|img)\/[^\/]+$/) { + $fail = 0; } - # # because existing restriction matrix would not do precedence across rules #