ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: networking: Return #t from all phases.

Browse source 
* gnu/packages/networking.scm (miredo, tcp-wrappers, librdkafka, ifstatus)
(iodine, httpstat, perl-socket6, perl-netaddr-ip, libproxy, openvswitch)
(libnet, asio): Return #t from all phases.
This commit is contained in:
Mark H Weaver 2018-06-27 20:51:35 -04:00
parent 9922278b25
commit 366c1cbbc6
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 27 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
gnu/packages/networking.scm
View file

@ -144,7 +144,8 @@ (define-public miredo
'check 'disable-checkconf-test 'check 'disable-checkconf-test
(lambda _ (lambda _
(substitute* "src/Makefile" (substitute* "src/Makefile"
(("^TESTS = .*") "TESTS = \n"))))))) (("^TESTS = .*") "TESTS = \n"))
#t)))))
(home-page "http://www.remlab.net/miredo/") (home-page "http://www.remlab.net/miredo/")
(synopsis "Teredo IPv6 tunneling software") (synopsis "Teredo IPv6 tunneling software")
(description (description
@ -216,7 +217,7 @@ (define-public tcp-wrappers
(substitute* "scaffold.c" (substitute* "scaffold.c"
(("extern char .malloc.*;") "")) (("extern char .malloc.*;") ""))
;; This, believe it or not, is the recommended way to build! ;; This, believe it or not, is the recommended way to build!
(zero? (system* "make" "REAL_DAEMON_DIR=/etc" "linux")))) (invoke "make" "REAL_DAEMON_DIR=/etc" "linux")))
;; There is no make install stage, so we have to do it ourselves. ;; There is no make install stage, so we have to do it ourselves.
(replace 'install (replace 'install
(lambda _ (lambda _
@ -251,7 +252,8 @@ (define-public tcp-wrappers
(for-each (for-each
(lambda (x) (lambda (x)
(install-file x (string-append out "/bin/"))) (install-file x (string-append out "/bin/")))
bins))))))) bins))
#t)))))
(home-page "http://www.porcupine.org") (home-page "http://www.porcupine.org")
(synopsis "Monitor and filter incoming requests for network services") (synopsis "Monitor and filter incoming requests for network services")
(description "With this package you can monitor and filter incoming requests for (description "With this package you can monitor and filter incoming requests for
@ -373,8 +375,8 @@ (define-public librdkafka
;; librdkafka++.so lacks RUNPATH for librdkafka.so ;; librdkafka++.so lacks RUNPATH for librdkafka.so
(setenv "LDFLAGS" (setenv "LDFLAGS"
(string-append "-Wl,-rpath=" out "/lib")) (string-append "-Wl,-rpath=" out "/lib"))
(zero? (system* "./configure" (invoke "./configure"
(string-append "--prefix=" out))))))))) (string-append "--prefix=" out))))))))
(native-inputs (native-inputs
`(("python" ,python-wrapper))) `(("python" ,python-wrapper)))
(propagated-inputs (propagated-inputs
@ -457,7 +459,8 @@ (define-public ifstatus
(bin (string-append out "/bin"))) (bin (string-append out "/bin")))
(mkdir-p bin) (mkdir-p bin)
(copy-file "ifstatus" (copy-file "ifstatus"
(string-append bin "/ifstatus")))))))) (string-append bin "/ifstatus")))
#t)))))
(inputs `(("ncurses" ,ncurses))) (inputs `(("ncurses" ,ncurses)))
(home-page "http://ifstatus.sourceforge.net/graphic/index.html") (home-page "http://ifstatus.sourceforge.net/graphic/index.html")
(synopsis "Text based network interface status monitor") (synopsis "Text based network interface status monitor")
@ -511,14 +514,16 @@ (define-public iodine
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/tun.c" (substitute* "src/tun.c"
(("PATH=[^ ]* ") (("PATH=[^ ]* ")
(string-append (assoc-ref inputs "net-tools") "/bin/"))))) (string-append (assoc-ref inputs "net-tools") "/bin/")))
#t))
(add-before 'check 'delete-failing-tests (add-before 'check 'delete-failing-tests
;; Avoid https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=802105. ;; Avoid https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=802105.
(lambda _ (lambda _
(substitute* "tests/common.c" (substitute* "tests/common.c"
(("tcase_add_test\\(tc, \ (("tcase_add_test\\(tc, \
test_parse_format_ipv(4(|_listen_all|_mapped_ipv6)|6)\\);") test_parse_format_ipv(4(|_listen_all|_mapped_ipv6)|6)\\);")
""))))) ""))
#t)))
#:make-flags (list "CC=gcc" #:make-flags (list "CC=gcc"
(string-append "prefix=" (assoc-ref %outputs "out"))) (string-append "prefix=" (assoc-ref %outputs "out")))
#:test-target "test")) #:test-target "test"))
@ -779,7 +784,8 @@ (define-public httpstat
(("ENV_CURL_BIN.get\\('curl'\\)") (("ENV_CURL_BIN.get\\('curl'\\)")
(string-append "ENV_CURL_BIN.get('" (string-append "ENV_CURL_BIN.get('"
(assoc-ref inputs "curl") (assoc-ref inputs "curl")
"/bin/curl')")))))))) "/bin/curl')")))
#t)))))
(home-page "https://github.com/reorx/httpstat") (home-page "https://github.com/reorx/httpstat")
(synopsis "Visualize curl statistics") (synopsis "Visualize curl statistics")
(description (description
@ -949,7 +955,7 @@ (define-public perl-socket6
,(string-append "PREFIX=" out) ,(string-append "PREFIX=" out)
"INSTALLDIRS=site"))) "INSTALLDIRS=site")))
(setenv "CONFIG_SHELL" (which "sh")) (setenv "CONFIG_SHELL" (which "sh"))
(zero? (apply system* "perl" args)))))))) (apply invoke "perl" args)))))))
(home-page "https://metacpan.org/release/Socket6") (home-page "https://metacpan.org/release/Socket6")
(synopsis (synopsis
"IPv6 related part of the C socket.h defines and structure manipulators for Perl") "IPv6 related part of the C socket.h defines and structure manipulators for Perl")
@ -1009,7 +1015,7 @@ (define-public perl-netaddr-ip
,(string-append "PREFIX=" out) ,(string-append "PREFIX=" out)
"INSTALLDIRS=site"))) "INSTALLDIRS=site")))
(setenv "CONFIG_SHELL" (which "sh")) (setenv "CONFIG_SHELL" (which "sh"))
(zero? (apply system* "perl" args)))))))) (apply invoke "perl" args)))))))
(home-page (home-page
"https://metacpan.org/release/NetAddr-IP") "https://metacpan.org/release/NetAddr-IP")
(synopsis (synopsis
@ -1145,7 +1151,7 @@ (define-public libproxy
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'check (replace 'check
(lambda _ (lambda _
(zero? (system* "ctest" "-E" "url-test"))))))) (invoke "ctest" "-E" "url-test"))))))
(synopsis "Library providing automatic proxy configuration management") (synopsis "Library providing automatic proxy configuration management")
(description "Libproxy handles the details of HTTP/HTTPS proxy (description "Libproxy handles the details of HTTP/HTTPS proxy
configuration for applications across all scenarios. Applications using configuration for applications across all scenarios. Applications using
@ -1416,13 +1422,13 @@ (define-public openvswitch
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'install (replace 'install
(lambda _ (lambda _
(zero? (system* "make" (invoke "make"
;; Don't try to create directories under /var. ;; Don't try to create directories under /var.
"RUNDIR=/tmp" "RUNDIR=/tmp"
"PKIDIR=/tmp" "PKIDIR=/tmp"
"LOGDIR=/tmp" "LOGDIR=/tmp"
"DBDIR=/tmp" "DBDIR=/tmp"
"install"))))))) "install"))))))
(native-inputs (native-inputs
`(("perl" ,perl) `(("perl" ,perl)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
@ -1723,8 +1729,8 @@ (define-public libnet
(lambda _ (chdir "libnet") #t)) (lambda _ (chdir "libnet") #t))
(add-before 'build 'build-doc (add-before 'build 'build-doc
(lambda* (#:key make-flags #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
(zero? (apply system* "make" "-C" "doc" "doc" (apply invoke "make" "-C" "doc" "doc"
make-flags))))))) make-flags))))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)