diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-06-03 17:26:03 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-06-03 17:26:03 -0400 |
| commit | 48512f5d2e180d2086162cdf06c96098e6de96d7 (patch) | |
| tree | 6d96f90bba2aff6af6d84981f9903dcee5568a61 /protocol.f90 | |
| parent | 3afc5107f7f43176bb3547c7d16898f23294a180 (diff) | |
| download | LR-87-48512f5d2e180d2086162cdf06c96098e6de96d7.tar.gz LR-87-48512f5d2e180d2086162cdf06c96098e6de96d7.zip | |
Added true error conditions to block infinite requests on failure.
Diffstat (limited to 'protocol.f90')
| -rw-r--r-- | protocol.f90 | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/protocol.f90 b/protocol.f90 index 4948325..adb3760 100644 --- a/protocol.f90 +++ b/protocol.f90 @@ -102,7 +102,7 @@ contains use request use iso_c_binding use file_handling, only: mark_file_end - use binary, only: binary_handler, is_binary_file, binary_okay + use binary, only: binary_handler, is_binary_file, binary_okay, binary_ignore implicit none character(*), intent(inout)::url @@ -203,6 +203,10 @@ contains write(binary_unit) buffer(i) + else if(binary_file .and. binary_status == binary_ignore) then + + exit + end if if(.not. binary_file) then @@ -213,6 +217,11 @@ contains end do + ! If the user has bailed... + if(binary_file .and. binary_status == binary_ignore) then + exit + end if + bytes_received = retrieve_characters(conn%ssl, buffer) end do |