Write password file

diff --git a/app/app.sml b/app/app.sml
index 96d9f47..7345bbf 100644 (file)
--- a/app/app.sml
+++ b/app/app.sml
@@ -144,7 +144,14 @@ fun apply {name, rname, gname, email, forward, uses, other, paypal, checkout} =
                                        mwrite passwd;
                                        mwrite ("\n")),
                             id) then
-                   SOME unix_passwd
+                   let
+                       val outf = TextIO.openOut (OS.Path.joinDirFile {dir = "/var/lib/portal",
+                                                                        file = name})
+                   in
+                       TextIO.output (outf, unix_passwd);
+                       TextIO.closeOut outf;
+                       SOME unix_passwd
+                   end
                else
                    NONE
            end