[hunchentoot-devel] Session Time Out - HELP!

[Phil Marneweck]

Ok thanx put some log entries in there and will report back.

On Fri, 2010-05-21 at 18:40 +0200, Hans Hübner wrote:

> On Fri, May 21, 2010 at 18:15, Phil Marneweck <zaries at global.co.za> 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
> tbnl-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/tbnl-devel


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/tbnl-devel/attachments/20100521/1db8b87a/attachment.html>