bknr-cvs July 2008

bknr-cvs@common-lisp.net

1 participants
321 discussions

[bknr-cvs] ksprotte changed trunk/projects/bos/web/poi-handlers.lisp
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3463 Author: ksprotte URL: http://bknr.net/trac/changeset/3463 just indentation, sorry U trunk/projects/bos/web/poi-handlers.lisp Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-07-16 13:19:28 UTC (rev 3462) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-07-16 13:20:44 UTC (rev 3463) @@ -383,7 +383,8 @@ (error "poi not found")) (defmethod handle-object ((handler poi-image-handler) poi) - (destructuring-bind (poi-name image-index-string &rest imageproc-arguments) (multiple-value-list (parse-handler-url handler)) + (destructuring-bind (poi-name image-index-string &rest imageproc-arguments) + (multiple-value-list (parse-handler-url handler)) (declare (ignore poi-name)) (let ((image-index (1- (parse-integer image-index-string)))) (if (and (not (minusp image-index))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/poi-handlers.lisp
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3462 Author: ksprotte URL: http://bknr.net/trac/changeset/3462 equipped poi-javascript-handler with last-modified U trunk/projects/bos/web/poi-handlers.lisp Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-07-16 12:49:49 UTC (rev 3461) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-07-16 13:19:28 UTC (rev 3462) @@ -359,16 +359,21 @@ (length (contract-m2s contract)))) (defmethod handle ((handler poi-javascript-handler)) - (with-http-response (:content-type "text/html; charset=UTF-8") - (setf (hunchentoot:header-out :cache-control) "no-cache") - (setf (hunchentoot:header-out :pragma) "no-cache") - (setf (hunchentoot:header-out :expires) "-1") - (with-http-body () - (html - ((:script :language "JavaScript") - (:princ (make-poi-javascript (or (hunchentoot:session-value :language) *default-language*))) - (:princ "parent.poi_fertig(pois, anzahlSponsoren, anzahlVerkauft);") - (:princ (format nil "parent.last_sponsors([~{~A~^,~%~}]);" (mapcar #'contract-js (last-paid-contracts))))))))) + (let* ((last-paid-contracts (last-paid-contracts)) + (timestamp (max (reduce #'max (class-instances 'poi) + :key (lambda (poi) (store-object-last-change poi 1))) + (reduce #'max last-paid-contracts + :key (lambda (contract) (store-object-last-change contract 0)))))) + (hunchentoot:handle-if-modified-since timestamp) + (setf (hunchentoot:header-out :last-modified) + (hunchentoot:rfc-1123-date timestamp)) + (with-http-response (:content-type "text/html; charset=UTF-8") + (with-http-body () + (html + ((:script :language "JavaScript") + (:princ (make-poi-javascript (or (hunchentoot:session-value :language) *default-language*))) + (:princ "parent.poi_fertig(pois, anzahlSponsoren, anzahlVerkauft);") + (:princ (format nil "parent.last_sponsors([~{~A~^,~%~}]);" (mapcar #'contract-js last-paid-contracts))))))))) (defclass poi-image-handler (object-handler) ()

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3461 Author: ksprotte URL: http://bknr.net/trac/changeset/3461 dont start contract-tree-image-update-daemon when testing U trunk/projects/bos/test/fixtures.lisp U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/test/fixtures.lisp =================================================================== --- trunk/projects/bos/test/fixtures.lisp 2008-07-16 12:28:41 UTC (rev 3460) +++ trunk/projects/bos/test/fixtures.lisp 2008-07-16 12:49:49 UTC (rev 3461) @@ -5,8 +5,9 @@ (when snapshot (format t "~&;; ++ taking snapshot~%") (snapshot)) - (bos.m2::reinit :directory (bknr.datastore::store-directory *store*) - :website-url bos.m2::*website-url*) + (let ((bos.web::*start-contract-tree-image-update-daemon* nil)) + (bos.m2::reinit :directory (bknr.datastore::store-directory *store*) + :website-url bos.m2::*website-url*)) (format t "~&;; ++ reopen-store done~%")) (defmacro reopen-store ((&key snapshot) &rest store-object-vars) @@ -50,7 +51,7 @@ (let ((store-path (parse-namestring (format nil "/tmp/test-store-~D.tmp/" (get-universal-time))))) (unwind-protect - (progn + (let ((bos.web::*start-contract-tree-image-update-daemon* nil)) (bos.m2::reinit :delete t :directory store-path :website-url bos.m2::*website-url*) Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-16 12:28:41 UTC (rev 3460) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-16 12:49:49 UTC (rev 3461) @@ -306,6 +306,7 @@ ;; contract-tree image update daemon (defvar *contract-tree-image-update-daemon* nil) (defvar *contract-tree-image-update-daemon-halt*) +(defvar *start-contract-tree-image-update-daemon* t) (defun contract-tree-image-update-daemon-loop () (loop (when *contract-tree-image-update-daemon-halt* (return)) @@ -322,10 +323,18 @@ (bt:make-thread #'contract-tree-image-update-daemon-loop :name "contract-tree-image-update-daemon"))) -(defun stop-contract-tree-image-update-daemon () +(defun stop-contract-tree-image-update-daemon (&key wait) (when (contract-tree-image-update-daemon-running-p) (setq *contract-tree-image-update-daemon-halt* t) - (warn "contract-tree-image-update-daemon will stop soon"))) + (warn "contract-tree-image-update-daemon will stop soon") + (when wait + (loop repeat 20 + do (progn (sleep 1) + (when (not (contract-tree-image-update-daemon-running-p)) + (return)))) + (if (contract-tree-image-update-daemon-running-p) + (error "Failed to stop contract-tree-image-update-daemon") + (warn "contract-tree-image-update-daemon stopped"))))) ;;; make-contract-tree-from-m2 (defun make-contract-tree-from-m2 () @@ -338,7 +347,8 @@ (when (contract-published-p contract) (insert-contract *contract-tree* contract))) (format t "~&rendering contract-tree images if needed...") (force-output) - (start-contract-tree-image-update-daemon) + (when *start-contract-tree-image-update-daemon* + (start-contract-tree-image-update-daemon)) (format t "done.~%") (force-output) (geometry:register-rect-subscriber geometry:*rect-publisher* *contract-tree* (list 0 0 +width+ +width+)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung.xml
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3460 Author: ksprotte URL: http://bknr.net/trac/changeset/3460 tsung.xml edited for shorter arrivalphases U trunk/projects/bos/test/tsung.xml Modified: trunk/projects/bos/test/tsung.xml =================================================================== --- trunk/projects/bos/test/tsung.xml 2008-07-16 12:18:57 UTC (rev 3459) +++ trunk/projects/bos/test/tsung.xml 2008-07-16 12:28:41 UTC (rev 3460) @@ -23,34 +23,13 @@ duration --> <load> - <arrivalphase phase="1" duration="7" unit="minute"> + <arrivalphase phase="1" duration="30" unit="second"> <users interarrival="2" unit="second" maxnumber="500"></users> </arrivalphase> - - - <arrivalphase phase="2" duration="5" unit="minute"> - <users interarrival="0.5" unit="second" maxnumber="500"></users> - </arrivalphase> - - - <arrivalphase phase="3" duration="2" unit="minute"> + + <arrivalphase phase="2" duration="2" unit="minute"> <users interarrival="0.1" unit="second" maxnumber="500"></users> </arrivalphase> - - - <arrivalphase phase="4" duration="10" unit="minute"> - <users interarrival="2" unit="second" maxnumber="500"></users> - </arrivalphase> - - - <arrivalphase phase="5" duration="5" unit="minute"> - <users interarrival="0.1" unit="second" maxnumber="500"></users> - </arrivalphase> - - - <arrivalphase phase="6" duration="10" unit="minute"> - <users interarrival="1" unit="second" maxnumber="500"></users> - </arrivalphase> </load> <options>

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3459 Author: ksprotte URL: http://bknr.net/trac/changeset/3459 fixed *contract-tree-image-update-daemon* not to use destroy-thread U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-16 12:06:28 UTC (rev 3458) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-16 12:18:57 UTC (rev 3459) @@ -305,9 +305,12 @@ ;; contract-tree image update daemon (defvar *contract-tree-image-update-daemon* nil) +(defvar *contract-tree-image-update-daemon-halt*) (defun contract-tree-image-update-daemon-loop () - (loop (contract-tree-update-images-if-needed) (sleep 10))) + (loop (when *contract-tree-image-update-daemon-halt* (return)) + (contract-tree-update-images-if-needed) + (sleep 10))) (defun contract-tree-image-update-daemon-running-p () (and *contract-tree-image-update-daemon* @@ -315,12 +318,14 @@ (defun start-contract-tree-image-update-daemon () (unless (contract-tree-image-update-daemon-running-p) - (bt:make-thread #'contract-tree-image-update-daemon-loop :name "contract-tree-image-update-daemon"))) + (setq *contract-tree-image-update-daemon-halt* nil) + (bt:make-thread #'contract-tree-image-update-daemon-loop + :name "contract-tree-image-update-daemon"))) (defun stop-contract-tree-image-update-daemon () - (when *contract-tree-image-update-daemon* - (bt:destroy-thread *contract-tree-image-update-daemon*) - (setq *contract-tree-image-update-daemon* nil))) + (when (contract-tree-image-update-daemon-running-p) + (setq *contract-tree-image-update-daemon-halt* t) + (warn "contract-tree-image-update-daemon will stop soon"))) ;;; make-contract-tree-from-m2 (defun make-contract-tree-from-m2 ()

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3458 Author: ksprotte URL: http://bknr.net/trac/changeset/3458 added contract-tree image update daemon U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-16 11:59:12 UTC (rev 3457) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-16 12:06:28 UTC (rev 3458) @@ -303,6 +303,25 @@ :date (blob-timestamp image) :max-age 600))))) +;; contract-tree image update daemon +(defvar *contract-tree-image-update-daemon* nil) + +(defun contract-tree-image-update-daemon-loop () + (loop (contract-tree-update-images-if-needed) (sleep 10))) + +(defun contract-tree-image-update-daemon-running-p () + (and *contract-tree-image-update-daemon* + (bt:thread-alive-p *contract-tree-image-update-daemon*))) + +(defun start-contract-tree-image-update-daemon () + (unless (contract-tree-image-update-daemon-running-p) + (bt:make-thread #'contract-tree-image-update-daemon-loop :name "contract-tree-image-update-daemon"))) + +(defun stop-contract-tree-image-update-daemon () + (when *contract-tree-image-update-daemon* + (bt:destroy-thread *contract-tree-image-update-daemon*) + (setq *contract-tree-image-update-daemon* nil))) + ;;; make-contract-tree-from-m2 (defun make-contract-tree-from-m2 () (setq *contract-tree* (make-instance 'contract-node @@ -314,7 +333,7 @@ (when (contract-published-p contract) (insert-contract *contract-tree* contract))) (format t "~&rendering contract-tree images if needed...") (force-output) - (contract-tree-update-images-if-needed) + (start-contract-tree-image-update-daemon) (format t "done.~%") (force-output) (geometry:register-rect-subscriber geometry:*rect-publisher* *contract-tree* (list 0 0 +width+ +width+)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3457 Author: ksprotte URL: http://bknr.net/trac/changeset/3457 contract-tree new function (contract-tree-update-images-if-needed) that now is very fast in the case that there are no updates to be done U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-16 10:20:49 UTC (rev 3456) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-16 11:59:12 UTC (rev 3457) @@ -268,12 +268,26 @@ (delete-file (blob-pathname old-store-image)) (delete-object old-store-image))))))) +(defun contract-node-update-image-needed-p (node) + (or (null (image node)) + (> (timestamp node) (blob-timestamp (image node))))) + (defun contract-node-update-image-if-needed (node) - (when (or (null (image node)) - (not (probe-file (blob-pathname (image node)))) - (> (timestamp node) (blob-timestamp (image node)))) + (when (contract-node-update-image-needed-p node) (contract-node-update-image node))) +(defun contract-tree-update-images-if-needed () + ;; I did not see an easy way to avoid that + ;; CONTRACT-NODE-UPDATE-IMAGE-NEEDED-P is called twice for every + ;; node. Once inside CONTRACT-NODE-UPDATE-IMAGE-IF-NEEDED and once + ;; for the prune-test. + + ;; Let's hope we are lucky and there is nothing to do by inspecting + ;; *contract-tree* at first only once. + (when (contract-node-update-image-needed-p *contract-tree*) + (map-nodes #'contract-node-update-image-if-needed *contract-tree* + :prune-test (lambda (node) (not (contract-node-update-image-needed-p node)))))) + ;;; image handler (defclass contract-tree-image-handler (page-handler) ()) @@ -300,7 +314,7 @@ (when (contract-published-p contract) (insert-contract *contract-tree* contract))) (format t "~&rendering contract-tree images if needed...") (force-output) - (map-nodes #'contract-node-update-image-if-needed *contract-tree*) + (contract-tree-update-images-if-needed) (format t "done.~%") (force-output) (geometry:register-rect-subscriber geometry:*rect-publisher* *contract-tree* (list 0 0 +width+ +width+)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung.xml
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3456 Author: ksprotte URL: http://bknr.net/trac/changeset/3456 tsung.xml removed a few non-existing paths U trunk/projects/bos/test/tsung.xml Modified: trunk/projects/bos/test/tsung.xml =================================================================== --- trunk/projects/bos/test/tsung.xml 2008-07-16 09:53:09 UTC (rev 3455) +++ trunk/projects/bos/test/tsung.xml 2008-07-16 10:20:49 UTC (rev 3456) @@ -837,8 +837,7 @@ <request><http url='/contract-tree-kml?path=1232&lang=de' version='1.1' method='GET'></http></request> <request><http url='/image-tree-kml/2982650' version='1.1' method='GET'></http></request> <request><http url='/image-tree-kml/2982778' version='1.1' method='GET'></http></request> - <request><http url='/image-tree-kml/2982768' version='1.1' method='GET'></http></request> - <request><http url='/contract-tree-kml?path=3012&lang=de' version='1.1' method='GET'></http></request> + <request><http url='/image-tree-kml/2982768' version='1.1' method='GET'></http></request> <request><http url='/image-tree-kml/2984042' version='1.1' method='GET'></http></request> <request><http url='/contract-tree-kml?path=3003&lang=de' version='1.1' method='GET'></http></request> <request><http url='/image-tree-kml/2983924' version='1.1' method='GET'></http></request> @@ -932,8 +931,6 @@ <request><http url='/image/2984042' version='1.1' method='GET'></http></request> - <request><http url='/contract-tree-kml?path=30120&lang=de' version='1.1' method='GET'></http></request> - <request><http url='/contract-tree-image?path=3012' version='1.1' method='GET'></http></request> <request><http url='/contract-tree-kml?path=30031&lang=de' version='1.1' method='GET'></http></request> <request><http url='/contract-tree-image?path=3003' version='1.1' method='GET'></http></request> <request><http url='/image-tree-kml/2983922' version='1.1' method='GET'></http></request> @@ -1078,7 +1075,6 @@ <request><http url='/image/2984038' version='1.1' method='GET'></http></request> - <request><http url='/contract-tree-image?path=30120' version='1.1' method='GET'></http></request> <request><http url='/contract-tree-image?path=30031' version='1.1' method='GET'></http></request> <request><http url='/image/2983922' version='1.1' method='GET'></http></request>

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung.xml
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3455 Author: ksprotte URL: http://bknr.net/trac/changeset/3455 updated old tsung.xml with new, existing contract ids U trunk/projects/bos/test/tsung.xml Modified: trunk/projects/bos/test/tsung.xml =================================================================== --- trunk/projects/bos/test/tsung.xml 2008-07-16 09:16:15 UTC (rev 3454) +++ trunk/projects/bos/test/tsung.xml 2008-07-16 09:53:09 UTC (rev 3455) @@ -450,39 +450,39 @@ <thinktime random='true' value='6'/> <request><http url='/m2-javascript/6610/6232' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3028251/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037429/ffff00' version='1.1' method='GET'></http></request> <thinktime random='true' value='2'/> <request><http url='/m2-javascript/6621/6227' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3026073/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037427/ffff00' version='1.1' method='GET'></http></request> <request><http url='/m2-javascript/6625/6222' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3024105/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037425/ffff00' version='1.1' method='GET'></http></request> <thinktime random='true' value='1'/> <request><http url='/m2-javascript/6635/6228' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3026085/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037423/ffff00' version='1.1' method='GET'></http></request> <thinktime random='true' value='2'/> <request><http url='/m2-javascript/6627/6237' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3028768/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037421/ffff00' version='1.1' method='GET'></http></request> <thinktime random='true' value='3'/> <request><http url='/m2-javascript/6662/6226' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3026801/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037419/ffff00' version='1.1' method='GET'></http></request> <thinktime random='true' value='1'/> <request><http url='/m2-javascript/6663/6228' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3026095/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037417/ffff00' version='1.1' method='GET'></http></request> <thinktime random='true' value='2'/> <request><http url='/m2-javascript/6662/6236' version='1.1' method='GET'></http></request> - <request><http url='/contract-image/3028792/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037407/ffff00' version='1.1' method='GET'></http></request> </session>

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 16 Jul '08

16 Jul '08

Revision: 3454 Author: edi URL: http://bknr.net/trac/changeset/3454 Integrate patch from Daniel Janus U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/cookies.lisp U trunk/thirdparty/drakma/doc/index.html U trunk/thirdparty/drakma/packages.lisp U trunk/thirdparty/drakma/specials.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2008-07-16 08:59:09 UTC (rev 3453) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2008-07-16 09:16:15 UTC (rev 3454) @@ -1,3 +1,5 @@ +Added *ALLOW-DOTLESS-COOKIE-DOMAINS-P* (thanks to Daniel Janus) + Version 0.11.5 2008-03-21 Added workaround for CLISP (thanks to Anton Vodonosov) Modified: trunk/thirdparty/drakma/cookies.lisp =================================================================== --- trunk/thirdparty/drakma/cookies.lisp 2008-07-16 08:59:09 UTC (rev 3453) +++ trunk/thirdparty/drakma/cookies.lisp 2008-07-16 09:16:15 UTC (rev 3454) @@ -93,8 +93,10 @@ (defun valid-cookie-domain-p (domain) "Checks if the string DOMAIN contains enough dots to be -acceptable." - (or (string-equal domain "localhost") +acceptable. If *ALLOW-DOTLESS-COOKIE-DOMAINS-P* is non-NIL, +every domain name is considered acceptable." + (or *allow-dotless-cookie-domains-p* + (string-equal domain "localhost") (> (count #\. (normalize-cookie-domain domain) :test #'char=) 1))) (defun cookie-domain-matches (domain uri) Modified: trunk/thirdparty/drakma/doc/index.html =================================================================== --- trunk/thirdparty/drakma/doc/index.html 2008-07-16 08:59:09 UTC (rev 3453) +++ trunk/thirdparty/drakma/doc/index.html 2008-07-16 09:16:15 UTC (rev 3454) @@ -84,6 +84,7 @@ <li><a href="#cookie-jar-cookies"><code>cookie-jar-cookies</code></a> <li><a href="#cookie="><code>cookie=</code></a> <li><a href="#delete-old-cookies"><code>delete-old-cookies</code></a> + <li><a href="#*allow-dotless-cookie-domains-p*"><code>*allow-dotless-cookie-domains-p*</code></a> <li><a href="#*ignore-unparseable-cookie-dates-p*"><code>*ignore-unparseable-cookie-dates-p*</code></a> </ol> <li><a href="#headers">Headers</a> @@ -1261,6 +1262,20 @@  + + + [Special variable] <a class=none name='*allow-dotless-cookie-domains-p*'>*allow-dotless-cookie-domains-p*</a> +<blockquote> + +When this variable is not <code>NIL</code>, cookie domains containing +no dots are considered valid. The default is <code>NIL</code>, +meaning to disallow such domains except for <code>"localhost"<code>. + +</blockquote> + + + +  [Special variable] <a class=none name='*ignore-unparseable-cookie-dates-p*'>*ignore-unparseable-cookie-dates-p*</a> Modified: trunk/thirdparty/drakma/packages.lisp =================================================================== --- trunk/thirdparty/drakma/packages.lisp 2008-07-16 08:59:09 UTC (rev 3453) +++ trunk/thirdparty/drakma/packages.lisp 2008-07-16 09:16:15 UTC (rev 3454) @@ -33,7 +33,8 @@ (:use :cl :puri :flexi-streams :chunga) ;; the variable defined in the ASDF system definition (:import-from :drakma-asd :*drakma-version-string*) - (:export :*body-format-function* + (:export :*allow-dotless-cookie-domains-p* + :*body-format-function* :*drakma-default-external-format* :*header-stream* :*ignore-unparseable-cookie-dates-p* Modified: trunk/thirdparty/drakma/specials.lisp =================================================================== --- trunk/thirdparty/drakma/specials.lisp 2008-07-16 08:59:09 UTC (rev 3453) +++ trunk/thirdparty/drakma/specials.lisp 2008-07-16 09:16:15 UTC (rev 3454) @@ -70,6 +70,11 @@ which incoming and outgoing headers will be written for debugging purposes.") +(defvar *allow-dotless-cookie-domains-p* nil + "When this variable is not NIL, cookie domains containing no dots +are considered valid. The default is NIL, meaning to disallow such +domains except for \"localhost\".") + (defvar *ignore-unparseable-cookie-dates-p* nil "Whether Drakma is allowed to treat `Expires' dates in cookie headers as non-existent if it can't parse them. If the value of this

1 0

← Newer
1
...
23
24
25
26
27
28
29
...
33
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs July 2008