else
();
if isWaklog node then
- (TextIO.output (file, "\n\tWaklogProtected on\n\tWaklogPrincipal ");
+ (TextIO.output (file, "\n\tWaklogEnabled on\n\tWaklogLocationPrincipal ");
TextIO.output (file, user);
TextIO.output (file, "/daemon@HCOOP.NET /etc/keytabs/user.daemon/");
TextIO.output (file, user))
write name;
write "\n"))
+val () = Env.action_two "setEnv"
+ ("key", Env.string, "value", Env.string)
+ (fn (key, value) => (write "\tSetEnv \"";
+ write key;
+ write "\" \"";
+ write value;
+ write "\"\n"))
+
val () = Domain.registerResetLocal (fn () =>
ignore (OS.Process.system (Config.rm ^ " -rf /var/domtool/vhosts/*")))