aboutsummaryrefslogtreecommitdiff
path: root/captain/api.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2025-01-03 17:19:57 -0500
committerJeffrey Armstrong <jeff@approximatrix.com>2025-01-03 17:19:57 -0500
commitf7fc2a99bc435bfa699c710f2f6204d99379e1c2 (patch)
treee718e1d58621f18ab14a0c9d66d8e014cb65faa6 /captain/api.f90
parentf43007b637900d17c6c0ecdb9aeeab4393e03c3f (diff)
downloadlevitating-f7fc2a99bc435bfa699c710f2f6204d99379e1c2.tar.gz
levitating-f7fc2a99bc435bfa699c710f2f6204d99379e1c2.zip
Results should now be gzipd as they arrive and unzipped only upon request.
Diffstat (limited to 'captain/api.f90')
-rw-r--r--captain/api.f903
1 files changed, 3 insertions, 0 deletions
diff --git a/captain/api.f90 b/captain/api.f90
index fa72b9d..455c3b0 100644
--- a/captain/api.f90
+++ b/captain/api.f90
@@ -256,6 +256,9 @@ contains
if(req%write_to(fullpath)) then
+ ! Compress all these damn results
+ call execute_command_line('gzip -9 "'//fullpath//'"', wait=.false.)
+
resp%code = GEMINI_CODE_SUCCESS
call resp%set_body_contents(RESPONSE_JSON_OKAY)
resp%body_mimetype = "text/plain"