val _ = Defaults.registerDefault ("DocumentRoot",
(TBase "your_path", dl),
- (fn () => (EString (Config.homeBase ^ "/" ^ Domain.getUser () ^ "/" ^ Config.Apache.public_html), dl)))
+ (fn () => (EString (Domain.homedir () ^ "/" ^ Config.Apache.public_html), dl)))
val _ = Defaults.registerDefault ("ServerAdmin",
(TBase "email", dl),
let
fun realLogDir user =
let
- val realLogDir = OS.Path.joinDirFile
- {dir = Config.homeBase,
- file = valOf user}
+ val realLogDir = Domain.homedirOf (valOf user)
val realLogDir = OS.Path.joinDirFile
{dir = realLogDir,
file = "apache"}
| NONE => "80");
TextIO.output (file, ">\n");
TextIO.output (file, "\tErrorLog ");
- TextIO.output (file, Config.homeBase);
- TextIO.output (file, "/");
- TextIO.output (file, user);
+ TextIO.output (file, Domain.homedirOf user);
TextIO.output (file, "/apache/log/");
TextIO.output (file, node);
TextIO.output (file, "/");
TextIO.output (file, vhostId);
TextIO.output (file, "/error.log\n\tCustomLog ");
- TextIO.output (file, Config.homeBase);
- TextIO.output (file, "/");
- TextIO.output (file, user);
+ TextIO.output (file, Domain.homedirOf user);
TextIO.output (file, "/apache/log/");
TextIO.output (file, node);
TextIO.output (file, "/");
TextIO.output (file, vhostId);
TextIO.output (file, "/access.log combined\n");
- (Config.homeBase ^ "/" ^ user ^ "/apache/log/"
+ (Domain.homedirOf user ^ "/apache/log/"
^ node ^ "/" ^ vhostId, file)
end)
nodes;