Index: mod_nsd/tcl_modules/nscache.tcl
===================================================================
RCS file: /usr/local/cvsroot/mod_nsd/tcl_modules/nscache.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ mod_nsd/tcl_modules/nscache.tcl	2 May 2001 14:39:21 -0000	1.1
@@ -0,0 +1,26 @@
+#
+#   Stub functions to emulate the nscache module (without doing any actual
+# caching).
+#
+
+proc ns_cache { command cachename args } {
+	switch $command {
+		create {
+			return dummycache
+		}
+		eval {
+			ns_log notice $args
+			return [eval [lindex args 1]]
+		}
+		flush {
+		}
+		get {
+			return 0
+		}
+		names {
+			return [list]
+		}
+		set {
+		}
+	}
+}