Conditional machine specific hostname sourcing
This commit is contained in:
parent
4dbdef1865
commit
c97326d01e
@ -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 |
Loading…
Reference in New Issue
Block a user