HCoop
/
bpt
/
portal.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
60465e6
)
Remove UNIX password files when accounts are marked created
author
Adam Chlipala
<adamc@hcoop.net>
Tue, 29 Jul 2008 14:55:30 +0000
(14:55 +0000)
committer
Adam Chlipala
<adamc@hcoop.net>
Tue, 29 Jul 2008 14:55:30 +0000
(14:55 +0000)
app.sml
patch
|
blob
|
blame
|
history
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 =
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
fun welcome app =
let