aboutsummaryrefslogtreecommitdiff
path: root/main.F90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-06-03 17:26:03 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-06-03 17:26:03 -0400
commit48512f5d2e180d2086162cdf06c96098e6de96d7 (patch)
tree6d96f90bba2aff6af6d84981f9903dcee5568a61 /main.F90
parent3afc5107f7f43176bb3547c7d16898f23294a180 (diff)
downloadLR-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.F907
1 files changed, 6 insertions, 1 deletions
diff --git a/main.F90 b/main.F90
index b05c9c5..9d8e7a4 100644
--- a/main.F90
+++ b/main.F90
@@ -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)