From f0062360d6fbd63712c94ef712179e86c4db39db Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 16 Dec 2007 22:55:09 +0000
Subject: [PATCH] diskCache

---
 lib/mod_cache.dtl      | 6 ++++++
 src/plugins/apache.sml | 6 ++++++
 2 files changed, 12 insertions(+)
 create mode 100644 lib/mod_cache.dtl

diff --git a/lib/mod_cache.dtl b/lib/mod_cache.dtl
new file mode 100644
index 0000000..ed9bcfd
--- /dev/null
+++ b/lib/mod_cache.dtl
@@ -0,0 +1,6 @@
+{{Apache mod_cache}}
+
+extern val diskCache : location -> [Vhost];
+{{See <a href="http://httpd.apache.org/docs/2.2/mod/mod_cache.html#cacheenable">the
+  Apache documentation</a>; specifically, the case where the first parameter is
+  <tt>disk</tt>.}}
diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index 7b8f68e..11b4ab3 100644
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -971,6 +971,12 @@ val () = Env.action_two "setEnv"
 							| ch => str ch) value);
 			      write "\"\n"))
 
+val () = Env.action_one "diskCache"
+	 ("path", Env.string)
+	 (fn path => (write "\tCacheEnable disk \"";
+		      write path;
+		      write "\"\n"))
+	 
 val () = Domain.registerResetLocal (fn () =>
 				       ignore (OS.Process.system (Config.rm ^ " -rf /var/domtool/vhosts/*")))
 
-- 
2.20.1