From a8a43100a58234a55379e061cf8bb1f8ffac08b3 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 2 Aug 2019 13:03:14 +0200
Subject: [PATCH] Exclude temp files in tar

---
 ocaml/qp_tunnel.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ocaml/qp_tunnel.ml b/ocaml/qp_tunnel.ml
index 17e52841..75112e66 100644
--- a/ocaml/qp_tunnel.ml
+++ b/ocaml/qp_tunnel.ml
@@ -330,7 +330,7 @@ let () =
         match arg with
         | EZFIO x -> 
           begin
-            Printf.sprintf "tar -zcf %s %s" temp_file x
+            Printf.sprintf "tar --exclude=\"*.gz.*\" -zcf %s %s" temp_file x
             |> Sys.command |> ignore;
             let fd =
               Unix.openfile  temp_file  [Unix.O_RDONLY]  0o640