X-Git-Url: https://git.hcoop.net/jyaworski/domtool2.git/blobdiff_plain/660f5874aa860c9cb2bf4c3022aca4d971ae815c..eb18bcaca2e0b065d1b7843a5213131ac024dd24:/lib/web_apps.dtl

diff --git a/lib/web_apps.dtl b/lib/web_apps.dtl
index 5f783c8..124a6d0 100644
--- a/lib/web_apps.dtl
+++ b/lib/web_apps.dtl
@@ -14,14 +14,16 @@ val addWordPress = \ loc : (location) ->
 {{Add a standard WordPress blog set-up code to a virtual host.  The WordPress
   files should be rooted at the location you specify.}}
 
-val wordPress = \ host : (host) ->
+val wordPress = \ host : (host) -> \\ config : Vhost ->
   web host with
-    addWordPress "/"
+    addWordPress "/";
+    diskCache "/wp-content";
+    config
   end;
 {{Create a WordPress blog with just the standard set-up code.  The WordPress blog should
   be rooted at the vhost's <tt>DocumentRoot</tt>.}}
 
-val moin_default_htdocs : (location) = "/moin_static196";
+val moin_default_htdocs : (location) = "/moin_static198";
 {{Alias for static content used by the system-wide MoinMoin.}}
 
 val addMoinMoin = begin
@@ -30,16 +32,18 @@ val addMoinMoin = begin
   script <- Script;
 
   alias htdocs "/afs/hcoop.net/common/app/moin/installed/moin19/lib/python2.6/site-packages/MoinMoin/web/static/htdocs";
-  scriptAlias prefix (end_in_slash script)
+  diskCache htdocs;
+  scriptAlias prefix (end_in_slash script);
 end;
 {{Add a MoinMoin wiki to a vhost.}}
 
-val moinMoin = \ host : (host) ->
+val moinMoin = \ host : (host) -> \\ config : Vhost ->
   web host with
     addMoinMoin where
       Htdocs = moin_default_htdocs;
       Prefix = "/"
-    end
+    end;
+    config
   end;
 {{Create a new vhost with just a MoinMoin wiki.}}