CP-51772: Forward baggage from xe-cli

If baggage is present in the environment, it will be sent to xapi-cli-server. Signed-off-by: Colin James <[email protected]>
psafont · Nov 26, 2024 · 4eb7185 · 4eb7185
1 parent 8e20e3e
commit 4eb7185
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/ocaml/xe-cli/newcli.ml b/ocaml/xe-cli/newcli.ml
@@ -817,6 +817,9 @@ let main () =
         let args = String.concat "\n" args in
         Printf.fprintf oc "User-agent: xe-cli/Unix/%d.%d\r\n" major minor ;
         Option.iter (Printf.fprintf oc "traceparent: %s\r\n") traceparent ;
+        Option.iter
+          (Printf.fprintf oc "baggage: %s\r\n")
+          (Sys.getenv_opt "BAGGAGE") ;
         Printf.fprintf oc "content-length: %d\r\n\r\n" (String.length args) ;
         Printf.fprintf oc "%s" args ;
         flush_all () ;