Skip to content

Commit

Permalink
Drop some debug printing that was left in with the diagnostic stuff :(
Browse files Browse the repository at this point in the history
  • Loading branch information
amalloy committed Aug 1, 2011
1 parent 97832ee commit 25b77fd
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/foreclojure/login.clj
Expand Up @@ -127,12 +127,12 @@
(if-let [{id :_id, name :user} (fetch-one :users (if-let [{id :_id, name :user} (fetch-one :users
:where {:email email} :where {:email email}
:only [:_id :user])] :only [:_id :user])]
(let [{:keys [success] :as diagnostics} (? (try-to-email email name id))] (let [{:keys [success] :as diagnostics} (try-to-email email name id)]
(if success (if success
(do (session/session-put! :login-to "/login/update") (do (session/session-put! :login-to "/login/update")
(flash-msg "Your password has been reset! You should receive an email soon." (flash-msg "Your password has been reset! You should receive an email soon."
(login-url "/login/update"))) (login-url "/login/update")))
(do (spit (? (str name ".pwd")) (? diagnostics)) (do (spit (str name ".pwd") diagnostics)
(flash-error (str "Something went wrong emailing your new password! Please contact <a href='mailto:team@4clojure.com?subject=Password Reset: " name "'>team@4clojure.com</a> - we'll reset it manually and look into the problem. When you do, please mention your username.") (flash-error (str "Something went wrong emailing your new password! Please contact <a href='mailto:team@4clojure.com?subject=Password Reset: " name "'>team@4clojure.com</a> - we'll reset it manually and look into the problem. When you do, please mention your username.")
"/login/reset")))) "/login/reset"))))
(flash-error "We don't know anyone with that email address!" (flash-error "We don't know anyone with that email address!"
Expand Down

0 comments on commit 25b77fd

Please sign in to comment.