diff options
Diffstat (limited to 'main.F90')
-rw-r--r-- | main.F90 | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -98,6 +98,7 @@ implicit none running = .true. loaded = .false. + redo_layout = .false. call r%initialize() locations_visited => null() @@ -121,8 +122,8 @@ implicit none call r%report_status("Requesting "//trim(desired_url)) return_code = request_url(desired_url, io, return_type, bh) - populated = .true. - + populated = .not. is_failure_code(return_code) + Print *, "return code: ", return_code call update_status(r, desired_url, return_code) end if @@ -179,7 +180,12 @@ implicit none end if redo_layout = .false. + + else if(.not. redo_layout .and. is_failure_code(return_code) .and. len_trim(current_url) == 0) then + call r%report_status("Exiting without initial site") + running = .false. + end if do while(loaded .and. running) |