branch master updated: hydra/berlin: Add multipath configuration.

[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 84bef66  hydra/berlin: Add multipath configuration.
84bef66 is described below

commit 84bef66d313859fc9d8e9d5e1af65857c5995e0b
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Nov 15 09:35:26 2022 +0100

    hydra/berlin: Add multipath configuration.
    
    * hydra/berlin.scm (%multipath.conf): New variable.
    (packages): Add multipath-tools.
    (services): Add simple service extension to etc-service-type.
---
 hydra/berlin.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index d36b270..238034b 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -104,6 +104,38 @@ Best practices:
 
 Happy hacking!\n"))
 
+(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 %copy-kernel-and-initrd
   ;; The storage device where the root file system is is invisible to
@@ -309,12 +341,17 @@ at MOUNT-POINT."
                    msmtp
                    ;; This is for bypassing the firewall...
                    torsocks
+                   ;; This is for a redundant connection to the SAN
+                   multipath-tools
                    %base-packages))
 
   (services (cons*
              (simple-service 'copy-kernel+initrd-to-/boot
                              activation-service-type
                              %copy-kernel-and-initrd)
+             (simple-service 'etc-multipath.conf
+                             etc-service-type
+                             (list `("multipath.conf" ,%multipath.conf)))
 
              (service static-networking-service-type
                       (list (static-networking