me/guix
Archived
1
0
Fork 0
Code Activity

gnu: tor: Record the file name of 'torsocks' in 'torify'.

Browse source 
* gnu/packages/tor.scm (tor)[arguments]: Add 'adjust-torify' phase.
[inputs]: Add TORSOCKS.
This commit is contained in:
Ludovic Courtès 2022-05-30 12:23:00 +02:00
parent 61d4f9e89d
commit 7750f220be
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/tor.scm
View file

@ -73,6 +73,16 @@
"--enable-zstd") "--enable-zstd")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'build 'adjust-torify
(lambda* (#:key inputs #:allow-other-keys)
;; Record in 'torify' the absolute file name of 'torsocks'.
(let ((torsocks (search-input-file
inputs "/bin/torsocks")))
(substitute* "contrib/client-tools/torify"
(("pathfind torsocks")
"true")
(("exec torsocks")
(string-append "exec " torsocks))))))
(add-before 'check 'skip-practracker (add-before 'check 'skip-practracker
;; This is a style linter. It doesn't get to throw fatal errors. ;; This is a style linter. It doesn't get to throw fatal errors.
(lambda _ (lambda _
@ -98,6 +108,7 @@
(list libevent (list libevent
libseccomp libseccomp
openssl openssl
torsocks
xz xz
zlib zlib
`(,zstd "lib"))) `(,zstd "lib")))