Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.48 -r1.49
--- openacs-4/packages/xotcl-core/xotcl-core.info	5 Apr 2008 11:13:26 -0000	1.48
+++ openacs-4/packages/xotcl-core/xotcl-core.info	10 Apr 2008 07:44:56 -0000	1.49
@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.84" url="http://media.wu-wien.ac.at/download/xotcl-core-0.84.apm">
+    <version name="0.85" url="http://media.wu-wien.ac.at/download/xotcl-core-0.85.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
         <release-date>2008-04-05</release-date>
@@ -41,7 +41,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.84"/>
+        <provides url="xotcl-core" version="0.85"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
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 -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	24 Sep 2007 12:04:26 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	10 Apr 2008 07:44:56 -0000	1.3
@@ -15,11 +15,22 @@
     eval ::xo::Cluster broadcast $args
   }
 
+  proc cache_flush_all {cache pattern} {
+    # Provide means to perform a wildcard-based cache flushing on
+    # (cluster) machines.
+    foreach n [ns_cache names $cache $pattern] {ns_cache flush $cache $n}
+  }
+
   Class Cluster -parameter {host {port 80}}
   Cluster set allowed_host_patterns [list]
   Cluster array set allowed_host {
     "127.0.0.1" 1
   }
+  # 
+  # The allowed commands are of the form 
+  #   - command names followed by 
+  #   - optional "except patterns"
+  #
   Cluster array set allowed_command {
     set "" 
     unset "" 
@@ -28,6 +39,7 @@
     nsv_incr ""
     bgdelivery ""
     ns_cache "^ns_cache\s+eval"
+    xo::cache_flush_all ""
   }
   #
   # Prevent unwanted object generations for unknown