diff options
author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-06-03 17:26:03 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-06-03 17:26:03 -0400 |
commit | 48512f5d2e180d2086162cdf06c96098e6de96d7 (patch) | |
tree | 6d96f90bba2aff6af6d84981f9903dcee5568a61 /main.F90 | |
parent | 3afc5107f7f43176bb3547c7d16898f23294a180 (diff) | |
download | LR-87-48512f5d2e180d2086162cdf06c96098e6de96d7.tar.gz LR-87-48512f5d2e180d2086162cdf06c96098e6de96d7.zip |
Added true error conditions to block infinite requests on failure.
Diffstat (limited to 'main.F90')
-rw-r--r-- | main.F90 | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -92,7 +92,7 @@ implicit none else - initial_site = "gemini://gemini.circumlunar.space/" + initial_site = "gemini://lilarm/" end if @@ -186,6 +186,11 @@ implicit none call r%draw_error("Exiting without initial site") running = .false. + else if(is_failure_code(return_code)) then + + call r%draw_error("Could not connect to "//desired_url) + loaded = .true. + end if do while(loaded .and. running) |