[bknr-cvs] ksprotte changed trunk/projects/bos/web/startup.lisp

[BKNR Commits]

Revision: 3768
Author: ksprotte
URL: http://bknr.net/trac/changeset/3768

we need hunchentoot:*use-user-agent-for-sessions* nil
(see comment in source)

U   trunk/projects/bos/web/startup.lisp

Modified: trunk/projects/bos/web/startup.lisp
===================================================================
--- trunk/projects/bos/web/startup.lisp	2008-09-02 09:14:28 UTC (rev 3767)
+++ trunk/projects/bos/web/startup.lisp	2008-09-02 10:22:51 UTC (rev 3768)
@@ -44,7 +44,10 @@
   (when *webserver*
     (hunchentoot:stop-server *webserver*))
   (setf hunchentoot:*hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf)
-        hunchentoot:*rewrite-for-session-urls* nil)
+        hunchentoot:*rewrite-for-session-urls* nil
+        ;; the reason for the following setting is that ptviewer sends
+        ;; a different User-Agent -- (when requesting PTDefault.html)
+        hunchentoot:*use-user-agent-for-sessions* nil)
   (setq *webserver* (hunchentoot:start-server :port *port* :threaded (not debug)
                                               :persistent-connections-p (not debug)))
   (if start-frontend