metabase.api.common.validation

toc
(ns metabase.api.common.validation
  (:require
   [clojure.string :as str]
   [metabase.api.common :as api]
   [metabase.config :as config]
   [metabase.embed.settings :as embed.settings]
   [metabase.models.setting :as setting]
   [metabase.plugins.classloader :as classloader]
   [metabase.premium-features.core :as premium-features]
   [metabase.util.i18n :refer [tru]]))

TODO: figure out what other functions to move here from metabase.api.common

Check that the public-sharing-enabled Setting is true, or throw a 400.

TODO -- move this into the public-sharing module

(defn check-public-sharing-enabled
  []
  (api/check (setting/get :enable-public-sharing)
             [400 (tru "Public sharing is not enabled.")]))

Is embedding of Cards or Objects (secured access via /api/embed endpoints with a signed JWT enabled?

(defn check-embedding-enabled
  []
  (api/check (embed.settings/enable-embedding-static)
             [400 (tru "Embedding is not enabled.")]))

If advanced-permissions is enabled, check *current-user* has application permission of type perm-type. Set require-superuser? to true to perform a superuser check when advanced-permissions is disabled.

(defn check-has-application-permission
  ([perm-type]
   (check-has-application-permission perm-type true))
  ([perm-type require-superuser?]
   (if-let [f (and (premium-features/enable-advanced-permissions?)
                   (resolve 'metabase-enterprise.advanced-permissions.common/current-user-has-application-permissions?))]
     (api/check-403 (f perm-type))
     (when require-superuser?
       (api/check-superuser)))))

Check if advanced permissions is enabled to use permission types such as :group-manager or :application-permissions.

(defn check-advanced-permissions-enabled
  [perm-type]
  (api/check (premium-features/enable-advanced-permissions?)
             [402 (tru "The {0} permissions functionality is only enabled if you have a premium token with the advanced-permissions feature."
                       (str/replace (name perm-type) "-" " "))]))

If advanced-permissions is enabled, check is *current-user* a manager of at least one group. Set require-superuser? to false to disable superuser checks if advanced-permissions is not enabled.

(defn check-group-manager
  ([]
   (check-group-manager true))
  ([require-superuser?]
   (if (premium-features/enable-advanced-permissions?)
     (api/check-403 (or api/*is-superuser?* api/*is-group-manager?*))
     (when require-superuser?
       (api/check-superuser)))))

If advanced-permissions is enabled, check is *current-user* is manager of group-or-id. Set require-superuser? to false to disable superuser checks if advanced-permissions is not enabled.

(defn check-manager-of-group
  ([group-or-id]
   (check-manager-of-group group-or-id true))
  ([group-or-id require-superuser?]
   (when config/ee-available?
     (classloader/require 'metabase-enterprise.advanced-permissions.common))
   (if-let [f (and (premium-features/enable-advanced-permissions?)
                   (resolve 'metabase-enterprise.advanced-permissions.common/current-user-is-manager-of-group?))]
     (api/check-403 (or api/*is-superuser?* (f group-or-id)))
     (when require-superuser?
       (api/check-superuser)))))
 
Generated by Marginalia.  Syntax highlighting provided by Alex Gorbatchev's SyntaxHighlighter