From 4e3577ce9f5679c8e3a8d0172f33e81c59d957ee Mon Sep 17 00:00:00 2001
From: Las Safin <me@las.rs>
Date: Tue, 16 Apr 2024 15:05:32 +0000
Subject: [PATCH] Get DA script from environment variable

Before it would chdir, assuming it's in the source code,
and call `npx hardhat run ./scripts/<script>`.

Now we get the script from an environment variable.
The contents of the environment variable is passed to `/bin/sh`.
---
 src/app/zeko/sequencer/lib/da_layer.ml | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/src/app/zeko/sequencer/lib/da_layer.ml b/src/app/zeko/sequencer/lib/da_layer.ml
index 34c1ee97e9..a01f6779ed 100644
--- a/src/app/zeko/sequencer/lib/da_layer.ml
+++ b/src/app/zeko/sequencer/lib/da_layer.ml
@@ -53,10 +53,14 @@ let post_batch (config : Config.t) ~commands ~batch_id ~previous_batch_id =
                 ; ("commands", `List (List.map commands ~f:command_to_yojson))
                 ] )
           in
-          let stdin =
-            Core.Unix.open_process_out
-              "cd ../da-layer && npx hardhat run scripts/postBatch.ts"
+          let postBatchCmd =
+            match Sys.getenv "DA_POST_BATCH" with
+            | Some cmd ->
+                cmd
+            | None ->
+                "exec $cd ../da-layer && npx hardhat run scripts/postBatch.ts"
           in
+          let stdin = Core.Unix.open_process_out postBatchCmd in
           let pid = UnixLabels.process_out_pid stdin in
           Out_channel.output_string stdin payload ;
           Out_channel.close stdin ;
@@ -74,10 +78,14 @@ let get_batches (config : Config.t) ~to_ =
           (`Assoc
             [ ("address", `String da_contract_address); ("to", `String to_) ] )
       in
-      let stdout, stdin =
-        Core.Unix.open_process
-          "cd ../da-layer && npx hardhat run scripts/getBatches.ts"
+      let getBatchesCmd =
+        match Sys.getenv "DA_GET_BATCHES" with
+        | Some cmd ->
+            cmd
+        | None ->
+            "exec $cd ../da-layer && npx hardhat run scripts/getBatches.ts"
       in
+      let stdout, stdin = Core.Unix.open_process getBatchesCmd in
       let pid = UnixLabels.process_pid (stdout, stdin) in
       Out_channel.output_string stdin payload ;
       Out_channel.close stdin ;