Conditional machine specific hostname sourcing

This commit is contained in:
Elizabeth Hunt 2023-03-15 22:50:41 -06:00
parent 4dbdef1865
commit c97326d01e
Signed by: simponic
GPG Key ID: 52B3774857EB24B1
2 changed files with 0 additions and 26 deletions

View File

@ -1,26 +0,0 @@
(ql:quickload :woo)
(defparameter *icon-file* "~/scripts/guestbook/icon.png")
(defparameter *message-list-file* "~/scripts/guestbook/list.txt")
(defparameter *routes* (make-hash-table :test 'equal))
(defparameter *rate-limits* (make-hash-table :test 'equal))
(defparameter *not-seen-messages* '())
(defun send-alert (msg)
(uiop:run-program `("notify-send" "--icon" ,*icon-file* ,msg)))
(defun add-message (env)
(woo:run
(lambda (env)
(let* ((path-info (getf env :path-info))
(req-method (getf env :request-method))
(ip (getf env :remote-addr))
(route-fn (getf *routes* path-info
'(200 (:content-type "text/plain") ("Hello, World")))
:worker-num 1)

Binary file not shown.

Before

Width:  |  Height:  |  Size: 640 KiB