gnu: network-manager-openvpn: Patch hardcoded paths.

* gnu/packages/gnome.scm (network-manager-openvpn)[arguments]: Add custom
'patch-path' phase to replace references to openvpn and modprobe.
[inputs]: Add kmod.
This commit is contained in:
Jelle Licht 2019-07-07 21:01:05 +02:00
parent d9af93c4ea
commit 633422b0e6
No known key found for this signature in database
GPG key ID: DA4597F947B41025

View file

@ -37,6 +37,7 @@
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -5447,12 +5448,31 @@ (define-public network-manager-openvpn
"0gyrv46h9k17qym48qacq4zpxbap6hi17shn921824zm98m2bdvr"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")))
`(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
#:phases
(modify-phases %standard-phases
(add-after 'configure 'patch-path
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
(let* ((ovpn (string-append (assoc-ref inputs "openvpn")
"/sbin/openvpn"))
(modprobe (string-append (assoc-ref inputs "kmod")
"/bin/modprobe"))
(pretty-ovpn (string-append "\"" ovpn "\"")))
(for-each
(lambda (file)
(substitute* file
(("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
(("\"/usr/sbin/openvpn\"") pretty-ovpn)
(("\"/sbin/openvpn\"") pretty-ovpn)
(("/sbin/modprobe") modprobe)))
'("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)
("intltool" ,intltool)))
(inputs
`(("gtk+" ,gtk+)
("kmod" ,kmod)
("openvpn" ,openvpn)
("network-manager" ,network-manager)
("network-manager-applet" ,network-manager-applet) ;for libnma