X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/0c3785870c3ad0ec9e42d6704939b98e707df64a..563e77927eb5faaae4571bd2b0811de590368581:/src/plugins/apache.sml

diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index d97ac8b..0b0b11d 100644
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -1082,4 +1082,24 @@ val () = Domain.registerDescriber (Domain.considerAll
 val () = Env.action_none "testNoHtaccess"
 	 (fn path => write "\tAllowOverride None\n")
 
+fun writeWaklogUserFile () =
+    let
+	val users = Acl.users ()
+	val outf = TextIO.openOut Config.Apache.waklogUserFile
+    in
+	app (fn user => if String.isSuffix "_admin" user then
+			    ()
+			else
+			    (TextIO.output (outf, "<Location /~");
+			     TextIO.output (outf, user);
+			     TextIO.output (outf, ">\n\tWaklogEnabled on\n\tWaklogLocationPrincipal ");
+			     TextIO.output (outf, user);
+			     TextIO.output (outf, "/daemon@HCOOP.NET /etc/keytabs/user.daemon/");
+			     TextIO.output (outf, user);
+			     TextIO.output (outf, "\n</Location>\n\n"))) users;
+	TextIO.closeOut outf
+    end
+
+val () = Domain.registerOnUsersChange writeWaklogUserFile
+
 end