Added an additional failure condition. Exit dumb_renderer on error with initial site.

1 files changed, 8 insertions, 2 deletions

diff --git a/main.F90 b/main.F90
index 02eab98..9512f2c 100644
--- a/main.F90
+++ b/main.F90
@@ -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)