diff options
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 |