[LON-CAPA-cvs] cvs: loncom / lonhttpd
www
lon-capa-cvs@mail.lon-capa.org
Wed, 30 Oct 2002 15:32:33 -0000
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