3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-12 06:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'main' into staging

Browse source
This commit is contained in:
Andrey Antukh 2021-04-26 11:23:55 +02:00
commit ce5429a531
3 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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