diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2023-01-02 11:50:39 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2023-01-02 11:50:39 -0500 |
| commit | 462715e11037739722457e48084a73daa9e5d889 (patch) | |
| tree | 0704f69e9c69f7a16ffae74421392aecd145399e /common/protocol.f90 | |
| parent | 89e74e6c7c8d6d98939a24fa3f77b9caff2dec07 (diff) | |
| download | levitating-462715e11037739722457e48084a73daa9e5d889.tar.gz levitating-462715e11037739722457e48084a73daa9e5d889.zip | |
Added a timeout to read functions such that failures don't occur immediately. Seems to be a culprit in the upload failures.
Diffstat (limited to 'common/protocol.f90')
| -rw-r--r-- | common/protocol.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
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 |