From 9d5115e52c4c42af8249d8eb6f0ad3b8030f7c8d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 28 May 2018 20:53:00 +0200
Subject: Add Dockerfile.

The Dockerfile uses deploy (https://shinmera.github.io/deploy/) to
create a self-contained binary and packages it as a Docker image.
---
 mulkcms-hunchentoot.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'mulkcms-hunchentoot.lisp')

diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp
index 4300871..4d7f3c1 100644
--- a/mulkcms-hunchentoot.lisp
+++ b/mulkcms-hunchentoot.lisp
@@ -75,5 +75,12 @@
                       :port *server-port*
                       :address *server-address*))
   (setq mulkcms::*authorization-page-handler* #'handle-authorization-page)
-  (hunchentoot:start *acceptor*))
+  (hunchentoot:start *acceptor*)
+  *acceptor*)
 
+(defun run-server ()
+  (let ((acceptor (start-server)))
+    (unwind-protect
+         (loop
+           (sleep 86400))
+      (stop acceptor :soft t))))
-- 
cgit v1.2.3