[LON-CAPA-cvs] cvs: loncom / loncapa_apache.conf /auth publiccheck.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 26 Jun 2006 20:23:33 -0000


albertel		Mon Jun 26 16:23:33 2006 EDT

  Modified files:              
    /loncom	loncapa_apache.conf 
    /loncom/auth	publiccheck.pm 
  Log:
  - reenabling public access to help documentation
  
  
Index: loncom/loncapa_apache.conf
diff -u loncom/loncapa_apache.conf:1.141 loncom/loncapa_apache.conf:1.142
--- loncom/loncapa_apache.conf:1.141	Tue Jun 20 12:44:08 2006
+++ loncom/loncapa_apache.conf	Mon Jun 26 16:23:28 2006
@@ -1,7 +1,7 @@
 ##
 ## loncapa_apache.conf -- Apache HTTP LON-CAPA configuration file
 ##
-## $Id: loncapa_apache.conf,v 1.141 2006/06/20 16:44:08 albertel Exp $
+## $Id: loncapa_apache.conf,v 1.142 2006/06/26 20:23:28 albertel Exp $
 ##
 
 #
@@ -255,7 +255,8 @@
 <LocationMatch "^/adm/helper/.*\.helper$">
 AuthType LONCAPA
 Require valid-user
-PerlAuthzHandler Apache::lonacc
+PerlAccessHandler Apache::publiccheck
+PerlAuthzHandler  Apache::lonacc
 SetHandler        perl-script
 PerlHandler       Apache::lonhelper
 ErrorDocument     403 /adm/login
Index: loncom/auth/publiccheck.pm
diff -u loncom/auth/publiccheck.pm:1.3 loncom/auth/publiccheck.pm:1.4
--- loncom/auth/publiccheck.pm:1.3	Fri Jun 16 18:37:29 2006
+++ loncom/auth/publiccheck.pm	Mon Jun 26 16:23:33 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: publiccheck.pm,v 1.3 2006/06/16 22:37:29 raeburn Exp $
+# $Id: publiccheck.pm,v 1.4 2006/06/26 20:23:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,15 +56,16 @@
 	}
     }
     if ($requrl=~m|^/public/|
+	|| $requrl=~m|^/adm/help/.*\.hlp$|
 	|| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
         &process_public($r,$requrl);
         return OK;
-    } elsif ($requrl =~ m#/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$#) {
+    } elsif ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$|) {
         if (&process_portfolio($1,$2,$3)) {
             &process_public($r,$requrl);
             return OK;
         } 
-    } elsif ($requrl =~ m#/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$#) {
+    } elsif ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$|) {
         if (&process_portfolio($1,$2,$3.'/'.$4,$3)) {
             &process_public($r,$requrl);
             return OK;