From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 23 Aug 2003 22:30:30 +0000 (+0000)
Subject: r5549: *** empty log message ***
X-Git-Url: http://git.kpe.io/?p=wol.git;a=commitdiff_plain;h=7a32ea0dccd70ba9ac40122e929980726feb1357

r5549: *** empty log message ***
---

diff --git a/sessions.lisp b/sessions.lisp
index 3de3293..9b7d291 100644
--- a/sessions.lisp
+++ b/sessions.lisp
@@ -7,7 +7,7 @@
 ;;;; 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
 ;;;; *************************************************************************
@@ -37,7 +37,7 @@
 		 :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)
@@ -58,13 +58,7 @@
 	(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))))