projects
/
wol.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5b681c4
)
r5549: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 23 Aug 2003 22:30:30 +0000
(22:30 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 23 Aug 2003 22:30:30 +0000
(22:30 +0000)
sessions.lisp
patch
|
blob
|
history
diff --git
a/sessions.lisp
b/sessions.lisp
index 3de32938fef02f3bf487d463fc5ce00ab7065f99..9b7d2913fde81be0bc77e3c5892b45774d0e5266 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: 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
;;;; *************************************************************************
;;;;
;;;; 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))))