metabase.util.secret

toc
(ns metabase.util.secret
  (:require
   [metabase.util.i18n :refer [trs]])
  (:import (java.io Writer)))
(set! *warn-on-reflection* true)

Define a protocol for secrets to make things harder to accidentally expose.

(defprotocol ISecret
  (expose [this] "Expose the secret"))
(defrecord Secret [value-fn]
  ISecret
  (expose [_this] (value-fn))
  Object
  (toString [_this] (trs "<< REDACTED SECRET >>")))
(defmethod print-method Secret
  [^Secret secret ^Writer writer]
  (.write writer (.toString secret)))
(defmethod print-dup Secret
  [^Secret secret ^Writer w]
  (.write w (.toString secret)))

Create a Secret that can't be accidentally read without calling the expose method on it.

(defn secret
  [value]
  (->Secret (constantly value)))
 
Generated by Marginalia.  Syntax highlighting provided by Alex Gorbatchev's SyntaxHighlighter