2014-02-19 19:58:24 +00:00
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
|
|
|
|
;;;
|
|
|
|
;;; This file is part of GNU Guix.
|
|
|
|
;;;
|
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
;;; your option) any later version.
|
|
|
|
;;;
|
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
;;;
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
(define-module (gnu services networking)
|
|
|
|
#:use-module (gnu services)
|
|
|
|
#:use-module (gnu packages admin)
|
|
|
|
#:use-module (gnu packages linux)
|
2014-04-28 21:07:08 +00:00
|
|
|
#:use-module (guix gexp)
|
2014-02-19 19:58:24 +00:00
|
|
|
#:use-module (guix monads)
|
|
|
|
#:export (static-networking-service))
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
;;;
|
|
|
|
;;; Networking services.
|
|
|
|
;;;
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
(define* (static-networking-service interface ip
|
|
|
|
#:key
|
|
|
|
gateway
|
2014-07-12 20:46:44 +00:00
|
|
|
(provision '(networking))
|
2014-02-19 19:58:24 +00:00
|
|
|
(name-servers '())
|
|
|
|
(inetutils inetutils)
|
|
|
|
(net-tools net-tools))
|
2014-07-11 20:57:02 +00:00
|
|
|
"Return a service that starts @var{interface} with address @var{ip}. If
|
|
|
|
@var{gateway} is true, it must be a string specifying the default network
|
|
|
|
gateway."
|
2014-02-19 19:58:24 +00:00
|
|
|
|
|
|
|
;; 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.
|
2014-04-28 21:07:08 +00:00
|
|
|
(with-monad %store-monad
|
2014-02-19 19:58:24 +00:00
|
|
|
(return
|
|
|
|
(service
|
|
|
|
(documentation
|
|
|
|
(string-append "Set up networking on the '" interface
|
|
|
|
"' interface using a static IP address."))
|
2014-07-12 20:46:44 +00:00
|
|
|
(provision provision)
|
2014-04-28 21:07:08 +00:00
|
|
|
(start #~(lambda _
|
|
|
|
;; Return #t if successfully started.
|
|
|
|
(and (zero? (system* (string-append #$inetutils
|
|
|
|
"/bin/ifconfig")
|
|
|
|
#$interface #$ip "up"))
|
|
|
|
#$(if gateway
|
|
|
|
#~(zero? (system* (string-append #$net-tools
|
|
|
|
"/sbin/route")
|
|
|
|
"add" "-net" "default"
|
|
|
|
"gw" #$gateway))
|
|
|
|
#t)
|
|
|
|
#$(if (pair? name-servers)
|
|
|
|
#~(call-with-output-file "/etc/resolv.conf"
|
|
|
|
(lambda (port)
|
|
|
|
(display
|
|
|
|
"# Generated by 'static-networking-service'.\n"
|
|
|
|
port)
|
|
|
|
(for-each (lambda (server)
|
|
|
|
(format port "nameserver ~a~%"
|
|
|
|
server))
|
|
|
|
'#$name-servers)))
|
|
|
|
#t))))
|
|
|
|
(stop #~(lambda _
|
2014-02-19 19:58:24 +00:00
|
|
|
;; Return #f is successfully stopped.
|
2014-05-04 19:09:29 +00:00
|
|
|
(not (and (system* (string-append #$inetutils "/bin/ifconfig")
|
2014-04-28 21:07:08 +00:00
|
|
|
#$interface "down")
|
|
|
|
(system* (string-append #$net-tools "/sbin/route")
|
|
|
|
"del" "-net" "default")))))
|
|
|
|
(respawn? #f)))))
|
2014-02-19 19:58:24 +00:00
|
|
|
|
|
|
|
;;; networking.scm ends here
|