From 7614a6244d080b8c0f82da8c34ccf7a4a88fe72a Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 29 Mar 2021 08:48:48 -0400
Subject: Added handling for basic external requests.

---
 captain/gemini.f90 | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 53 insertions(+), 3 deletions(-)

(limited to 'captain/gemini.f90')

diff --git a/captain/gemini.f90 b/captain/gemini.f90
index 7f21392..31b1deb 100644
--- a/captain/gemini.f90
+++ b/captain/gemini.f90
@@ -43,11 +43,57 @@ contains
     
     end subroutine read_request
 
+    function read_into_buffer(unit_number, buffer)
+    implicit none
+    
+        integer, intent(in)::unit_number
+        character, dimension(*), intent(out)::buffer
+        integer::read_into_buffer
+        
+        integer::i, ierr
+        
+        ierr = 0
+        i = 0
+        do while(ierr == 0 .and. i < len(buffer))
+            i = i + 1
+            read(unit_number, iostat=ierr) buffer(i)
+        end do
+            
+        if(ierr /= 0) then
+            i = i - 1
+        end if
+        
+        read_into_buffer = i
+    
+    end function read_into_buffer
+
+    subroutine write_file(ssl, unit_number, mimetype)
+    use iso_c_binding, only: c_ptr, c_carriage_return, c_new_line
+    use jessl, only: ssl_write
+    implicit none
+    
+        type(c_ptr)::ssl
+        integer, intent(in)::unit_number
+        character(*), intent(in)::mimetype
+        character, dimension(64)::buf
+        integer::buflen, written
+        
+        call write_string(ssl, "20 "//trim(mimetype)//c_carriage_return//c_new_line)
+        
+        buflen = read_into_buffer(unit_number, buf)
+        do while(buflen > 0)
+            written = ssl_write(ssl, buf(1:buflen))
+            buflen = read_into_buffer(unit_number, buf)
+        end do
+            
+    end subroutine write_file
+
     subroutine handle_request()
     use jessl
     use iso_c_binding
     use config
     use iso_fortran_env
+    use external_handling, only: external_request_gemini
     implicit none
     
         ! For our TLS connection
@@ -60,6 +106,8 @@ contains
         character(1024)::request
         character(512)::mimetype
                 
+        integer::rendered_unit
+                
         call library_init()
 
         method = tls_server_method()
@@ -124,13 +172,15 @@ contains
             if(request(1:4) == '/api') then
                 !call handle_api_request(request)
             else 
-                call external_request_gemini(request)
+                rendered_unit = external_request_gemini(request)
             end if
         else
-            call external_request_gemini(request)
+            rendered_unit = external_request_gemini(request)
         end if
         
-
+        call write_file(ssl, rendered_unit, "text/gemini")
+        
+        close(rendered_unit)
     
     end subroutine handle_request
 
-- 
cgit v1.2.3