nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

services: wicd: Create /var/run/wpa_supplicant. 

* gnu/services/networking.scm (%wicd-activation): Create
/var/run/wpa_supplicant.
This commit is contained in:
Ludovic Courtès 2017-01-11 11:16:14 +01:00
parent 7b903a920c
commit 69323016d3
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/services/networking.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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 © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2016 John Darrington <jmd@gnu.org>
@ -633,7 +633,12 @@ configuration file."
(let ((file-name "/etc/wicd/dhclient.conf.template.default")) (let ((file-name "/etc/wicd/dhclient.conf.template.default"))
(unless (file-exists? file-name) (unless (file-exists? file-name)
(copy-file (string-append #$wicd 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) (define (wicd-shepherd-service wicd)
"Return a shepherd service for WICD." "Return a shepherd service for WICD."