Re: [PATCH] gnu: Add proxychains-ng.

[ng0]

Ricardo Wurmus <address@hidden> writes:

> ng0 <address@hidden> writes:
>
>> Ricardo Wurmus <address@hidden> writes:
>
>>> Could you show us the error message in case of using
>>> “#:configure-flags”?  This really should work, so if it fails I’d like
>>> to fix this instead of working around it, if possible.
>
> […]
>
> Thanks.  Looks like you need to set the “prefix” variable in
> #:make-flags – it is defined in the Makefile (along with “exec_prefix”,
> which you might also have to override).
>
> ~~ Ricardo
>

Added the results of this thread in a comment.

>From fa1b4e104c102d02a53324e5c082edcbe365b04b Mon Sep 17 00:00:00 2001
From: ng0 <address@hidden>
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 <address@hidden>
 ;;; Copyright © 2016 Nicolas Goaziou <address@hidden>
 ;;; Copyright © 2016 Eric Bavier <address@hidden>
+;;; Copyright © 2016 ng0 <address@hidden>
 ;;;
 ;;; 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

-- 
♥Ⓐ  ng0
For non-prism friendly talk find me on http://www.psyced.org