X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/7f75d83853b6dfe8b63ff78130b7107ce8af21a8..976657583f419a6a204400ea90f9758d15243acb:/src/plugins/apache.sml

diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index 3550166..ffd18b2 100644
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -61,29 +61,29 @@ val _ = Env.type_one "location"
 
 val dl = ErrorMsg.dummyLoc
 
-val _ = Main.registerDefault ("WebNodes",
-			      (TList (TBase "node", dl), dl),
-			      (fn () => (EList (map (fn s => (EString s, dl)) Config.Apache.webNodes), dl)))
+val _ = Defaults.registerDefault ("WebNodes",
+				  (TList (TBase "node", dl), dl),
+				  (fn () => (EList (map (fn s => (EString s, dl)) Config.Apache.webNodes), dl)))
 
-val _ = Main.registerDefault ("SSL",
-			      (TBase "bool", dl),
-			      (fn () => (EVar "false", dl)))
+val _ = Defaults.registerDefault ("SSL",
+				  (TBase "bool", dl),
+				  (fn () => (EVar "false", dl)))
 
-val _ = Main.registerDefault ("User",
-			      (TBase "your_user", dl),
-			      (fn () => (EString (Domain.getUser ()), dl)))
+val _ = Defaults.registerDefault ("User",
+				  (TBase "your_user", dl),
+				  (fn () => (EString (Domain.getUser ()), dl)))
 
-val _ = Main.registerDefault ("Group",
-			      (TBase "your_group", dl),
-			      (fn () => (EString (Domain.getUser ()), dl)))
+val _ = Defaults.registerDefault ("Group",
+				  (TBase "your_group", dl),
+				  (fn () => (EString (Domain.getUser ()), dl)))
 
-val _ = Main.registerDefault ("DocumentRoot",
-			      (TBase "your_path", dl),
-			      (fn () => (EString ("/home/" ^ Domain.getUser () ^ "/public_html"), dl)))
+val _ = Defaults.registerDefault ("DocumentRoot",
+				  (TBase "your_path", dl),
+				  (fn () => (EString (Config.homeBase ^ "/" ^ Domain.getUser () ^ "/public_html"), dl)))
 
-val _ = Main.registerDefault ("ServerAdmin",
-			      (TBase "email", dl),
-			      (fn () => (EString (Domain.getUser () ^ "@" ^ Config.defaultDomain), dl)))
+val _ = Defaults.registerDefault ("ServerAdmin",
+				  (TBase "email", dl),
+				  (fn () => (EString (Domain.getUser () ^ "@" ^ Config.defaultDomain), dl)))
 
 
 val redirect_code = fn (EVar "temp", _) => SOME "temp"