diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-13 06:44:16 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-13 06:44:16 -0400 |
| commit | b470a0c853d060d059e4890f6cbe6ef672edb6ea (patch) | |
| tree | 3c4e98c2c027f6c7e44e1cae222fe11d2e82e86b | |
| parent | 8de10aa414b9cce25003beb333f2a8b1bb858098 (diff) | |
| download | LR-87-b470a0c853d060d059e4890f6cbe6ef672edb6ea.tar.gz LR-87-b470a0c853d060d059e4890f6cbe6ef672edb6ea.zip | |
Switched to a non-deprecated call for TLS initialization
| -rw-r--r-- | jessl.f90 | 6 | ||||
| -rw-r--r-- | request.f90 | 4 |
2 files changed, 5 insertions, 5 deletions
@@ -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 |