Simple, single request function for retrieving a gemini page into a unit number

1 files changed, 29 insertions, 0 deletions

diff --git a/request.f90 b/request.f90
index 3cc8cbf..67cc4f7 100644
--- a/request.f90
+++ b/request.f90
@@ -13,6 +13,16 @@ implicit none
     integer, parameter::CONNECTION_SSL_CONN_FAILURE  = 5
     integer, parameter::CONNECTION_OPEN              = 6
     
+    character(23), dimension(0:6), parameter:: connection_code_str = &
+        ["No Connection          ", &
+         "Connection Closed      ", &
+         "Server Not Found       ", &
+         "Local Socket Failure   ", &
+         "SSL Configuration Error", &
+         "SSL Connection Failure ", &
+         "SSL Connection Open    " ]
+           
+    
     type :: connection
         
         integer::code
@@ -26,6 +36,25 @@ implicit none
 
 contains
 
+    function translate_connection_code(code)
+    implicit none
+    
+        integer, intent(in)::code
+        character(23)::translate_connection_code
+        
+        if(code >= lbound(connection_code_str, 1) .and. &
+           code <= ubound(connection_code_str, 1)) then
+        
+            translate_connection_code = connection_code_str(code)
+            
+        else
+            
+            translate_connection_code = "Unknown Error"
+            
+        end if
+        
+    end function translate_connection_code
+
     function open_connection(server, port) result(conn)
     use jessl
     use network