From c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 30 Mar 2021 15:09:09 -0400 Subject: Added script to scan and load instructions. Instructions now displayed on a page. --- captain/gemini.f90 | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'captain/gemini.f90') 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 -- cgit v1.2.3