--- /dev/null
+{{PHP configuration}}
+
+extern type php_version;
+extern val php4 : php_version;
+extern val php5 : php_version;
+
+extern val phpVersion : php_version -> [^Vhost];
(fn path => (write "\tCacheEnable disk \"";
write path;
write "\"\n"))
-
+
+val php_version = fn (EVar "php4", _) => SOME 4
+ | (EVar "php5", _) => SOME 5
+ | _ => NONE
+
+val () = Env.action_one "phpVersion"
+ ("version", php_version)
+ (fn version => (write "\tAddHandler x-httpd-php";
+ write (Int.toString version);
+ write " .php .phtml\n"))
+
val () = Domain.registerResetLocal (fn () =>
ignore (OS.Process.system (Config.rm ^ " -rf /var/domtool/vhosts/*")))