structure Apache :> APACHE_CONFIG = struct
-val reload = "echo \"I would reload Apache now.\""
-(*"/etc/init.d/apache2 reload"*)
+open ConfigTypes
-val confDir = "/home/adamc/fake"
+val reload = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache"
+val down = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache-down"
+val undown = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache-undown"
-val webNodes = ["this"]
+val reload1 = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache1.3"
+val down1 = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache1.3-down"
+val undown1 = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache1.3-undown"
+
+val confDir = "/var/domtool/vhosts"
+
+val webNodes_all = [("mire", {version = APACHE_1_3, auth = MOD_WAKLOG})]
+val webNodes_admin = [("deleuze", {version = APACHE_2, auth = NO_AUTH})]
+
+val webNodes_default = ["mire"]
val proxyTargets = ["http://hcoop.net/cgi-bin/mailman",
"http://hcoop.net/pipermail"]
+val public_html = "public_html"
+
+fun logDirOf version1 user =
+ if size user < 2 then
+ "/bad_username"
+ else
+ String.concat [if version1 then
+ "/var/log/apache/user/"
+ else
+ "/var/log/apache2/user/",
+ String.substring (user, 0, 1),
+ "/",
+ String.substring (user, 0, 2),
+ "/",
+ user,
+ "/apache/log"]
+
end