mirror of
https://github.com/penpot/penpot.git
synced 2026-05-07 17:18:35 +00:00
56 lines
1.8 KiB
Clojure
56 lines
1.8 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.email.blacklist
|
|
"Email blacklist provider"
|
|
(:refer-clojure :exclude [contains?])
|
|
(:require
|
|
[app.common.logging :as l]
|
|
[app.config :as cf]
|
|
[app.email :as-alias email]
|
|
[clojure.core :as c]
|
|
[clojure.java.io :as io]
|
|
[cuerdas.core :as str]
|
|
[integrant.core :as ig]))
|
|
|
|
(defmethod ig/init-key ::email/blacklist
|
|
[_ _]
|
|
(when (c/contains? cf/flags :email-blacklist)
|
|
(try
|
|
(let [path (cf/get :email-domain-blacklist)
|
|
result (with-open [reader (io/reader path)]
|
|
(reduce (fn [result line]
|
|
(if (str/starts-with? line "#")
|
|
result
|
|
(conj result (-> line str/trim str/lower))))
|
|
#{}
|
|
(line-seq reader)))]
|
|
(l/inf :hint "initializing email blacklist" :domains (count result))
|
|
(not-empty result))
|
|
|
|
(catch Throwable cause
|
|
(l/wrn :hint "unexpected exception on initializing email blacklist"
|
|
:cause cause)))))
|
|
|
|
(defn contains?
|
|
"Check if email is in the blacklist. Also matches subdomains: if
|
|
'somedomain.com' is blacklisted, 'xxx@foo.somedomain.com' will also
|
|
be rejected."
|
|
[{:keys [::email/blacklist]} email]
|
|
(let [[_ domain] (str/split email "@" 2)
|
|
parts (str/split (str/lower domain) #"\.")]
|
|
(loop [parts parts]
|
|
(if (empty? parts)
|
|
false
|
|
(if (c/contains? blacklist (str/join "." parts))
|
|
true
|
|
(recur (rest parts)))))))
|
|
|
|
(defn enabled?
|
|
"Check if the blacklist is enabled"
|
|
[{:keys [::email/blacklist]}]
|
|
(some? blacklist))
|