common-lisp - 使用 hunchentoot 重定向到 https

Question

我已经用 ssl 设置了一个 hunchentoot 服务器。我希望将常规 http 请求重定向到 https。

似乎是 hunchentoot:define-easy-handler 的某种组合和 hunchentoot:redirect是要走的路，但我想不通。

这是我到目前为止所拥有的:

(defvar *https-handler*
  (make-instance 'hunchentoot:easy-ssl-acceptor
                 :name 'ssl
                 :ssl-privatekey-file #P"/path/to/privkey.pem"
                 :ssl-certificate-file #P"/path/to/cert.pem"
                 :port 443))

(hunchentoot:start *https-handler*)

Answer 1

是的，您可以添加带有重定向到 ssl 版本的简单 http 处理程序:

(defvar *http-handler*
  (make-instance 'hunchentoot:easy-acceptor
                 :name 'http
                 :port 80))

(hunchentoot:define-easy-handler (redir-to-ssl :uri (lambda (uri) t) :acceptor-names '(http)) ()
  (hunchentoot:redirect "/" :protocol :https)) ; where magic happens

...然后也启动它:

(hunchentoot:start *http-handler*)

此版本仅重定向到索引 / .