branch master updated: hydra: Add multipath config to node 129.

[Ricardo Wurmus]

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

rekado pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 0ee5aee  hydra: Add multipath config to node 129.
0ee5aee is described below

commit 0ee5aee0b4c110521ced0ac518478c7cb656ee7b
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Nov 15 12:19:34 2022 +0100

    hydra: Add multipath config to node 129.
    
    * hydra/deploy-node-129.scm (%multipath.conf): New variable.
    (node-129-os)[packages]: Add multipath-tools.
    [services]: Add simple extension to etc-service-type to install
    /etc/multipath.conf.
---
 hydra/deploy-node-129.scm | 100 ++++++++++++++++++++++++++++++++--------------
 1 file changed, 69 insertions(+), 31 deletions(-)

diff --git a/hydra/deploy-node-129.scm b/hydra/deploy-node-129.scm
index c9fd729..bedb709 100644
--- a/hydra/deploy-node-129.scm
+++ b/hydra/deploy-node-129.scm
@@ -76,6 +76,38 @@
                   "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 
+(define %multipath.conf
+  (plain-file "multipath.conf"
+              "\
+defaults {
+  user_friendly_names \"yes\"
+  find_multipaths \"yes\"
+}
+blacklist {
+  devnode \"!^(sd[a-z]|dasd[a-z]|nvme[0-9])\"
+  device {
+    vendor \".*\"
+    product \".*\"
+  }
+}
+# allow only Dell Compelent volumes
+blacklist_exceptions {
+  device {
+    vendor \"COMPELNT\"
+    product \"Compellent Vol\"
+  }
+}
+devices {
+  device {
+    vendor \"COMPELNT\"
+    product \"Compellent Vol\"
+    path_grouping_policy \"group_by_prio\"
+    failback \"immediate\"
+    no_path_retry \"queue\"
+  }
+}
+"))
+
 
 (define node-129-os
   (let ((base-os (berlin-new-build-machine-os
@@ -92,7 +124,10 @@
        (bootloader-configuration
         (inherit (operating-system-bootloader base-os)) ;efi bootloader
         (targets (list "/boot/efi" "/boot/efi2" "/boot/efi3"
-                      "/boot/efi4" "/boot/efi5" ))))
+                              "/boot/efi4" "/boot/efi5" ))))
+      (packages
+       (cons* multipath-tools
+              (inherit (operating-system-packages base-os))))
       (file-systems (cons*
                     (file-system
                       (mount-point "/boot/efi")
@@ -124,36 +159,39 @@
                      %btrfs-pool
                      %base-file-systems))
       (services
-       (modify-services (operating-system-user-services base-os)
-         (mcron-service-type
-          config => (mcron-configuration
-                     (inherit config)
-                     (jobs (cons btrfs-balance-job
-                                 (mcron-configuration-jobs config)))))
-         (static-networking-service-type
-          networks =>
-          (cons (static-networking
-                 (addresses (list
-                             ;; This is a publicly accessible IP, to
-                             ;; allow accessing the Guix MDC network
-                             ;; via this machine when Berlin is down.
-                             (network-address
-                              (device "eno2")
-                              (value "141.80.181.41/24"))
-                             ;; This gives the machine access to the
-                             ;; iDRAC network, so that it can access
-                             ;; Berlin's iDRAC for example.
-                             (network-address
-                              (device "eno4")
-                              (value "141.80.167.251/26"))))
-                 (provision '(backdoor))) ;required else car error
-                networks))
-         (openssh-service-type
-          config => (openssh-configuration
-                     (inherit config)
-                     ;; Only accept public key authentication for
-                     ;; enhanced security.
-                     (password-authentication? #f)))))
+       (cons* (simple-service 'etc-multipath.conf
+                              etc-service-type
+                              (list `("multipath.conf" ,%multipath.conf)))
+              (modify-services (operating-system-user-services base-os)
+                (mcron-service-type
+                 config => (mcron-configuration
+                            (inherit config)
+                            (jobs (cons btrfs-balance-job
+                                        (mcron-configuration-jobs config)))))
+                (static-networking-service-type
+                 networks =>
+                 (cons (static-networking
+                        (addresses (list
+                                    ;; This is a publicly accessible IP, to
+                                    ;; allow accessing the Guix MDC network
+                                    ;; via this machine when Berlin is down.
+                                    (network-address
+                                     (device "eno2")
+                                     (value "141.80.181.41/24"))
+                                    ;; This gives the machine access to the
+                                    ;; iDRAC network, so that it can access
+                                    ;; Berlin's iDRAC for example.
+                                    (network-address
+                                     (device "eno4")
+                                     (value "141.80.167.251/26"))))
+                        (provision '(backdoor))) ;required else car error
+                       networks))
+                (openssh-service-type
+                 config => (openssh-configuration
+                            (inherit config)
+                            ;; Only accept public key authentication for
+                            ;; enhanced security.
+                            (password-authentication? #f))))))
       (swap-devices '()))))            ;cannot do swap on Btrfs RAID
 
 (list