join: Remove old filesystem initial password storage cruft

[hcoop/portal.git] / app.sml

diff --git a/app.sml b/app.sml
index aa9fb15..e0c3b0b 100644 (file)
--- a/app.sml
+++ b/app.sml
@@ -126,12 +126,8 @@ fun preAdd app =
                                    WHERE id = ^(C.intToSql app)`)
 
        val app = lookupApp app
-
-       val outf = TextIO.openOut (Config.passwordFiles ^ #name app)
     in
-       TextIO.output (outf, #unix_passwd app);
-       TextIO.output1 (outf, #"\n");
-       TextIO.closeOut outf
+       ()
     end
 
 fun add app =
@@ -140,8 +136,7 @@ fun add app =
     in
        ignore (C.dml (getDb ()) ($`UPDATE MemberApp
                                    SET status = 4
-                                   WHERE id = ^(C.intToSql app)`));
-       OS.FileSys.remove (Config.passwordFiles ^ #name appR)
+                                   WHERE id = ^(C.intToSql app)`))
     end
 
 fun welcome app =