Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl 8 Feb 2004 18:36:07 -0000 1.9
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl 4 Jun 2006 00:45:47 -0000 1.10
@@ -85,35 +85,6 @@
ns_cache flush util_memoize $script
}
-# We construct the body of util_memoize_flush differently depending
-# on whether clustering is enabled and what command is available for
-# cluster-wide flushing.
-
-if {[llength [info commands ncf.send]] > 0} {
- set flush_body {
- ncf.send util_memoize $script
- }
-} elseif {[llength [info commands server_cluster_httpget_from_peers]] > 0} {
- set flush_body {
- server_cluster_httpget_from_peers "/SYSTEM/flush-memoized-statement.tcl?statement=[ns_urlencode $script]"
- }
-} else {
- set flush_body {}
-}
-
-append flush_body {
- ns_cache flush util_memoize $script
-}
-
-ad_proc -public util_memoize_flush {script} {
- Forget any cached value for script. If clustering is
- enabled, flush the caches on all servers in the cluster.
-
- @param script The Tcl script whose cached value should be flushed.
-} $flush_body
-
-unset flush_body
-
ad_proc -public util_memoize_cached_p {script {max_age ""}} {
Check whether script's value has been cached, and whether it
was cached no more than max_age seconds ago.
@@ -159,11 +130,11 @@
} {
foreach name [ns_cache names util_memoize] {
if $log_p {
- ns_log notice "util_memoize_flush_regexp: checking $name for $expr"
+ ns_log Debug "util_memoize_flush_regexp: checking $name for $expr"
}
if { [regexp $expr $name] } {
if $log_p {
- ns_log notice "util_memoize_flush_regexp: flushing $name"
+ ns_log Debug "util_memoize_flush_regexp: flushing $name"
}
util_memoize_flush $name
}