01/01: hydra: bayfront: Adapt configuration to data centre.

[Andreas Enge]

andreas pushed a commit to branch master
in repository maintenance.

commit 09fcfc4db36b85e8ee4bf05f19f8a9cc5524f842
Author: Andreas Enge <address@hidden>
Date:   Sun Nov 13 19:51:49 2016 +0100

    hydra: bayfront: Adapt configuration to data centre.
    
    * hydra/bayfront.scm [services} Replace dhcp-client-service by
    static-networking-service.
    Let lsh-service run on standard port 22.
---
 hydra/bayfront.scm |   23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index 4568f0b..fe24087 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -54,8 +54,12 @@
   (packages (cons* mdadm vim lm-sensors %base-packages))
 
   (services (cons* (service sysadmin-service-type %sysadmins)
-                   (dhcp-client-service)
-                   (lsh-service #:port-number 9024)
+                   ;; We need to configure ens10 as 141.255.128.57.
+                   (static-networking-service
+                    "ens9" "141.255.128.56"
+                    #:gateway "141.255.128.126"
+                    #:name-servers '("141.255.128.100" "141.255.129.101"))
+                   (lsh-service #:port-number 22)
                    (guix-publish-service #:port 9080)
 
                    (service rottlog-service-type (rottlog-configuration))
@@ -63,11 +67,12 @@
                             (mcron-configuration
                              (jobs (list %gc-job))))
 
-                   (modify-services %base-services
-                     ;; Disable substitutes altogether.
-                     (guix-service-type config =>
-                                        (guix-configuration
-                                         (inherit config)
-                                         (authorized-keys '())
-                                         (use-substitutes? #f)))))))
+;;                   (modify-services %base-services
+;;                     ;; Disable substitutes altogether.
+;;                     (guix-service-type config =>
+;;                                        (guix-configuration
+;;                                         (inherit config)
+;;                                         (authorized-keys '())
+;;                                         (use-substitutes? #f))))
+                   %base-services)))