From 8ca6d21882c521fb78f1325e9a88a558364b3ad4 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 6 May 2021 10:17:03 -0400
Subject: CGI interface at least starts properly.  Fixed rendering of templates
 to actually take place in CGI mode.

---
 captain/http.f90 | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'captain/http.f90')

diff --git a/captain/http.f90 b/captain/http.f90
index 08f0fbd..806d025 100644
--- a/captain/http.f90
+++ b/captain/http.f90
@@ -9,14 +9,21 @@ implicit none
 contains
 
     subroutine write_status(outunit, code)
+    use logging
     implicit none
     
         integer, intent(in)::outunit, code
+        character(len=32)::confirm
+        
         write(outunit,'(A7,1X,I3)') "Status:", code
-    
+        
+        write(confirm,'(A7,1X,I3)') "Status:", code
+        call write_log(trim(confirm), LOG_INFO)
+        
     end subroutine write_status
 
     subroutine write_response_headers(outunit, code, filesize, mimetype)
+    use logging
     implicit none
     
         integer, intent(in)::outunit, code, filesize
@@ -24,6 +31,8 @@ contains
         
         character(16)::num_txt
         
+        character(len=128)::confirm
+        
         call write_status(outunit, code)
         
         write(num_txt, '(I16)') filesize
-- 
cgit v1.2.3