diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-06-18 20:05:37 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-06-18 20:05:37 -0400 |
commit | 2e87199d7b27f8e2ca03ccbf13cfa01fc23d2865 (patch) | |
tree | bbce1c1c56dc53245f96173301789114bb4ec247 /main.F90 | |
parent | 42bdfe78ed03e1ba4355edcac43ad2217631ce05 (diff) | |
download | LR-87-2e87199d7b27f8e2ca03ccbf13cfa01fc23d2865.tar.gz LR-87-2e87199d7b27f8e2ca03ccbf13cfa01fc23d2865.zip |
Improved line wrapping calcs to search for break from beginning of string. Fixed unnecessary connection error when reporting unsupported protocol by adding a protocol fail status.
Diffstat (limited to 'main.F90')
-rw-r--r-- | main.F90 | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -114,7 +114,7 @@ implicit none redo_layout = r%report_unsupported_protocol(trim(desired_url)) populated = .false. loaded = .true. - return_code = STATUS_LOCALFAIL + return_code = STATUS_PROTOCOLFAIL end if if(.not. loaded) then @@ -123,7 +123,6 @@ implicit none return_code = request_url(desired_url, io, return_type, bh) populated = .not. is_failure_code(return_code) - Print *, "return code: ", return_code call update_status(r, desired_url, return_code) end if @@ -188,7 +187,11 @@ implicit none else if(is_failure_code(return_code)) then - call r%draw_error("Could not connect to "//desired_url) + ! Only explicitly show an error if it isn't a protocol failure + if(return_code /= STATUS_PROTOCOLFAIL) then + call r%draw_error("Could not connect to "//desired_url) + end if + loaded = .true. end if |