;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: sessions.lisp,v 1.5 2003/08/09 21:42:24 kevin Exp $
+;;;; $Id: sessions.lisp,v 1.6 2003/08/23 22:30:30 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
:key key
:lastref (get-universal-time)
:lifetime (lifetime (session-master (entity-project ent)))
- :method nil))
+ :method :try-cookie))
(hash (sessions (session-master (entity-project ent)))))
(when hash
(setf (gethash key hash) sess)
(cookie-session-id
(setf (websession-method session) :cookies))
(url-session-id
- (case (websession-method session)
- (nil
- (setf (websession-method session) :try-cookie))
- (:try-cookie
- (setf (websession-method session) :try-cookie-2))
- (t
- (setf (websession-method session) :url)))))
+ (setf (websession-method session) :url)))
(setf (websession-from-req req) session))))