aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-01-11 11:16:14 +0100
committerLudovic Courtès <ludo@gnu.org>2017-01-11 11:16:14 +0100
commit69323016d31547356c7322682943b22af4df74ed (patch)
treed77719f2a8132f5c6ba03fac03705c40739320b4
parent7b903a920c7d1d85c129bc304f072e9806368b2a (diff)
downloadguix-69323016d31547356c7322682943b22af4df74ed.tar
guix-69323016d31547356c7322682943b22af4df74ed.tar.gz
services: wicd: Create /var/run/wpa_supplicant.
* gnu/services/networking.scm (%wicd-activation): Create /var/run/wpa_supplicant.
-rw-r--r--gnu/services/networking.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index d672ecf687..ac011f1286 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
@@ -633,7 +633,12 @@ configuration file."
(let ((file-name "/etc/wicd/dhclient.conf.template.default"))
(unless (file-exists? file-name)
(copy-file (string-append #$wicd file-name)
- file-name)))))
+ file-name)))
+
+ ;; Wicd invokes 'wpa_supplicant', which needs this directory for its
+ ;; named socket files.
+ (mkdir-p "/var/run/wpa_supplicant")
+ (chmod "/var/run/wpa_supplicant" #o750)))
(define (wicd-shepherd-service wicd)
"Return a shepherd service for WICD."