[Chicken-users] openssl problem

[Mark Voortman]

Folks,

I just ran into a problem with the openssl egg. If I run the code below
and browse to https://localhost/ it shows the certificate and everything,
but the page keeps loading. Only when I kill the server it actually shows
the page. My guess is that close-input-port and close-output-port don't
work properly. Does anyone know how to fix this?

Cheers,
Mark


(define (test-web-server)
  (let ((l (ssl-listen 443)))
    (ssl-load-certificate-chain! l "host.cert")
    (ssl-load-private-key! l "host.key")
    (let loop ()
      (let-values (((in out) (ssl-accept l)))
                  (let read-loop ()
                    (if (not (string=? (read-line in) ""))
                        (read-loop)))
                  (format out "HTTP/1.1 200 OK~%")
                  (format out "Content-Type: text/plain~%")
                  (format out "~%")
                  (format out "hello world")
                  (close-input-port in)
                  (close-output-port out))
      (loop))))