X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sessions.lisp;h=727ad4bfabaceb57512a9af446d0e8c90c5893fa;hb=1fa7614ba895d7a1bccd310cf9d8e8e1e2472d14;hp=3de32938fef02f3bf487d463fc5ce00ab7065f99;hpb=628dda3f26ad183880fea5871c37b9cfa33b425a;p=wol.git

diff --git a/sessions.lisp b/sessions.lisp
index 3de3293..727ad4b 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$
 ;;;;
 ;;;; 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))))