11 lines
318 B
Clojure
11 lines
318 B
Clojure
(ns beherbergung.auth.admin
|
|
(:require [beherbergung.config.state :refer [env]]))
|
|
|
|
(defn admin?
|
|
"For now, we require only one administrator login.
|
|
It can be configured by the environmment variable ADMIN_PASSPHRASE
|
|
"
|
|
[passphrase]
|
|
(and (:admin-passphrase env)
|
|
(= passphrase (:admin-passphrase env))))
|