diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-07-12 22:56:40 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-07-12 23:17:54 +0200 |
| commit | 8897603ad02042f916911c406eb47f0b36d1f831 (patch) | |
| tree | 8ba6b8f205eb09971576a453fdbff344ccf50c36 | |
| parent | 89a0d00a38b48699c1edd9a13050a92ad6737286 (diff) | |
| download | guix-8897603ad02042f916911c406eb47f0b36d1f831.tar.gz | |
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.
| -rw-r--r-- | gnu/services/networking.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index f03161fe58..7abcd9ed15 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -55,7 +55,8 @@ gateway." ;; 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 @@ gateway." ;; 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 |