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

* gnu/packages/networking.scm (rtmpdump): Update to 2.4-0.c5f04a5.
[arguments]: Add phase prefer-gnutls.
[inputs]: Remove OPENSSL-1.0.  Add GNUTLS.

gnu/packages/networking.scm

@@ -294,51 +294,64 @@ GLib-based library, libnice, as well as GStreamer elements to use it.")
       license:mpl1.1))))
 
 (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://.")
-    (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
   (package