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 =
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 =
val boardEmail : string
val dbstring : string
val kerberosSuffix : string
-val passwordFiles : string
val passgenDbstring : string
val statsRoot : string
val staticFilesRoot : string
val kerberosSuffix = "@HCOOP.NET"
-val passwordFiles = "/var/lib/portal/"
-
val passgenDbstring = "dbname='hcoop_passgen' user='hcoop' host='postgres' port=5433"
val statsRoot = "/afs/hcoop.net/user/h/hc/hcoop/portal-tools/etc/stats/"