Index: openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl,v diff -u -r1.10.2.29 -r1.10.2.30 --- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 23 May 2022 21:54:38 -0000 1.10.2.29 +++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 29 May 2022 19:15:44 -0000 1.10.2.30 @@ -695,14 +695,25 @@ # Handling outgoing requests # :public object method broadcast args { + # + # Small optimization for cachingmode "none" + # + if {[ns_config "ns/parameters" cachingmode "per-node"] eq "none" + && [lindex $args 0] in {acs::cache_flush_all ns_cache}} { + # + # If caching mode is none, it is expected that all + # nodes have this parameter set. Therefore there is no + # need to communicate cache flushing commands. + # + return + } foreach server [:info instances] { $server message {*}$args } } :public method message args { :log "--cluster outgoing request to ${:host}:${:port} // $args" - try { ns_http run http://${:host}:${:port}/${:url}?cmd=[ns_urlencode $args] } on error {errorMsg} {