diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-06 10:17:03 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-06 10:17:03 -0400 |
| commit | 8ca6d21882c521fb78f1325e9a88a558364b3ad4 (patch) | |
| tree | c11030395ad1643f436213d0e6d511d2fd0a1131 /captain/http.f90 | |
| parent | 58575b7eb5bbce3b253d55f122ab4f401d49eeba (diff) | |
| download | levitating-8ca6d21882c521fb78f1325e9a88a558364b3ad4.tar.gz levitating-8ca6d21882c521fb78f1325e9a88a558364b3ad4.zip | |
CGI interface at least starts properly. Fixed rendering of templates to actually take place in CGI mode.
Diffstat (limited to 'captain/http.f90')
| -rw-r--r-- | captain/http.f90 | 11 |
1 files changed, 10 insertions, 1 deletions
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 |