From 3e7b8a8b9445e38634734e5e964215547addadac Mon Sep 17 00:00:00 2001 From: flynn Date: Sat, 16 Feb 2019 00:49:06 +0100 Subject: [PATCH] make admin user depend on zeusid and username --- src/clj/cat/routes/oauth.clj | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/clj/cat/routes/oauth.clj b/src/clj/cat/routes/oauth.clj index 2b83472..671c62a 100644 --- a/src/clj/cat/routes/oauth.clj +++ b/src/clj/cat/routes/oauth.clj @@ -5,14 +5,15 @@ [cat.moauth :as mo] [cat.db.core :refer [*db*] :as db])) -(def admins #{10 ;flynn - }) +; This list contains application admins, they can add non-zeus people and can add relations +; More functionality is planned +(def admins [{:name "flynn" :zeusid 117}]) (defn set-user! [user session redirect-url] (log/info "Set user in session: " user) (let [new-session (-> session (assoc :user user) - (cond-> (contains? admins (:id user)) + (cond-> (some (partial = (select-keys user [:zeusid :name])) admins) (-> (assoc-in [:user :admin] {:enabled false}) (assoc :identity "foo"))))]