Author: hhubner Date: 2006-02-06 12:33:09 -0600 (Mon, 06 Feb 2006) New Revision: 1823
Modified: trunk/projects/quickhoney/src/config.lisp trunk/projects/quickhoney/src/init.lisp Log: Deployment changes.
Modified: trunk/projects/quickhoney/src/config.lisp =================================================================== --- trunk/projects/quickhoney/src/config.lisp 2006-02-06 09:42:15 UTC (rev 1822) +++ trunk/projects/quickhoney/src/config.lisp 2006-02-06 18:33:09 UTC (rev 1823) @@ -3,10 +3,10 @@ ;; URL für BASE HREFs (defparameter *website-url* "http://quickhoney.com")
-(defparameter *root-directory* #p"home:bknr-svn/quickhoney/") +(defparameter *root-directory* #p"home:bknr-svn/projects/quickhoney/")
(defparameter *store-directory* (merge-pathnames #p"datastore/" *root-directory*))
(defparameter *website-directory* (merge-pathnames #p"website/" *root-directory*))
-(defparameter *webserver-port* 8080) \ No newline at end of file +(defparameter *webserver-port* 8080)
Modified: trunk/projects/quickhoney/src/init.lisp =================================================================== --- trunk/projects/quickhoney/src/init.lisp 2006-02-06 09:42:15 UTC (rev 1822) +++ trunk/projects/quickhoney/src/init.lisp 2006-02-06 18:33:09 UTC (rev 1823) @@ -1,6 +1,7 @@ (in-package :quickhoney)
(defun startup () + (setq cxml::*default-catalog* '("/home/hans/share/xml/catalog")) (when *store* (close-store)) (make-instance 'store @@ -14,3 +15,6 @@ (bknr.cron:make-cron-job "snapshot" 'snapshot-store 0 5 :every :every)) (actor-start (make-instance 'cron-actor)) (publish-quickhoney)) + +(eval-when (load) + (startup))