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/protocol.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'common/protocol.f90') diff --git a/common/protocol.f90 b/common/protocol.f90 index 9fc1171..d1cd18b 100644 --- a/common/protocol.f90 +++ b/common/protocol.f90 @@ -327,7 +327,8 @@ contains end do - bytes_received = retrieve_characters(conn%ssl, buffer) + ! Use a timeout here because the server has some work to do + bytes_received = retrieve_characters(conn%ssl, buffer, 1500) end do else -- cgit v1.2.3