3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-26 15:47:19 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add email blacklist mechanism

Browse source
This commit is contained in:
Andrey Antukh 2024-06-03 13:57:33 +02:00
parent d679001955
commit 5aa62ef1dd
10 changed files with 150 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

18
backend/src/app/auth.clj
View file

@ -6,9 +6,7 @@
(ns app.auth
(:require
[app.config :as cf]
[buddy.hashers :as hashers]
[cuerdas.core :as str]))
[buddy.hashers :as hashers]))
(def default-params
{:alg :argon2id
@ -27,17 +25,3 @@
(catch Throwable _
{:update false
:valid false})))
(defn email-domain-in-whitelist?
"Returns true if email's domain is in the given whitelist or if
given whitelist is an empty string."
([email]
(let [domains (cf/get :registration-domain-whitelist)]
(email-domain-in-whitelist? domains email)))
([domains email]
(if (or (nil? domains) (empty? domains))
true
(let [[_ candidate] (-> (str/lower email)
(str/split #"@" 2))]
(contains? domains candidate)))))