{{Configuring common web applications}} val addWordPress = \ loc : (location) -> location loc with rewriteCond "%{REQUEST_FILENAME}" "!-f" []; rewriteCond "%{REQUEST_FILENAME}" "!-d" []; rewriteRule "." "/index.php" [last] end; {{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) -> web host with addWordPress "/" end; {{Create a WordPress blog with just the standard set-up code. The WordPress blog should be rooted at the vhost's DocumentRoot.}} val addMoinMoin = begin htdocs <- Htdocs; prefix <- Prefix; script <- Script; alias htdocs "/usr/share/moin/htdocs"; scriptAlias prefix (end_in_slash script) end; {{Add a MoinMoin wiki to a vhost.}} val moinMoin = \ host : (host) -> web host with addMoinMoin where Htdocs = "/moin"; Prefix = "/" end end; {{Create a new vhost with just a MoinMoin wiki.}}