Changeset 34310 in project


Ignore:
Timestamp:
08/20/17 23:34:27 (5 weeks ago)
Author:
sjamaan
Message:

http-client: Use ssl-connect* instead of ssl-connect because it does the right thing(TM)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/http-client/trunk/http-client.scm

    r34308 r34310  
    252252  (handle-exceptions _ default (eval `(let () (use ,module) ,symbol))))
    253253
    254 (define ssl-connect
    255   (dynamic-import 'openssl 'ssl-connect (lambda _ (values #f #f))))
     254(define ssl-connect*
     255  (dynamic-import 'openssl 'ssl-connect* (lambda _ (values #f #f))))
    256256
    257257(define (default-server-connector uri proxy)
     
    260260      ((#f http) (tcp-connect (uri-host remote-end) (uri-port remote-end)))
    261261      ((https) (receive (in out)
    262                    (ssl-connect (uri-host remote-end)
    263                                 (uri-port remote-end)
    264                                 'sslv2-or-v3 #t)
     262                   (ssl-connect* hostname: (uri-host remote-end)
     263                                 port: (uri-port remote-end)
     264                                 sni-name: #t)
    265265                 (if (and in out)       ; Ugly, but necessary
    266266                     (values in out)
Note: See TracChangeset for help on using the changeset viewer.