[LON-CAPA-cvs] cvs: loncom / lonhttpd

[www]

www		Wed Oct 30 10:32:33 2002 EDT

  Modified files:              
    /loncom	lonhttpd 
  Log:
  Remove extra /'s
  
  
Index: loncom/lonhttpd
diff -u loncom/lonhttpd:1.3 loncom/lonhttpd:1.4
--- loncom/lonhttpd:1.3	Wed Oct 30 09:25:33 2002
+++ loncom/lonhttpd	Wed Oct 30 10:32:33 2002
@@ -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 @@
 #
 # 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