From 2e87199d7b27f8e2ca03ccbf13cfa01fc23d2865 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 18 Jun 2020 20:05:37 -0400 Subject: 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. --- main.F90 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'main.F90') diff --git a/main.F90 b/main.F90 index 126796b..7021195 100644 --- a/main.F90 +++ b/main.F90 @@ -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 -- cgit v1.2.3