From: Lucian Mogosanu <lucian@mogosanu.ro>
Date: Tue, 2 Jul 2019 09:21:26 +0000 (+0300)
Subject: blog: Make port a configurable knob
X-Git-Tag: v0.11~36
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=a20c530432c924f0283e621bdb6fd99d74ca0714;p=thetarpit.git

blog: Make port a configurable knob
---

diff --git a/blog.lisp b/blog.lisp
index b08ba39..9a218b0 100644
--- a/blog.lisp
+++ b/blog.lisp
@@ -299,13 +299,13 @@
                             "mogosanu.ro:/virtual/sites/thetarpit.org")
                     :output *standard-output*))
 
-(defun tlbs-run-site (&key kill)
+(defun tlbs-run-site (&key kill (port 8000))
   (cond
     ((and (not *busybox-process*) (not kill))
      (setq *busybox-process*
            (sb-ext:run-program "/bin/busybox"
                                (list "httpd" "-f"
-                                     "-p" "8000"
+                                     "-p" (write-to-string port :base 10)
                                      "-c" (concatenate 'string
                                                        *lbs-base*
                                                        "httpd.conf")