diff options
Diffstat (limited to 'gnu/packages/vpn.scm')
| -rw-r--r-- | gnu/packages/vpn.scm | 56 |
1 files changed, 52 insertions, 4 deletions
diff --git a/gnu/packages/vpn.scm b/gnu/packages/vpn.scm index 4ad555ef1b..5bf5a62481 100644 --- a/gnu/packages/vpn.scm +++ b/gnu/packages/vpn.scm @@ -18,6 +18,8 @@ ;;; Copyright © 2021 Domagoj Stolfa <ds815@gmx.com> ;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name> ;;; Copyright © 2021 jgart <jgart@dismail.de> +;;; Copyright © 2022 Josselin Poiret <josselin.poiret@protonmail.ch> +;;; Copyright © 2022 Lu hui <luhux76@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -38,6 +40,7 @@ #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix build-system cmake) #:use-module (guix build-system copy) @@ -293,6 +296,47 @@ by creating encrypted host-to-host tunnels between multiple endpoints.") (license license:gpl3+))) +(define-public n2n + (package + (name "n2n") + (version "2.8") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ntop/n2n") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1ph2npvnqh1xnmkp96pdzpxm033jkb8zznd3nc59l9arhn0pq4nv")))) + (build-system gnu-build-system) + (arguments + (list + #:make-flags + #~(list (string-append "PREFIX=" #$output) + (string-append "CC=" #$(cc-for-target))) + #:phases + #~(modify-phases %standard-phases + (add-before 'bootstrap 'move-configure + ;; Don't execute configure script in bootstrap. + (lambda _ + (substitute* "autogen.sh" + (("./configure") "")))) + (add-before 'configure 'fix-configure + (lambda* (#:key inputs native-inputs #:allow-other-keys) + (substitute* "configure" + (("/bin/sh") + (search-input-file (or native-inputs inputs) "/bin/sh")))))) + #:tests? #f)) ;there is no check target + (native-inputs + (list autoconf automake bash-minimal pkg-config)) + (home-page "https://github.com/ntop/n2n") + (synopsis "Peer-to-peer VPN client and server") + (description + "n2n is a light VPN software which makes it easy to create virtual +networks bypassing intermediate firewalls.") + (license license:gpl3+))) + (define-public strongswan (package (name "strongswan") @@ -382,7 +426,7 @@ endpoints.") gmp libcap libgcrypt - libsoup + libsoup-minimal-2 linux-pam openssl)) (native-inputs @@ -659,7 +703,7 @@ and probably others.") python-lxml python-prompt-toolkit python-requests - python-pyqt + python-pyqt-without-qtwebkit python-pyqtwebengine python-pysocks python-pyxdg @@ -753,7 +797,7 @@ traversing network address translators (@dfn{NAT}s) and firewalls.") ;; Wrap entrypoint with paths to its hard dependencies. (lambda* (#:key inputs outputs #:allow-other-keys) (let ((entrypoint (string-append (assoc-ref outputs "out") - "/bin/.protonvpn-real"))) + "/bin/protonvpn"))) (wrap-program entrypoint #:sh (search-input-file inputs "bin/bash") `("PATH" ":" prefix @@ -768,7 +812,11 @@ traversing network address translators (@dfn{NAT}s) and firewalls.") "openvpn" "procps" "which"))))) - #t))))) + #t)) + ;; The `protonvpn' script wants to write to `~user' to initialize its + ;; logger, so simply setting HOME=/tmp won't cut it. Remove + ;; sanity-check. + (delete 'sanity-check)))) (native-inputs (list python-docopt)) (inputs |