GNU bug report logs - #73927
[PATCH 00/16] Installer support for (cross) installing the Hurd.

Previous Next

Full log

View this message in rfc822 format

From: Janneke Nieuwenhuizen <janneke <at> gnu.org>
To: 73927 <at> debbugs.gnu.org
Cc: Josselin Poiret <dev <at> jpoiret.xyz>, Ludovic Courtès <ludo <at> gnu.org>, Mathieu Othacehe <othacehe <at> gnu.org>
Subject: [bug#73927] [PATCH 15/16] installer: Add static-networking template.
Date: Mon, 21 Oct 2024 10:17:11 +0200

* gnu/installer/services.scm (%system-services): Add
static-networking-service-type.

Change-Id: Iec6336f8d1f49e8b801e978d5c9eeb4f83a6e748
---
 gnu/installer/services.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index d5a382606c..8b117d9a20 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -149,6 +149,28 @@ (define (%system-services)
       (name (G_ "DHCP client (dynamic IP address assignment)"))
       (type 'network-management)
       (snippet '((service dhcp-client-service-type))))
+     (system-service
+      (name (G_ "Static networking service."))
+      (type 'network-management)
+      (snippet `((service
+                  static-networking-service-type
+                  (list %loopback-static-networking
+                        (static-networking
+                         (addresses
+                          (list
+                           (network-address
+                            (device "eth0")
+                            ,(comment (G_ ";; Fill-in your IP.\n"))
+                            (value "192.168.178.10/24"))))
+                         (routes
+                          (list (network-route
+                                 (destination "default")
+                                 ,(comment (G_ ";; Fill-in your gateway IP.\n"))
+                                 (gateway "192.168.178.1"))))
+                         (requirement '())
+                         (provision '(networking))
+                         ,(comment (G_ ";; Fill-in your nameservers.\n"))
+                         (name-servers '("192.168.178.1"))))))))
 
      ;; Dealing with documents.
      (system-service
-- 
2.46.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.