structure App :> APP =
struct
-val baseUrl = "https://join3.hcoop.net/join/"
+val baseUrl = "https://join.hcoop.net/join/"
val portalUrl = Config.urlPrefix
open Sql
(String.explode s)
fun validEmail s =
- (case String.fields (fn ch => ch = #"@") s of
- [user, host] => validEmailUser user andalso validDomain host
- | _ => false)
+ case String.fields (fn ch => ch = #"@") s of
+ [user, host] => validEmailUser user andalso validDomain host andalso not (List.exists (fn x => x = host) Config.joinBannedEmailDomains)
+ | _ => false
fun userExists name =
case C.oneOrNoRows (getDb ()) ($`SELECT id FROM WebUser WHERE name = ^(C.stringToSql name)`) of