Changeset 3433

Show
Ignore:
Timestamp:
07/14/08 14:00:51 (6 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/contract-tree.lisp

    r3431 r3433  
    243243  ()) 
    244244 
    245 (defmethod handle ((handler contract-tree-image-handler)) 
     245(defmethod handle ((handler contract-tree-image-handler))   
    246246  (with-query-params (path) 
    247247    (let* ((path (parse-path path)) 
    248            (node (find-node-with-path *contract-tree* path)) 
    249            (image (image node)))       
     248          (node (find-node-with-path *contract-tree* path)) 
     249          (image (image node)))       
    250250      (hunchentoot:handle-if-modified-since (blob-timestamp image)) 
    251251      (with-store-image* (image) 
    252         (emit-image-to-browser cl-gd:*default-image* :png :date (blob-timestamp image)))))) 
     252        (emit-image-to-browser cl-gd:*default-image* :png 
     253                               :date (blob-timestamp image) 
     254                               :max-age 600))))) 
    253255 
    254256;;; make-contract-tree-from-m2