;;; server.scm
(use spiffy openssl)

(server-port 443)

(error-log (current-output-port))
(debug-log (current-output-port))

(let ((listener (ssl-listen (server-port) 4 (server-bind-address))))
  (ssl-load-certificate-chain! listener "/etc/ssl/certs/ssl-cert-snakeoil.pem")
  (ssl-load-private-key! listener "/etc/ssl/private/ssl-cert-snakeoil.key")  
  (accept-loop listener ssl-accept))

(start-server))


;; mkdir web && echo foo > web/index.html
;; $ sudo csi -s server.scm &
;; $ wget https://localhost
;; --2012-02-03 16:49:23--  https://localhost/index.html
;; Resolving localhost... ::1, 127.0.0.1
;; Connecting to localhost|::1|:443... failed: Connection refused.
;; Connecting to localhost|127.0.0.1|:443... connected.
;; primordial: Connection handshake error: "argument is not a port"