TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: wireguard-tools: Fix wg-quick.

Browse source 
* gnu/packages/vpn.scm (wireguard-tools)[arguments]: Add phase
'wrap-wg-quick'.
[inputs]: Add 'openresolv', 'iproute' and 'iptables'.
This commit is contained in:
Brice Waegeneire 2020-05-08 11:36:12 +02:00
parent 6b6647f815
commit d084e71c0d
No known key found for this signature in database
GPG key ID: A94903A166A18FAE
1 changed files with 29 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/vpn.scm
View file

@ -40,7 +40,9 @@ (define-module (gnu packages vpn)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages check)
#:use-module (gnu packages dns)
#:use-module (gnu packages autotools)
#:use-module (gnu packages compression)
#:use-module (gnu packages gettext)
@ -541,7 +543,33 @@ (define-public wireguard-tools
#:phases
(modify-phases %standard-phases
;; No configure script
(delete 'configure))))
(delete 'configure)
(add-after 'install 'install-contrib-docs
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(copy-recursively "contrib/"
(string-append out "/share/doc/wireguard-tools"))
#t)))
(add-after 'install 'wrap-wg-quick
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(inputs-sbin (map (lambda (input)
(string-append (assoc-ref inputs input) "/sbin"))
(list "resolvconf" "iproute" "procps"
"iptables")))
(coreutils (string-append (assoc-ref inputs "coreutils")
"/bin")))
(wrap-program (string-append out "/bin/wg-quick")
`("PATH" ":" prefix ,(append inputs-sbin
(list coreutils))))
#t))))))
(inputs
`(("resolvconf" ,openresolv)
("coreutils" ,coreutils)
("bash" ,bash) ; for scripts using /dev/tcp
("procps" ,procps)
("iproute" ,iproute)
("iptables" ,iptables)))
(home-page "https://www.wireguard.com/")
(synopsis "Tools for configuring WireGuard tunnels")
(description