02/02: hydra: build-machines: Add "hydra" user to Childhurd.

[Jan Nieuwenhuizen]

janneke pushed a commit to branch master
in repository maintenance.

commit 4e43c8580eb4ac43d33c6ddb89a014669cde17c8
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Wed Sep 23 18:02:15 2020 +0200

    hydra: build-machines: Add "hydra" user to Childhurd.
    
    This enables offloading as user "hydra" to a childhurd.
    
    * hydra/modules/sysadmin/build-machines.scm (berlin-new-build-machine-os):
    [childhurd-os]<users>: Add "hydra" user.
    <services>: Modify openssh-service-type to set their SSH-key.
---
 hydra/modules/sysadmin/build-machines.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/hydra/modules/sysadmin/build-machines.scm 
b/hydra/modules/sysadmin/build-machines.scm
index 233dff4..5a79291 100644
--- a/hydra/modules/sysadmin/build-machines.scm
+++ b/hydra/modules/sysadmin/build-machines.scm
@@ -113,10 +113,24 @@ EMULATED-ARCHITECTURES, unless it's empty."
                    (string-append "127.0.0.1 localhost " host-name "\n"
                                   "::1       localhost " host-name "\n"
                                   "141.80.167.131 ci.guix.gnu.org\n")))
+      (users (cons* (user-account
+                     (name "hydra")
+                     (group "users")
+                     (home-directory "/home/hydra")
+                     (comment "Hydra User -- for offloading"))
+                    %base-user-accounts))
       (services
        (cons* (service mcron-service-type
                        (mcron-configuration (jobs (list gc-job))))
-              (operating-system-user-services %hurd-vm-operating-system)))))
+              (modify-services
+                  (operating-system-user-services %hurd-vm-operating-system)
+                (openssh-service-type
+                 config =>
+                 (openssh-configuration
+                  (inherit config)
+                  (authorized-keys
+                   `(("hydra"
+                      ,(local-file 
"../../keys/ssh/hydra.gnu.org.pub")))))))))))
 
   (define (childhurd-net-options config)
     "Expose SSH and VNC ports on 0.0.0.0; for first Childhurd VM those