Do you have the wrap-flash middleware in place?
Sean Corfield -- (970) FOR-SEAN -- (904) 302-SEAN
An Architect's View -- http://corfield.org/
"If you're not annoying somebody, you're not really alive."
-- Margaret Atwood
From: Luis Medina
Sent: Wednesday, September 13, 2017 6:49 PM
To: Clojure
Subject: Ring, redirect with flash
Hello to everybody!
I'm pretty new in clojure, i trying to figure out how to redirect to another
page with a flash value with a error message, could be something easy but i
don't understood how to make that. Session it's relatibely fine, but flash it's
empty every time. It's really dificult to find good and updated examples and
answers.
(ns my-app.routes.auth
(:require [my-app.layout :as layout]
[my-app.db.core :as db]
[my-app.db.user :as dbuser]
[compojure.core :refer [defroutes GET POST]]
[ring.util.response :refer [response redirect]]
[clojure.java.io :as io]
[buddy.auth :refer [authenticated?]]))
(defn login-page
[request]
(layout/render "login.html" (println (:flash request))))
(defn login-authenticate
[request]
(let [username (get-in request [:form-params "username"])
password (get-in request [:form-params "password"])
session (:session request)]
(if (dbuser/check-password username password)
(let [updated-session (assoc session
:identity (:id (db/get-user-id {:username
username})))]
(-> (redirect "/")
(assoc :session updated-session))))
(assoc (redirect "/") :flash "errro")))
(defn logout-authenticate
[{session :session}]
(-> (redirect "/login")
(assoc :session (dissoc session :identity))))
(defroutes routes
(GET "/login" [] login-page)
(POST "/login" [] login-authenticate)
(GET "/logout" [] logout-authenticate))
As you can see i have a println in login-page just for see in the console
output if :flash have something...
Thanks for taking the time to read.
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
