;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Ricardo Wurmus ;;; Copyright © 2017 Tobias Geerinckx-Rice ;;; Copyright © 2021 Efraim Flashner ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages perl-web) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) #:use-module (guix packages) #:use-module (gnu packages perl) #:use-module (gnu packages perl-check) #:use-module (guix download) #:use-module (guix build-system perl) #:use-module (gnu packages web)) (define-public perl-mojolicious (package (name "perl-mojolicious") (version "9.17") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/S/SR/SRI/Mojolicious-" version ".tar.gz")) (sha256 (base32 "13dxjhr03dhh1f5bbxbb3jiwdv7jby96qqb97l3arf5x043yd9hd")))) (build-system perl-build-system) (home-page "https://mojolicious.org/") (synopsis "Real-time web framework") (description "Back in the early days of the web, many people learned Perl because of a wonderful Perl library called @code{CGI}. It was simple enough to get started without knowing much about the language and powerful enough to keep you going, learning by doing was much fun. While most of the techniques used are outdated now, the idea behind it is not. Mojolicious is a new endeavor to implement this idea using modern technologies.") (license license:artistic2.0))) (define-public perl-uri-db (package (name "perl-uri-db") (version "0.19") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/D/DW/DWHEELER/URI-db-" version ".tar.gz")) (sha256 (base32 "0n56xxlw7c39pfar0dxckr9mbmp6yrzk53ic0cb24raiykm9v6f4")))) (build-system perl-build-system) (native-inputs `(("perl-module-build" ,perl-module-build))) (propagated-inputs `(("perl-uri" ,perl-uri) ("perl-uri-nested" ,perl-uri-nested))) (home-page "https://metacpan.org/release/URI-db") (synopsis "Handle database URIs") (description "This module defines a format for database URIs, and provides a @{URI} class to handle these.") (license license:perl-license))) (define-public perl-uri-escape (package (name "perl-uri-escape") (version "1.76") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/O/OA/OALDERS/URI-" version ".tar.gz")) (sha256 (base32 "0gj1aj18k43kmzc3y1zhj5giinf8rksacf757r475xfna0fqxjdj")))) (build-system perl-build-system) (native-inputs `(("perl-test-needs" ,perl-test-needs))) (home-page "https://github.com/libwww-perl/URI") (synopsis "Percent-encode and percent-decode unsafe characters") (description "This module provides functions to percent-encode and percent-decode URI strings as defined by RFC 3986. Percent-encoding URI's is informally called URI escaping. This is the terminology used by this module, which predates the formalization of the terms by the RFC by several years.") (license license:perl-license))) (define-public perl-uri-nested (package (name "perl-uri-nested") (version "0.10") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/D/DW/DWHEELER/URI-Nested-" version ".tar.gz")) (sha256 (base32 "1bzg6f11m8wfnmycflvp858rs99xknsx8hkip0xcdfjzlqwi75z1")))) (build-system perl-build-system) (native-inputs `(("perl-module-build" ,perl-module-build))) (propagated-inputs `(("perl-uri" ,perl-uri))) (home-page "https://metacpan.org/release/URI-Nested") (synopsis "Nested URIs") (description "@code{URI::Nested} provides support for nested URIs, where the scheme is a prefix, and the remainder of the URI is another URI.") (license license:perl-license))) al::tryBuildHook): Add "offload" to 'args' and pass settings.guixProgram as the first argument to Agent::Agent. (pathNullDevice, commonChildInit, Agent, Agent::Agent) (Agent::~Agent): Move to... * nix/libutil/util.cc: ... here. * nix/libutil/util.hh (struct Agent, commonChildInit): New declarations. Ludovic Courtès 2020-06-27daemon: Recognize SHA3 and BLAKE2s....* nix/libutil/hash.hh (HashType): Add htSHA3_256, htSHA3_512, and htBLAKE2s_256. * nix/libutil/hash.cc (parseHashType, printHashType): Recognize them. * tests/store.scm ("add-to-store"): Test these algorithms. Ludovic Courtès 2020-06-27daemon: Remove OpenSSL hash compatibility wrappers....* nix/libutil/hash.cc (struct Ctx): Copy from gcrypt-hash.hh. (start, update, finish): Use gcrypt functions directly instead of OpenSSL-like wrappers. * nix/libutil/gcrypt-hash.cc, nix/libutil/gcrypt-hash.hh, nix/libutil/md5.h, nix/libutil/sha1.h, nix/libutil/sha256.h, nix/libutil/sha512.h: Remove. * nix/local.mk (libutil_a_SOURCES, libutil_headers): Adjust accordingly. Ludovic Courtès 2020-06-27daemon: Map directly to gcrypt hash functions....* nix/libutil/hash.hh (HashType): Map directly to GCRY_MD_ values. (md5HashSize, sha1HashSize, sha256HashSize, sha512HashSize): Remove. * nix/libutil/hash.cc (Hash::Hash): Use 'gcry_md_get_algo_dlen'. Ludovic Courtès 2020-06-24nix: Tweak .gitignore files....Remove .gitignore entries where they match source files that are tracked in Git. This is relevant to me at least, as some code searching tools use .gitignore files and will ignore matched files. Christopher Baines