diff options
Diffstat (limited to 'captain/http.f90')
| -rw-r--r-- | captain/http.f90 | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/captain/http.f90 b/captain/http.f90 index e58f05d..9e2fca5 100644 --- a/captain/http.f90 +++ b/captain/http.f90 @@ -44,19 +44,22 @@ contains end subroutine write_status - subroutine write_response_headers(outunit, code, filesize, mimetype) + subroutine write_response_headers(outunit, code, filesize, mimetype, cookiecmd) use logging implicit none integer, intent(in)::outunit, code, filesize character(*), intent(in)::mimetype + character(*), intent(in), optional::cookiecmd character(16)::num_txt - character(len=128)::confirm - call write_status(outunit, code) + if(present(cookiecmd)) then + write(outunit, '(A)') cookiecmd + end if + write(num_txt, '(I16)') filesize write(outunit, '(A15,1X)', advance='no') "Content-Length:" write(outunit, *) trim(adjustl(num_txt)) |