3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-16 13:35:20 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix email registration whitelist handling.

Browse source
This commit is contained in:
Andrey Antukh 2021-04-26 11:19:50 +02:00
parent 432d24dc94
commit 8ecc0b3cd9
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
backend/src/app/rpc/mutations/profile.clj
View file

@ -134,11 +134,11 @@
"Returns true if email's domain is in the given whitelist or if given "Returns true if email's domain is in the given whitelist or if given
whitelist is an empty string." whitelist is an empty string."
[whitelist email] [whitelist email]
(if (str/blank? whitelist) (if (str/empty-or-nil? whitelist)
true true
(let [domains (str/split whitelist #",\s*") (let [domains (str/split whitelist #",\s*")
email-domain (second (str/split email #"@"))] domain (second (str/split email #"@" 2))]
(contains? (set domains) email-domain)))) (contains? (set domains) domain))))
(def ^:private sql:profile-existence (def ^:private sql:profile-existence
"select exists (select * from profile "select exists (select * from profile

1
frontend/shadow-cljs.edn
View file

@ -2,6 +2,7 @@
:http {:port 3448} :http {:port 3448}
:nrepl {:port 3447} :nrepl {:port 3447}
:jvm-opts ["-Xmx700m" "-Xms100m" "-XX:+UseSerialGC"] :jvm-opts ["-Xmx700m" "-Xms100m" "-XX:+UseSerialGC"]
:dev-http {8888 "classpath:public"}
:builds :builds
{:main {:main