Changeset 3359

Show
Ignore:
Timestamp:
06/26/08 18:40:39 (7 months ago)
Author:
hans
Message:

Production parameters for the Lisp ecoop workshop site.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/lisp-ecoop/src/webserver.lisp

    r3319 r3359  
    3838                 :javascript-urls (list (format nil "~Astatic/javascript.js" base-href)))) 
    3939 
    40 (defun start-webserver (&key (port 9000) (backend-port 9001)) 
     40(defun start-webserver (&key (host "elw2008.bknr.net") (port 80) (backend-port 9001)) 
    4141  (when (and (boundp '*server*) *server*) 
    4242    (stop-server *server*)) 
    …… 
    4545        hunchentoot:*rewrite-for-session-urls* nil) 
    4646  (setq *server* (start-server :port backend-port)) 
    47   (start-frontend :backend-port backend-port :port port)) 
     47  (start-frontend :host host :backend-port backend-port :port port))