Index: openacs-4/packages/acs-tcl/tcl/admin-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-init.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/admin-init.tcl	1 Nov 2003 08:45:37 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/admin-init.tcl	29 Jun 2004 10:17:44 -0000	1.8
@@ -24,3 +24,14 @@
     
     db_release_unused_handles
 }
+
+# if the kernel param is on, then these filters will be registered.  after that,
+# a subsite param controls whether that subsite is restricted or not
+if { [parameter::get -package_id [ad_acs_kernel_id] -parameter RegisterRestrictEntireServerToRegisteredUsersFilters -default 0]} {
+  db_foreach path_select {} {
+    ns_log Notice "admin-init.tcl:  Registering ad_restrict_entire_server_to_registered_users for ${url}*"
+    ad_register_filter preauth GET "${url}*" ad_restrict_entire_server_to_registered_users
+    ad_register_filter preauth POST "${url}*" ad_restrict_entire_server_to_registered_users
+    ad_register_filter preauth HEAD "${url}*" ad_restrict_entire_server_to_registered_users
+  }
+}