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

[Ricardo Wurmus]

ng0 <address@hidden> writes:

> 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
>>
>
> I did set prefix and exec_prefix in the make-flags, gets ignored.
> it doesn't work, and I think I tried setting it in the make-flags before.
> I will revert to the original patch and add a comment why it needs to be
> configured like this. Second choice could be to substitute, but
> ./configure --options is shorter and apparently what the application
> wants.

The reason here is that the configure script aborts when it encounters
arguments it doesn’t expect, such as the CONFIG_SHELL argument.  As a
result the “config.mak” file is never created.

I’ve got this to build by making the custom configure script a little
more tolerant.

I also changed the description to be a full sentence.  I’ve upcased
“TCP”, “SOCKS”, and “HTTP”.  The synopsis has also been simplified.

The license was too limited.  The license headers (in the files that
have them) include the “or later” clause, so this is really GPLv2+.

I’ve also added a comment as to why the tests have been disabled.

If this looks okay to you I’ll push it later today.

~~ Ricardo


>From d2f2d139f4aac52ac0f79e7f81a0be5fad2ad100 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 | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 1275a41..2678739 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014 Ludovic Courtès <address@hidden>
-;;; Copyright © 2015 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2015, 2016 Ricardo Wurmus <address@hidden>
 ;;; Copyright © 2015 Mark H Weaver <address@hidden>
 ;;; Copyright © 2015 Stefan Reichör <address@hidden>
 ;;; Copyright © 2016 Raimon Grau <address@hidden>
@@ -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,37 @@ 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 ; there are no tests
+       #:make-flags '("CC=gcc")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-configure-script
+           (lambda _
+             ;; The configure script is very intolerant to unknown arguments,
+             ;; such as "CONFIG_SHELL".
+             (substitute* "configure"
+               (("\\*\\) break ;;" line)
+                (string-append "[A-Z]*) shift ;;\n"
+                               line)))
+             #t)))))
+    (synopsis "Redirect any TCP connection through a proxy or proxy chain")
+    (description "Proxychains-ng is a 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