diff options
Diffstat (limited to 'captain/gemini.f90')
-rw-r--r-- | captain/gemini.f90 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/captain/gemini.f90 b/captain/gemini.f90 index 0930d17..46725cb 100644 --- a/captain/gemini.f90 +++ b/captain/gemini.f90 @@ -85,6 +85,9 @@ contains character(1024)::line write(int_text, '(I8)') code + line = trim(adjustl(int_text))//" "//trim(meta) + call write_log("Status line: "//trim(line)) + call write_string(ssl, trim(adjustl(int_text))//" "//trim(meta)//c_carriage_return//c_new_line) end subroutine write_status @@ -290,6 +293,11 @@ contains call req%destroy() call resp%destroy() + + + res = ssl_shutdown(ssl) + res = ssl_free(ssl) + res = ctx_free(ctx) end subroutine handle_request |