|
|
@ -126,9 +126,6 @@ case the function will also send a session cookie to the browser."
|
|
|
|
:user-agent ,(hunchentoot:user-agent hunchentoot:*request*)
|
|
|
|
:user-agent ,(hunchentoot:user-agent hunchentoot:*request*)
|
|
|
|
:remote-addr ,(hunchentoot:real-remote-addr hunchentoot:*request*))
|
|
|
|
:remote-addr ,(hunchentoot:real-remote-addr hunchentoot:*request*))
|
|
|
|
args)))
|
|
|
|
args)))
|
|
|
|
;; (setf session (make-dao *session-type*
|
|
|
|
|
|
|
|
;; :user-agent (hunchentoot:user-agent hunchentoot:*request*)
|
|
|
|
|
|
|
|
;; :remote-addr (hunchentoot:real-remote-addr hunchentoot:*request*)))
|
|
|
|
|
|
|
|
(setf (hunchentoot:session hunchentoot:*request*) session)
|
|
|
|
(setf (hunchentoot:session hunchentoot:*request*) session)
|
|
|
|
(setf (pg-session-string session) (stringify-session session))
|
|
|
|
(setf (pg-session-string session) (stringify-session session))
|
|
|
|
(save-pg-session session)
|
|
|
|
(save-pg-session session)
|
|
|
|