(ns metabase.cmd.reset-password (:require [metabase.db :as mdb] [metabase.models.user :as user :refer [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 | (defn- set-reset-token!
[email-address]
(let [user-id (or (t2/select-one-pk 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)))) |