[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: hydra: sysadmin: Remove old berlin OS procedure.
From: |
Ricardo Wurmus |
Subject: |
branch master updated: hydra: sysadmin: Remove old berlin OS procedure. |
Date: |
Thu, 27 Feb 2020 06:53:06 -0500 |
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 '())
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: hydra: sysadmin: Remove old berlin OS procedure.,
Ricardo Wurmus <=