~ruther/guix-local

f3cf25c3c2aef91a47b790fe69b5008cdb6a6316 — Eric Bavier 9 years ago a3c5769
gnu: torsocks: Patch references to 'getcap' and 'which'.

* gnu/packages/tor.scm (torsocks)[inputs,arguments]: New fields.
1 files changed, 16 insertions(+), 0 deletions(-)

M gnu/packages/tor.scm
M gnu/packages/tor.scm => gnu/packages/tor.scm +16 -0
@@ 4,6 4,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;


@@ 28,7 29,9 @@
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system python)
  #:use-module (gnu packages)
  #:use-module (gnu packages base)
  #:use-module (gnu packages libevent)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages pcre)
  #:use-module (gnu packages python)


@@ 88,6 91,19 @@ the application layer) you need to install @code{torsocks}.")
               (base32
                "0byr9ga9w79qz4vp0m11sbmspad7fsal9wm67r4znzb7zb7cis19"))))
    (build-system gnu-build-system)
    (inputs
     `(("which" ,which)
       ("libcap" ,libcap)))
    (arguments
     `(#:phases (modify-phases %standard-phases
                  (add-after 'build 'absolutize
                    (lambda* (#:key inputs #:allow-other-keys)
                      (substitute* "src/bin/torsocks"
                        (("getcap=`.*`")
                         (string-append "getcap=" (which "getcap")))
                        (("`which")
                         (string-append "`" (which "which"))))
                      #t)))))
    (home-page "https://www.torproject.org/")
    (synopsis "Use socks-friendly applications with Tor")
    (description