[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] OpenSSL bindings
From: |
Thomas Chust |
Subject: |
[Chicken-users] OpenSSL bindings |
Date: |
Wed, 05 Oct 2005 14:21:28 -0000 |
User-agent: |
Opera M2/8.02 (MacPPC, build 2148) |
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] OpenSSL bindings,
Thomas Chust <=