jadedctrl/ kaptchapelo
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Actions Packages Projects Eldonoj Wiki Activity

Allow running in foreground

This commit is contained in:
Jaidyn Ann 2023-08-08 16:46:20 -05:00
parent ef3e18931a
commit 7840e72e41
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
kaptchapelo.lisp
View File

@ -100,7 +100,8 @@ make a Clack HTTP response that serves the appropriate image."
(404-response)))))
(defun start-server (&key (address "0.0.0.0") (port 5001) (captcha-directory #p"captcha/"))
(defun start-server (&key (address "0.0.0.0") (port 5001) (background 't)
(captcha-directory #p"captcha/"))
"Start the Kaptchapelo server, which takes captcha challenges from the given
CAPTCHA-DIRECTORY. Challenges are made up of two files:
* A challenge PNG file (ex. bird.png)
@ -110,4 +111,5 @@ Note that the The answer text-file should not contain a trailing newline."
(lambda (env)
(funcall #'server env captcha-directory))
:address address
:port port))
:port port
:use-thread background))

3
run-kaptchapelo.lisp
View File

@ -7,4 +7,5 @@
;; Change captcha-directory’s path to your captchas
:captcha-directory #p"~/.local/lib/quicklisp/local-projects/kaptchapelo/captcha/"
:address "0.0.0.0"
:port 5001)
:port 5001
:background nil)