Index: openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl	17 Sep 2007 08:50:15 -0000	1.1
@@ -0,0 +1,27 @@
+# packages/acs-tcl/tcl/proxy-procs.tcl                                                                                                   
+
+ad_library {
+
+    Proxy procs
+
+    @author <yourname> (<your email>)
+    @creation-date 2007-09-17
+    @cvs-id $Id: proxy-procs.tcl,v 1.1 2007/09/17 08:50:15 maltes Exp $
+}
+
+# First check that ns_proxy is configured
+if {![catch {ns_proxy get exec_proxy}]} {
+    namespace eval proxy {}
+    ad_proc -public proxy::exec {
+	{-call}
+    } {
+	Execute the statement in a proxy instead of normal exec
+	
+	@param call Call which is passed to the "exec" command
+    } {
+	set handle [ns_proxy get exec_proxy]
+	set return_string [ns_proxy eval $handle "exec $call"]
+	ns_proxy release $handle
+	return $return_string
+    }
+}