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))))
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
