From 462715e11037739722457e48084a73daa9e5d889 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 2 Jan 2023 11:50:39 -0500 Subject: Added a timeout to read functions such that failures don't occur immediately. Seems to be a culprit in the upload failures. --- common/request.f90 | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'common/request.f90') diff --git a/common/request.f90 b/common/request.f90 index ce81ae6..91aa67a 100644 --- a/common/request.f90 +++ b/common/request.f90 @@ -287,7 +287,7 @@ contains end function send_string - function retrieve_characters(ssl, arr) result(chars_read) + function retrieve_characters(ssl, arr, timeout) result(chars_read) use iso_c_binding use jessl implicit none @@ -295,8 +295,13 @@ contains integer::chars_read type(c_ptr)::ssl character(len=1), dimension(:), intent(inout)::arr + integer, intent(in), optional::timeout - chars_read = ssl_read(ssl, arr) + if(present(timeout)) then + chars_read = ssl_read(ssl, arr, timeout) + else + chars_read = ssl_read(ssl, arr, 250) + end if end function retrieve_characters -- cgit v1.2.3