--- loncom/lonhttpd	2002/10/30 14:25:33	1.3
+++ loncom/lonhttpd	2002/10/30 15:32:33	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: lonhttpd,v 1.3 2002/10/30 14:25:33 www Exp $
+# $Id: lonhttpd,v 1.4 2002/10/30 15:32:33 www Exp $
 
 $VERSION = "1.3.2 (Demonic/Linux/LON-CAPA Derivative)";
 
@@ -337,6 +337,7 @@ while (<STDIN>) {
 #
 # Heavily customized for LON-CAPA
 #
+	$address=~s/\/+/\//g;
 	unless ($address=~/^\/(status|adm\/|res\/adm\/)/) { $fail=1; }
 #
 # because existing restriction matrix would not do precedence across rules