From f7fc2a99bc435bfa699c710f2f6204d99379e1c2 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 3 Jan 2025 17:19:57 -0500
Subject: Results should now be gzipd as they arrive and unzipped only upon
 request.

---
 captain/api.f90 | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'captain/api.f90')

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"
-- 
cgit v1.2.3