structure Apache :> APACHE_CONFIG = struct open ConfigTypes 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 fixperms = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache-fixperms" 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 fixperms1 = "/usr/bin/sudo /usr/local/sbin/domtool-publish apache1.3-fixperms" val confDir = "/var/domtool/vhosts" val webNodes_all = [("navajos", {version = APACHE_2, auth = MOD_WAKLOG})] val webNodes_admin = [("deleuze", {version = APACHE_2, auth = MOD_WAKLOG})] val proxyTargets = ["http://hcoop.net/cgi-bin/mailman", "http://hcoop.net/pipermail"] val proxyHosts = ["bog"] 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"] fun realLogDirOf user = if size user < 2 then "/bad_username" else String.concat ["/afs/hcoop.net/user/", String.substring (user, 0, 1), "/", String.substring (user, 0, 2), "/", user, "/.logs/apache"] fun backupLogDirOf version1 = if version1 then "/afs/hcoop.net/common/etc/domtool/backup/apache/" else "/afs/hcoop.net/common/etc/domtool/backup/apache2/" val defaultPhpVersion = 5 val waklogUserFile = "/var/domtool/waklog.conf" end