branch master updated: Replace execl with system* in mcron jobs.

[Maxim Cournoyer]

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 7607878  Replace execl with system* in mcron jobs.
7607878 is described below

commit 76078782392fe9826a6a47537ee9b85910fd96c9
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Nov 28 22:34:55 2022 -0500

    Replace execl with system* in mcron jobs.
    
    Using execl causes the run-job mcron forked guile process to be
    hijacked and the lost of some output annotation.
    
    * doc/infra-handbook.org (Btrfs balance mcron job): Replace execl with
    system* and drop first argument.
    * hydra/berlin.scm (btrfs-balance-job): Likewise.
    * hydra/deploy-node-129.scm (btrfs-balance-job): Likewise.
    * hydra/milano-guix-1.scm (btrfs-balance-job): Likewise.
    * hydra/modules/sysadmin/overdrive.scm (btrfs-balance-job): Likewise.
    * hydra/monokuma.scm (btrfs-balance-job): Likewise.
---
 doc/infra-handbook.org               | 4 ++--
 hydra/berlin.scm                     | 4 ++--
 hydra/deploy-node-129.scm            | 4 ++--
 hydra/milano-guix-1.scm              | 4 ++--
 hydra/modules/sysadmin/overdrive.scm | 4 ++--
 hydra/monokuma.scm                   | 4 ++--
 6 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/doc/infra-handbook.org b/doc/infra-handbook.org
index c27ab91..c72de57 100644
--- a/doc/infra-handbook.org
+++ b/doc/infra-handbook.org
@@ -197,8 +197,8 @@ file:../hydra/deploy-node-129.scm machine configuration:
   ;; low (5%) to minimize wear on the SSD.  Runs at 5 AM every 3 days.
   #~(job '(next-hour-from (next-day (range 1 31 3)) '(5))
          (lambda ()
-           (execl #$(file-append btrfs-progs "/bin/btrfs") "btrfs"
-                  "balance" "start" "-dusage=5" "/"))
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 #+end_src
 
diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index 545762f..dd8a2eb 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -239,8 +239,8 @@ at MOUNT-POINT."
   ;; low (5%) to minimize wear on the SSD.  Runs at 5 AM every 3 days.
   #~(job '(next-hour-from (next-day (range 1 31 3)) '(5))
          (lambda ()
-           (execl #$(file-append btrfs-progs "/bin/btrfs") "btrfs"
-                  "balance" "start" "-dusage=5" "/"))
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 
 (define (anonip-service file)
diff --git a/hydra/deploy-node-129.scm b/hydra/deploy-node-129.scm
index fe8048d..dfb6923 100644
--- a/hydra/deploy-node-129.scm
+++ b/hydra/deploy-node-129.scm
@@ -72,8 +72,8 @@
   ;; low (5%) to minimize wear on the SSD.  Runs at 5 AM every 3 days.
   #~(job '(next-hour-from (next-day (range 1 31 3)) '(5))
          (lambda ()
-           (execl #$(file-append btrfs-progs "/bin/btrfs") "btrfs"
-                  "balance" "start" "-dusage=5" "/"))
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 
 (define %multipath.conf
diff --git a/hydra/milano-guix-1.scm b/hydra/milano-guix-1.scm
index 528bc98..6fea79d 100644
--- a/hydra/milano-guix-1.scm
+++ b/hydra/milano-guix-1.scm
@@ -44,8 +44,8 @@
   ;; low (5%) to minimize wear on the SSD.  Runs at 5 AM every 3 days.
   #~(job '(next-hour-from (next-day (range 1 31 3)) '(5))
          (lambda ()
-           (execl #$(file-append btrfs-progs "/bin/btrfs") "btrfs"
-                  "balance" "start" "-dusage=5" "/"))
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 
 
diff --git a/hydra/modules/sysadmin/overdrive.scm 
b/hydra/modules/sysadmin/overdrive.scm
index 0e5c4de..b605285 100644
--- a/hydra/modules/sysadmin/overdrive.scm
+++ b/hydra/modules/sysadmin/overdrive.scm
@@ -78,8 +78,8 @@
   ;; low (5%) to minimize wear on the SSD.  Runs at 5 AM every 3 days.
   #~(job '(next-hour-from (next-day (range 1 31 3)) '(5))
          (lambda ()
-           (execl #$(file-append btrfs-progs "/bin/btrfs") "btrfs"
-                  "balance" "start" "-dusage=5" "/"))
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 
 (define %common-btrfs-options '(("compress-force" . "zstd")
diff --git a/hydra/monokuma.scm b/hydra/monokuma.scm
index f4f3b70..b0438d7 100644
--- a/hydra/monokuma.scm
+++ b/hydra/monokuma.scm
@@ -32,8 +32,8 @@
   ;; low (5%) to minimize wear on the SSD.  Runs at 5 AM every 3 days.
   #~(job '(next-hour-from (next-day (range 1 31 3)) '(5))
          (lambda ()
-           (execl #$(file-append btrfs-progs "/bin/btrfs") "btrfs"
-                  "balance" "start" "-dusage=5" "/"))
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 
 ;; The actual machine.