動機とか
Caveman2でLMSっぽいものを作るにあたって，HTTPS使わないと駄目だろうと思って調べたものの，ドキュメントにそれっぽい記述を見つけられませんでした。
Clackのhunchentootのhandlerのrunとかを見るとsslを使えそうなので試してみました。
準備
環境
Mac OSX 10.10.1
Clozure Common Lisp 1.10
quicklisp 2014-12-17
OpenSSL 0.9.8za 5 Jun 2014
サーバはHunchentootです。 (tootとwookieでも同様かも？)
証明書作成
最近はOpenSSLから派生したLibreSSLとかGoogleのとかもあるんですね。
とりあえずOpenSSLを使います。
$ openssl genrsa 2048 > oreore.key
$ openssl req -new -key oreore.key > oreore.csr
生成されたcsrファイルを認証局に署名してもらいます。
今回は動けば良いのでオレオレします。
$ openssl x509 -days 3652 -req -signkey oreore.key < oreore.csr > oreore.crt
生成したkeyファイルとcrtファイルはプロジェクト直下にsslディレクトリ作って放り込みました。
アプリケーション側の設定
main.lispあたりにファイルパスを書いておきます。
(defvar *ssl-key-file*
(merge-pathnames "ssl/oreore.key" myapp.config:*application-root*))
(defvar *ssl-cert-file*
(merge-pathnames "ssl/oreore.crt" myapp.config:*application-root*))
これだけ。あとは
>(start :port 5000 :ssl t :ssl-key-file *ssl-key-file* :ssl-cert-file *ssl-cert-file*)
すれば動くはずです。
（password設定した場合は:ssl-key-password "password"を追加します。）
これでhttps://localhost:5000/にアクセスすると，
見事にブラウザに怒られて，
[2014-12-31 01:48:01 [ERROR]] Error while processing connection: A failure in the SSL library occurred on handle #<A Foreign Pointer #x626B60> (return code: 1). SSL error queue:
error:14094418:SSL routines:SSL3_READ_BYTES:tlsv1 alert unknown ca
なんて言われます。オレオレなので我慢します。
ブラウザで例外を許可すればサイトを見れます。
（Chromeだとこの段階で証明書の中まで見れるんですね。）
ちなみに:port 443を指定すると
Error #<USOCKET:OPERATION-NOT-PERMITTED-ERROR #x302003EFD40D>
[Condition of type USOCKET:OPERATION-NOT-PERMITTED-ERROR]
ですって。めんどくさそうなのでport 5000で使う事にします。
おわりに
とりあえず動いたので満足です。
本番では証明書はちゃんと買う予定です。
当初は自分でコード書かないと駄目だろうと思っておっかなびっくりソース読んでたのですが，
結局１行も書かずに済みました。
これで安心してフォーム認証ができます。