gnu: vm: Set the default networking route.

* gnu/system/dmd.scm (static-networking-service): Add #:gateway
  parameter and honor it.
* gnu/system/vm.scm (system-qemu-image): Pass #:gateway to
  'static-networking-service'.
This commit is contained in:
Ludovic Courtès 2013-09-26 21:10:53 +02:00
parent 85e0dc6a6b
commit 59c5c4dee1
2 changed files with 23 additions and 6 deletions

View file

@ -27,6 +27,8 @@ (define-module (gnu system dmd)
#:select (mingetty inetutils))
#:use-module ((gnu packages package-management)
#:select (guix))
#:use-module ((gnu packages linux)
#:select (net-tools))
#:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:export (service?
@ -155,20 +157,34 @@ (define* (guix-service store #:key (guix guix))
(inputs `(("guix" ,guix))))))
(define* (static-networking-service store interface ip
#:key (inetutils inetutils))
"Return a service that starts INTERFACE with address IP."
#:key
gateway
(inetutils inetutils)
(net-tools net-tools))
"Return a service that starts INTERFACE with address IP. If GATEWAY is
true, it must be a string specifying the default network gateway."
;; TODO: Eventually we should do this using Guile's networking procedures,
;; like 'configure-qemu-networking' does, but the patch that does this is
;; not yet in stock Guile.
(let ((ifconfig (string-append (package-output store inetutils)
"/bin/ifconfig")))
"/bin/ifconfig"))
(route (string-append (package-output store net-tools)
"/sbin/route")))
(service
(provision '(networking))
(start `(make-forkexec-constructor ,ifconfig ,interface ,ip "up"))
(start `(lambda _
(and (zero? (system* ,ifconfig ,interface ,ip "up"))
,(if gateway
`(zero? (system* ,route "add" "-net" "default"
"gw" ,gateway))
#t))))
(stop `(make-forkexec-constructor ,ifconfig ,interface "down"))
(respawn? #f)
(inputs `(("inetutils" ,inetutils))))))
(inputs `(("inetutils" ,inetutils)
,@(if gateway
`(("net-tools" ,net-tools))
'()))))))
(define (dmd-configuration-file store services)

View file

@ -459,7 +459,8 @@ (define %dmd-services
(nscd-service store)
;; QEMU networking settings.
(static-networking-service store "eth0" "10.0.2.10")))
(static-networking-service store "eth0" "10.0.2.10"
#:gateway "10.0.2.2")))
(define resolv.conf
;; Name resolution for default QEMU settings.