From fa1b4e104c102d02a53324e5c082edcbe365b04b Mon Sep 17 00:00:00 2001 From: ng0 Date: Fri, 12 Aug 2016 17:47:41 +0000 Subject: [PATCH] gnu: Add proxychains-ng. * gnu/packages/networking.scm (proxychains-ng): New variable. --- gnu/packages/networking.scm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 1275a41..fc3e8cb 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -8,6 +8,7 @@ ;;; Copyright © 2016 John Darrington ;;; Copyright © 2016 Nicolas Goaziou ;;; Copyright © 2016 Eric Bavier +;;; Copyright © 2016 ng0 ;;; ;;; This file is part of GNU Guix. ;;; @@ -690,3 +691,36 @@ information by IP Address.") (description "IO::Socket::INET6 is an interface for AF_INET/AF_INET6 domain sockets in Perl.") (license (package-license perl)))) + +(define-public proxychains-ng + (package + (name "proxychains-ng") + (version "4.11") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/rofl0r/" name "/releases/" + "download/v" version "/" name "-" version + ".tar.bz2")) + (sha256 + (base32 + "1dkncdzw852488gkh5zhn4b5i03qyj8rgh1wcvcva7yd12c19i6w")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f + #:make-flags (list "CC=gcc") + #:phases + (modify-phases %standard-phases + ;; XXX: Must be configured with the configure script, other methods + ;; are ignored by the application + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (zero? (system* "./configure" + (string-append "--prefix=" out))))))))) + (synopsis + "Force any tcp connections to flow through a proxy or proxy chain") + (description + "Preloader which hooks calls to sockets in dynamically linked programs +and redirects them through one or more socks or http proxies.") + (home-page "https://github.com/rofl0r/proxychains-ng") + (license license:gpl2))) -- 2.9.2