Changeset 3353

Show
Ignore:
Timestamp:
06/25/08 17:45:49 (7 months ago)
Author:
ksprotte
Message:

worked on bos build.lisp and startup.lisp for starting with frontend

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/build.lisp

    r3267 r3353  
    6868  (eval (read-from-string (format nil "(progn (swank-loader::init) 
    6969                                         (swank:create-server :port ~D :dont-close t))" swank-port))) 
    70   ;; start the bos server 
     70  ;; 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"))   
    7373  (bknr.cron::start-cron)) 
    7474 

  • trunk/projects/bos/web/packages.lisp

    r2644 r3353  
    1515        #+(or) :mime 
    1616        :bknr.web 
     17        :bknr.web.frontend 
    1718        :bknr.datastore 
    1819        :bknr.indices 

  • trunk/projects/bos/web/startup.lisp

    r3071 r3353  
    1717(defvar *worldpay-test-mode*) 
    1818 
    19 (defun init (&key (port 8080)  
     19(defun init (&key 
     20             (port 8080) 
     21             (frontend-port 80)  
    2022             (website-directory *default-wd*) 
    21              website-url 
     23             host 
     24             (website-url (format nil "http://~A" host) website-url-given) 
    2225             worldpay-test-mode 
    2326             (google-analytics-account "UA-3432041-1") 
    24              debug) 
     27             debug) 
     28  (when website-url-given 
     29    (warn "Specifying :website-url in web.rc is deprecated. Use :host instead.~ 
     30         ~%Website-url will then be initialized by  (format nil \"http://~~A\" host).")) 
     31  (assert (search host website-url)) 
    2532  (setf *port* port) 
    2633  (setf *website-url* website-url) 
    2734  (setf *website-directory* website-directory) 
    2835  (setf *worldpay-test-mode* worldpay-test-mode) 
    29   (setf *google-analytics-account* google-analytics-account) 
    30   (reinit :debug debug)) 
    31  
    32 (defun reinit (&key debug) 
     36  (setf *google-analytics-account* google-analytics-account)     
    3337  (format t "~&; Publishing BOS handlers.~%") 
    3438  (unpublish) 
    …… 
    4246    (hunchentoot:stop-server *webserver*)) 
    4347  (setf hunchentoot:*hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf)) 
    44   (setq *webserver* (hunchentoot:start-server :port *port* #+not-yet :threaded #+not-yet (not debug)))) 
     48  (setq *webserver* (hunchentoot:start-server :port *port* #+not-yet :threaded #+not-yet (not debug))) 
     49  (start-frontend :host host :backend-port port :port frontend-port))