metabase.cmd.reset-password

toc

(ns metabase.cmd.reset-password
  (:require
   [metabase.db :as mdb]
   [metabase.models.user :as user]
   [metabase.util :as u]
   [metabase.util.i18n :refer [deferred-trs trs]]
   [toucan2.core :as t2]))

(set! *warn-on-reflection* true)

Set and return a new reset_token for the user with EMAIL-ADDRESS.

(defn- set-reset-token!
  [email-address]
  (let [user-id (or (t2/select-one-pk :model/User, :%lower.email (u/lower-case-en email-address))
                    (throw (Exception. (str (deferred-trs "No user found with email address ''{0}''. " email-address)
                                            (deferred-trs "Please check the spelling and try again.")))))]
    (user/set-password-reset-token! user-id)))

Reset the password for EMAIL-ADDRESS, and return the reset token in a format that can be understood by the Mac App.

(defn reset-password!
  [email-address]
  (mdb/setup-db! :create-sample-content? false)
  (println (str (deferred-trs "Resetting password for {0}..." email-address)
                "\n"))
  (try
    (println (trs "OK [[[{0}]]]" (set-reset-token! email-address)))
    (System/exit 0)
    (catch Throwable e
      (println (trs "FAIL [[[{0}]]]" (.getMessage e)))
      (System/exit -1))))