branch master updated: hydra: sysadmin: Remove old berlin OS procedure.

[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 f2b32fa  hydra: sysadmin: Remove old berlin OS procedure.
f2b32fa is described below

commit f2b32fa5d8d2dbc368db3d12e48f03b29306c593
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Thu Feb 27 12:52:26 2020 +0100

    hydra: sysadmin: Remove old berlin OS procedure.
    
    * hydra/modules/sysadmin/build-machines.scm (berlin-build-machine-os):
    Remove procedure.
---
 hydra/modules/sysadmin/build-machines.scm | 102 ------------------------------
 1 file changed, 102 deletions(-)

diff --git a/hydra/modules/sysadmin/build-machines.scm 
b/hydra/modules/sysadmin/build-machines.scm
index d4cea59..32ba2c4 100644
--- a/hydra/modules/sysadmin/build-machines.scm
+++ b/hydra/modules/sysadmin/build-machines.scm
@@ -30,7 +30,6 @@
   #:use-module (sysadmin people)
   #:use-module (gnu packages ssh)
   #:export (build-machine-os
-            berlin-build-machine-os
             berlin-new-build-machine-os))
 
 ;;; Commentary:
@@ -74,107 +73,6 @@ HOST-NAME and accessibly by SYSADMINS, with the given 
AUTHORIZED-GUIX-KEYS."
                                            (authorized-keys
                                             authorized-guix-keys))))))))
 
-(define* (berlin-build-machine-os id
-                                  #:key
-                                  (authorized-guix-keys '())
-                                  (emulated-architectures '()))
-  "Return the <operating-system> declaration for a build machine for
-berlin.guixsd.org with integer ID, with the given
-AUTHORIZED-GUIX-KEYS.  Add a 'qemu-binfmt-service' for
-EMULATED-ARCHITECTURES, unless it's empty."
-
-  (define gc-job
-    ;; Run 'guix gc' at 3AM and 3PM every day.
-    #~(job '(next-hour '(3 15))
-           "guix gc -F 90G"))
-
-  (define sysadmins
-    (list (sysadmin (name "ludo")
-                    (full-name "Ludovic Courtès")
-                    (ssh-public-key (local-file "../../keys/ssh/ludo.pub")))
-          (sysadmin (name "rekado")
-                    (full-name "Ricardo Wurmus")
-                    (ssh-public-key (local-file "../../keys/ssh/rekado.pub")))
-          (sysadmin (name "hydra")                ;fake sysadmin
-                    (full-name "Hydra User")
-                    (restricted? #t)
-                    (ssh-public-key
-                     (local-file "../../keys/ssh/hydra.gnu.org.pub")))))
-
-
-  (operating-system
-    (host-name (format #f "hydra-guix-~2,'0d" id))
-    (timezone "Europe/Berlin")
-    (locale "en_US.utf8")
-    (kernel-arguments '("console=tty0" "console=ttyS1,9600n8"))
-    (initrd-modules (append (list "sata_nv") %base-initrd-modules))
-    (bootloader (bootloader-configuration
-                 (bootloader grub-bootloader)
-                 (target "/dev/sda")
-                 (terminal-inputs '(serial))
-                 (terminal-outputs '(serial))))
-    (file-systems (cons (file-system
-                          (device (file-system-label "my-root"))
-                          (mount-point "/")
-                          (type "ext4"))
-                        %base-file-systems))
-    (users (cons (user-account
-                  (name "bi-admin")
-                  (comment "Local admin")
-                  (group "users")
-                  (supplementary-groups '("wheel"))
-                  (home-directory "/home/bi-admin"))
-                 %base-user-accounts))
-
-    (packages (cons* openssh %base-packages))
-    (services (cons* (simple-service 'guile-load-path-in-global-env
-                                     session-environment-service-type
-                                     `(("GUILE_LOAD_PATH"
-                                        . 
"/run/current-system/profile/share/guile/site/2.2")
-                                       ("GUILE_LOAD_COMPILED_PATH"
-                                        . ,(string-append 
"/run/current-system/profile/lib/guile/2.2/site-ccache:"
-                                                          
"/run/current-system/profile/share/guile/site/2.2"))))
-                     (agetty-service (agetty-configuration
-                                      (tty "ttyS1")
-                                      (baud-rate "9600")))
-                     (static-networking-service "enp0s8"
-                                                (format #f "141.80.167.~d" (+ 
131 id))
-                                                #:netmask "255.255.255.192"
-                                                #:gateway "141.80.167.129")
-                     (service zabbix-agent-service-type
-                              (zabbix-agent-configuration
-                               (server '("141.80.167.131"))
-                               (server-active '("141.80.167.131"))))
-                     (service mcron-service-type
-                              (mcron-configuration
-                               (jobs (list gc-job))))
-                     (service ntp-service-type
-                              (ntp-configuration
-                               (allow-large-adjustment? #t)))
-                     (service sysadmin-service-type sysadmins)
-                     (service openssh-service-type
-                              (openssh-configuration
-                               (extra-content "\
-Match Address 141.80.167.131
-  PermitRootLogin yes")))
-
-                     `(,@(if (null? emulated-architectures)
-                             '()
-                             (list (service qemu-binfmt-service-type
-                                            (qemu-binfmt-configuration
-                                             (platforms
-                                              (apply lookup-qemu-platforms
-                                                     emulated-architectures))
-                                             (guix-support? #t)))))
-
-                       ,@(modify-services %base-services
-                           (guix-service-type config =>
-                                              (guix-configuration
-                                               (inherit config)
-                                               (use-substitutes? #f)
-                                               (authorized-keys
-                                                authorized-guix-keys)))))))))
-
 (define* (berlin-new-build-machine-os id
                                       #:key
                                       (authorized-guix-keys '())