Hunchentoot Common Lisp
Đoạn mã Common Lisp cho Hunchentoot, trả lời các yêu cầu tới /pixel.gif bằng GIF rỗng, được giải mã một lần khi khởi động.
Hunchentoot Common 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))
Chúng tôi đã chạy đoạn mã này và so sánh các byte nó trả về.
Kiểm tra
curl -sI http://localhost:8080/pixel.gif