diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-27 16:46:04 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-27 16:46:04 -0400 |
commit | 10bb07b2d12f232a2ec68f3a1b8e337be9582f7d (patch) | |
tree | 5cae301c28d4fb0fb3a6ad9e5f3d410cc2773aa7 /main.F90 | |
parent | beb210f16f2e351470f90b771ff95d9f18e95073 (diff) | |
download | LR-87-10bb07b2d12f232a2ec68f3a1b8e337be9582f7d.tar.gz LR-87-10bb07b2d12f232a2ec68f3a1b8e337be9582f7d.zip |
Added an additional failure condition. Exit dumb_renderer on error with initial site.
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) |