Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	24 Sep 2003 22:52:16 -0000	1.45
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	25 Sep 2003 13:39:02 -0000	1.46
@@ -1386,3 +1386,17 @@
 ad_proc -private rp_lookup_node_from_host { host } {
     return [db_string  node_id { *SQL* } -default ""]
 } 
+
+
+
+ad_proc -public request_denied_filter { why } {
+    Deny serving the request
+} {
+    ad_return_forbidden \
+        "Forbidden URL" \
+        "<blockquote>No, we're not going to show you this file</blockquote>"
+
+    ns_return 200 text/html $output
+
+    return filter_return
+}