aboutsummaryrefslogtreecommitdiff
path: root/captain/api.f90
diff options
context:
space:
mode:
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"