diff options
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 |