forward : bool, uses : string, other : string,
passwd : string, status : status, applied : C.timestamp, ipaddr : string option,
confirmed : C.timestamp option, decided : C.timestamp option,
- msg : string}
+ msg : string, unix_passwd : string}
fun mkAppRow [id, name, rname, gname, email, forward, uses, other, passwd, status,
- applied, ipaddr, confirmed, decided, msg] =
+ applied, ipaddr, confirmed, decided, msg, unix_passwd] =
{ id = C.intFromSql id, name = C.stringFromSql name, rname = C.stringFromSql rname,
gname = (if C.isNull gname then NONE else SOME (C.stringFromSql gname)),
email = C.stringFromSql email, forward = C.boolFromSql forward,
ipaddr = (if C.isNull ipaddr then NONE else SOME (C.stringFromSql ipaddr)),
confirmed = if C.isNull confirmed then NONE else SOME (C.timestampFromSql confirmed),
decided = if C.isNull decided then NONE else SOME (C.timestampFromSql decided),
- msg = C.stringFromSql msg}
+ msg = C.stringFromSql msg, unix_passwd = C.stringFromSql unix_passwd}
| mkAppRow r = rowError ("app", r)
fun lookupApp id =
- case C.oneOrNoRows (getDb ()) ($`SELECT id, name, rname, gname, email, forward, uses, other, passwd, status, applied, ipaddr, confirmed, decided, msg
+ case C.oneOrNoRows (getDb ()) ($`SELECT id, name, rname, gname, email, forward, uses, other, passwd, status, applied, ipaddr, confirmed, decided,
+ msg, unix_passwd
FROM MemberApp
WHERE id = ^(C.intToSql id)`) of
SOME row => mkAppRow row
| NONE => raise Fail "Membership application not found"
fun listApps status =
- C.map (getDb ()) mkAppRow ($`SELECT id, name, rname, gname, email, forward, uses, other, passwd, status, applied, ipaddr, confirmed, decided, msg
+ C.map (getDb ()) mkAppRow ($`SELECT id, name, rname, gname, email, forward, uses, other, passwd, status, applied, ipaddr, confirmed, decided,
+ msg, unix_passwd
FROM MemberApp
WHERE status = ^(statusToSql status)
+ AND NOT (status = 2 AND decided < CURRENT_TIMESTAMP - INTERVAL '1 MONTH')
ORDER BY applied`)
fun mkVoteRow [id, name] = (C.intFromSql id, C.stringFromSql name)
val mail = Mail.mopen ()
in
- Mail.mwrite (mail, "From: Hcoop Application System <join");
- Mail.mwrite (mail, emailSuffix);
- Mail.mwrite (mail, ">\nTo: ");
+ Mail.mwrite (mail, "To: ");
Mail.mwrite (mail, #email entry);
- Mail.mwrite (mail, "\nCc: ");
- Mail.mwrite (mail, boardEmail);
- Mail.mwrite (mail, "\nSubject: Application approved\n\nYour application for membership has been approved! Welcome to hcoop!\n\n");
+ Mail.mwrite (mail, "\n");
+ Mail.mwrite (mail, Util.readFile "/home/hcoop/portal/welcome.txt");
Mail.mwrite (mail, msg);
OS.Process.isSuccess (Mail.mclose mail)
end
fun add app =
- ignore (C.dml (getDb ()) ($`UPDATE MemberApp
- SET status = 3
- WHERE id = ^(C.intToSql app)`))
+ let
+ val _ = C.dml (getDb ()) ($`UPDATE MemberApp
+ SET status = 3
+ 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.closeOut outf
+ end
+
+fun welcome app =
+ let
+ val app = lookupApp app
+
+ val mail = Mail.mopen ()
+ in
+ Mail.mwrite (mail, "To: ");
+ Mail.mwrite (mail, #email app);
+ Mail.mwrite (mail, "\n");
+ Mail.mwrite (mail, Util.readFile "/home/hcoop/portal/paid.txt");
+ ignore (Mail.mclose mail)
+ end
fun abortAdd app =
ignore (C.dml (getDb ()) ($`UPDATE MemberApp