Index: openacs-4/packages/xotcl-core/www/cache.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/cache.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-core/www/cache.tcl	4 Jan 2007 23:54:54 -0000	1.3
+++ openacs-4/packages/xotcl-core/www/cache.tcl	1 Jun 2009 07:45:59 -0000	1.4
@@ -4,6 +4,7 @@
   {cache:optional 0}
   {item:optional 0}
   {flush:optional 0}
+  {filter ""}
   {flushall:optional 0}
 } -properties {
     title:onevalue
@@ -68,11 +69,27 @@
   set item_count [llength $item_list]
   append output "<a href='?cache=$cache&flushall=1'>flush all</a> items of $cache"
 
-  append output "<h3>Items in cache $cache ($item_count) with size [ns_cache_size $cache]</h3><ul>"
+  append output "<h3>Items in cache $cache ($item_count) with size [ns_cache_size $cache]</h3>\n"
+  append output "<form>
+    <input type='hidden' name='cache' value='$cache'>
+    Filter: <input name='filter' value='$filter'>
+    </form>
+  "
+  set entries "<ul>"
+  set count 0
   foreach name [lsort -dictionary $item_list] {
-    append output "<li><a href='?cache=$cache&item=$name'>$name</a> (<a href='?cache=$cache&flush=$name'>flush</a>)</li>"
+    set entry [ns_cache get $cache $name]
+    if {$filter ne ""} {if {![regexp $filter $entry]} continue}
+    incr count
+    set n ""
+    regexp -- {-set name ([^\\]+)\\} $entry _ n
+    append entries "<li><a href='?cache=$cache&item=$name'>$name</a> $n (<a href='?cache=$cache&flush=$name'>flush</a>)</li>"
   }
-  append output "</ul>"
+  append entries "</ul>"
+  if {$filter ne ""} {
+    append output "$count matching entries:\n"
+  }
+  append output $entries
   append output "<a href='?'>All Caches</a>"
 }