From: alex <alex@infiniteadaptability.org>
Date: Wed, 3 Dec 2025 21:37:23 +0000 (-0800)
Subject: services: revert cloud-init service to previous known working verison
X-Git-Url: http://git.infiniteadaptability.org/?a=commitdiff_plain;h=0e3b7165dc8257d7b2a06c78cffb39e8373c4527;p=channel

services: revert cloud-init service to previous known working verison
---

diff --git a/infiniteadaptability/services/cloud-init.scm b/infiniteadaptability/services/cloud-init.scm
index 39e4ccf..f9a9a7f 100644
--- a/infiniteadaptability/services/cloud-init.scm
+++ b/infiniteadaptability/services/cloud-init.scm
@@ -38,6 +38,20 @@
 (define %cloud-cfg
   (string-append %cloud-dir "/cloud.cfg"))
 
+(define %cloud-run
+  (mixed-text-file "run.sh"
+                   "#!"
+                   (file-append bash "/bin/bash")
+                   "\n\nset -euo pipefail\n\n"
+                   (file-append python-cloud-init "/bin/cloud-init")
+                   " init --local\n"
+                   (file-append python-cloud-init "/bin/cloud-init")
+                   " init\n"
+                   (file-append python-cloud-init "/bin/cloud-init")
+                   " modules --mode config\n"
+                   (file-append python-cloud-init "/bin/cloud-init")
+                   " modules --mode final\n"))
+
 (define %cloud-cfg-d
   (string-append %cloud-dir "/cloud.cfg.d"))
 
@@ -57,6 +71,10 @@
 
       (mkdir-p #$%cloud-cfg-d)
 
+      (copy-file #$%cloud-run
+                 (string-append #$%cloud-dir "/run.sh"))
+      (chmod (string-append #$%cloud-dir "/run.sh") #o755)
+
       (unless (null? '(#$@extra))
         (for-each (lambda (file)
                     (symlink (cadr file)
@@ -99,15 +117,12 @@
   (define cloud-init
     (cloud-init-configuration-cloud-init config))
 
-  (define cloud-init-command
-    #~(list (string-append #$(cloud-init-configuration-cloud-init config)
-                           "/bin/cloud-init") "--all-stages"))
-
   (list (shepherd-service (documentation "cloud-init service")
                           (provision '(cloud-init))
                           (requirement '(networking))
                           (one-shot? #t)
-                          (start #~(fork+exec-command #$cloud-init-command
+                          (start #~(fork+exec-command (list (string-append #$%cloud-dir
+                                                             "/run.sh"))
                                                       #:log-file (string-append
                                                                   "/var/log/cloud-init.log")
                                                       #:environment-variables '