X-Git-Url: https://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/c8e214e80d3bc4d6e63d2be1648fd2ac05eebc1a..885332832cf0eebcb80094acc4c98e4bb01b2493:/gnu/packages/wget.scm diff --git a/gnu/packages/wget.scm b/gnu/packages/wget.scm index 93a40c487a..7950b3b729 100644 --- a/gnu/packages/wget.scm +++ b/gnu/packages/wget.scm @@ -1,9 +1,9 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012 Nikita Karetnikov ;;; Copyright © 2014, 2015, 2017, 2018 Ludovic Courtès -;;; Copyright © 2016, 2017, 2019 Efraim Flashner +;;; Copyright © 2016, 2017, 2019, 2020 Efraim Flashner ;;; Copyright © 2017 Rutger Helling -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice ;;; ;;; This file is part of GNU Guix. ;;; @@ -21,31 +21,29 @@ ;;; along with GNU Guix. If not, see . (define-module (gnu packages wget) - #:use-module (guix licenses) + #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) - #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages compression) #:use-module (gnu packages documentation) - #:use-module (gnu packages flex) - #:use-module (gnu packages gettext) #:use-module (gnu packages gnunet) + #:use-module (gnu packages gnupg) #:use-module (gnu packages libidn) - #:use-module (gnu packages python) - #:use-module (gnu packages perl) - #:use-module (gnu packages web) #:use-module (gnu packages pcre) + #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python) #:use-module (gnu packages tls) + #:use-module (gnu packages web) + #:use-module (gnu packages xdisorg) #:use-module (guix packages) #:use-module (guix download) - #:use-module (guix git-download) #:use-module (guix build-system gnu)) (define-public wget (package (name "wget") - (version "1.20.1") + (version "1.20.3") (source (origin (method url-fetch) @@ -53,7 +51,7 @@ version ".tar.lz")) (sha256 (base32 - "0a29qsqxkk8145vkyy35q5a1wc7qzwx3qj3gmfrkmi9xs96yhqqg")))) + "1frajd86ds8vz2hprq30wq8ya89z9dcxnwm8nwk12bbc47l7qq39")))) (build-system gnu-build-system) (inputs `(("gnutls" ,gnutls) @@ -73,36 +71,45 @@ HTTPS and FTP protocols. It can resume interrupted downloads, use file name wild cards, supports proxies and cookies, and it can convert absolute links in downloaded documents to relative links.") - (license gpl3+))) ; some files are under GPLv2+ + (license license:gpl3+))) ; some files are under GPLv2+ (define-public wgetpaste (package (name "wgetpaste") - (version "2.28") + (version "2.30") (source (origin (method url-fetch) - (uri (string-append "http://wgetpaste.zlin.dk/wgetpaste-" + (uri (string-append "https://wgetpaste.zlin.dk/wgetpaste-" version ".tar.bz2")) (sha256 - (base32 - "1hh9svyypqcvdg5mjxyyfzpdzhylhf7s7xq5dzglnm4injx3i3ak")))) + (base32 "14k5i6j6f34hcf9gdb9cnvfwscn0ys2dgd73ci421wj9zzqkbv73")) + (patches (search-patches "wgetpaste-update-bpaste.patch")))) (build-system gnu-build-system) (arguments - '(#:modules ((guix build gnu-build-system) + `(#:modules ((guix build gnu-build-system) (guix build utils) (srfi srfi-1)) #:phases (modify-phases %standard-phases (delete 'configure) (delete 'build) + (add-after 'unpack 'change-unfriendly-default + (lambda _ + (substitute* "wgetpaste" + ;; dpaste blocks Tor users. Use a better default. + (("DEFAULT_SERVICE:-dpaste") + "DEFAULT_SERVICE-bpaste")) + #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) - (zsh (string-append out "/share/zsh/site-functions"))) + (zsh (string-append out "/share/zsh/site-functions")) + (doc (string-append out "/share/doc/" ,name "-" ,version))) (install-file "wgetpaste" bin) (install-file "_wgetpaste" zsh) + (install-file "LICENSE" doc) #t))) (add-after 'install 'wrap-program ;; /bin/wgetpaste prides itself on relying only on the following @@ -115,78 +122,59 @@ in downloaded documents to relative links.") ,(delete-duplicates (map (lambda (command) (dirname (which command))) (list "bash" "mktemp" "sed" "sort" "tee" "tr" - "wget"))))) + "wget" "xclip"))))) #t)))) #:tests? #f)) ; no test target (inputs - `(("wget" ,wget))) - (home-page "http://wgetpaste.zlin.dk/") + `(("wget" ,wget) + ("xclip" ,xclip))) + (home-page "https://wgetpaste.zlin.dk/") (synopsis "Script that automates pasting to a number of pastebin services") (description "@code{wgetpaste} is an extremely simple command-line interface to various online pastebin services.") - (license public-domain))) + (license license:expat))) (define-public wget2 (package (name "wget2") - (version "1.99.1") + (version "1.99.2") (source (origin - (method git-fetch) - (uri (git-reference - (url "https://gitlab.com/gnuwget/wget2.git") - (commit (string-append name "-" version)) - (recursive? #t))) ;; Needed for 'gnulib' git submodule. - (file-name (string-append name "-" version "-checkout")) + (method url-fetch) + (uri (string-append "mirror://gnu/wget/wget2-" version ".tar.gz")) (sha256 (base32 - "15wxsnjhc6bzk7f60i1djmsarh1w31gwi5h2gh9k19ncwypfj5dm")))) + "0qv55f4bablrlhc8bnic8g3mkk1kq44c4cphrk5jmv92z9aqzi6b")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases - (add-after 'unpack 'skip-network-test - (lambda _ - (substitute* "tests/Makefile.am" - (("test-auth-digest\\$\\(EXEEXT)") "")) - #t)) - (replace 'bootstrap + (add-after 'unpack 'skip-network-tests (lambda _ - ;; Make sure all the files are writable so that ./bootstrap - ;; can proceed. - (for-each (lambda (file) - (chmod file #o755)) - (find-files ".")) - (patch-shebang "./gnulib/gnulib-tool.py") - ;; Remove unnecessary inputs from bootstrap.conf - (substitute* "bootstrap.conf" - (("flex.*") "") - (("makeinfo.*") "") - (("lzip.*") "") - (("rsync.*") "")) - (invoke "sh" "./bootstrap" - "--gnulib-srcdir=gnulib" - "--no-git")))))) + (substitute* "tests/Makefile.in" + (("test-gpg-verify-no-file\\$\\(EXEEXT)") "") + (("test-gpg-valid\\$\\(EXEEXT)") "") + (("test-gpg-styles\\$\\(EXEEXT)") "")) + #t))) + #:configure-flags '("--enable-static=no"))) (inputs - `(("gnutls" ,gnutls/dane) + `(("bzip2" ,bzip2) + ("gnutls" ,gnutls/dane) + ("gpgme" ,gpgme) ("libiconv" ,libiconv) ("libidn2" ,libidn2) ("libmicrohttpd" ,libmicrohttpd) ("libpsl" ,libpsl) - ("pcre2" ,pcre2))) + ("pcre2" ,pcre2) + ("zlib" ,zlib))) ;; TODO: Add libbrotlidec, libnghttp2. (native-inputs - `(("autoconf" ,autoconf) - ("automake" ,automake) - ("flex" ,flex) - ("gettext" ,gettext-minimal) - ("libtool" ,libtool) - ("pkg-config" ,pkg-config) - ("python" ,python-2))) + `(("pkg-config" ,pkg-config))) (home-page "https://gitlab.com/gnuwget/wget2") (synopsis "Successor of GNU Wget") (description "GNU Wget2 is the successor of GNU Wget, a file and recursive website downloader. Designed and written from scratch it wraps around libwget, that provides the basic functions needed by a web client.") - (license (list gpl3+ lgpl3+)))) + (properties '((ftp-directory . "/gnu/wget"))) + (license (list license:gpl3+ license:lgpl3+))))