From 2492cdf6ce85963f2fe269b4d41fd09d92ccf277 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Tue, 19 May 2020 08:36:22 -0400
Subject: Requests should now include SNI over TLS

---
 request.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'request.f90')

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
-- 
cgit v1.2.3