~ruther/guix-local: gnu: dmd: Make the 'networking' service slightly more robust.

87eb734d38dff72ccdffd6c5f711d276aa3f9334 — Ludovic Courtès 12 years ago 17886b3

gnu: dmd: Make the 'networking' service slightly more robust.

* gnu/system/dmd.scm (static-networking-service)[start]: Sleep before
  running 'route', to leave time for the interface to come up.
  [stop]: Run "route del -net default".

patch browse .tar.gz

1 files changed, 7 insertions(+), 3 deletions(-)

M gnu/system/dmd.scm

M gnu/system/dmd.scm => gnu/system/dmd.scm +7 -3

@@ 178,10 178,14 @@ true, it must be a string specifying the default network gateway."
      (start `(lambda _
                (and (zero? (system* ,ifconfig ,interface ,ip "up"))
                     ,(if gateway
-                         `(zero? (system* ,route "add" "-net" "default"
-                                          "gw" ,gateway))
+                         `(begin
+                            (sleep 3)             ; XXX
+                            (zero? (system* ,route "add" "-net" "default"
+                                            "gw" ,gateway)))
                          #t))))
-     (stop  `(make-forkexec-constructor ,ifconfig ,interface "down"))
+     (stop  `(lambda _
+               (system* ,ifconfig ,interface "down")
+               (system* ,route "del" "-net" "default")))
      (respawn? #f)
      (inputs `(("inetutils" ,inetutils)
                ,@(if gateway