From 895ddace3e0645683adb07a05406419b58e42b01 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 | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 77207c0..78790f4 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -7,6 +7,7 @@ ;;; Copyright © 2016 Tobias Geerinckx-Rice ;;; Copyright © 2016 John Darrington ;;; Copyright © 2016 Nicolas Goaziou +;;; Copyright © 2016 ng0 ;;; ;;; This file is part of GNU Guix. ;;; @@ -635,3 +636,33 @@ 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 + ;; Needs to be configured through the configure script. + (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