Remove UNIX password files when accounts are marked created

[bpt/portal.git] / app.sml

diff --git a/app.sml b/app.sml
index 40c4389..aa9fb15 100644 (file)
--- a/app.sml
+++ b/app.sml
@@ -135,9 +135,14 @@ fun preAdd app =
     end
 
 fun add app =
-    ignore (C.dml (getDb ()) ($`UPDATE MemberApp
-                               SET status = 4
-                               WHERE id = ^(C.intToSql app)`))
+    let
+       val appR = lookupApp app
+    in
+       ignore (C.dml (getDb ()) ($`UPDATE MemberApp
+                                   SET status = 4
+                                   WHERE id = ^(C.intToSql app)`));
+       OS.FileSys.remove (Config.passwordFiles ^ #name appR)
+    end
 
 fun welcome app =
     let