diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-19 08:36:22 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-19 08:36:22 -0400 |
| commit | 2492cdf6ce85963f2fe269b4d41fd09d92ccf277 (patch) | |
| tree | c1025eecf8da7263923392ff1c657db75b0ef76e /request.f90 | |
| parent | 273cccb1a687dfe7d74486def016514a7887c1f5 (diff) | |
| download | LR-87-2492cdf6ce85963f2fe269b4d41fd09d92ccf277.tar.gz LR-87-2492cdf6ce85963f2fe269b4d41fd09d92ccf277.zip | |
Requests should now include SNI over TLS
Diffstat (limited to 'request.f90')
| -rw-r--r-- | request.f90 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/request.f90 b/request.f90 index ec35772..139b368 100644 --- a/request.f90 +++ b/request.f90 @@ -115,10 +115,15 @@ contains ! Set up ssl now ssl_method = tls_client_method() conn%ssl_ctx = ctx_new(ssl_method) + conn%ssl = ssl_new(conn%ssl_ctx) - if((.not. c_associated(conn%ssl)) .or. (set_fd(conn%ssl, conn%socket) /= 1)) then + if((.not. c_associated(conn%ssl)) .or. & + (set_tlsext_host_name(conn%ssl, server) == 0) .OR. & + (set_fd(conn%ssl, conn%socket) /= 1)) then + conn%code = CONNECTION_SSL_SETUP_FAILURE return + end if ! Connect via ssl |