val _ = Defaults.registerDefault ("Group",
(TBase "your_group", dl),
- (fn () => (EString (Domain.getUser ()), dl)))
+ (fn () => (EString "nogroup", dl)))
val _ = Defaults.registerDefault ("DocumentRoot",
(TBase "your_path", dl),
write cert)
| NONE => ();
write "\n";
- !pre {user = user, nodes = nodes, id = vhostId, hostname = fullHost}
+ !pre {user = user, nodes = nodes, id = vhostId, hostname = fullHost};
+ app (fn dom => !aliaser (host ^ "." ^ dom)) (Domain.currentAliasDomains ())
end,
fn () => (!post ();
write "</VirtualHost>\n";