Hunchentoot sessions
Posted: Sun Sep 25, 2011 2:31 am
Hello, I have'nt problems with hunchentoot's session mechanism on this code:
BUT if I'll adding this line:
then cookies are unused. So get-parameters used instead
Code: Select all
(let ((s (hunchentoot:start-session))
(cookie (hunchentoot:cookie-out "hunchentoot-session")))
(setf (hunchentoot:session-max-time s) 172800)
(setf (hunchentoot:session-value 'user s) user)
(setf (hunchentoot:session-value 'pass s) pass)
Code: Select all
(let ((s (hunchentoot:start-session))
(cookie (hunchentoot:cookie-out "hunchentoot-session")))
(setf (hunchentoot:session-max-time s) 172800)
(setf (hunchentoot:session-value 'user s) user)
(setf (hunchentoot:session-value 'pass s) pass)
(format cl-user::*std-out* "cookie: ~a" cookie)
(when cookie
(setf (hunchentoot:cookie-expires
(hunchentoot:cookie-out "hunchentoot-session"))
172800)