| (ns metabase-enterprise.advanced-permissions.api.application (:require [compojure.core :refer [GET PUT]] [metabase-enterprise.advanced-permissions.models.permissions.application-permissions :as a-perms] [metabase.api.common :as api] [metabase.models.application-permissions-revision :as a-perm-revision] [metabase.util.malli.schema :as ms])) |
(set! *warn-on-reflection* true) | |
/graph | (api/defendpoint GET "Fetch a graph of Application Permissions." [] (api/check-superuser) (a-perms/graph)) |
(defn- dejsonify-application-permissions
[application-permissions]
(into {} (for [[perm-type perm-value] application-permissions]
[perm-type (keyword perm-value)]))) | |
(defn- dejsonify-groups
[groups]
(into {} (for [[group-id application-permissions] groups]
[(Integer/parseInt (name group-id))
(dejsonify-application-permissions application-permissions)]))) | |
Fix the types in the graph when it comes in from the API, e.g. converting things like | (defn- dejsonify-graph [graph] (update graph :groups dejsonify-groups)) |
/graph | (api/defendpoint PUT
"Do a batch update of Application Permissions by passing a modified graph."
[:as {body :body
{skip-graph :skip-graph
force :force} :params}]
{body :map
skip-graph [:maybe ms/BooleanValue]
force [:maybe ms/BooleanValue]}
(api/check-superuser)
(-> body
dejsonify-graph
(a-perms/update-graph! force))
(if skip-graph
{:revision (a-perm-revision/latest-id)}
(a-perms/graph))) |
(api/define-routes) | |