01/04: berlin: Add "guix deploy" config file for build nodes.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit a2192286f5db69fb78b122629ee7002c7debd634
Author: Ludovic Courtès <address@hidden>
Date:   Tue Nov 19 09:57:35 2019 +0100

    berlin: Add "guix deploy" config file for build nodes.
    
    * hydra/berlin-nodes.scm: New file.
---
 hydra/berlin-nodes.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/hydra/berlin-nodes.scm b/hydra/berlin-nodes.scm
new file mode 100644
index 0000000..aa75e70
--- /dev/null
+++ b/hydra/berlin-nodes.scm
@@ -0,0 +1,29 @@
+;; "guix deploy" configuration file for the build machines of the compile
+;; farm hosted at the MDC, Berlin.
+
+(use-modules (sysadmin build-machines)
+             (sysadmin people))
+
+(define %ids '(4 5 6 8 9 10 11 12 13 14 15
+                 ;;16 -> asks for root password
+                 ;;17 -> no route
+                 18
+                 ;;19, 20, 21, 22, 23, 24 -> asks for root password
+                 25
+                 ;;26 -> asks for root password
+                 ))
+
+(define (system-for id)
+  (berlin-build-machine-os id))
+
+(define (id->ip id)
+  (format #f "141.80.167.~d" (+ 131 id)))
+
+(map (lambda (id)
+       (machine
+        (operating-system (system-for id))
+        (environment managed-host-environment-type)
+        (configuration (machine-ssh-configuration
+                        (system "x86_64-linux")
+                        (host-name (id->ip id))))))
+     %ids)