summaryrefslogtreecommitdiff
path: root/gnu/packages/admin.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2015-02-03 23:35:42 -0500
committerMark H Weaver <mhw@netris.org>2015-02-04 18:20:17 -0500
commit4fb7e0de197a44cbf9aeacc6131128559d72caf3 (patch)
treeea9068c09ca558b2e7b1daf89db3316a953aae86 /gnu/packages/admin.scm
parent698761587c218d6872976251f979c5440a65a8c6 (diff)
gnu: wpa-supplicant: Add dbus support; add wpa-supplicant-light.
* gnu/packages/admin.scm (wpa-supplicant-light): New variable containing the previous dbus-free package, but renamed. Remove outdated TODO comments. (wpa-supplicant): Now inherits from wpa-supplicant-light but adds dbus support. * gnu/system/install.scm (installation-os): Use wpa-supplicant-light.
Diffstat (limited to 'gnu/packages/admin.scm')
-rw-r--r--gnu/packages/admin.scm33
1 files changed, 23 insertions, 10 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index b6f8e199b8..b1666bdc7a 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -22,6 +22,7 @@
(define-module (gnu packages admin)
#:use-module (guix licenses)
#:use-module (guix packages)
+ #:use-module (guix utils)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
@@ -677,9 +678,9 @@ commands and their arguments.")
;; See <http://www.sudo.ws/sudo/license.html>.
(license x11)))
-(define-public wpa-supplicant
+(define-public wpa-supplicant-light
(package
- (name "wpa-supplicant")
+ (name "wpa-supplicant-light")
(version "2.3")
(source (origin
(method url-fetch)
@@ -704,11 +705,6 @@ commands and their arguments.")
# Choose GnuTLS (the default is OpenSSL.)
CONFIG_TLS=gnutls
- # TODO: Add a variant of this package with DBus support.
- #CONFIG_CTRL_IFACE_DBUS=y
- #CONFIG_CTRL_IFACE_DBUS_NEW=y
- #CONFIG_CTRL_IFACE_DBUS_INTRO=y
-
CONFIG_DRIVER_NL80211=y
CFLAGS += $(shell pkg-config libnl-3.0 --cflags)
CONFIG_LIBNL32=y
@@ -745,9 +741,6 @@ commands and their arguments.")
(inputs
`(("readline" ,readline)
("libnl" ,libnl)
- ;; TODO: Add a variant with DBus support. This significantly increases
- ;; the size of its closure since DBus depends on libx11.
- ;; ("dbus" ,dbus)
("gnutls" ,gnutls)
("libgcrypt" ,libgcrypt))) ;needed by crypto_gnutls.c
(native-inputs
@@ -766,6 +759,26 @@ This package provides the 'wpa_supplicant' daemon and the 'wpa_cli' command.")
;; In practice, this is linked against Readline, which makes it GPLv3+.
(license bsd-3)))
+(define-public wpa-supplicant
+ (package (inherit wpa-supplicant-light)
+ (name "wpa-supplicant")
+ (inputs `(("dbus" ,dbus)
+ ,@(package-inputs wpa-supplicant-light)))
+ (arguments
+ (substitute-keyword-arguments (package-arguments wpa-supplicant-light)
+ ((#:phases phases)
+ `(alist-cons-after
+ 'configure 'configure-for-dbus
+ (lambda _
+ (let ((port (open-file ".config" "al")))
+ (display "
+ CONFIG_CTRL_IFACE_DBUS=y
+ CONFIG_CTRL_IFACE_DBUS_NEW=y
+ CONFIG_CTRL_IFACE_DBUS_INTRO=y\n" port)
+ (close-port port))
+ #t)
+ ,phases))))))
+
(define-public wakelan
(package
(name "wakelan")