Index: openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl,v diff -u -N -r1.6.8.1 -r1.6.8.2 --- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl 5 Oct 2013 12:36:53 -0000 1.6.8.1 +++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl 14 Feb 2014 18:20:45 -0000 1.6.8.2 @@ -113,25 +113,32 @@ # Cluster proc broadcast args { foreach server [my info instances] { - $server message {*}$args + $server message {*}$args } } Cluster instproc message args { my log "--cluster outgoing request to [my host]:[my port] // $args" -# set r [::xo::HttpRequest new -volatile \ -# -host [my host] -port [my port] \ -# -path [Cluster set url]?cmd=[ns_urlencode $args]] -# return [$r set data] + # set r [::xo::HttpRequest new -volatile \ + # -host [my host] -port [my port] \ + # -path [Cluster set url]?cmd=[ns_urlencode $args]] + # return [$r set data] set r [::xo::AsyncHttpRequest new -volatile \ - -host [my host] -port [my port] \ - -path [Cluster set url]?cmd=[ns_urlencode $args]] - -# ::bgdelivery do ::xo::AsyncHttpRequest new \ -# -host [my host] -port [my port] \ -# -path [Cluster set url]?cmd=[ns_urlencode $args] \ -# -mixin ::xo::AsyncHttpRequest::SimpleListener \ -# -proc finalize {obj status value} { my destroy } + -host [my host] -port [my port] \ + -path [Cluster set url]?cmd=[ns_urlencode $args]] + + # ::bgdelivery do ::xo::AsyncHttpRequest new \ + # -host [my host] -port [my port] \ + # -path [Cluster set url]?cmd=[ns_urlencode $args] \ + # -mixin ::xo::AsyncHttpRequest::SimpleListener \ + # -proc finalize {obj status value} { my destroy } } -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: