From 8897603ad02042f916911c406eb47f0b36d1f831 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 12 Jul 2014 22:56:40 +0200
Subject: [PATCH] services: networking: Set interfaces up; delete default route
only when needed.
* gnu/services/networking.scm (static-networking-service): Use -i, -A,
and --up with Inetutils' ifconfig. Do 'route del -net default' only
when GATEWAY is true.
---
gnu/services/networking.scm | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index f03161fe589..7abcd9ed15e 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -55,7 +55,8 @@ (define* (static-networking-service interface ip
;; Return #t if successfully started.
(and (zero? (system* (string-append #$inetutils
"/bin/ifconfig")
- #$interface #$ip "up"))
+ "-i" #$interface "-A" #$ip
+ "-i" #$interface "--up"))
#$(if gateway
#~(zero? (system* (string-append #$net-tools
"/sbin/route")
@@ -77,8 +78,11 @@ (define* (static-networking-service interface ip
;; Return #f is successfully stopped.
(not (and (system* (string-append #$inetutils "/bin/ifconfig")
#$interface "down")
- (system* (string-append #$net-tools "/sbin/route")
- "del" "-net" "default")))))
+ #$(if gateway
+ #~(system* (string-append #$net-tools
+ "/sbin/route")
+ "del" "-net" "default")
+ #t)))))
(respawn? #f)))))
;;; networking.scm ends here
--
GitLab