mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(lisp): Make server port configurable

Browse source
This commit is contained in:
Vincent Ambo 2017-12-21 14:00:32 +01:00
parent bf9991026a
commit 02a34a14a0
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/gemma.lisp
View file

@ -44,6 +44,10 @@
:initarg :done-at :initarg :done-at
:accessor last-done-at))) :accessor last-done-at)))
(defvar *gemma-port*
(parse-integer (or (sb-posix:getenv "GEMMA_PORT") "4242"))
"Port on which the Gemma web server should listen.")
(defvar *gemma-data-dir* (defvar *gemma-data-dir*
(pathname (or (sb-posix:getenv "GEMMA_DATA_DIR") (pathname (or (sb-posix:getenv "GEMMA_DATA_DIR")
(sb-posix:getcwd))) (sb-posix:getcwd)))
@ -107,7 +111,7 @@ maximum interval."
(defun start-gemma () (defun start-gemma ()
;; Set up web server ;; Set up web server
(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 4242)) (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port *gemma-port*))
;; ... and register all handlers. ;; ... and register all handlers.