X-Git-Url: http://git.kpe.io/?p=wol.git;a=blobdiff_plain;f=sessions.lisp;h=9b7d2913fde81be0bc77e3c5892b45774d0e5266;hp=3de32938fef02f3bf487d463fc5ce00ab7065f99;hb=7a32ea0dccd70ba9ac40122e929980726feb1357;hpb=5b681c40455d3619afb96a8335a94cd2a411e0c6

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))))