Changeset 3490

Show
Ignore:
Timestamp:
07/17/08 16:11:47 (4 months ago)
Author:
ksprotte
Message:

dont start-contract-tree-image-update-daemon make-contract-tree-from-m2

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/build.lisp

    r3353 r3490  
    7070  ;; start the bos server   
    7171  (apply #'bos.m2::reinit (read-configuration "m2.rc")) 
    72   (apply #'bos.web::init (read-configuration "web.rc"))   
     72  (apply #'bos.web::init (read-configuration "web.rc")) 
     73  (bos.web::start-contract-tree-image-update-daemon) 
    7374  (bknr.cron::start-cron)) 
    7475 

  • trunk/projects/bos/test/fixtures.lisp

    r3461 r3490  
    66    (format t "~&;; ++ taking snapshot~%") 
    77    (snapshot)) 
    8   (let ((bos.web::*start-contract-tree-image-update-daemon* nil)) 
    9     (bos.m2::reinit :directory (bknr.datastore::store-directory *store*) 
    10                     :website-url bos.m2::*website-url*)) 
     8  (bos.m2::reinit :directory (bknr.datastore::store-directory *store*) 
     9                  :website-url bos.m2::*website-url*) 
    1110  (format t "~&;; ++ reopen-store done~%")) 
    1211 
    …… 
    5251                     (format nil "/tmp/test-store-~D.tmp/" (get-universal-time))))) 
    5352    (unwind-protect 
    54          (let ((bos.web::*start-contract-tree-image-update-daemon* nil)) 
     53         (progn 
    5554           (bos.m2::reinit :delete t 
    5655                           :directory store-path 

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

    r3461 r3490  
    307307(defvar *contract-tree-image-update-daemon* nil) 
    308308(defvar *contract-tree-image-update-daemon-halt*) 
    309 (defvar *start-contract-tree-image-update-daemon* t) 
    310309 
    311310(defun contract-tree-image-update-daemon-loop () 
    …… 
    347346    (when (contract-published-p contract) 
    348347      (insert-contract *contract-tree* contract))) 
    349   (format t "~&rendering contract-tree images if needed...") (force-output) 
    350   (when *start-contract-tree-image-update-daemon* 
    351     (start-contract-tree-image-update-daemon)) 
     348  (format t "~&rendering contract-tree images if needed...") (force-output)   
    352349  (format t "done.~%") (force-output)   
    353350  (geometry:register-rect-subscriber geometry:*rect-publisher* *contract-tree*