exception Access of string
exception NeedTos
-val urlPrefix = "http://users.hcoop.net/portal/"
-val boardEmail = "board.fake@hcoop.net"
+val urlPrefix = "https://members.hcoop.net/portal/"
+val emailSuffix = "@new.hcoop.net"
+val boardEmail = "board" ^ emailSuffix
-fun conn () = C.conn "dbname='hcoop'"
+fun conn () = C.conn "dbname='hcoop_hcoop'"
val close = C.close
type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
ignore (C.dml db ($`INSERT INTO MemberApp (id, name, rname, gname, email, forward, uses, other,
passwd, status, applied, confirmed, decided, msg)
VALUES (^(C.intToSql aid), ^(C.stringToSql name), ^(C.stringToSql rname),
- NULL, '^name@hcoop.net', FALSE, 'GRANDFATHERED', 'GRANDFATHERED',
+ NULL, '^name^(emailSuffix)', FALSE, 'GRANDFATHERED', 'GRANDFATHERED',
'GRANDFATHERED', 4, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP,
CURRENT_TIMESTAMP, 'GRANDFATHERED')`));
ignore (C.dml db ($`UPDATE WebUser SET app = ^(C.intToSql aid) WHERE id = ^(C.intToSql id)`))
in
C.app db mkApp "SELECT id, name, rname FROM WebUser WHERE app IS NULL"
end
-end
\ No newline at end of file
+end