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

contract-tree-image-handler uses :max-age 600

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-14 11:06:52 UTC (rev 3432) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-14 12:00:51 UTC (rev 3433) @@ -242,14 +242,16 @@ (defclass contract-tree-image-handler (page-handler) ())

-(defmethod handle ((handler contract-tree-image-handler)) +(defmethod handle ((handler contract-tree-image-handler)) (with-query-params (path) (let* ((path (parse-path path)) - (node (find-node-with-path *contract-tree* path)) - (image (image node))) + (node (find-node-with-path *contract-tree* path)) + (image (image node))) (hunchentoot:handle-if-modified-since (blob-timestamp image)) (with-store-image* (image) - (emit-image-to-browser cl-gd:*default-image* :png :date (blob-timestamp image)))))) + (emit-image-to-browser cl-gd:*default-image* :png + :date (blob-timestamp image) + :max-age 600)))))

;;; make-contract-tree-from-m2 (defun make-contract-tree-from-m2 ()