<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.28.3">
</HEAD>
<BODY>
Ok thanx put some log entries in there and will report back.<BR>
<BR>
On Fri, 2010-05-21 at 18:40 +0200, Hans Hübner wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
On Fri, May 21, 2010 at 18:15, Phil Marneweck <<A HREF="mailto:zaries@global.co.za">zaries@global.co.za</A>> wrote:
> Just to put me on the right tract, why would hunchentoot kill ALL sessions
> in GC and not just he ones that might have expired because that is what is
> happening here?
(defun session-gc ()
"Removes sessions from the current session database which are too
old - see SESSION-TOO-OLD-P."
(with-session-lock-held ((session-db-lock *acceptor*))
(setf (session-db *acceptor*)
(loop for id-session-pair in (session-db *acceptor*)
for (nil . session) = id-session-pair
when (session-too-old-p session)
do (funcall *session-removal-hook* session)
else
collect id-session-pair)))
(values))
i.e. you need to read the source.
-Hans
_______________________________________________
tbnl-devel site list
<A HREF="mailto:tbnl-devel@common-lisp.net">tbnl-devel@common-lisp.net</A>
<A HREF="http://common-lisp.net/mailman/listinfo/tbnl-devel">http://common-lisp.net/mailman/listinfo/tbnl-devel</A>
</PRE>
</BLOCKQUOTE>
<BR>
</BODY>
</HTML>