Index: openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	28 Aug 2003 09:41:43 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	25 Sep 2003 13:39:02 -0000	1.7
@@ -151,3 +151,8 @@
 		[list $method $path rp_invoke_proc [list $proc_index $debug_p $arg_count $proc $arg]]
     }
 }
+
+# Deny access to .xql URLs
+if { ![parameter::get -parameter ServeXQLFiles -package_id [ad_acs_kernel_id] -default 0] } {
+    ad_register_filter postauth GET *.xql request_denied_filter
+}