me/guix
Archived
1
0
Fork 0
Code Activity

gnu: rtmpdump: Update to 2.4-0.c5f04a5 [security fixes].

Browse source 
* gnu/packages/networking.scm (rtmpdump): Update to 2.4-0.c5f04a5.
[arguments]: Add phase prefer-gnutls.
[inputs]: Remove OPENSSL-1.0.  Add GNUTLS.
This commit is contained in:
Marius Bakke 2020-12-20 16:56:39 +01:00
parent 6203b8e5bd
commit d0abf4523f
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 57 additions and 44 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

101
gnu/packages/networking.scm
View file

@ -294,51 +294,64 @@ GLib-based library, libnice, as well as GStreamer elements to use it.")
license:mpl1.1)))) license:mpl1.1))))
(define-public rtmpdump (define-public rtmpdump
(package ;; There are no tags in the repository, and the project is unlikely to
(name "rtmpdump") ;; make new releases. Take a recent commit for multiple security fixes
(version "2.4") ;; as well as GnuTLS compatibility.
(source (let ((commit "c5f04a58fc2aeea6296ca7c44ee4734c18401aa3")
(origin (revision "0")
(method git-fetch) (version "2.4")) ;as mentioned in README and man pages
(uri (git-reference (package
(url "https://git.ffmpeg.org/rtmpdump") (name "rtmpdump")
(commit "c28f1bab7822de97353849e7787b59e50bbb1428"))) (version (git-version version revision commit))
(file-name (git-file-name name version)) (source
(sha256 (origin
(base32 "1n3kdip83nvvs4sin30zpcdr5q711mqhq2lxrv5vgbc6lskpwzlj")))) (method git-fetch)
(build-system gnu-build-system) (uri (git-reference
(arguments (url "https://git.ffmpeg.org/rtmpdump")
`(#:tests? #f ; no tests (commit commit)))
#:make-flags (file-name (git-file-name name version))
(list (sha256
;; The ‘validate-runpath’ phase fails to find librtmp.so.0. (base32 "07ias612jgmxpam9h418kvlag32da914jsnjsfyafklpnh8gdzjb"))))
(string-append "LDFLAGS=-Wl,-rpath=" (build-system gnu-build-system)
(assoc-ref %outputs "out") "/lib") (arguments
(string-append "prefix=" (assoc-ref %outputs "out"))) `(#:tests? #f ; no tests
#:phases #:make-flags
(modify-phases %standard-phases (list
(add-after 'unpack 'omit-static-library ;; The ‘validate-runpath’ phase fails to find librtmp.so.0.
(lambda _ (string-append "LDFLAGS=-Wl,-rpath="
(substitute* "librtmp/Makefile" (assoc-ref %outputs "out") "/lib")
(("cp librtmp\\.a .*") ; don't install it (string-append "prefix=" (assoc-ref %outputs "out")))
"") #:phases
(("librtmp\\.a ") ; don't build it (modify-phases %standard-phases
"")) (add-after 'unpack 'omit-static-library
#t)) (lambda _
(delete 'configure)))) (substitute* "librtmp/Makefile"
(inputs (("cp librtmp\\.a .*") ; don't install it
`(("openssl" ,openssl-1.0) "")
("zlib" ,zlib))) (("librtmp\\.a ") ; don't build it
(synopsis "Tools and library for handling RTMP streams") ""))
(description "RTMPdump is a toolkit for RTMP streams. All forms of RTMP are #t))
(add-after 'unpack 'prefer-gnutls
(lambda _
(substitute* '("Makefile" "librtmp/Makefile")
(("CRYPTO=OPENSSL")
"#CRYPTO=OPENSSL")
(("#CRYPTO=GNUTLS")
"CRYPTO=GNUTLS"))))
(delete 'configure))))
(inputs
`(("gnutls" ,gnutls)
("zlib" ,zlib)))
(synopsis "Tools and library for handling RTMP streams")
(description "RTMPdump is a toolkit for RTMP streams. All forms of RTMP are
supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.") supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.")
(home-page "https://rtmpdump.mplayerhq.hu/") (home-page "https://rtmpdump.mplayerhq.hu/")
(license (license
(list (list
;; Library. ;; Library.
license:lgpl2.1+ license:lgpl2.1+
;; Others. ;; Others.
license:gpl2+)))) license:gpl2+)))))
(define-public srt (define-public srt
(package (package