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

2 files changed, 72 insertions, 2 deletions

diff --git a/protocol.f90 b/protocol.f90
index fa36fe7..bd109c1 100644
--- a/protocol.f90
+++ b/protocol.f90
@@ -8,11 +8,14 @@ implicit none
     integer, parameter::STATUS_PERMFAIL   = 5
     integer, parameter::STATUS_CERTREQ    = 6
     integer, parameter::STATUS_LOCALFAIL  = -1
-    
+
+    integer, parameter::BUFFER_SIZE = 256
+
 contains
 
     function request_url(url, unit_number, server_name) result(returncode)
     use request
+    use iso_c_binding
     implicit none
     
         character(*), intent(in)::url
@@ -23,7 +26,13 @@ contains
         
         character(:), allocatable::server
         
+        type(connection)::conn
+        
+        integer::bytes_received, i
+        character, dimension(BUFFER_SIZE)::buffer
+        
         returncode = -1
+        rewind(unit_number)
         
         if(present(server_name)) then
             allocate(character(len=len_trim(server_name)) :: server)
@@ -32,8 +41,40 @@ contains
             server = get_server_from_url(url)
         end if
     
+        conn = open_connection(server)
         
-    
+        if(conn%code == CONNECTION_OPEN) then
+            if(send_string(conn%ssl, url//c_carriage_return//c_new_line, trimming=.false.)) then
+                
+                bytes_received = retrieve_characters(conn%ssl, buffer)
+                
+                do while(bytes_received > 0)
+                
+                    do i=1, bytes_received
+                        write(unit_number, '(A1)', advance='no') buffer(i)
+                    end do
+                    
+                    bytes_received = retrieve_characters(conn%ssl, buffer)
+                end do
+                
+                rewind(unit_number)
+                read(unit_number, '(I1)') returncode
+                
+            else
+            
+                returncode = -1
+                write(unit_number, *) "Send Error: Could Not Send Request"
+            
+            end if
+            
+        else
+        
+            returncode = -1
+            write(unit_number, *) "Connection Error: "//trim(translate_connection_code(conn%code))
+        
+        end if
+        
+        call close_connection(conn)
     
     end function request_url
 
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