Hello,
a preliminary version of my OpenSSL SSL/TLS library bindings for chicken
is available at
http://www.chust.org/projects/openssl.egg
so far only the client side is implemented and verification of peer
certificates is useless, because you cannot load certificate chains, yet.
For simple applications it's already useful, though:
-----BEGIN FILE: "openssl-example.scm"-----
(use openssl http-client htmlprag)
(define https-server "freemail.web.de")
(define-values (in out) (ssl-connect https-server 443))
(let-values (((result headers i o)
(http:send-request
(string-append "https://"; https-server "/") in out)))
(print "Result code from server: " result)
(print "Headers from server:")
(pp headers)
(print "---")
(print "Content as SXML:")
(pp (html->sxml in))
(print "---"))
(close-input-port in)
(close-output-port out)
-----END FILE: "openssl-example.scm"-----
Documentation for the full interface as it will be (in a few days or so)
is at
http://www.chust.org/projects/openssl.html
cu,
Thomas
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
