Hunchentoot Common Lisp

適用於 Hunchentoot 的 Common Lisp 程式碼片段，以空 GIF 回應對 /pixel.gif 的請求，GIF 在啟動時只解碼一次。

Hunchentoot Common Lisp

路徑

安裝: (ql:quickload '(:hunchentoot :cl-base64))
檔案: server.lisp
執行: sbcl --load server.lisp

(ql:quickload '(:hunchentoot :cl-base64))

(defparameter *gif*
  (cl-base64:base64-string-to-usb8-array "R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="))

(hunchentoot:define-easy-handler (pixel :uri "/pixel.gif") ()
  (setf (hunchentoot:content-type*) "image/gif"
        (hunchentoot:header-out :cache-control) "no-store")
  *gif*)

(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 8080))

我們執行了這段程式碼，並比對了它回傳的位元組。

驗證

curl -sI http://localhost:8080/pixel.gif

官方網站: Hunchentoot