projects
/
wol.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r7061: initial property settings
[wol.git]
/
sessions.lisp
diff --git
a/sessions.lisp
b/sessions.lisp
index 3de32938fef02f3bf487d463fc5ce00ab7065f99..727ad4bfabaceb57512a9af446d0e8c90c5893fa 100644
(file)
--- a/
sessions.lisp
+++ b/
sessions.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id
: sessions.lisp,v 1.5 2003/08/09 21:42:24 kevin Exp
$
+;;;; $Id$
;;;;
;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;;
;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
@@
-37,7
+37,7
@@
:key key
:lastref (get-universal-time)
:lifetime (lifetime (session-master (entity-project ent)))
: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)
(hash (sessions (session-master (entity-project ent)))))
(when hash
(setf (gethash key hash) sess)
@@
-58,13
+58,7
@@
(cookie-session-id
(setf (websession-method session) :cookies))
(url-session-id
(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))))
(setf (websession-from-req req) session))))