X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/a052bc916392d81e585be01b72c74cb1ce319a3a..66d70ba27db23d3de71198ca25f99b5f7a8fe2d0:/lib/web_apps.dtl

diff --git a/lib/web_apps.dtl b/lib/web_apps.dtl
index 39990d4..5a19ae6 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
+    config;
     addMoinMoin where
       Htdocs = moin_default_htdocs;
       Prefix = "/"
-    end
+    end;
   end;
 {{Create a new vhost with just a MoinMoin wiki.}}
 
@@ -53,13 +57,4 @@ val addMoinMoinOld = begin
   alias htdocs "/usr/share/moin/htdocs";
   scriptAlias prefix (end_in_slash script)
 end;
-{{Add a MoinMoin wiki to a vhost.}}
-
-val moinMoinOld = \ host : (host) ->
-  webAt "mire" host with
-    addMoinMoinOld where
-      Htdocs = "/moin";
-      Prefix = "/"
-    end
-  end;
-{{Create a new vhost with just a MoinMoin wiki.}}
\ No newline at end of file
+{{Add a MoinMoin wiki to a vhost.}}
\ No newline at end of file