aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-13 06:44:16 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-13 06:44:16 -0400
commitb470a0c853d060d059e4890f6cbe6ef672edb6ea (patch)
tree3c4e98c2c027f6c7e44e1cae222fe11d2e82e86b
parent8de10aa414b9cce25003beb333f2a8b1bb858098 (diff)
downloadLR-87-b470a0c853d060d059e4890f6cbe6ef672edb6ea.zip
LR-87-b470a0c853d060d059e4890f6cbe6ef672edb6ea.tar.gz
Switched to a non-deprecated call for TLS initialization
-rw-r--r--jessl.f906
-rw-r--r--request.f904
2 files changed, 5 insertions, 5 deletions
diff --git a/jessl.f90 b/jessl.f90
index 0ee890e..bd9d1fe 100644
--- a/jessl.f90
+++ b/jessl.f90
@@ -36,10 +36,10 @@ implicit none
subroutine load_error_strings() bind(c, name="SSL_load_error_strings")
end subroutine load_error_strings
- function tls_v1_3_client_method() bind(c, name="TLSv1_2_client_method")
+ function tls_client_method() bind(c, name="TLS_client_method")
use iso_c_binding
- type(c_ptr)::tls_v1_3_client_method
- end function tls_v1_3_client_method
+ type(c_ptr)::tls_client_method
+ end function tls_client_method
function ctx_new(meth) bind(c, name="SSL_CTX_new")
use iso_c_binding
diff --git a/request.f90 b/request.f90
index fd6f016..7308a9e 100644
--- a/request.f90
+++ b/request.f90
@@ -113,7 +113,7 @@ contains
end if
! Set up ssl now
- ssl_method = tls_v1_3_client_method()
+ 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
@@ -265,4 +265,4 @@ contains
end function retrieve_characters
-end module request \ No newline at end of file
+end module request