--- loncom/lonhttpd	2007/04/13 15:43:42	1.14
+++ loncom/lonhttpd	2008/05/01 14:36:03	1.16
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: lonhttpd,v 1.14 2007/04/13 15:43:42 raeburn Exp $
+# $Id: lonhttpd,v 1.16 2008/05/01 14:36:03 raeburn Exp $
 
 $VERSION = "1.3.2 (Demonic/Linux/LON-CAPA Derivative $Revison$)";
 
@@ -356,7 +356,7 @@ while (<STDIN>) {
 	$address=~s/\/+/\//g;
         if ($address=~/^\/(status|adm\/|res\/adm\/)/) {
             $fail = 0;
-        } elsif ($address =~ /^\/res\/([\w\.\-]+)\/\1\-domainconfig\/(logo|domlogo|img)\/[^\/]+$/) {
+        } elsif ($address =~ /^\/res\/([\w\.\-]+)\/\1\-domainconfig\/(logo|domlogo|img|login)\/[^\/]+$/) {
             $fail = 0;
         }
 #
@@ -595,6 +595,7 @@ for (;;) {
 		waitpid($pid, 0);
 		$0 = "lonhttpd: (dhttpi) on ANY:$port_to_use, last request " .
 			scalar localtime;
+		close(NS);
 	} else {
 		$0 = "lonhttpd: (dhttpi) child switching to socket";
 		open(STDIN, "<&NS");