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 -N -r1.118.2.24 -r1.118.2.25
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	4 Jun 2016 11:10:47 -0000	1.118.2.24
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	10 Jun 2016 07:35:08 -0000	1.118.2.25
@@ -750,6 +750,11 @@
         return "filter_return"
     }
 
+    set headers [ns_conn headers]
+    ns_set put $headers "X-Forwarded-For" 1.2.3.4
+    ns_set put $headers "X-User-ID" 123
+    ns_log notice "setting <X-Forwarded-For> to 1.2.3.4 in $headers"
+
     if {[ns_info name] eq "NaviServer"}  {
         # provide context information for background writer
         set requestor [expr {$::ad_conn(user_id) == 0 ? [ad_conn peeraddr] : $::ad_conn(user_id)}]