diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 15:09:09 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 15:09:09 -0400 |
| commit | c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac (patch) | |
| tree | e9714d50e2be010557992708ad92aa93522d3daa /captain/gemini.f90 | |
| parent | 8da227ca130355332fc92935cfbabc87bd0db078 (diff) | |
| download | levitating-c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac.tar.gz levitating-c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac.zip | |
Added script to scan and load instructions. Instructions now displayed on a page.
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 |