Re: [PATCH] gnu: Add uget.

[Leo Famulari <leo@famulari.name>]

On Fri, Nov 18, 2016 at 11:03:03PM +0100, Tomáš Čech wrote:
> * gnu/packages/bittorrent.scm (uget): New variable.
> ---
>  gnu/packages/bittorrent.scm | 36 ++++++++++++++++++++++++++++++++++++
>  1 file changed, 36 insertions(+)
> 
> diff --git a/gnu/packages/bittorrent.scm b/gnu/packages/bittorrent.scm
> index 73ae703..851c265 100644
> --- a/gnu/packages/bittorrent.scm
> +++ b/gnu/packages/bittorrent.scm
> @@ -29,11 +29,15 @@
>    #:use-module (gnu packages adns)
>    #:use-module (gnu packages check)
>    #:use-module (gnu packages compression)
> +  #:use-module (gnu packages crypto)
>    #:use-module (gnu packages curl)
>    #:use-module (gnu packages cyrus-sasl)
>    #:use-module (gnu packages databases)
>    #:use-module (gnu packages file)
>    #:use-module (gnu packages glib)
> +  #:use-module (gnu packages gnome)
> +  #:use-module (gnu packages gnupg)
> +  #:use-module (gnu packages gstreamer)
>    #:use-module (gnu packages gtk)
>    #:use-module (gnu packages libevent)
>    #:use-module (gnu packages linux)
> @@ -250,3 +254,35 @@ interface, for the Transmission BitTorrent daemon.")
>  download utility.  It supports HTTP/HTTPS, FTP, SFTP, BitTorrent and Metalink.
>  Aria2 can be manipulated via built-in JSON-RPC and XML-RPC interfaces.")
>      (license l:gpl2+)))
> +
> +
> +(define-public uget
> +  (package
> +    (name "uget")
> +    (version "2.0.8")
> +    (source (origin
> +	      (method url-fetch)
> +	      (uri (string-append "http://downloads.sourceforge.net/project/urlget/uget%20%28stable%29/" version "/uget-" version ".tar.gz"))

This returns 404 for me. But, can you change it to use the sourceforge
URL mirror, as in 175c910380?

-       (uri (string-append "http://downloads.sourceforge.net/mpop/mpop-"
-                           version ".tar.xz"))
+       (uri (string-append "mirror://sourceforge/mpop/mpop/" version
+                           "/mpop-" version ".tar.xz"))

You can verify the URL works with:

./pre-inst-env guix build --check --no-substitutes --source uget

> +	      (sha256
> +	       (base32
> +		"0919cf7lfk1djdl003cahqjvafdliv7v2l8r5wg95n4isqggdk75"))))
> +    (build-system gnu-build-system)
> +    (inputs
> +     `(("curl" ,curl)
> +       ("gtk+" ,gtk+)
> +       ("glib" ,glib)
> +       ("gnutls" ,gnutls)
> +       ("gstreamer" ,gstreamer)
> +       ("intltool" ,intltool)
> +       ("libgcrypt" ,libgcrypt)
> +       ("libnotify" ,libnotify)
> +       ("openssl" ,openssl)))
> +    (native-inputs
> +     `(("pkg-config" ,pkg-config)))
> +    (home-page "http://ugetdm.com/")
> +    (synopsis "Universal download manager with GTK+ interface")
> +    (description
> +     "uGet is portable download manager with GTK+ interface supporting
> +HTTP, HTTPS, BitTorrent and Metalink, supporting multi-connection
> +downloads, download scheduling, download rate limiting.")
> +    (license l:lgpl2.1)))
> -- 
> 2.10.2
> 
>