From 0b6c493c6225e28a9fdae0ec7c5c58359bf3c14b Mon Sep 17 00:00:00 2001
From: Raghav Gururajan <raghavgururajan@disroot.org>
Date: Thu, 30 Jul 2020 15:47:17 -0400
Subject: [PATCH 71/75] gnu: libquvi: Update package definition.

* gnu/packages/web.scm (libquvi) [version]: Update to 0.9.4.
[source]<origin>[sha256]: Modify base32.
[build-system]: Change from gnu to glib-or-gtk.
[arguments]<#:configure-flags>: Remove argument.
<#:phases>['disable-failing-tests]: New phase.
[native-inputs]: Add doxygen and gettext-minimal.
[inputs]: Add glib, glib-networking and libproxy. Remove cyrus-sasl,
openssl and zlib.
[description]: Modify.
[license]: Modify.
---
 gnu/packages/web.scm | 53 +++++++++++++++++++++++++-------------------
 1 file changed, 30 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index c23b8ea8be..68b64eef76 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -1530,36 +1530,43 @@ calls upon to parse the properties for a media URL.")
 (define-public libquvi
   (package
     (name "libquvi")
-    (version "0.4.1")
+    (version "0.9.4")
     (source
      (origin
        (method url-fetch)
-       (uri (string-append
-             "mirror://sourceforge/quvi/" (version-major+minor version) "/" name "/"
-             name "-" version ".tar.xz"))
+       (uri
+        (string-append
+         "mirror://sourceforge/quvi/" (version-major+minor version) "/" name "/"
+         name "-" version ".tar.xz"))
        (sha256
-        (base32 "00x9gbmzc5cns0gnfag0hsphcr3cb33vbbb9s7ppvvd6bxz2z1mm"))))
-    (build-system gnu-build-system)
-    (native-inputs `(("pkg-config" ,pkg-config)))
+        (base32 "1cl1kbgxl1jnx2nwx4z90l0lap09lnnj1fg7hxsxk3m6aj4y4grd"))))
+    (build-system glib-or-gtk-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'disable-failing-tests
+           (lambda _
+             (substitute* "tests/Makefile.in"
+               (("script quvi playlist supports resolve media scan goto")
+                "playlist resolve media scan goto"))
+             #t)))))
+    (native-inputs
+     `(("doxygen" ,doxygen)
+       ("gettext" ,gettext-minimal)
+       ("pkg-config" ,pkg-config)))
     (inputs
-     `(("curl" ,curl)
-       ("cyrus-sasl" ,cyrus-sasl)
+     `(("glib" ,glib)
+       ("glib-networking" ,glib-networking)
+       ("libcurl" ,curl)
+       ("libgcrypt" ,libgcrypt)
+       ("libproxy" ,libproxy)
        ("libquvi-scripts" ,libquvi-scripts)
-       ("lua" ,lua-5.1)
-       ("openssl" ,openssl)
-       ("zlib" ,zlib)))
-    (arguments
-     ;; Lua provides no .pc file, so add CFLAGS/LIBS manually.
-     '(#:configure-flags
-       (let ((lua (assoc-ref %build-inputs "lua")))
-         (list
-          (string-append "liblua_CFLAGS=-I" lua "/include")
-          (string-append "liblua_LIBS=-L" lua "/libs -llua")))))
-    (home-page "http://quvi.sourceforge.net/")
+       ("lua" ,lua-5.1)))
     (synopsis "Media stream URL parser")
-    (description "libquvi is a library with a C API for parsing media stream
-URLs and extracting their actual media files.")
-    (license license:lgpl2.1+)))
+    (description "Libquvi is the library with an C API to parse the media
+stream properties.")
+    (home-page "http://quvi.sourceforge.net/")
+    (license license:agpl3+)))
 
 (define-public quvi
   (package
-- 
2.27.0