gnu/packages/web.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2013 Aljosha Papsch <misc@rpapsch.de>
   4 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
   5 ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
   6 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2018 Raoul Jean Pierre Bonnal <ilpuccio.febo@gmail.com>
   8 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   9 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Eric Bavier <bavier@member.fsf.org>
  10 ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
  11 ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
  12 ;;; Copyright © 2016 Jelle Licht <jlicht@fsfe.org>
  13 ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
  14 ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
  15 ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
  16 ;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org>
  17 ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
  18 ;;; Copyright © 2016, 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
  19 ;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
  20 ;;; Copyright © 2016 Bake Timmons <b3timmons@speedymail.org>
  21 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
  22 ;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com>
  23 ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
  24 ;;; Copyright © 2017 Petter <petter@mykolab.ch>
  25 ;;; Copyright © 2017 Pierre Langlois <pierre.langlois@gmx.com>
  26 ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
  27 ;;; Copyright © 2017, 2019 Christopher Baines <mail@cbaines.net>
  28 ;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
  29 ;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
  30 ;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
  31 ;;; Copyright © 2018 Mădălin Ionel Patrașcu <madalinionel.patrascu@mdc-berlin.de>
  32 ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
  33 ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  34 ;;; Copyright © 2019 Brendan Tildesley <mail@brendan.scot>
  35 ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
  36 ;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
  37 ;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org>
  38 ;;;
  39 ;;; This file is part of GNU Guix.
  40 ;;;
  41 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  42 ;;; under the terms of the GNU General Public License as published by
  43 ;;; the Free Software Foundation; either version 3 of the License, or (at
  44 ;;; your option) any later version.
  45 ;;;
  46 ;;; GNU Guix is distributed in the hope that it will be useful, but
  47 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  48 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  49 ;;; GNU General Public License for more details.
  50 ;;;
  51 ;;; You should have received a copy of the GNU General Public License
  52 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  53
  54 (define-module (gnu packages web)
  55   #:use-module (ice-9 match)
  56   #:use-module ((guix licenses) #:prefix license:)
  57   #:use-module (guix packages)
  58   #:use-module (guix download)
  59   #:use-module (guix gexp)
  60   #:use-module (guix git-download)
  61   #:use-module (guix cvs-download)
  62   #:use-module (guix hg-download)
  63   #:use-module (guix utils)
  64   #:use-module (guix build-system gnu)
  65   #:use-module (guix build-system glib-or-gtk)
  66   #:use-module (guix build-system perl)
  67   #:use-module (guix build-system cmake)
  68   #:use-module (guix build-system trivial)
  69   #:use-module (guix build-system python)
  70   #:use-module (guix build-system ant)
  71   #:use-module (guix build-system scons)
  72   #:use-module (guix build-system go)
  73   #:use-module (gnu packages)
  74   #:use-module (gnu packages admin)
  75   #:use-module (gnu packages adns)
  76   #:use-module (gnu packages apr)
  77   #:use-module (gnu packages boost)
  78   #:use-module (gnu packages check)
  79   #:use-module (gnu packages documentation)
  80   #:use-module (gnu packages docbook)
  81   #:use-module (gnu packages emacs)
  82   #:use-module (gnu packages emacs-xyz)
  83   #:use-module (gnu packages autotools)
  84   #:use-module (gnu packages compression)
  85   #:use-module (gnu packages curl)
  86   #:use-module (gnu packages cyrus-sasl)
  87   #:use-module (gnu packages databases)
  88   #:use-module (gnu packages bison)
  89   #:use-module (gnu packages flex)
  90   #:use-module (gnu packages freedesktop)
  91   #:use-module (gnu packages kerberos)
  92   #:use-module (gnu packages gcc)
  93   #:use-module (gnu packages gd)
  94   #:use-module (gnu packages gettext)
  95   #:use-module (gnu packages glib)
  96   #:use-module (gnu packages gnome)
  97   #:use-module (gnu packages gnu-doc)
  98   #:use-module (gnu packages gnupg)
  99   #:use-module (gnu packages golang)
 100   #:use-module (gnu packages gperf)
 101   #:use-module (gnu packages gtk)
 102   #:use-module (gnu packages guile)
 103   #:use-module (gnu packages guile-xyz)
 104   #:use-module (gnu packages java)
 105   #:use-module (gnu packages jemalloc)
 106   #:use-module (gnu packages image)
 107   #:use-module (gnu packages imagemagick)
 108   #:use-module (gnu packages libevent)
 109   #:use-module (gnu packages libidn)
 110   #:use-module (gnu packages libunistring)
 111   #:use-module (gnu packages linux)
 112   #:use-module (gnu packages lisp)
 113   #:use-module (gnu packages lua)
 114   #:use-module (gnu packages markup)
 115   #:use-module (gnu packages ncurses)
 116   #:use-module (gnu packages nss)
 117   #:use-module (gnu packages openstack)
 118   #:use-module (gnu packages base)
 119   #:use-module (gnu packages package-management)
 120   #:use-module (gnu packages perl)
 121   #:use-module (gnu packages perl-check)
 122   #:use-module (gnu packages python)
 123   #:use-module (gnu packages python-web)
 124   #:use-module (gnu packages python-xyz)
 125   #:use-module (gnu packages pcre)
 126   #:use-module (gnu packages pkg-config)
 127   #:use-module (gnu packages qt)
 128   #:use-module (gnu packages readline)
 129   #:use-module (gnu packages re2c)
 130   #:use-module (gnu packages sphinx)
 131   #:use-module (gnu packages texinfo)
 132   #:use-module (gnu packages textutils)
 133   #:use-module (gnu packages tls)
 134   #:use-module (gnu packages valgrind)
 135   #:use-module (gnu packages version-control)
 136   #:use-module (gnu packages vim)
 137   #:use-module (gnu packages xml))
 138
 139 (define-public httpd
 140   (package
 141     (name "httpd")
 142     (version "2.4.41")
 143     (source (origin
 144              (method url-fetch)
 145              (uri (string-append "mirror://apache/httpd/httpd-"
 146                                  version ".tar.bz2"))
 147              (sha256
 148               (base32
 149                "0h7a31yxwyh7h521frnmlppl0h7sh9icc3ka6vlmlcg5iwllhg8k"))))
 150     (build-system gnu-build-system)
 151     (native-inputs `(("pcre" ,pcre "bin")))       ;for 'pcre-config'
 152     (inputs `(("apr" ,apr)
 153               ("apr-util" ,apr-util)
 154               ("openssl" ,openssl)
 155               ("perl" ,perl))) ; needed to run bin/apxs
 156     (arguments
 157      `(#:test-target "test"
 158        #:configure-flags (list "--enable-rewrite"
 159                                "--enable-userdir"
 160                                "--enable-vhost-alias"
 161                                "--enable-ssl"
 162                                "--enable-mime-magic"
 163                                (string-append "--sysconfdir="
 164                                               (assoc-ref %outputs "out")
 165                                               "/etc/httpd"))))
 166     (synopsis "Featureful HTTP server")
 167     (description
 168      "The Apache HTTP Server Project is a collaborative software development
 169 effort aimed at creating a robust, commercial-grade, featureful, and
 170 freely-available source code implementation of an HTTP (Web) server.  The
 171 project is jointly managed by a group of volunteers located around the world,
 172 using the Internet and the Web to communicate, plan, and develop the server
 173 and its related documentation.")
 174     (license license:asl2.0)
 175     (home-page "https://httpd.apache.org/")))
 176
 177 (define-public mod-wsgi
 178   (package
 179     (name "mod-wsgi")
 180     (version "4.5.22")
 181     (source (origin
 182               (method git-fetch)
 183               (uri (git-reference
 184                     (url "https://github.com/GrahamDumpleton/mod_wsgi.git")
 185                     (commit version)))
 186               (file-name (git-file-name name version))
 187               (sha256
 188                (base32
 189                 "1q90xw2cbhka5gcd6yc69iir73x4gm7fm75qpkins2ryfl6w1q3f"))))
 190     (build-system gnu-build-system)
 191     (arguments
 192      '(#:tests? #f                 ; TODO: can't figure out if there are tests
 193        #:make-flags (list
 194                      (string-append "DESTDIR="
 195                                     (assoc-ref %outputs "out"))
 196                      "LIBEXECDIR=/modules")))
 197     (inputs
 198      `(("httpd" ,httpd)
 199        ("python" ,python-wrapper)))
 200     (synopsis "Apache HTTPD module for Python WSGI applications")
 201     (description
 202      "The mod_wsgi module for the Apache HTTPD Server adds support for running
 203 applications that support the Python @acronym{WSGI, Web Server Gateway
 204 Interface} specification.")
 205     (license license:asl2.0)
 206     (home-page "https://modwsgi.readthedocs.io/")))
 207
 208 (define-public nginx
 209   (package
 210     (name "nginx")
 211     ;; Track the ‘mainline’ branch.  Upstream considers it more reliable than
 212     ;; ’stable’ and recommends that “in general you deploy the NGINX mainline
 213     ;; branch at all times” (https://www.nginx.com/blog/nginx-1-6-1-7-released/)
 214     ;; Consider updating the nginx-documentation package together with this one.
 215     (version "1.17.4")
 216     (source (origin
 217               (method url-fetch)
 218               (uri (string-append "https://nginx.org/download/nginx-"
 219                                   version ".tar.gz"))
 220               (sha256
 221                (base32
 222                 "0mg521bxh8pysmy20x599m252ici9w97kk7qy7s0wrv6bqv4p1b2"))))
 223     (build-system gnu-build-system)
 224     (inputs `(("openssl" ,openssl)
 225               ("pcre" ,pcre)
 226               ("zlib" ,zlib)))
 227     (arguments
 228      `(#:tests? #f                      ; no test target
 229        #:phases
 230        (modify-phases %standard-phases
 231          (add-before 'configure 'patch-/bin/sh
 232            (lambda _
 233              (substitute* "auto/feature"
 234                (("/bin/sh") (which "sh")))
 235              #t))
 236          (replace 'configure
 237            ;; The configure script is hand-written, not from GNU autotools.
 238            (lambda* (#:key outputs #:allow-other-keys)
 239              (let ((flags
 240                     (list (string-append "--prefix=" (assoc-ref outputs "out"))
 241                           "--with-http_ssl_module"
 242                           "--with-http_v2_module"
 243                           "--with-pcre-jit"
 244                           "--with-debug"
 245                           ;; Even when not cross-building, we pass the
 246                           ;; --crossbuild option to avoid customizing for the
 247                           ;; kernel version on the build machine.
 248                           ,(let ((system "Linux")    ; uname -s
 249                                  (release "3.2.0")   ; uname -r
 250                                  ;; uname -m
 251                                  (machine (match (or (%current-target-system)
 252                                                      (%current-system))
 253                                             ("x86_64-linux"   "x86_64")
 254                                             ("i686-linux"     "i686")
 255                                             ("mips64el-linux" "mips64")
 256                                             ;; Prevent errors when querying
 257                                             ;; this package on unsupported
 258                                             ;; platforms, e.g. when running
 259                                             ;; "guix package --search="
 260                                             (_                "UNSUPPORTED"))))
 261                              (string-append "--crossbuild="
 262                                             system ":" release ":" machine)))))
 263                (setenv "CC" "gcc")
 264                (format #t "environment variable `CC' set to `gcc'~%")
 265                (format #t "configure flags: ~s~%" flags)
 266                (apply invoke "./configure" flags)
 267                #t)))
 268          (add-after 'install 'install-man-page
 269            (lambda* (#:key outputs #:allow-other-keys)
 270              (let* ((out (assoc-ref outputs "out"))
 271                     (man (string-append out "/share/man")))
 272                (install-file "objs/nginx.8" (string-append man "/man8"))
 273                #t)))
 274          (add-after 'install 'fix-root-dirs
 275            (lambda* (#:key outputs #:allow-other-keys)
 276              ;; 'make install' puts things in strange places, so we need to
 277              ;; clean it up ourselves.
 278              (let* ((out (assoc-ref outputs "out"))
 279                     (share (string-append out "/share/nginx")))
 280                ;; This directory is empty, so get rid of it.
 281                (rmdir (string-append out "/logs"))
 282                ;; Example configuration and HTML files belong in
 283                ;; /share.
 284                (mkdir-p share)
 285                (rename-file (string-append out "/conf")
 286                             (string-append share "/conf"))
 287                (rename-file (string-append out "/html")
 288                             (string-append share "/html"))
 289                #t))))))
 290     (home-page "https://nginx.org")
 291     (synopsis "HTTP and reverse proxy server")
 292     (description
 293      "Nginx (\"engine X\") is a high-performance web and reverse proxy server
 294 created by Igor Sysoev.  It can be used both as a stand-alone web server
 295 and as a proxy to reduce the load on back-end HTTP or mail servers.")
 296     ;; Almost all of nginx is distributed under the bsd-2 license.
 297     ;; The exceptions are:
 298     ;;   * The 'nginx-http-push' module is covered by the expat license.
 299     ;;   * The 'nginx-development-kit' module is mostly covered by bsd-3,
 300     ;;     except for two source files which are bsd-4 licensed.
 301     (license (list license:bsd-2 license:expat license:bsd-3 license:bsd-4))))
 302
 303 (define nginx-xslscript
 304   (let ((revision 11)
 305         (changeset "01dc9ba12e1b"))
 306     (package
 307       (name "nginx-xslscript")
 308       (version
 309        (simple-format #f "2014-03-31-~A-~A" revision changeset))
 310       (source (origin
 311                 (method hg-fetch)
 312                 (uri (hg-reference
 313                       (url "http://hg.nginx.org/xslscript")
 314                       (changeset changeset)))
 315                 (file-name (string-append name "-" version))
 316                 (sha256
 317                  (base32
 318                   "0am8zvdx3jmiwkg5q07qjaw5r26r4i2v5i4yr8a1k0jgib6ii08g"))))
 319       (build-system gnu-build-system)
 320       (arguments
 321        '(#:tests? #f  ; No test suite
 322          #:phases
 323          (modify-phases %standard-phases
 324            (delete 'configure)
 325            (delete 'build)
 326            (replace 'install
 327              (lambda* (#:key outputs #:allow-other-keys)
 328                (let ((out-bin (string-append
 329                                (assoc-ref outputs "out")
 330                                "/bin")))
 331                  (mkdir-p out-bin)
 332                  (copy-file "xslscript.pl"
 333                             (string-append
 334                              out-bin
 335                              "/xslscript.pl"))
 336                  #t))))))
 337       (home-page "http://hg.nginx.org/xslscript")
 338       (synopsis "XSLScript with NGinx specific modifications")
 339       (description
 340        "XSLScript is a terse notation for writing complex XSLT stylesheets.
 341 This is modified version, specifically intended for use with the NGinx
 342 documentation.")
 343       (license license:bsd-2))))
 344
 345 (define-public nginx-documentation
 346   ;; This documentation should be relevant for nginx@1.15.9.
 347   (let ((revision 2345)
 348         (changeset "7ef11708457e"))
 349     (package
 350       (name "nginx-documentation")
 351       (version
 352        (simple-format #f "2019-03-01-~A-~A" revision changeset))
 353       (source
 354        (origin (method hg-fetch)
 355                (uri (hg-reference
 356                      (url "http://hg.nginx.org/nginx.org")
 357                      (changeset changeset)))
 358                (file-name (string-append name "-" version))
 359                (sha256
 360                 (base32
 361                  "15975jvh53mnsgi4hhgrwdwy3by23v4kxnhy2vnkziq8v7wkmy4y"))))
 362       (build-system gnu-build-system)
 363       (arguments
 364        '(#:tests? #f                    ; no test suite
 365          #:phases
 366          (modify-phases %standard-phases
 367            (delete 'configure)          ; no configure script
 368            (replace 'build
 369              (lambda* (#:key outputs #:allow-other-keys)
 370                (let ((output (assoc-ref outputs "out")))
 371                  (substitute* "umasked.sh"
 372                    ((" /bin/sh") (string-append " " (which "sh"))))
 373                  ;; The documentation includes a banner, which makes sense on
 374                  ;; the NGinx website, but doesn't make much sense when
 375                  ;; viewing locally. Therefore, modify the CSS to remove the
 376                  ;; banner.
 377                  (substitute* "xslt/style.xslt"
 378                    (("#banner           \\{ background:     black;")
 379                     "#banner           { display:        none;"))
 380                  (invoke "make")
 381                  #t)))
 382            (replace 'install
 383              (lambda* (#:key outputs #:allow-other-keys)
 384                (let ((output (assoc-ref outputs "out")))
 385                  (mkdir-p output)
 386                  (copy-recursively "libxslt" output)
 387                  #t))))))
 388       (native-inputs
 389        `(("libxml2" ,libxml2)
 390          ("libxslt" ,libxslt)
 391          ("nginx-xslscript" ,nginx-xslscript)))
 392       (home-page "https://nginx.org")
 393       (synopsis "Documentation for the nginx web server")
 394       (description
 395        "This package provides HTML documentation for the nginx web server.")
 396       (license license:bsd-2))))
 397
 398 (define-public fcgi
 399   (package
 400     (name "fcgi")
 401     (version "2.4.0")
 402     (source
 403      (origin
 404        (method url-fetch)
 405        ;; Upstream has disappeared.
 406        (uri (string-append "https://sources.archlinux.org/other/packages/fcgi/"
 407                            "fcgi-" version ".tar.gz"))
 408        (sha256
 409         (base32
 410          "1f857wnl1d6jfrgfgfpz3zdaj8fch3vr13mnpcpvy8bang34bz36"))
 411        (patches (search-patches "fcgi-2.4.0-poll.patch"
 412                                 "fcgi-2.4.0-gcc44-fixes.patch"))))
 413     (build-system gnu-build-system)
 414     ;; Parallel building is not supported.
 415     (arguments `(#:parallel-build? #f))
 416     ;; This is an archived fork of the original home page, www.fastcgi.com.
 417     (home-page "https://fastcgi-archives.github.io/")
 418     (synopsis "Language-independent, high-performant extension to CGI")
 419     (description "FastCGI is a language-independent, scalable extension to CGI
 420 that provides high performance without the limitations of server specific
 421 APIs.")
 422     ;; This package is released under the Open Market License, a variant of
 423     ;; the Expat license, incompatible with the GPL.
 424     (license (license:non-copyleft "file://LICENSE.TERMS"))))
 425
 426 (define-public fcgiwrap
 427   (package
 428     (name "fcgiwrap")
 429     (version "1.1.0")
 430     (source
 431      (origin
 432        (method git-fetch)
 433        (uri (git-reference
 434              (url "https://github.com/gnosek/fcgiwrap.git")
 435              (commit version)))
 436        (file-name (git-file-name name version))
 437        (sha256
 438         (base32 "1ryw66h9aazi83amk8l7ha8k5g0c7qvk5g6jv376a1ws9xk2qw6f"))))
 439     (build-system gnu-build-system)
 440     (arguments
 441      `(#:tests? #f                      ; no tests included
 442        #:make-flags (list "CC=gcc")))
 443     (native-inputs
 444      `(("autoconf" ,autoconf)
 445        ("automake" ,automake)
 446        ("pkg-config" ,pkg-config)))
 447     (inputs
 448      `(("fcgi" ,fcgi)))
 449     (home-page "https://nginx.localdomain.pl/wiki/FcgiWrap")
 450     (synopsis "Simple server for running CGI applications over FastCGI")
 451     (description "Fcgiwrap is a simple server for running CGI applications
 452 over FastCGI.  It hopes to provide clean CGI support to Nginx (and other web
 453 servers that may need it).")
 454     (license license:expat)))
 455
 456 (define-public starman
 457   (package
 458     (name "starman")
 459     (version "0.4014")
 460     (source
 461      (origin
 462        (method url-fetch)
 463        (uri (string-append "mirror://cpan/authors/id/M/MI/MIYAGAWA/"
 464                            "Starman-" version ".tar.gz"))
 465        (sha256
 466         (base32
 467          "1sbb5rb3vs82rlh1fjkgkcmj5pj62b4y9si4ihh45sl9m8c2qxx5"))))
 468     (build-system perl-build-system)
 469     (native-inputs
 470      `(("perl-libwww" ,perl-libwww)
 471        ("perl-module-build-tiny" ,perl-module-build-tiny)
 472        ("perl-test-requires" ,perl-test-requires)))
 473     (propagated-inputs
 474      `(("perl-data-dump" ,perl-data-dump)
 475        ("perl-http-date" ,perl-http-date)
 476        ("perl-http-message" ,perl-http-message)
 477        ("perl-http-parser-xs" ,perl-http-parser-xs)
 478        ("perl-net-server" ,perl-net-server)
 479        ("perl-plack" ,perl-plack)
 480        ("perl-test-tcp" ,perl-test-tcp)))
 481     (home-page "https://metacpan.org/release/Starman")
 482     (synopsis "PSGI/Plack web server")
 483     (description "Starman is a PSGI perl web server that has unique features
 484 such as high performance, preforking, signal support, superdaemon awareness,
 485 and UNIX socket support.")
 486     (license license:perl-license)))
 487
 488 (define-public icedtea-web
 489   (package
 490     (name "icedtea-web")
 491     (version "1.6.2")
 492     (source (origin
 493               (method url-fetch)
 494               (uri (string-append
 495                     "http://icedtea.wildebeest.org/download/source/"
 496                     name "-" version ".tar.gz"))
 497               (sha256
 498                (base32
 499                 "004kwrngyxxlrlzby4vzxjr0xcyngcdc9dfgnvi61ffnjr006ryf"))))
 500     (build-system gnu-build-system)
 501     (arguments
 502      `(#:configure-flags
 503        (list  "--disable-plugin"         ;NPAPI plugins are obsolete nowadays.
 504              (string-append "BIN_BASH=" (assoc-ref %build-inputs "bash")
 505                             "/bin/bash")
 506              (string-append "--with-jdk-home=" (assoc-ref %build-inputs "jdk")))))
 507     (outputs '("out" "doc"))
 508     (native-inputs
 509      `(("pkg-config" ,pkg-config)
 510        ("zip" ,zip)))
 511     (inputs
 512      `(("gtk+" ,gtk+)
 513        ("jdk" ,icedtea "jdk")))
 514     (home-page "http://icedtea.classpath.org/wiki/IcedTea-Web")
 515     (synopsis "Java Web Start")
 516     (description
 517      "IcedTea-Web is an implementation of the @dfn{Java Network Launching
 518 Protocol}, also known as Java Web Start.  This package provides tools and
 519 libraries for working with JNLP applets.")
 520     ;; The program is mainly GPL2+, with some individual files under LGPL2.1+
 521     ;; or dual licenses.
 522     (license license:gpl2+)))
 523
 524 (define-public jansson
 525   (package
 526     (name "jansson")
 527     (version "2.12")
 528     (source (origin
 529              (method url-fetch)
 530              (uri
 531               (string-append "http://www.digip.org/jansson/releases/jansson-"
 532                              version ".tar.bz2"))
 533              (sha256
 534               (base32
 535                "1lp1mv8pjp5yziws66cy0dhpcam4bbjqhffk13v4vgdybp674pb4"))))
 536     (build-system gnu-build-system)
 537     (arguments
 538      `(#:configure-flags '("--disable-static")))
 539     (home-page "http://www.digip.org/jansson/")
 540     (synopsis "JSON C library")
 541     (description
 542      "Jansson is a C library for encoding, decoding and manipulating JSON
 543 data.")
 544     (license license:expat)))
 545
 546 (define-public json-c
 547   (package
 548     (name "json-c")
 549     (version "0.13.1")
 550     (source (origin
 551              (method url-fetch)
 552              (uri (string-append
 553                    "https://s3.amazonaws.com/json-c_releases/releases/json-c-"
 554                    version ".tar.gz"))
 555              (sha256
 556               (base32
 557                "0ws8dz9nk8q2c0gbf66kg2r6mrkl7kamd3gpdv9zsyrz9n6n0zmq"))
 558              (modules '((guix build utils)))
 559              (snippet
 560               '(begin
 561                  ;; Somehow 'config.h.in' is older than
 562                  ;; 'aclocal.m4', which would trigger a rule to
 563                  ;; run 'autoheader'.
 564                  (set-file-time "config.h.in"
 565                                 (stat "aclocal.m4"))
 566                  #t))))
 567     (build-system gnu-build-system)
 568     (home-page "https://github.com/json-c/json-c/wiki")
 569     (synopsis "JSON implementation in C")
 570     (description
 571      "JSON-C implements a reference counting object model that allows you to
 572 easily construct JSON objects in C, output them as JSON-formatted strings and
 573 parse JSON-formatted strings back into the C representation of JSON objects.
 574 It aims to conform to RFC 7159.")
 575     (license license:x11)))
 576
 577 ;; TODO: remove this old version when all dependents have been updated.
 578 (define-public json-c-0.12
 579   (package
 580     (inherit json-c)
 581     (version "0.12.1")
 582     (source (origin
 583              (method url-fetch)
 584              (uri (string-append
 585                    "https://s3.amazonaws.com/json-c_releases/releases/json-c-"
 586                    version ".tar.gz"))
 587              (sha256
 588               (base32 "08qibrq29a5v7g23wi5icy6l4fbfw90h9ccps6vq0bcklx8n84ra"))
 589              (modules '((guix build utils)))
 590              (snippet
 591               '(begin
 592                  ;; Somehow 'config.h.in' is older than
 593                  ;; 'aclocal.m4', which would trigger a rule to
 594                  ;; run 'autoheader'.
 595                  (set-file-time "config.h.in"
 596                                 (stat "aclocal.m4"))
 597
 598                  ;; Don't try to build with -Werror.
 599                  (substitute* (find-files "." "Makefile\\.in")
 600                    (("-Werror") ""))
 601                  #t))))))
 602
 603 (define-public json-parser
 604   (package
 605     (name "json-parser")
 606     (version "1.1.0")
 607     (source (origin
 608               ;; do not use auto-generated tarballs
 609               (method git-fetch)
 610               (uri (git-reference
 611                     (url "https://github.com/udp/json-parser.git")
 612                     (commit (string-append "v" version))))
 613               (file-name (git-file-name name version))
 614               (sha256
 615                (base32
 616                 "1ls7z4fx0sq633s5bc0j1gh36sv087gmrgr7rza22wjq2d4606yf"))))
 617     ;; FIXME: we should build the python bindings in a separate package
 618     (build-system gnu-build-system)
 619     ;; the tests are written for the python bindings which are not built here
 620     (arguments '(#:tests? #f))
 621     (home-page "https://github.com/udp/json-parser")
 622     (synopsis "JSON parser written in ANSI C")
 623     (description "This package provides a very low footprint JSON parser
 624 written in portable ANSI C.
 625
 626 @itemize
 627 @item BSD licensed with no dependencies (i.e. just drop the C file into your
 628 project)
 629 @item Never recurses or allocates more memory than it needs
 630 @item Very simple API with operator sugar for C++
 631 @end itemize")
 632     (license license:bsd-2)))
 633
 634 (define-public qjson
 635   (package
 636     (name "qjson")
 637     (version "0.9.0")
 638     (source (origin
 639               (method git-fetch)
 640               (uri (git-reference
 641                     (url "https://github.com/flavio/qjson.git")
 642                     (commit version)))
 643               (file-name (git-file-name name version))
 644               (sha256
 645                (base32
 646                 "1f4wnxzx0qdmxzc7hqk28m0sva7z9p9xmxm6aifvjlp0ha6pmfxs"))))
 647     (build-system cmake-build-system)
 648     (arguments
 649      ;; The tests require a running X server.
 650      `(#:configure-flags '("-DQJSON_BUILD_TESTS=ON"
 651                            "-DCMAKE_CXX_FLAGS=-std=gnu++11 -fPIC")
 652        #:phases
 653        (modify-phases %standard-phases
 654          (add-after 'unpack 'disable-broken-test
 655            (lambda _
 656              ;; FIXME: One test fails.  See
 657              ;; https://github.com/flavio/qjson/issues/105
 658              (substitute* "tests/scanner/testscanner.cpp"
 659                (("QTest::newRow\\(\"too large exponential\"\\)" line)
 660                 (string-append "//" line)))
 661              #t))
 662          (add-before 'check 'render-offscreen
 663            (lambda _ (setenv "QT_QPA_PLATFORM" "offscreen") #t)))))
 664     (inputs
 665      `(("qtbase" ,qtbase)))
 666     (home-page "http://qjson.sourceforge.net")
 667     (synopsis "Library that maps JSON data to QVariant objects")
 668     (description "QJson is a Qt-based library that maps JSON data to
 669 @code{QVariant} objects.  JSON arrays will be mapped to @code{QVariantList}
 670 instances, while JSON's objects will be mapped to @code{QVariantMap}.")
 671     ;; Only version 2.1 of the license
 672     (license license:lgpl2.1)))
 673
 674 (define-public krona-tools
 675   (package
 676    (name "krona-tools")
 677    (version "2.7")
 678    (source (origin
 679              (method url-fetch)
 680              (uri (string-append
 681                    "https://github.com/marbl/Krona/releases/download/v"
 682                    version "/KronaTools-" version ".tar"))
 683              (sha256
 684               (base32
 685                "0wvgllcqscsfb4xc09y3fqhx8i38pmr4w55vjs5y79wx56n710iq"))))
 686    (build-system perl-build-system)
 687    (arguments
 688      `(#:phases
 689        (modify-phases %standard-phases
 690          ;; There is no configure or build steps.
 691          (delete 'configure)
 692          (delete 'build)
 693          ;; Install script "install.pl" expects the build directory to remain
 694          ;; after installation, creating symlinks etc., so re-implement it
 695          ;; here.
 696          (replace 'install
 697            (lambda* (#:key outputs #:allow-other-keys)
 698              (let ((bin   (string-append (assoc-ref outputs "out") "/bin"))
 699                    (perl  (string-append (assoc-ref outputs "out")
 700                                          "/lib/perl5/site_perl/krona-tools/lib")))
 701                (mkdir-p bin)
 702                (for-each
 703                 (lambda (script)
 704                   (let* ((executable (string-append "scripts/" script ".pl")))
 705                     ;; Prefix executables with 'kt' as install script does.
 706                     (copy-file executable (string-append bin "/kt" script))))
 707                 '("ClassifyBLAST"
 708                   "GetContigMagnitudes"
 709                   "GetLCA"
 710                   "GetTaxIDFromAcc"
 711                   "GetTaxInfo"
 712                   "ImportBLAST"
 713                   "ImportDiskUsage"
 714                   "ImportEC"
 715                   "ImportFCP"
 716                   "ImportGalaxy"
 717                   "ImportKrona"
 718                   "ImportMETAREP-BLAST"
 719                   "ImportMETAREP-EC"
 720                   "ImportMGRAST"
 721                   "ImportPhymmBL"
 722                   "ImportRDP"
 723                   "ImportRDPComparison"
 724                   "ImportTaxonomy"
 725                   "ImportText"
 726                   "ImportXML"))
 727                (for-each
 728                 (lambda (directory)
 729                   (copy-recursively directory
 730                                     (string-append perl "/../" directory)))
 731                 (list "data" "img" "taxonomy" "src"))
 732                (install-file "lib/KronaTools.pm" perl))))
 733          (add-after 'install 'wrap-program
 734            (lambda* (#:key inputs outputs #:allow-other-keys)
 735              (let* ((out (assoc-ref outputs "out"))
 736                     (path (getenv "PERL5LIB")))
 737                (for-each
 738                 (lambda (executable)
 739                   (wrap-program executable
 740                     `("PERL5LIB" ":" prefix
 741                       (,(string-append out "/lib/perl5/site_perl/krona-tools/lib")))))
 742                 (find-files (string-append out "/bin/") ".*")))))
 743          (delete 'check)
 744          (add-after 'wrap-program 'check
 745            (lambda* (#:key inputs outputs #:allow-other-keys)
 746              (with-directory-excursion "data"
 747                (invoke (string-append (assoc-ref outputs "out") "/bin/ktImportText")
 748                        "ec.tsv")))))))
 749    (inputs
 750     `(("perl" ,perl)))
 751    (home-page "https://github.com/marbl/Krona/wiki")
 752    (synopsis "Hierarchical data exploration with zoomable HTML5 pie charts")
 753    (description
 754     "Krona is a flexible tool for exploring the relative proportions of
 755 hierarchical data, such as metagenomic classifications, using a radial,
 756 space-filling display.  It is implemented using HTML5 and JavaScript, allowing
 757 charts to be explored locally or served over the Internet, requiring only a
 758 current version of any major web browser.")
 759    (license license:bsd-3)))
 760
 761 (define-public rapidjson
 762   (package
 763     (name "rapidjson")
 764     (version "1.1.0")
 765     (source (origin
 766               (method git-fetch)
 767               (uri (git-reference
 768                     (url "https://github.com/Tencent/rapidjson.git")
 769                     (commit (string-append "v" version))))
 770               (file-name (git-file-name name version))
 771               (sha256
 772                (base32
 773                 "1jixgb8w97l9gdh3inihz7avz7i770gy2j2irvvlyrq3wi41f5ab"))
 774               (patches (search-patches "rapidjson-gcc-compat.patch"))
 775               (modules '((guix build utils)))
 776               (snippet
 777                '(begin
 778                   ;; Remove code using the problematic JSON license (see
 779                   ;; <https://www.gnu.org/licenses/license-list.html#JSON>).
 780                   (delete-file-recursively "bin/jsonchecker")
 781                   #t))))
 782     (build-system cmake-build-system)
 783     (arguments
 784      (if (string-prefix? "aarch64" (or (%current-target-system)
 785                                        (%current-system)))
 786          '(#:phases
 787            (modify-phases %standard-phases
 788              (add-after 'unpack 'patch-aarch-march-detection
 789                (lambda _
 790                  (substitute* (find-files "." "^CMakeLists\\.txt$")
 791                    (("native") "armv8-a"))
 792                  #t))))
 793          ;; Disable CPU optimization for reproducibility.
 794          '(#:configure-flags '("-DRAPIDJSON_ENABLE_INSTRUMENTATION_OPT=OFF"))))
 795     (home-page "https://github.com/Tencent/rapidjson")
 796     (synopsis "JSON parser/generator for C++ with both SAX/DOM style API")
 797     (description
 798      "RapidJSON is a fast JSON parser/generator for C++ with both SAX/DOM
 799 style API.")
 800     (license license:expat)))
 801
 802 (define-public libyajl
 803   (package
 804     (name "libyajl")
 805     (version "2.1.0")
 806     (source (origin
 807               (method git-fetch)
 808               (uri (git-reference
 809                     (url "https://github.com/lloyd/yajl.git")
 810                     (commit version)))
 811               (file-name (git-file-name name version))
 812               (sha256
 813                (base32
 814                 "00yj06drb6izcxfxfqlhimlrb089kka0w0x8k27pyzyiq7qzcvml"))))
 815     (build-system cmake-build-system)
 816     (arguments
 817      '(#:phases
 818        (modify-phases %standard-phases
 819          (add-after 'patch-source-shebangs 'patch-tests
 820            (lambda _
 821              (substitute* "test/parsing/run_tests.sh"
 822                (("`which echo`") (which "echo")))
 823              #t)))))
 824     (home-page "https://lloyd.github.io/yajl/")
 825     (synopsis "C library for parsing JSON")
 826     (description
 827      "Yet Another JSON Library (YAJL) is a small event-driven (SAX-style) JSON
 828 parser written in ANSI C and a small validating JSON generator.")
 829     (license license:isc)))
 830
 831 (define-public libwebsockets
 832   (package
 833     (name "libwebsockets")
 834     (version "1.3")
 835     (source (origin
 836               ;; The project does not publish tarballs, so we have to take
 837               ;; things from Git.
 838               (method git-fetch)
 839               (uri (git-reference
 840                     (url "https://github.com/warmcat/libwebsockets.git")
 841                     (commit (string-append "v" version
 842                                            "-chrome37-firefox30"))))
 843               (sha256
 844                (base32
 845                 "12fqh2d2098mgf0ls19p9lzibpsqhv7mc5rn1yvrbfnazmcr40g4"))
 846               (file-name (string-append name "-" version))))
 847
 848     (build-system cmake-build-system)
 849     (arguments
 850      ;; XXX: The thing lacks a 'make test' target, because CMakeLists.txt
 851      ;; doesn't use 'add_test', and it's unclear how to run the test suite.
 852      '(#:tests? #f))
 853
 854     (native-inputs `(("perl" ,perl)))             ; to build the HTML doc
 855     (inputs `(("zlib" ,zlib)
 856               ("openssl" ,openssl)))
 857     (synopsis "WebSockets library written in C")
 858     (description
 859      "Libwebsockets is a library that allows C programs to establish client
 860 and server WebSockets connections---a protocol layered above HTTP that allows
 861 for efficient socket-like bidirectional reliable communication channels.")
 862     (home-page "http://libwebsockets.org/")
 863
 864     ;; This is LGPLv2.1-only with extra exceptions specified in 'LICENSE'.
 865     (license license:lgpl2.1)))
 866
 867 (define-public wabt
 868   (package
 869     (name "wabt")
 870     (version "1.0.12")
 871     (source
 872      (origin
 873        (method git-fetch)
 874        (uri (git-reference
 875              (url "https://github.com/WebAssembly/wabt")
 876              (commit version)))
 877        (file-name (git-file-name name version))
 878        (sha256
 879         (base32 "1zlv3740wkqj4mn6sr84h0x6wk2lcp4pwwmqsh5yyqp1j1glbsa0"))))
 880     (build-system cmake-build-system)
 881     (arguments
 882      `(#:configure-flags '("-DBUILD_TESTS=OFF")
 883        #:tests? #f))
 884     (inputs `(("python" ,python-2)
 885               ("re2c" ,re2c)))
 886     (home-page "https://github.com/WebAssembly/wabt")
 887     (synopsis "WebAssembly Binary Toolkit")
 888     (description "WABT (pronounced: wabbit) is a suite of tools for
 889 WebAssembly, including:
 890
 891 * wat2wasm: translate from WebAssembly text format to the WebAssembly binary
 892   format
 893 * wasm2wat: the inverse of wat2wasm, translate from the binary format back
 894   to the text format (also known as a .wat)
 895 * wasm-objdump: print information about a wasm binary.  Similar to objdump.
 896 * wasm-interp: decode and run a WebAssembly binary file using a stack-based
 897   interpreter
 898 * wat-desugar: parse .wat text form as supported by the spec interpreter
 899   (s-expressions, flat syntax, or mixed) and print canonical flat format
 900 * wasm2c: convert a WebAssembly binary file to a C source and header
 901
 902 These tools are intended for use in (or for development of) toolchains or
 903 other systems that want to manipulate WebAssembly files.")
 904     (license license:asl2.0)))
 905
 906 (define-public websocketpp
 907   (package
 908     (name "websocketpp")
 909     (version "0.8.1")
 910     (source
 911      (origin
 912        (method git-fetch)
 913        (uri (git-reference
 914              (url "https://github.com/zaphoyd/websocketpp.git")
 915              (commit version)))
 916        (file-name (git-file-name name version))
 917        (sha256
 918         (base32 "12ffczcrryh74c1xssww35ic6yiy2l2xgdd30lshiq9wnzl2brgy"))))
 919     (build-system cmake-build-system)
 920     (inputs `(("boost" ,boost)
 921               ("openssl" ,openssl)))
 922     (arguments '(#:configure-flags '("-DBUILD_TESTS=ON")
 923                  #:phases
 924                  (modify-phases %standard-phases
 925                    (add-after 'install 'remove-tests
 926                      (lambda* (#:key outputs #:allow-other-keys)
 927                        (let* ((install-dir (assoc-ref outputs "out"))
 928                               (bin-dir (string-append install-dir "/bin")))
 929                          (delete-file-recursively bin-dir)
 930                          #t))))))
 931     (home-page "https://www.zaphoyd.com/websocketpp/")
 932     (synopsis "C++ library implementing the WebSocket protocol")
 933     (description "WebSocket++ is a C++ library that can be used to implement
 934 WebSocket functionality.  The goals of the project are to provide a WebSocket
 935 implementation that is simple, portable, flexible, lightweight, low level, and
 936 high performance.")
 937     (license license:bsd-3)))
 938
 939 (define-public libpsl
 940   (package
 941     (name "libpsl")
 942     (version "0.21.0")
 943     (source (origin
 944               (method url-fetch)
 945               (uri (string-append "https://github.com/rockdaboot/libpsl/"
 946                                   "releases/download/libpsl-" version
 947                                   "/libpsl-" version ".tar.gz"))
 948               (sha256
 949                (base32
 950                 "04pfagb7ppq3yibx4lhazd1v9nwkxdfkyy2rgcrmrf3mldsirga1"))))
 951     (build-system gnu-build-system)
 952     (native-inputs
 953      `(("pkg-config" ,pkg-config)
 954
 955        ;; For tests.
 956        ("python" ,python-wrapper)))
 957     (inputs
 958      `(("libidn2" ,libidn2)
 959        ("libunistring" ,libunistring)))
 960     (home-page "https://github.com/rockdaboot/libpsl")
 961     (synopsis "C library for the Publix Suffix List")
 962     (description
 963      "A \"public suffix\" is a domain name under which Internet users can
 964 directly register own names.
 965
 966 Browsers and other web clients can use it to avoid privacy-leaking
 967 \"supercookies\", avoid privacy-leaking \"super domain\" certificates, domain
 968 highlighting parts of the domain in a user interface, and sorting domain lists
 969 by site.
 970
 971 Libpsl has built-in PSL data for fast access, allows to load PSL data from
 972 files, checks if a given domain is a public suffix, provides immediate cookie
 973 domain verification, finds the longest public part of a given domain, finds
 974 the shortest private part of a given domain, works with international
 975 domains (UTF-8 and IDNA2008 Punycode), is thread-safe, and handles IDNA2008
 976 UTS#46.")
 977     (license license:x11)))
 978
 979 (define-public tidy
 980   (package
 981     (name "tidy")
 982     (version "20091223")
 983     (source (origin
 984               (method cvs-fetch)
 985               (uri (cvs-reference
 986                     (root-directory
 987                      ":pserver:anonymous@tidy.cvs.sourceforge.net:/cvsroot/tidy")
 988                     (module "tidy")
 989                     (revision "2009-12-23")))
 990               (file-name (string-append name "-" version "-checkout"))
 991               (sha256
 992                (base32
 993                 "14dsnmirjcrvwsffqp3as70qr6bbfaig2fv3zvs5g7005jrsbvpb"))
 994               (patches (search-patches "tidy-CVE-2015-5522+5523.patch"))))
 995     (build-system gnu-build-system)
 996     (arguments
 997      '(#:phases (modify-phases %standard-phases
 998                   (replace 'bootstrap
 999                     (lambda* (#:key inputs #:allow-other-keys)
1000                       ;; configure.in and Makefile.am aren't in the root of the
1001                       ;; source tree.
1002                       (copy-recursively "build/gnuauto" ".")
1003                       (setenv "AUTOMAKE" "automake --foreign")
1004                       (invoke "autoreconf" "-vfi"))))))
1005     (native-inputs
1006      `(("automake" ,automake)
1007        ("autoconf" ,autoconf)
1008        ("libtool" ,libtool)))
1009     (synopsis "HTML validator and tidier")
1010     (description "HTML Tidy is a command-line tool and C library that can be
1011 used to validate and fix HTML data.")
1012     (home-page "http://tidy.sourceforge.net/")
1013     (license (license:x11-style "file:///include/tidy.h"))))
1014
1015 (define-public tinyproxy
1016   (package
1017     (name "tinyproxy")
1018     (version "1.10.0")
1019     (source (origin
1020               (method url-fetch)
1021               (uri (string-append "https://github.com/tinyproxy/tinyproxy/"
1022                                   "releases/download/" version "/tinyproxy-"
1023                                   version ".tar.xz"))
1024               (sha256
1025                (base32
1026                 "10jnk6y2swld25mm47mjc0nkffyzsfysnsxwr7cs0ns1kil8ggjr"))))
1027     (build-system gnu-build-system)
1028     (arguments
1029      `(#:configure-flags
1030        (list
1031         ;; For the log file, etc.
1032         "--localstatedir=/var")
1033        #:phases
1034        (modify-phases %standard-phases
1035          (add-before 'build 'pre-build
1036            (lambda* (#:key inputs #:allow-other-keys #:rest args)
1037              ;; Uncommenting the next two lines may assist in debugging
1038              ;; (substitute* "docs/man5/Makefile" (("a2x") "a2x -v"))
1039              ;; (setenv "XML_DEBUG_CATALOG" "1")
1040              #t)))))
1041     (home-page "https://tinyproxy.github.io/")
1042     (synopsis "Light-weight HTTP/HTTPS proxy daemon")
1043     (description "Tinyproxy is a light-weight HTTP/HTTPS proxy
1044 daemon.  Designed from the ground up to be fast and yet small, it is an ideal
1045 solution for use cases such as embedded deployments where a full featured HTTP
1046 proxy is required, but the system resources for a larger proxy are
1047 unavailable.")
1048     (license license:gpl2+)))
1049
1050 (define-public polipo
1051   (package
1052     (name "polipo")
1053     (version "1.1.1")
1054     (source
1055      (origin
1056        (method url-fetch)
1057        (uri (string-append
1058              "http://www.pps.univ-paris-diderot.fr/~jch/software/files/polipo/polipo-"
1059              version ".tar.gz"))
1060        (sha256
1061         (base32
1062          "05g09sg9qkkhnc2mxldm1w1xkxzs2ylybkjzs28w8ydbjc3pand2"))))
1063     (native-inputs `(("texinfo" ,texinfo)))
1064     (build-system gnu-build-system)
1065     (arguments
1066      `(#:phases (modify-phases %standard-phases
1067                   (delete 'configure))
1068        #:make-flags (let ((out (assoc-ref %outputs "out")))
1069                       (list (string-append "PREFIX=" out)
1070                             (string-append "LOCAL_ROOT="
1071                                            out "/share/polipo/www")
1072                             "CC=gcc"))
1073        ;; No 'check' target.
1074        #:tests? #f))
1075     (home-page "http://www.pps.univ-paris-diderot.fr/~jch/software/polipo/")
1076     (synopsis "Small caching web proxy")
1077     (description
1078      "Polipo is a small caching web proxy (web cache, HTTP proxy, and proxy
1079 server).  It was primarily designed to be used by one person or a small group
1080 of people.")
1081     (license license:expat)))
1082
1083 (define-public websockify
1084   (package
1085     (name "websockify")
1086     (version "0.8.0")
1087     (source (origin
1088               (method git-fetch)
1089               (uri (git-reference
1090                     (url "https://github.com/novnc/websockify.git")
1091                     (commit (string-append "v" version))))
1092               (file-name (git-file-name name version))
1093               (sha256
1094                (base32
1095                 "0pcic8qs0gdwrfjgfaf893jyddaw97wcjm2mmvwn0xyhmy8mbmw1"))))
1096     (build-system python-build-system)
1097     (arguments
1098      `(#:tests? #f)) ; FIXME: 2 out of 6 tests fail with "ImportError: No module
1099      ; named 'stubout'". The tests can be run by replacing the check phase with
1100      ; the command "python setup.py nosetests --verbosity=3".
1101     (native-inputs `(; Required for tests:
1102                      ("python-mox3" ,python-mox3)
1103                      ("python-nose" ,python-nose)))
1104     (propagated-inputs `(("python-numpy" ,python-numpy)))
1105     (home-page "https://github.com/novnc/websockify")
1106     (synopsis "WebSockets support for any application/server")
1107     (description "Websockify translates WebSockets traffic to normal socket
1108 traffic.  Websockify accepts the WebSockets handshake, parses it, and then
1109 begins forwarding traffic between the client and the target in both
1110 directions.")
1111     (license license:lgpl3)))
1112
1113 (define-public wwwoffle
1114   (package
1115     (name "wwwoffle")
1116     (version "2.9j")
1117     (source (origin
1118               (method url-fetch)
1119               (uri (string-append "https://www.gedanken.org.uk/software/"
1120                                   "wwwoffle/download/wwwoffle-"
1121                                   version ".tgz"))
1122               (sha256
1123                (base32
1124                 "1ihil1xq9dp21hf108khxbw6f3baq0w5c0j3af038y6lkmad4vdi"))))
1125     (build-system gnu-build-system)
1126     (arguments
1127      `(#:configure-flags '("--with-gnutls")
1128        #:tests? #f))                         ; no test target
1129     (native-inputs `(("flex" ,flex)))
1130     (inputs `(("gnutls" ,gnutls)
1131               ("libcrypt" ,libgcrypt)))
1132     (home-page "https://www.gedanken.org.uk/software/wwwoffle/")
1133     (synopsis "Caching web proxy optimized for intermittent internet links")
1134     (description "WWWOFFLE is a proxy web server that is especially good for
1135 intermittent internet links.  It can cache HTTP, HTTPS, FTP, and finger
1136 protocols, and supports browsing and requesting pages while offline, indexing,
1137 modifying pages and incoming and outgoing headers, monitoring pages for
1138 changes, and much more.")
1139     (license license:gpl2+)))
1140
1141 (define-public liboauth
1142   (package
1143     (name "liboauth")
1144     (version "1.0.3")
1145     (source (origin
1146               (method url-fetch)
1147               (uri (string-append "mirror://sourceforge/liboauth/liboauth-"
1148                                   version ".tar.gz"))
1149               (sha256
1150                (base32
1151                 "07w1aq8y8wld43wmbk2q8134p3bfkp2vma78mmsfgw2jn1bh3xhd"))))
1152     (build-system gnu-build-system)
1153     (arguments '(#:configure-flags '("--enable-nss")))
1154     (native-inputs `(("pkg-config" ,pkg-config)))
1155     (propagated-inputs
1156      `(("curl" ,curl)
1157        ("nss" ,nss)))
1158     (home-page "https://sourceforge.net/projects/liboauth")
1159     (synopsis "C library implementing the OAuth API")
1160     (description
1161      "liboauth is a collection of C functions implementing the OAuth API.
1162 liboauth provides functions to escape and encode strings according to OAuth
1163 specifications and offers high-level functionality built on top to sign
1164 requests or verify signatures using either NSS or OpenSSL for calculating the
1165 hash/signatures.")
1166     ;; Source code may be distributed under either license.
1167     (license (list license:expat license:gpl2+))))
1168
1169 (define-public libyaml
1170   (package
1171     (name "libyaml")
1172     (version "0.1.7")
1173     (source
1174      (origin
1175        (method url-fetch)
1176        (uri (string-append
1177              "http://pyyaml.org/download/libyaml/yaml-"
1178              version ".tar.gz"))
1179        (sha256
1180         (base32
1181          "0a87931cx5m14a1x8rbjix3nz7agrcgndf4h392vm62a4rby9240"))))
1182     (build-system gnu-build-system)
1183     (home-page "http://pyyaml.org/wiki/LibYAML")
1184     (synopsis "YAML 1.1 parser and emitter written in C")
1185     (description
1186      "LibYAML is a YAML 1.1 parser and emitter written in C.")
1187     (license license:expat)))
1188
1189 (define-public libquvi-scripts
1190   (package
1191     (name "libquvi-scripts")
1192     (version "0.4.21")
1193     (source
1194      (origin
1195        (method url-fetch)
1196        (uri (string-append
1197              "mirror://sourceforge/quvi/" (version-major+minor version) "/"
1198              name "/" name "-" version ".tar.xz"))
1199        (sha256
1200         (base32 "0d0giry6bb57pnidymvdl7i5x9bq3ljk3g4bs294hcr5mj3cq0kw"))))
1201     (build-system gnu-build-system)
1202     (home-page "http://quvi.sourceforge.net/")
1203     (synopsis "Media stream URL parser")
1204     (description "This package contains support scripts called by libquvi to
1205 parse media stream properties.")
1206     (license license:lgpl2.1+)))
1207
1208 (define-public libquvi
1209   (package
1210     (name "libquvi")
1211     (version "0.4.1")
1212     (source
1213      (origin
1214        (method url-fetch)
1215        (uri (string-append
1216              "mirror://sourceforge/quvi/" (version-major+minor version) "/" name "/"
1217              name "-" version ".tar.xz"))
1218        (sha256
1219         (base32 "00x9gbmzc5cns0gnfag0hsphcr3cb33vbbb9s7ppvvd6bxz2z1mm"))))
1220     (build-system gnu-build-system)
1221     (native-inputs `(("pkg-config" ,pkg-config)))
1222     (inputs
1223      `(("curl" ,curl)
1224        ("cyrus-sasl" ,cyrus-sasl)
1225        ("libquvi-scripts" ,libquvi-scripts)
1226        ("lua" ,lua-5.1)
1227        ("openssl" ,openssl)
1228        ("zlib" ,zlib)))
1229     (arguments
1230      ;; Lua provides no .pc file, so add CFLAGS/LIBS manually.
1231      '(#:configure-flags
1232        (let ((lua (assoc-ref %build-inputs "lua")))
1233          (list
1234           (string-append "liblua_CFLAGS=-I" lua "/include")
1235           (string-append "liblua_LIBS=-L" lua "/libs -llua")))))
1236     (home-page "http://quvi.sourceforge.net/")
1237     (synopsis "Media stream URL parser")
1238     (description "libquvi is a library with a C API for parsing media stream
1239 URLs and extracting their actual media files.")
1240     (license license:lgpl2.1+)))
1241
1242 (define-public quvi
1243   (package
1244     (name "quvi")
1245     (version "0.4.2")
1246     (source
1247      (origin
1248        (method url-fetch)
1249        (uri (string-append
1250              "mirror://sourceforge/" name "/"  (version-major+minor version)
1251              "/" name "/" name "-" version ".tar.xz"))
1252        (sha256
1253         (base32 "09lhl6dv5zpryasx7yjslfrcdcqlsbwapvd5lg7w6sm5x5n3k8ci"))))
1254     (build-system gnu-build-system)
1255     (native-inputs `(("pkg-config" ,pkg-config)))
1256     (inputs
1257      `(("curl" ,curl)
1258        ("libquvi" ,libquvi)))
1259     (home-page "http://quvi.sourceforge.net/")
1260     (synopsis "Media stream URL parser")
1261     (description "quvi is a command-line-tool suite to extract media files
1262 from streaming URLs.  It is a command-line wrapper for the libquvi library.")
1263     (license license:lgpl2.1+)))
1264
1265 (define-public serf
1266   (package
1267     (name "serf")
1268     (version "1.3.9")
1269     (source
1270      (origin
1271        (method url-fetch)
1272        (uri (string-append "https://archive.apache.org/dist/serf/serf-"
1273                            version ".tar.bz2"))
1274        (sha256
1275         (base32 "1k47gbgpp52049andr28y28nbwh9m36bbb0g8p0aka3pqlhjv72l"))))
1276     (build-system scons-build-system)
1277     (propagated-inputs
1278      `(("apr" ,apr)
1279        ("apr-util" ,apr-util)
1280        ("openssl" ,openssl)))
1281     (inputs
1282      `(;; TODO: Fix build with gss.
1283        ;;("gss" ,gss)
1284        ("zlib" ,zlib)))
1285     (arguments
1286      `(#:scons ,scons-python2
1287        #:scons-flags (list (string-append "APR=" (assoc-ref %build-inputs "apr"))
1288                            (string-append "APU=" (assoc-ref %build-inputs "apr-util"))
1289                            (string-append "OPENSSL=" (assoc-ref %build-inputs "openssl"))
1290                            ;; (string-append "GSSAPI=" (assoc-ref %build-inputs "gss"))
1291                            (string-append "ZLIB=" (assoc-ref %build-inputs "zlib"))
1292                            (string-append "PREFIX=" %output))
1293        #:phases
1294        (modify-phases %standard-phases
1295          (add-after 'unpack 'scons-propagate-environment
1296                     (lambda _
1297                       ;; By design, SCons does not, by default, propagate
1298                       ;; environment variables to subprocesses.  See:
1299                       ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
1300                       ;; Here, we modify the SConstruct file to arrange for
1301                       ;; environment variables to be propagated.
1302                       (substitute* "SConstruct"
1303                         (("^env = Environment\\(")
1304                          "env = Environment(ENV=os.environ, "))))
1305          (add-before 'check 'disable-broken-tests
1306            (lambda _
1307              ;; These tests rely on SSL certificates that expired 2017-04-18.
1308              ;; While there are newer certs available upstream, we don't want
1309              ;; this package to suddenly "expire" some time in the future.
1310              ;; https://bugs.gnu.org/26671
1311              (let ((broken-tests
1312                     '("test_ssl_trust_rootca"
1313                       "test_ssl_certificate_chain_with_anchor"
1314                       "test_ssl_certificate_chain_all_from_server"
1315                       "test_ssl_no_servercert_callback_allok"
1316                       "test_ssl_large_response"
1317                       "test_ssl_large_request"
1318                       "test_ssl_client_certificate"
1319                       "test_ssl_future_server_cert"
1320                       "test_setup_ssltunnel"
1321                       "test_ssltunnel_basic_auth"
1322                       "test_ssltunnel_basic_auth_server_has_keepalive_off"
1323                       "test_ssltunnel_basic_auth_proxy_has_keepalive_off"
1324                       "test_ssltunnel_basic_auth_proxy_close_conn_on_200resp"
1325                       "test_ssltunnel_digest_auth")))
1326                (for-each
1327                 (lambda (test)
1328                   (substitute* "test/test_context.c"
1329                     (((string-append "SUITE_ADD_TEST\\(suite, " test "\\);")) "")))
1330                 broken-tests)
1331                #t))))))
1332     (home-page "https://serf.apache.org/")
1333     (synopsis "High-performance asynchronous HTTP client library")
1334     (description
1335      "serf is a C-based HTTP client library built upon the Apache Portable
1336 Runtime (APR) library.  It multiplexes connections, running the read/write
1337 communication asynchronously.  Memory copies and transformations are kept to a
1338 minimum to provide high performance operation.")
1339     ;; Most of the code is covered by the Apache License, Version 2.0, but the
1340     ;; bundled CuTest framework uses a different non-copyleft license.
1341     (license (list license:asl2.0 (license:non-copyleft "file://test/CuTest-README.txt")))))
1342
1343 (define-public libsass
1344   (package
1345     (name "libsass")
1346     (version "3.5.5")
1347     (source (origin
1348               (method git-fetch)
1349               (uri (git-reference
1350                     (url "https://github.com/sass/libsass.git")
1351                     (commit version)))
1352               (file-name (git-file-name name version))
1353               (sha256
1354                (base32
1355                 "0830pjcvhzxh6yixj82x5k5r1xnadjqzi16kp53213icbly0r9ma"))))
1356     (build-system gnu-build-system)
1357     (arguments
1358      `(#:phases
1359        (modify-phases %standard-phases
1360          (add-before 'bootstrap 'set-LIBSASS_VERSION
1361            (lambda _
1362              (setenv "LIBSASS_VERSION" ,version)
1363              #t)))))
1364     (native-inputs
1365      `(("autoconf" ,autoconf)
1366        ("automake" ,automake)
1367        ("libtool" ,libtool)))
1368     (home-page "https://sass-lang.com/libsass")
1369     (synopsis "SASS Compiler, implemented as a C/C++ library")
1370     (description
1371      "LibSass is a @acronym{SASS,Syntactically awesome style sheets} compiler
1372 library designed for portability and efficiency.  To actually compile SASS
1373 stylesheets, you'll need to use another program that uses this library,
1374 @var{sassc} for example.")
1375     (license license:expat)))
1376
1377 (define-public sassc
1378   (package
1379     (name "sassc")
1380     (version "3.5.0")
1381     (source (origin
1382               (method git-fetch)
1383               (uri (git-reference
1384                     (url "https://github.com/sass/sassc.git")
1385                     (commit  version)))
1386               (file-name (git-file-name name version))
1387               (sha256
1388                (base32
1389                 "0jsfz1zg4gwk0dq8i92ll12axs3s70wsdsmdyi71zx8zmvib5nl6"))))
1390     (build-system gnu-build-system)
1391     (arguments
1392      `(#:make-flags
1393        (list "CC=gcc"
1394              (string-append "PREFIX=" (assoc-ref %outputs "out")))
1395        ;; I don't believe sassc contains any tests
1396        #:tests? #f
1397        #:phases
1398        (modify-phases %standard-phases
1399          (add-after 'unpack 'patch-Makefile
1400            (lambda _
1401              (substitute* "Makefile"
1402                (("build-shared: \\$\\(RESOURCES\\) \\$\\(OBJECTS\\) \\$\\(LIB_SHARED\\)")
1403                 "build-shared: $(RESOURCES) $(OBJECTS)")
1404                (("\\$\\(SASSC_EXE\\): libsass build")
1405                 "$(SASSC_EXE): build")
1406                (("install: libsass-install-\\$\\(BUILD\\) \\\\")
1407                 "install: \\"))
1408              #t))
1409          ;; This phase fails for some reason
1410          (delete 'bootstrap)
1411          ;; There is no configure script
1412          (delete 'configure)
1413          (add-before 'build 'setup-environment
1414            (lambda _
1415              (setenv "BUILD" "shared")
1416              (setenv "SASSC_VERSION" ,version)
1417              #t)))))
1418     (inputs
1419      `(("libsass" ,libsass)))
1420     (synopsis "CSS pre-processor")
1421     (description "SassC is a compiler written in C for the CSS pre-processor
1422 language known as SASS.")
1423     (home-page "http://sass-lang.com/libsass")
1424     (license license:expat)))
1425
1426 \f
1427 (define-public perl-apache-logformat-compiler
1428   (package
1429     (name "perl-apache-logformat-compiler")
1430     (version "0.35")
1431     (source
1432      (origin
1433        (method url-fetch)
1434        (uri (string-append "mirror://cpan/authors/id/K/KA/KAZEBURO/"
1435                            "Apache-LogFormat-Compiler-" version ".tar.gz"))
1436        (sha256
1437         (base32 "06i70ydxk2wa2rcqn16842kra2qz3jwk0vk1abq8lah4180c0m0n"))))
1438     (build-system perl-build-system)
1439     (native-inputs
1440      `(("perl-http-message" ,perl-http-message)
1441        ("perl-module-build-tiny" ,perl-module-build-tiny)
1442        ("perl-test-mocktime" ,perl-test-mocktime)
1443        ("perl-try-tiny" ,perl-try-tiny)
1444        ("perl-uri" ,perl-uri)))
1445     (propagated-inputs
1446      `(("perl-posix-strftime-compiler" ,perl-posix-strftime-compiler)))
1447     (arguments `(#:tests? #f))          ; TODO: Timezone test failures
1448     (home-page "https://metacpan.org/release/Apache-LogFormat-Compiler")
1449     (synopsis "Compile a log format string to perl-code")
1450     (description "This module provides methods to compile a log format string
1451 to perl-code, for faster generation of access_log lines.")
1452     (license license:perl-license)))
1453
1454 (define-public perl-authen-sasl
1455   (package
1456     (name "perl-authen-sasl")
1457     (version "2.16")
1458     (source
1459      (origin
1460        (method url-fetch)
1461        (uri (string-append "mirror://cpan/authors/id/G/GB/GBARR/"
1462                            "Authen-SASL-" version ".tar.gz"))
1463        (sha256
1464         (base32
1465          "02afhlrdq5hh5g8b32fa79fqq5i76qzwfqqvfi9zi57h31szl536"))))
1466     (build-system perl-build-system)
1467     (arguments
1468      '(#:phases
1469        (modify-phases %standard-phases
1470          (add-after 'unpack 'set-env
1471            ;; Fix the build with Perl 5.26.0. Try removing this phase for later
1472            ;; versions of perl-authen-sasl.
1473            (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
1474     (propagated-inputs
1475      `(("perl-digest-hmac" ,perl-digest-hmac)
1476        ("perl-gssapi" ,perl-gssapi)))
1477     (home-page "https://metacpan.org/release/Authen-SASL")
1478     (synopsis "SASL authentication framework")
1479     (description "Authen::SASL provides an SASL authentication framework.")
1480     (license license:perl-license)))
1481
1482 (define-public perl-catalyst-action-renderview
1483   (package
1484     (name "perl-catalyst-action-renderview")
1485     (version "0.16")
1486     (source
1487      (origin
1488        (method url-fetch)
1489        (uri (string-append "mirror://cpan/authors/id/B/BO/BOBTFISH/"
1490                            "Catalyst-Action-RenderView-"
1491                            version ".tar.gz"))
1492        (sha256
1493         (base32
1494          "0j1rrld13cjk7ks92b5hv3xw4rfm2lvmksb4rlzd8mx0a0wj0rc5"))))
1495     (build-system perl-build-system)
1496     (native-inputs
1497      `(("perl-http-request-ascgi" ,perl-http-request-ascgi)
1498        ("perl-module-install" ,perl-module-install)))
1499     (propagated-inputs
1500      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1501        ("perl-data-visitor" ,perl-data-visitor)
1502        ("perl-mro-compat" ,perl-mro-compat)))
1503     (home-page "https://metacpan.org/release/Catalyst-Action-RenderView")
1504     (synopsis "Sensible default Catalyst action")
1505     (description "This Catalyst action implements a sensible default end
1506 action, which will forward to the first available view.")
1507     (license license:perl-license)))
1508
1509 (define-public perl-catalyst-action-rest
1510   (package
1511     (name "perl-catalyst-action-rest")
1512     (version "1.21")
1513     (source (origin
1514               (method url-fetch)
1515               (uri (string-append "mirror://cpan/authors/id/J/JJ/JJNAPIORK/"
1516                                   "Catalyst-Action-REST-" version ".tar.gz"))
1517               (sha256
1518                (base32
1519                 "086bykggzalbjfk0islac4b48g9s2ypj7y81d6ns1lq0aax1py6c"))))
1520     (build-system perl-build-system)
1521     (native-inputs
1522      `(("perl-test-requires" ,perl-test-requires)
1523        ("perl-module-install" ,perl-module-install)))
1524     (propagated-inputs
1525      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1526        ("perl-class-inspector" ,perl-class-inspector)
1527        ("perl-config-general" ,perl-config-general)
1528        ("perl-cpanel-json-xs" ,perl-cpanel-json-xs)
1529        ("perl-libwww" ,perl-libwww)
1530        ("perl-moose" ,perl-moose)
1531        ("perl-mro-compat" ,perl-mro-compat)
1532        ("perl-namespace-autoclean" ,perl-namespace-autoclean)
1533        ("perl-params-validate" ,perl-params-validate)
1534        ("perl-uri-find" ,perl-uri-find)
1535        ("perl-xml-simple" ,perl-xml-simple)))
1536     (home-page "https://metacpan.org/release/Catalyst-Action-REST")
1537     (synopsis "Automated REST Method Dispatching")
1538     (description "This Action handles doing automatic method dispatching for
1539 REST requests.  It takes a normal Catalyst action, and changes the dispatch to
1540 append an underscore and method name.  First it will try dispatching to an
1541 action with the generated name, and failing that it will try to dispatch to a
1542 regular method.")
1543     (license license:perl-license)))
1544
1545 (define-public perl-catalyst-authentication-store-dbix-class
1546   (package
1547     (name "perl-catalyst-authentication-store-dbix-class")
1548     (version "0.1506")
1549     (source
1550      (origin
1551        (method url-fetch)
1552        (uri (string-append "mirror://cpan/authors/id/I/IL/ILMARI/"
1553                            "Catalyst-Authentication-Store-DBIx-Class-"
1554                            version ".tar.gz"))
1555        (sha256
1556         (base32
1557          "0i5ja7690fs9nhxcij6lw51j804sm8s06m5mvk1n8pi8jljrymvw"))))
1558     (build-system perl-build-system)
1559     (native-inputs
1560      `(("perl-catalyst-plugin-authorization-roles"
1561         ,perl-catalyst-plugin-authorization-roles)
1562        ("perl-catalyst-plugin-session-state-cookie"
1563         ,perl-catalyst-plugin-session-state-cookie)
1564        ("perl-dbd-sqlite" ,perl-dbd-sqlite)
1565        ("perl-module-install" ,perl-module-install)
1566        ("perl-test-www-mechanize-catalyst" ,perl-test-www-mechanize-catalyst)))
1567     (propagated-inputs
1568      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1569        ("perl-catalyst-plugin-authentication"
1570         ,perl-catalyst-plugin-authentication)
1571        ("perl-dbix-class" ,perl-dbix-class)
1572        ("perl-catalyst-model-dbic-schema" ,perl-catalyst-model-dbic-schema)))
1573     (home-page
1574      "https://metacpan.org/release/Catalyst-Authentication-Store-DBIx-Class")
1575     (synopsis "Storage class for Catalyst authentication using DBIx::Class")
1576     (description "The Catalyst::Authentication::Store::DBIx::Class class
1577 provides access to authentication information stored in a database via
1578 DBIx::Class.")
1579     (license license:perl-license)))
1580
1581 (define-public perl-catalyst-component-instancepercontext
1582   (package
1583     (name "perl-catalyst-component-instancepercontext")
1584     (version "0.001001")
1585     (source
1586      (origin
1587        (method url-fetch)
1588        (uri (string-append "mirror://cpan/authors/id/G/GR/GRODITI/"
1589                            "Catalyst-Component-InstancePerContext-"
1590                            version ".tar.gz"))
1591        (sha256
1592         (base32
1593          "0wfj4vnn2cvk6jh62amwlg050p37fcwdgrn9amcz24z6w4qgjqvz"))))
1594     (build-system perl-build-system)
1595     (native-inputs
1596      `(("perl-module-install" ,perl-module-install)))
1597     (propagated-inputs
1598      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1599        ("perl-moose" ,perl-moose)))
1600     (home-page
1601      "https://metacpan.org/release/Catalyst-Component-InstancePerContext")
1602     (synopsis "Create only one instance of Moose component per context")
1603     (description "Catalyst::Component::InstancePerContext returns a new
1604 instance of a component on each request.")
1605     (license license:perl-license)))
1606
1607 (define-public perl-catalyst-devel
1608   (package
1609     (name "perl-catalyst-devel")
1610     (version "1.39")
1611     (source
1612      (origin
1613        (method url-fetch)
1614        (uri (string-append "mirror://cpan/authors/id/I/IL/ILMARI/"
1615                            "Catalyst-Devel-" version ".tar.gz"))
1616        (sha256
1617         (base32
1618          "12m50bbkggjmpxihv3wnvr0g2qng0zwhlzi5ygppjz8wh2x73qxw"))))
1619     (build-system perl-build-system)
1620     (native-inputs
1621      `(("perl-test-fatal" ,perl-test-fatal)))
1622     (propagated-inputs
1623      `(("perl-catalyst-action-renderview" ,perl-catalyst-action-renderview)
1624        ("perl-catalyst-plugin-configloader" ,perl-catalyst-plugin-configloader)
1625        ("perl-catalyst-plugin-static-simple" ,perl-catalyst-plugin-static-simple)
1626        ("perl-catalyst-runtime" ,perl-catalyst-runtime)
1627        ("perl-config-general" ,perl-config-general)
1628        ("perl-file-changenotify" ,perl-file-changenotify)
1629        ("perl-file-copy-recursive" ,perl-file-copy-recursive)
1630        ("perl-file-sharedir" ,perl-file-sharedir)
1631        ("perl-module-install" ,perl-module-install)
1632        ("perl-moose" ,perl-moose)
1633        ("perl-moosex-emulate-class-accessor-fast"
1634         ,perl-moosex-emulate-class-accessor-fast)
1635        ("perl-namespace-autoclean" ,perl-namespace-autoclean)
1636        ("perl-namespace-clean" ,perl-namespace-clean)
1637        ("perl-path-class" ,perl-path-class)
1638        ("perl-template-toolkit" ,perl-template-toolkit)))
1639     (home-page "https://metacpan.org/release/Catalyst-Devel")
1640     (synopsis "Catalyst Development Tools")
1641     (description "The Catalyst-Devel distribution includes a variety of
1642 modules useful for the development of Catalyst applications, but not required
1643 to run them.  Catalyst-Devel includes the Catalyst::Helper system, which
1644 autogenerates scripts and tests; Module::Install::Catalyst, a Module::Install
1645 extension for Catalyst; and requirements for a variety of development-related
1646 modules.")
1647     (license license:perl-license)))
1648
1649 (define-public perl-catalyst-dispatchtype-regex
1650   (package
1651     (name "perl-catalyst-dispatchtype-regex")
1652     (version "5.90035")
1653     (source
1654      (origin
1655        (method url-fetch)
1656        (uri (string-append "mirror://cpan/authors/id/M/MG/MGRIMES/"
1657                            "Catalyst-DispatchType-Regex-" version ".tar.gz"))
1658        (sha256
1659         (base32
1660          "06jq1lmpq88rmp9zik5gqczg234xac0hiyc3l698iif7zsgcyb80"))))
1661     (build-system perl-build-system)
1662     (native-inputs
1663      `(("perl-module-build" ,perl-module-build) ;needs Module::Build >= 0.4004
1664        ("perl-namespace-autoclean" ,perl-namespace-autoclean)
1665        ("perl-catalyst-runtime" ,perl-catalyst-runtime)))
1666     (propagated-inputs
1667      `(("perl-moose" ,perl-moose)
1668        ("perl-text-simpletable" ,perl-text-simpletable)))
1669     (home-page "https://metacpan.org/release/Catalyst-DispatchType-Regex")
1670     (synopsis "Regex DispatchType for Catalyst")
1671     (description "Dispatch type managing path-matching behaviour using
1672 regexes.  Regex dispatch types have been deprecated and removed from Catalyst
1673 core.  It is recommend that you use Chained methods or other techniques
1674 instead.  As part of the refactoring, the dispatch priority of Regex vs Regexp
1675 vs LocalRegex vs LocalRegexp may have changed.  Priority is now influenced by
1676 when the dispatch type is first seen in your application.")
1677     (license license:perl-license)))
1678
1679 (define-public perl-catalyst-model-dbic-schema
1680   (package
1681   (name "perl-catalyst-model-dbic-schema")
1682   (version "0.65")
1683   (source
1684     (origin
1685       (method url-fetch)
1686       (uri (string-append "mirror://cpan/authors/id/G/GB/GBJK/"
1687                           "Catalyst-Model-DBIC-Schema-"
1688                           version ".tar.gz"))
1689       (sha256
1690         (base32
1691           "1spfjcjc0b9dv3k2gbanqj1m1cqzyxb32p76dhdwizzpbvpi3a96"))))
1692   (build-system perl-build-system)
1693   (native-inputs
1694    `(("perl-dbd-sqlite" ,perl-dbd-sqlite)
1695      ("perl-module-install" ,perl-module-install)
1696      ("perl-test-exception" ,perl-test-exception)
1697      ("perl-test-requires" ,perl-test-requires)))
1698   (propagated-inputs
1699    `(("perl-carp-clan" ,perl-carp-clan)
1700      ("perl-catalyst-component-instancepercontext"
1701       ,perl-catalyst-component-instancepercontext)
1702      ("perl-catalyst-runtime" ,perl-catalyst-runtime)
1703      ("perl-catalystx-component-traits" ,perl-catalystx-component-traits)
1704      ("perl-dbix-class" ,perl-dbix-class)
1705      ("perl-dbix-class-cursor-cached" ,perl-dbix-class-cursor-cached)
1706      ("perl-dbix-class-schema-loader" ,perl-dbix-class-schema-loader)
1707      ("perl-hash-merge" ,perl-hash-merge)
1708      ("perl-list-moreutils" ,perl-list-moreutils)
1709      ("perl-module-runtime" ,perl-module-runtime)
1710      ("perl-moose" ,perl-moose)
1711      ("perl-moosex-markasmethods" ,perl-moosex-markasmethods)
1712      ("perl-moosex-nonmoose" ,perl-moosex-nonmoose)
1713      ("perl-moosex-types" ,perl-moosex-types)
1714      ("perl-moosex-types-loadableclass" ,perl-moosex-types-loadableclass)
1715      ("perl-namespace-autoclean" ,perl-namespace-autoclean)
1716      ("perl-namespace-clean" ,perl-namespace-clean)
1717      ("perl-tie-ixhash" ,perl-tie-ixhash)
1718      ("perl-try-tiny" ,perl-try-tiny)))
1719   (home-page "https://metacpan.org/release/Catalyst-Model-DBIC-Schema")
1720   (synopsis "DBIx::Class::Schema Model Class")
1721   (description "This is a Catalyst Model for DBIx::Class::Schema-based
1722 Models.")
1723   (license license:perl-license)))
1724
1725 (define-public perl-catalyst-plugin-accesslog
1726   (package
1727     (name "perl-catalyst-plugin-accesslog")
1728     (version "1.10")
1729     (source
1730      (origin
1731        (method url-fetch)
1732        (uri (string-append "mirror://cpan/authors/id/A/AR/ARODLAND/"
1733                            "Catalyst-Plugin-AccessLog-" version ".tar.gz"))
1734        (sha256
1735         (base32
1736          "0811rj45q4v2y8wka3wb9d5m4vbyhcmkvddf2wz4x69awzjbhgc7"))))
1737     (build-system perl-build-system)
1738     (propagated-inputs
1739      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1740        ("perl-datetime" ,perl-datetime)
1741        ("perl-moose" ,perl-moose)
1742        ("perl-namespace-autoclean" ,perl-namespace-autoclean)))
1743     (home-page "https://metacpan.org/release/Catalyst-Plugin-AccessLog")
1744     (synopsis "Request logging from within Catalyst")
1745     (description "This Catalyst plugin enables you to create \"access logs\"
1746 from within a Catalyst application instead of requiring a webserver to do it
1747 for you.  It will work even with Catalyst debug logging turned off.")
1748     (license license:perl-license)))
1749
1750 (define-public perl-catalyst-plugin-authentication
1751   (package
1752     (name "perl-catalyst-plugin-authentication")
1753     (version "0.10023")
1754     (source
1755      (origin
1756        (method url-fetch)
1757        (uri (string-append "mirror://cpan/authors/id/B/BO/BOBTFISH/"
1758                            "Catalyst-Plugin-Authentication-"
1759                            version ".tar.gz"))
1760        (sha256
1761         (base32
1762          "0v6hb4r1wv3djrnqvnjcn3xx1scgqzx8nyjdg9lfc1ybvamrl0rn"))))
1763     (build-system perl-build-system)
1764     (native-inputs
1765      `(("perl-module-install" ,perl-module-install)))
1766     (propagated-inputs
1767      `(("perl-catalyst-plugin-session" ,perl-catalyst-plugin-session)
1768        ("perl-catalyst-runtime" ,perl-catalyst-runtime)
1769        ("perl-class-inspector" ,perl-class-inspector)
1770        ("perl-moose" ,perl-moose)
1771        ("perl-moosex-emulate-class-accessor-fast"
1772         ,perl-moosex-emulate-class-accessor-fast)
1773        ("perl-mro-compat" ,perl-mro-compat)
1774        ("perl-namespace-autoclean" ,perl-namespace-autoclean)
1775        ("perl-string-rewriteprefix" ,perl-string-rewriteprefix)
1776        ("perl-test-exception" ,perl-test-exception)
1777        ("perl-try-tiny" ,perl-try-tiny)))
1778     (home-page "https://metacpan.org/release/Catalyst-Plugin-Authentication")
1779     (synopsis "Infrastructure plugin for the Catalyst authentication framework")
1780     (description "The authentication plugin provides generic user support for
1781 Catalyst apps.  It is the basis for both authentication (checking the user is
1782 who they claim to be), and authorization (allowing the user to do what the
1783 system authorises them to do).")
1784     (license license:perl-license)))
1785
1786 (define-public perl-catalyst-plugin-authorization-roles
1787   (package
1788     (name "perl-catalyst-plugin-authorization-roles")
1789     (version "0.09")
1790     (source
1791      (origin
1792        (method url-fetch)
1793        (uri (string-append "mirror://cpan/authors/id/B/BO/BOBTFISH/"
1794                            "Catalyst-Plugin-Authorization-Roles-"
1795                            version ".tar.gz"))
1796        (sha256
1797         (base32
1798          "0l83lkwmq0lngwh8b1rv3r719pn8w1gdbyhjqm74rnd0wbjl8h7f"))))
1799     (build-system perl-build-system)
1800     (native-inputs
1801      `(("perl-module-install" ,perl-module-install)
1802        ("perl-test-exception" ,perl-test-exception)))
1803     (propagated-inputs
1804      `(("perl-catalyst-plugin-authentication"
1805         ,perl-catalyst-plugin-authentication)
1806        ("perl-catalyst-runtime" ,perl-catalyst-runtime)
1807        ("perl-set-object" ,perl-set-object)
1808        ("perl-universal-isa" ,perl-universal-isa)))
1809     (home-page
1810      "https://metacpan.org/release/Catalyst-Plugin-Authorization-Roles")
1811     (synopsis "Role-based authorization for Catalyst")
1812     (description "Catalyst::Plugin::Authorization::Roles provides role-based
1813 authorization for Catalyst based on Catalyst::Plugin::Authentication.")
1814     (license license:perl-license)))
1815
1816 (define-public perl-catalyst-plugin-captcha
1817   (package
1818     (name "perl-catalyst-plugin-captcha")
1819     (version "0.04")
1820     (source
1821      (origin
1822        (method url-fetch)
1823        (uri (string-append "mirror://cpan/authors/id/D/DI/DIEGOK/"
1824                            "Catalyst-Plugin-Captcha-" version ".tar.gz"))
1825        (sha256
1826         (base32
1827          "0llyj3v5nx9cx46jdbbvxf1lc9s9cxq5ml22xmx3wkb201r5qgaa"))))
1828     (build-system perl-build-system)
1829     (propagated-inputs
1830      `(("perl-catalyst-plugin-session" ,perl-catalyst-plugin-session)
1831        ("perl-catalyst-runtime" ,perl-catalyst-runtime)
1832        ("perl-gd-securityimage" ,perl-gd-securityimage)
1833        ("perl-http-date" ,perl-http-date)))
1834     (home-page "https://metacpan.org/release/Catalyst-Plugin-Captcha")
1835     (synopsis "Captchas for Catalyst")
1836     (description "This plugin creates and validates Captcha images for
1837 Catalyst.")
1838     (license license:perl-license)))
1839
1840 (define-public perl-catalyst-plugin-configloader
1841   (package
1842     (name "perl-catalyst-plugin-configloader")
1843     (version "0.34")
1844     (source
1845      (origin
1846        (method url-fetch)
1847        (uri (string-append "mirror://cpan/authors/id/B/BO/BOBTFISH/"
1848                            "Catalyst-Plugin-ConfigLoader-"
1849                            version ".tar.gz"))
1850        (sha256
1851         (base32
1852          "19j7p4v7mbx6wrmpvmrnd974apx7hdl2s095ga3b9zcbdrl77h5q"))))
1853     (build-system perl-build-system)
1854     (native-inputs
1855      `(("perl-path-class" ,perl-path-class)
1856        ("perl-module-install" ,perl-module-install)))
1857     (propagated-inputs
1858      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1859        ("perl-config-any" ,perl-config-any)
1860        ("perl-data-visitor" ,perl-data-visitor)
1861        ("perl-mro-compat" ,perl-mro-compat)))
1862     (home-page "https://metacpan.org/release/Catalyst-Plugin-ConfigLoader")
1863     (synopsis "Load config files of various types")
1864     (description "This module will attempt to load find and load configuration
1865 files of various types.  Currently it supports YAML, JSON, XML, INI and Perl
1866 formats.")
1867     (license license:perl-license)))
1868
1869 (define-public perl-catalyst-plugin-session
1870   (package
1871     (name "perl-catalyst-plugin-session")
1872     (version "0.41")
1873     (source
1874      (origin
1875        (method url-fetch)
1876        (uri (string-append "mirror://cpan/authors/id/J/JJ/JJNAPIORK/"
1877                            "Catalyst-Plugin-Session-" version ".tar.gz"))
1878        (sha256
1879         (base32 "0a451997zc2vjx7rvndgx1ldbrpic8sfbddyvncynh0zr8bhlqc5"))))
1880     (build-system perl-build-system)
1881     (native-inputs
1882      `(("perl-module-install" ,perl-module-install)
1883        ("perl-test-deep" ,perl-test-deep)
1884        ("perl-test-exception" ,perl-test-exception)))
1885     (propagated-inputs
1886      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1887        ("perl-moose" ,perl-moose)
1888        ("perl-moosex-emulate-class-accessor-fast"
1889         ,perl-moosex-emulate-class-accessor-fast)
1890        ("perl-mro-compat" ,perl-mro-compat)
1891        ("perl-namespace-clean" ,perl-namespace-clean)
1892        ("perl-object-signature" ,perl-object-signature)
1893        ("perl-test-www-mechanize-psgi" ,perl-test-www-mechanize-psgi)))
1894     (home-page "https://metacpan.org/release/Catalyst-Plugin-Session")
1895     (synopsis "Catalyst generic session plugin")
1896     (description "This plugin links the two pieces required for session
1897 management in web applications together: the state, and the store.")
1898     (license license:perl-license)))
1899
1900 (define-public perl-catalyst-plugin-session-state-cookie
1901   (package
1902     (name "perl-catalyst-plugin-session-state-cookie")
1903     (version "0.17")
1904     (source
1905      (origin
1906        (method url-fetch)
1907        (uri (string-append "mirror://cpan/authors/id/M/MS/MSTROUT/"
1908                            "Catalyst-Plugin-Session-State-Cookie-"
1909                            version ".tar.gz"))
1910        (sha256
1911         (base32
1912          "1rvxbfnpf9x2pc2zgpazlcgdlr2dijmxgmcs0m5nazs0w6xikssb"))))
1913     (build-system perl-build-system)
1914     (native-inputs
1915      `(("perl-module-install" ,perl-module-install)))
1916     (propagated-inputs
1917      `(("perl-catalyst-plugin-session" ,perl-catalyst-plugin-session)
1918        ("perl-catalyst-runtime" ,perl-catalyst-runtime)
1919        ("perl-moose" ,perl-moose)
1920        ("perl-mro-compat" ,perl-mro-compat)
1921        ("perl-namespace-autoclean" ,perl-namespace-autoclean)))
1922     (home-page
1923      "https://metacpan.org/release/Catalyst-Plugin-Session-State-Cookie")
1924     (synopsis "Maintain session IDs using cookies")
1925     (description "In order for Catalyst::Plugin::Session to work, the session
1926 ID needs to be stored on the client, and the session data needs to be stored
1927 on the server.  This plugin stores the session ID on the client using the
1928 cookie mechanism.")
1929     (license license:perl-license)))
1930
1931 (define-public perl-catalyst-plugin-session-store-fastmmap
1932   (package
1933     (name "perl-catalyst-plugin-session-store-fastmmap")
1934     (version "0.16")
1935     (source
1936      (origin
1937        (method url-fetch)
1938        (uri (string-append "mirror://cpan/authors/id/B/BO/BOBTFISH/"
1939                            "Catalyst-Plugin-Session-Store-FastMmap-"
1940                            version ".tar.gz"))
1941        (sha256
1942         (base32
1943          "0x3j6zv3wr41jlwr6yb2jpmcx019ibyn11y8653ffnwhpzbpzsxs"))))
1944     (build-system perl-build-system)
1945     (propagated-inputs
1946      `(("perl-cache-fastmmap" ,perl-cache-fastmmap)
1947        ("perl-catalyst-plugin-session" ,perl-catalyst-plugin-session)
1948        ("perl-catalyst-runtime" ,perl-catalyst-runtime)
1949        ("perl-moosex-emulate-class-accessor-fast"
1950         ,perl-moosex-emulate-class-accessor-fast)
1951        ("perl-mro-compat" ,perl-mro-compat)
1952        ("perl-path-class" ,perl-path-class)))
1953     (home-page
1954      "https://metacpan.org/release/Catalyst-Plugin-Session-Store-FastMmap")
1955     (synopsis "FastMmap session storage backend")
1956     (description "Catalyst::Plugin::Session::Store::FastMmap is a fast session
1957 storage plugin for Catalyst that uses an mmap'ed file to act as a shared
1958 memory interprocess cache.  It is based on Cache::FastMmap.")
1959     (license license:perl-license)))
1960
1961 (define-public perl-catalyst-plugin-stacktrace
1962   (package
1963     (name "perl-catalyst-plugin-stacktrace")
1964     (version "0.12")
1965     (source
1966      (origin
1967        (method url-fetch)
1968        (uri (string-append "mirror://cpan/authors/id/B/BO/BOBTFISH/"
1969                            "Catalyst-Plugin-StackTrace-" version ".tar.gz"))
1970        (sha256
1971         (base32
1972          "1b2ksz74cpigxqzf63rddar3vfmnbpwpdcbs11v0ml89pb8ar79j"))))
1973     (build-system perl-build-system)
1974     (native-inputs
1975      `(("perl-module-install" ,perl-module-install)))
1976     (propagated-inputs
1977      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
1978        ("perl-devel-stacktrace" ,perl-devel-stacktrace)
1979        ("perl-mro-compat" ,perl-mro-compat)))
1980     (home-page "https://metacpan.org/release/Catalyst-Plugin-StackTrace")
1981     (synopsis "Stack trace on the Catalyst debug screen")
1982     (description "This plugin enhances the standard Catalyst debug screen by
1983 including a stack trace of your application up to the point where the error
1984 occurred.  Each stack frame is displayed along with the package name, line
1985 number, file name, and code context surrounding the line number.")
1986     (license license:perl-license)))
1987
1988 (define-public perl-catalyst-plugin-static-simple
1989   (package
1990     (name "perl-catalyst-plugin-static-simple")
1991     (version "0.36")
1992     (source
1993      (origin
1994        (method url-fetch)
1995        (uri (string-append "mirror://cpan/authors/id/I/IL/ILMARI/"
1996                            "Catalyst-Plugin-Static-Simple-" version ".tar.gz"))
1997        (sha256
1998         (base32
1999          "0m4l627p2fvzr4i6sgdxhdvsx4wpa6qmaibsbxlg5x5yjs7k7drn"))))
2000     (build-system perl-build-system)
2001     (native-inputs
2002      `(("perl-module-install" ,perl-module-install)))
2003     (propagated-inputs
2004      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2005        ("perl-mime-types" ,perl-mime-types)
2006        ("perl-moose" ,perl-moose)
2007        ("perl-moosex-types" ,perl-moosex-types)
2008        ("perl-namespace-autoclean" ,perl-namespace-autoclean)))
2009     (home-page "https://metacpan.org/release/Catalyst-Plugin-Static-Simple")
2010     (synopsis "Simple serving of static pages")
2011     (description "The Static::Simple plugin is designed to make serving static
2012 content in your application during development quick and easy, without
2013 requiring a single line of code from you.  This plugin detects static files by
2014 looking at the file extension in the URL (such as .css or .png or .js).  The
2015 plugin uses the lightweight MIME::Types module to map file extensions to
2016 IANA-registered MIME types, and will serve your static files with the correct
2017 MIME type directly to the browser, without being processed through Catalyst.")
2018     (license license:perl-license)))
2019
2020 (define-public perl-catalyst-runtime
2021   (package
2022     (name "perl-catalyst-runtime")
2023     (version "5.90124")
2024     (source
2025      (origin
2026        (method url-fetch)
2027        (uri (string-append "mirror://cpan/authors/id/J/JJ/JJNAPIORK/"
2028                            "Catalyst-Runtime-" version ".tar.gz"))
2029        (sha256
2030         (base32
2031          "001yk1i0xwn4v308qx15nvnp6v9qfdigdlvz1rgw5zpnq7kwnq1a"))))
2032     (build-system perl-build-system)
2033     (native-inputs
2034      `(("perl-test-fatal" ,perl-test-fatal)))
2035     (propagated-inputs
2036      `(("perl-cgi-simple" ,perl-cgi-simple)
2037        ("perl-cgi-struct" ,perl-cgi-struct)
2038        ("perl-class-c3-adopt-next" ,perl-class-c3-adopt-next)
2039        ("perl-class-date" ,perl-class-date)
2040        ("perl-class-load" ,perl-class-load)
2041        ("perl-data-dump" ,perl-data-dump)
2042        ("perl-http-body" ,perl-http-body)
2043        ("perl-http-message" ,perl-http-message)
2044        ("perl-json-maybexs" ,perl-json-maybexs)
2045        ("perl-libwww" ,perl-libwww)
2046        ("perl-module-pluggable" ,perl-module-pluggable)
2047        ("perl-moose" ,perl-moose)
2048        ("perl-moosex-emulate-class-accessor-fast"
2049         ,perl-moosex-emulate-class-accessor-fast)
2050        ("perl-moosex-getopt" ,perl-moosex-getopt)
2051        ("perl-moosex-methodattributes" ,perl-moosex-methodattributes)
2052        ("perl-namespace-clean" ,perl-namespace-clean)
2053        ("perl-path-class" ,perl-path-class)
2054        ("perl-perlio-utf8-strict" ,perl-perlio-utf8_strict)
2055        ("perl-plack" ,perl-plack)
2056        ("perl-plack-middleware-fixmissingbodyinredirect"
2057         ,perl-plack-middleware-fixmissingbodyinredirect)
2058        ("perl-plack-middleware-methodoverride"
2059         ,perl-plack-middleware-methodoverride)
2060        ("perl-plack-middleware-removeredundantbody"
2061         ,perl-plack-middleware-removeredundantbody)
2062        ("perl-plack-middleware-reverseproxy"
2063         ,perl-plack-middleware-reverseproxy)
2064        ("perl-plack-test-externalserver" ,perl-plack-test-externalserver)
2065        ("perl-safe-isa" ,perl-safe-isa)
2066        ("perl-string-rewriteprefix" ,perl-string-rewriteprefix)
2067        ("perl-text-simpletable" ,perl-text-simpletable)
2068        ("perl-tree-simple" ,perl-tree-simple)
2069        ("perl-tree-simple-visitorfactory" ,perl-tree-simple-visitorfactory)
2070        ("perl-try-tiny" ,perl-try-tiny)
2071        ("perl-uri" ,perl-uri)
2072        ("perl-uri-ws" ,perl-uri-ws)))
2073     (home-page "https://metacpan.org/release/Catalyst-Runtime")
2074     (synopsis "The Catalyst Framework Runtime")
2075     (description "Catalyst is a modern framework for making web applications.
2076 It is designed to make it easy to manage the various tasks you need to do to
2077 run an application on the web, either by doing them itself, or by letting you
2078 \"plug in\" existing Perl modules that do what you need.")
2079     (license license:perl-license)))
2080
2081 (define-public perl-catalyst-traitfor-request-proxybase
2082   (package
2083     (name "perl-catalyst-traitfor-request-proxybase")
2084     (version "0.000005")
2085     (source
2086      (origin
2087        (method url-fetch)
2088        (uri (string-append "mirror://cpan/authors/id/B/BO/BOBTFISH/"
2089                            "Catalyst-TraitFor-Request-ProxyBase-"
2090                            version ".tar.gz"))
2091        (sha256
2092         (base32
2093          "02kir63d5cs2ipj3fn1qlmmx3gqi1xqzrxfr4pv5vjhjgsm0zgx7"))))
2094     (build-system perl-build-system)
2095     (native-inputs
2096      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2097        ("perl-catalystx-roleapplicator" ,perl-catalystx-roleapplicator)
2098        ("perl-http-message" ,perl-http-message)
2099        ("perl-module-install" ,perl-module-install)))
2100     (propagated-inputs
2101      `(("perl-moose" ,perl-moose)
2102        ("perl-namespace-autoclean" ,perl-namespace-autoclean)
2103        ("perl-uri" ,perl-uri)))
2104     (home-page
2105      "https://metacpan.org/release/Catalyst-TraitFor-Request-ProxyBase")
2106     (synopsis "Replace request base with value passed by HTTP proxy")
2107     (description "This module is a Moose::Role which allows you more
2108 flexibility in your application's deployment configurations when deployed
2109 behind a proxy.  Using this module, the request base ($c->req->base) is
2110 replaced with the contents of the X-Request-Base header.")
2111     (license license:perl-license)))
2112
2113 (define-public perl-catalyst-view-download
2114   (package
2115     (name "perl-catalyst-view-download")
2116     (version "0.09")
2117     (source
2118      (origin
2119        (method url-fetch)
2120        (uri (string-append "mirror://cpan/authors/id/G/GA/GAUDEON/"
2121                            "Catalyst-View-Download-" version ".tar.gz"))
2122        (sha256
2123         (base32
2124          "1qgq6y9iwfbhbkbgpw9czang2ami6z8jk1zlagrzdisy4igqzkvs"))))
2125     (build-system perl-build-system)
2126     (native-inputs
2127      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2128        ("perl-module-install" ,perl-module-install)
2129        ("perl-test-simple" ,perl-test-simple)
2130        ("perl-test-www-mechanize-catalyst" ,perl-test-www-mechanize-catalyst)
2131        ("perl-text-csv" ,perl-text-csv)
2132        ("perl-xml-simple" ,perl-xml-simple)))
2133     (home-page "https://metacpan.org/release/Catalyst-View-Download")
2134     (synopsis "Download data in many formats")
2135     (description "The purpose of this module is to provide a method for
2136 downloading data into many supportable formats.  For example, downloading a
2137 table based report in a variety of formats (CSV, HTML, etc.).")
2138     (license license:perl-license)))
2139
2140 (define-public perl-catalyst-view-json
2141   (package
2142     (name "perl-catalyst-view-json")
2143     (version "0.37")
2144     (source
2145      (origin
2146        (method url-fetch)
2147        (uri (string-append "mirror://cpan/authors/id/H/HA/HAARG/"
2148                            "Catalyst-View-JSON-" version ".tar.gz"))
2149        (sha256
2150         (base32
2151          "1v4xkzazs743sc7cd1kxkbi99cf00a4dadyyancckcbpi9p3znn5"))))
2152     (build-system perl-build-system)
2153     (native-inputs
2154      `(("perl-module-install" ,perl-module-install)
2155        ("perl-yaml" ,perl-yaml)))
2156     (inputs
2157      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2158        ("perl-json-maybexs" ,perl-json-maybexs)
2159        ("perl-mro-compat" ,perl-mro-compat)))
2160     (home-page "https://metacpan.org/release/Catalyst-View-JSON")
2161     (synopsis "Catalyst JSON view")
2162     (description "Catalyst::View::JSON is a Catalyst View handler that returns
2163 stash data in JSON format.")
2164     (license license:perl-license)))
2165
2166 (define-public perl-catalyst-view-tt
2167   (package
2168     (name "perl-catalyst-view-tt")
2169     (version "0.44")
2170     (source
2171      (origin
2172        (method url-fetch)
2173        (uri (string-append "mirror://cpan/authors/id/E/ET/ETHER/"
2174                            "Catalyst-View-TT-" version ".tar.gz"))
2175      (sha256
2176       (base32
2177        "06d1zg4nbb6kcyjbnyxrkf8z4zlscxr8650d94f7187jygfl8rvh"))))
2178   (build-system perl-build-system)
2179   (propagated-inputs
2180    `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2181      ("perl-class-accessor" ,perl-class-accessor)
2182      ("perl-data-dump" ,perl-data-dump)
2183      ("perl-mro-compat" ,perl-mro-compat)
2184      ("perl-path-class" ,perl-path-class)
2185      ("perl-template-timer" ,perl-template-timer)
2186      ("perl-template-toolkit" ,perl-template-toolkit)))
2187   (home-page "https://metacpan.org/release/Catalyst-View-TT")
2188   (synopsis "Template View Class")
2189   (description "This module is a Catalyst view class for the Template
2190 Toolkit.")
2191   (license license:perl-license)))
2192
2193 (define-public perl-catalystx-component-traits
2194   (package
2195     (name "perl-catalystx-component-traits")
2196     (version "0.19")
2197     (source
2198      (origin
2199        (method url-fetch)
2200        (uri (string-append "mirror://cpan/authors/id/R/RK/RKITOVER/"
2201                            "CatalystX-Component-Traits-" version ".tar.gz"))
2202        (sha256
2203         (base32
2204          "0iq4ci8m6g2c4g01fvdl568y7pjz28f3widk986v3pyhr7ll8j88"))))
2205     (build-system perl-build-system)
2206     (native-inputs
2207      `(("perl-moose" ,perl-moose)
2208        ("perl-catalyst-runtime" ,perl-catalyst-runtime)
2209        ("perl-moosex-methodattributes" ,perl-moosex-methodattributes)))
2210     (propagated-inputs
2211      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2212        ("perl-class-load" ,perl-class-load)
2213        ("perl-moose" ,perl-moose)
2214        ("perl-moosex-traits-pluggable" ,perl-moosex-traits-pluggable)
2215        ("perl-namespace-autoclean" ,perl-namespace-autoclean)
2216        ("perl-list-moreutils" ,perl-list-moreutils)))
2217     (home-page "https://metacpan.org/release/CatalystX-Component-Traits")
2218     (synopsis "Trait Loading and Resolution for Catalyst Components")
2219     (description "Adds a \"COMPONENT\" in Catalyst::Component method to your
2220 Catalyst component base class that reads the optional \"traits\" parameter
2221 from app and component config and instantiates the component subclass with
2222 those traits using \"new_with_traits\" in MooseX::Traits from
2223 MooseX::Traits::Pluggable.")
2224     (license license:perl-license)))
2225
2226 (define-public perl-catalystx-roleapplicator
2227   (package
2228     (name "perl-catalystx-roleapplicator")
2229     (version "0.005")
2230     (source
2231      (origin
2232        (method url-fetch)
2233        (uri (string-append "mirror://cpan/authors/id/H/HD/HDP/"
2234                            "CatalystX-RoleApplicator-" version ".tar.gz"))
2235        (sha256
2236         (base32
2237          "0vwaapxn8g5hs2xp63c4dwv9jmapmji4272fakssvgc9frklg3p2"))))
2238     (build-system perl-build-system)
2239     (propagated-inputs
2240      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2241        ("perl-moose" ,perl-moose)
2242        ("perl-moosex-relatedclassroles" ,perl-moosex-relatedclassroles)))
2243     (home-page "https://metacpan.org/release/CatalystX-RoleApplicator")
2244     (synopsis "Apply roles to Catalyst classes")
2245     (description "CatalystX::RoleApplicator applies roles to Catalyst
2246 application classes.")
2247     (license license:perl-license)))
2248
2249 (define-public perl-catalystx-script-server-starman
2250   (package
2251     (name "perl-catalystx-script-server-starman")
2252     (version "0.03")
2253     (source
2254      (origin
2255        (method url-fetch)
2256        (uri (string-append "mirror://cpan/authors/id/A/AB/ABRAXXA/"
2257                            "CatalystX-Script-Server-Starman-"
2258                            version ".tar.gz"))
2259        (sha256
2260         (base32
2261          "08jvibq4v8xjj0c3cr93h0w8w0c88ajwjn37xjy7ygxl9krlffp6"))))
2262     (build-system perl-build-system)
2263     (native-inputs
2264      `(("perl-module-install" ,perl-module-install)
2265        ("perl-test-www-mechanize-catalyst" ,perl-test-www-mechanize-catalyst)))
2266     (propagated-inputs
2267      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
2268        ("perl-moose" ,perl-moose)
2269        ("perl-namespace-autoclean" ,perl-namespace-autoclean)
2270        ("starman" ,starman)))
2271     (home-page "https://metacpan.org/release/CatalystX-Script-Server-Starman")
2272     (synopsis "Catalyst development server with Starman")
2273     (description "This module provides a Catalyst extension to replace the
2274 development server with Starman.")
2275     (license license:perl-license)))
2276
2277 (define-public perl-cgi
2278   (package
2279     (name "perl-cgi")
2280     (version "4.44")
2281     (source
2282      (origin
2283        (method url-fetch)
2284        (uri (string-append "mirror://cpan/authors/id/L/LE/LEEJO/"
2285                            "CGI-" version ".tar.gz"))
2286        (sha256
2287         (base32
2288          "020jrygslqixrxd2nzc2l8ac39ynqzsy83nnnr3mqn6kxfvmyhqj"))))
2289     (build-system perl-build-system)
2290     (native-inputs
2291      `(("perl-test-deep" ,perl-test-deep)
2292        ("perl-test-nowarnings" ,perl-test-nowarnings)
2293        ("perl-test-warn" ,perl-test-warn)))
2294     (propagated-inputs
2295      `(("perl-html-parser" ,perl-html-parser)))
2296     (home-page "https://metacpan.org/release/CGI")
2297     (synopsis "Handle Common Gateway Interface requests and responses")
2298     (description "CGI.pm is a stable, complete and mature solution for
2299 processing and preparing HTTP requests and responses.  Major features include
2300 processing form submissions, file uploads, reading and writing cookies, query
2301 string generation and manipulation, and processing and preparing HTTP
2302 headers.")
2303     (license license:perl-license)))
2304
2305 (define-public perl-cgi-formbuilder
2306   (package
2307     (name "perl-cgi-formbuilder")
2308     (version "3.10")
2309     (source
2310      (origin
2311        (method url-fetch)
2312        (uri (string-append
2313              "https://cpan.metacpan.org/authors/id/B/BI/BIGPRESH/"
2314              "CGI-FormBuilder-" version ".tar.gz"))
2315        (sha256
2316         (base32
2317          "163ixq9kninqq094z2rnkg9pv3bcmvjphlww4vksfrzhq3h9pjdf"))))
2318     (build-system perl-build-system)
2319     (inputs `(("perl-cgi" ,perl-cgi)))
2320     (home-page
2321      "https://metacpan.org/release/CGI-FormBuilder")
2322     (synopsis
2323      "Generate and process stateful forms")
2324     (description
2325      "@code{CGI::FormBuilder} provides an easy way to generate and process CGI
2326 form-based applications.")
2327     (license license:perl-license)))
2328
2329 (define-public perl-cgi-session
2330   (package
2331     (name "perl-cgi-session")
2332     (version "4.48")
2333     (source
2334      (origin
2335        (method url-fetch)
2336        (uri (string-append
2337              "mirror://cpan/authors/id/M/MA/MARKSTOS/CGI-Session-"
2338              version
2339              ".tar.gz"))
2340        (sha256
2341         (base32
2342          "1xsl2pz1jrh127pq0b01yffnj4mnp9nvkp88h5mndrscq9hn8xa6"))))
2343     (build-system perl-build-system)
2344     (native-inputs
2345      `(("perl-module-build" ,perl-module-build)))
2346     (inputs `(("perl-cgi" ,perl-cgi)))
2347     (home-page
2348      "https://metacpan.org/release/CGI-Session")
2349     (synopsis
2350      "Persistent session data in CGI applications")
2351     (description
2352      "@code{CGI::Session} provides modular session management system across
2353 HTTP requests.")
2354     (license license:perl-license)))
2355
2356 (define-public perl-cgi-simple
2357   (package
2358     (name "perl-cgi-simple")
2359     (version "1.21")
2360     (source
2361      (origin
2362        (method url-fetch)
2363        (uri (string-append "mirror://cpan/authors/id/M/MA/MANWAR/"
2364                            "CGI-Simple-" version ".tar.gz"))
2365        (sha256
2366         (base32 "1wzc2igs4khmj7zfahvs87c24p9ks8hnqhhsyviyiix53xx2y6sg"))))
2367     (build-system perl-build-system)
2368     (native-inputs
2369      `(("perl-io-stringy" ,perl-io-stringy) ; for IO::Scalar
2370        ("perl-module-build" ,perl-module-build)
2371        ("perl-test-exception" ,perl-test-exception)
2372        ("perl-test-nowarnings" ,perl-test-nowarnings)))
2373     (home-page "https://metacpan.org/release/CGI-Simple")
2374     (synopsis "CGI interface that is CGI.pm compliant")
2375     (description "CGI::Simple provides a relatively lightweight drop in
2376 replacement for CGI.pm.  It shares an identical OO interface to CGI.pm for
2377 parameter parsing, file upload, cookie handling and header generation.")
2378     (license license:perl-license)))
2379
2380 (define-public perl-cgi-struct
2381   (package
2382     (name "perl-cgi-struct")
2383     (version "1.21")
2384     (source
2385      (origin
2386        (method url-fetch)
2387        (uri (string-append "mirror://cpan/authors/id/F/FU/FULLERMD/"
2388                            "CGI-Struct-" version ".tar.gz"))
2389        (sha256
2390         (base32
2391          "0v4xq2qpryr7i6jngw1wpn8yr2kiib10yxp4aih90vfdznkqsgfi"))))
2392     (build-system perl-build-system)
2393     (native-inputs
2394      `(("perl-test-deep" ,perl-test-deep)))
2395     (home-page "https://metacpan.org/release/CGI-Struct")
2396     (synopsis "Build structures from CGI data")
2397     (description "This is a module for building structured data from CGI
2398 inputs, in a manner reminiscent of how PHP does.")
2399     (license license:bsd-2)))
2400
2401 (define-public perl-datetime-format-http
2402   (package
2403     (name "perl-datetime-format-http")
2404     (version "0.42")
2405     (source
2406      (origin
2407        (method url-fetch)
2408        (uri (string-append "mirror://cpan/authors/id/C/CK/CKRAS/"
2409                            "DateTime-Format-HTTP-" version ".tar.gz"))
2410        (sha256
2411         (base32
2412          "0h6qqdg1yzqkdxp7hqlp0qa7d1y64nilgimxs79dys2ryjfpcknh"))))
2413     (build-system perl-build-system)
2414     (native-inputs
2415      `(("perl-module-build" ,perl-module-build)))
2416     (propagated-inputs
2417      `(("perl-datetime" ,perl-datetime)
2418        ("perl-http-date" ,perl-http-date)))
2419     (home-page "https://metacpan.org/release/DateTime-Format-HTTP")
2420     (synopsis "Date conversion routines")
2421     (description "This module provides functions that deal with the date
2422 formats used by the HTTP protocol.")
2423     (license license:perl-license)))
2424
2425 (define-public perl-digest-md5-file
2426   (package
2427     (name "perl-digest-md5-file")
2428     (version "0.08")
2429     (source
2430      (origin
2431        (method url-fetch)
2432        (uri (string-append "mirror://cpan/authors/id/D/DM/DMUEY/"
2433                            "Digest-MD5-File-" version ".tar.gz"))
2434        (sha256
2435         (base32
2436          "060jzf45dlwysw5wsm7av1wvpl06xgk415kwwpvv89r6wda3md5d"))))
2437     (build-system perl-build-system)
2438     (propagated-inputs
2439      `(("perl-libwww" ,perl-libwww)))
2440     (home-page "https://metacpan.org/release/Digest-MD5-File")
2441     (synopsis "MD5 sums for files and urls")
2442     (description "Digest::MD5::File is a Perl extension for getting MD5 sums
2443 for files and urls.")
2444     (license license:perl-license)))
2445
2446 (define-public perl-encode-locale
2447   (package
2448     (name "perl-encode-locale")
2449     (version "1.05")
2450     (source (origin
2451              (method url-fetch)
2452              (uri (string-append
2453                    "mirror://cpan/authors/id/G/GA/GAAS/Encode-Locale-"
2454                    version ".tar.gz"))
2455              (sha256
2456               (base32
2457                "1h8fvcdg3n20c2yp7107yhdkkx78534s9hnvn7ps8hpmf4ks0vqp"))))
2458     (build-system perl-build-system)
2459     (license license:perl-license)
2460     (synopsis "Perl locale encoding determination")
2461     (description
2462      "The POSIX locale system is used to specify both the language
2463 conventions requested by the user and the preferred character set to
2464 consume and output.  The Encode::Locale module looks up the charset and
2465 encoding (called a CODESET in the locale jargon) and arranges for the
2466 Encode module to know this encoding under the name \"locale\".  It means
2467 bytes obtained from the environment can be converted to Unicode strings
2468 by calling Encode::encode(locale => $bytes) and converted back again
2469 with Encode::decode(locale => $string).")
2470     (home-page "https://metacpan.org/release/Encode-Locale")))
2471
2472 (define-public perl-feed-find
2473   (package
2474     (name "perl-feed-find")
2475     (version "0.07")
2476     (source (origin
2477               (method url-fetch)
2478               (uri (string-append "mirror://cpan/authors/id/B/BT/BTROTT/"
2479                                   "Feed-Find-" version ".tar.gz"))
2480               (sha256
2481                (base32
2482                 "0sa33cm8ww55cymnl8j7b5yspi2y5xkkkgqqa4h6fs3wdqylz600"))))
2483     (build-system perl-build-system)
2484     (arguments
2485      ;; Tests expect to query files at http://stupidfool.org/perl/feeds/
2486      `(#:tests? #f
2487        #:phases
2488        (modify-phases %standard-phases
2489          (add-after 'unpack 'set-env
2490            (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1"))))))
2491     (inputs
2492      `(("perl-class-errorhandler" ,perl-class-errorhandler)
2493        ("perl-html-parser" ,perl-html-parser)
2494        ("perl-libwww" ,perl-libwww)
2495        ("perl-uri" ,perl-uri)))
2496     (home-page "https://metacpan.org/release/Feed-Find")
2497     (synopsis "Syndication feed auto-discovery")
2498     (description "@code{Feed::Find} implements feed auto-discovery for finding
2499 syndication feeds, given a URI.  It will discover the following feed formats:
2500 RSS 0.91, RSS 1.0, RSS 2.0, Atom.")
2501     (license license:perl-license)))
2502
2503 (define-public perl-file-listing
2504   (package
2505     (name "perl-file-listing")
2506     (version "6.04")
2507     (source (origin
2508              (method url-fetch)
2509              (uri (string-append
2510                    "mirror://cpan/authors/id/G/GA/GAAS/File-Listing-"
2511                    version ".tar.gz"))
2512              (sha256
2513               (base32
2514                "1xcwjlnxaiwwpn41a5yi6nz95ywh3szq5chdxiwj36kqsvy5000y"))))
2515     (build-system perl-build-system)
2516     (propagated-inputs
2517      `(("perl-http-date" ,perl-http-date)))
2518     (license license:perl-license)
2519     (synopsis "Perl directory listing parser")
2520     (description
2521      "The File::Listing module exports a single function called parse_dir(),
2522 which can be used to parse directory listings.")
2523     (home-page "https://metacpan.org/release/File-Listing")))
2524
2525 (define-public perl-finance-quote
2526   (package
2527    (name "perl-finance-quote")
2528    (version "1.47")
2529    (source
2530     (origin
2531       (method url-fetch)
2532       (uri (string-append "https://cpan.metacpan.org/authors/id/E/EC/ECOCODE/"
2533                           "Finance-Quote-" version ".tar.gz"))
2534       (sha256
2535        (base32 "0gzbq85738f299jaw4nj3ljnka380j2y6yspmyl71rgfypqjvbr7"))
2536       (patches (search-patches
2537                 "perl-finance-quote-unuse-mozilla-ca.patch"))))
2538    (build-system perl-build-system)
2539    (propagated-inputs
2540     `(("perl-cgi" ,perl-cgi)
2541       ("perl-datetime" ,perl-datetime)
2542       ("perl-html-parser" ,perl-html-parser)
2543       ("perl-html-tableextract" ,perl-html-tableextract)
2544       ("perl-html-tree" ,perl-html-tree)
2545       ("perl-http-cookies" ,perl-http-cookies)
2546       ("perl-http-message" ,perl-http-message)
2547       ("perl-json" ,perl-json)
2548       ("perl-libwww" ,perl-libwww)
2549       ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
2550       ("perl-uri" ,perl-uri)))
2551    (home-page "https://metacpan.org/release/Finance-Quote")
2552    (synopsis "Stock and mutual fund quotes")
2553    (description
2554     "Finance::Quote gets stock quotes from various internet sources, including
2555 Yahoo! Finance, Fidelity Investments, and the Australian Stock Exchange.")
2556    (license license:gpl2)))
2557
2558 (define-public perl-gssapi
2559   (package
2560     (name "perl-gssapi")
2561     (version "0.28")
2562     (source
2563      (origin
2564        (method url-fetch)
2565        (uri (string-append "mirror://cpan/authors/id/A/AG/AGROLMS/"
2566                            "GSSAPI-" version ".tar.gz"))
2567        (sha256
2568         (base32
2569          "1mkhwxjjlhr58pd770i9gnf7zy7jj092iv6jfbnb8bvnc5xjr3vx"))))
2570     (build-system perl-build-system)
2571     (inputs `(("gssapi" ,mit-krb5)))
2572     (arguments
2573      `(#:make-maker-flags
2574        `(,(string-append "--gssapiimpl=" (assoc-ref %build-inputs "gssapi")))))
2575     (home-page "https://metacpan.org/release/GSSAPI")
2576     (synopsis "Perl extension providing access to the GSSAPIv2 library")
2577     (description "This is a Perl extension for using GSSAPI C bindings as
2578 described in RFC 2744.")
2579     (license license:perl-license)))
2580
2581 (define-public perl-html-element-extended
2582   (package
2583     (name "perl-html-element-extended")
2584     (version "1.18")
2585     (source
2586      (origin
2587        (method url-fetch)
2588        (uri (string-append "mirror://cpan/authors/id/M/MS/MSISK/"
2589                            "HTML-Element-Extended-" version ".tar.gz"))
2590        (sha256
2591         (base32
2592          "0axknss8c368r5i082yhkfj8mq0w4nglfrpcxcayyzzj13qimvzk"))))
2593     (build-system perl-build-system)
2594     (propagated-inputs
2595      `(("perl-html-tree" ,perl-html-tree)))
2596     (home-page "https://metacpan.org/release/HTML-Element-Extended")
2597     (synopsis "Manipulate tables of HTML::Element")
2598     (description
2599      "HTML::Element::Extended is a Perl extension for manipulating a table
2600 composed of HTML::Element style components.")
2601     (license license:perl-license)))
2602
2603 (define-public perl-html-form
2604   (package
2605     (name "perl-html-form")
2606     (version "6.05")
2607     (source
2608      (origin
2609        (method url-fetch)
2610        (uri (string-append "mirror://cpan/authors/id/O/OA/OALDERS/"
2611                            "HTML-Form-" version ".tar.gz"))
2612        (sha256
2613         (base32 "14i4ldyvdvhdhvfhh9kiq6z853q2f84biq8vcpv1k5w2r80wdiin"))))
2614     (build-system perl-build-system)
2615     (propagated-inputs
2616      `(("perl-html-parser" ,perl-html-parser)
2617        ("perl-html-tagset" ,perl-html-tagset)
2618        ("perl-http-message" ,perl-http-message)
2619        ("perl-lwp-mediatypes" ,perl-lwp-mediatypes)
2620        ("perl-uri" ,perl-uri)))
2621     (home-page "https://metacpan.org/release/HTML-Form")
2622     (synopsis "Perl class representing an HTML form element")
2623     (description "Objects of the HTML::Form class represents a single HTML
2624 <form> ... </form> instance.")
2625     (license license:perl-license)))
2626
2627 (define-public perl-html-scrubber
2628   (package
2629     (name "perl-html-scrubber")
2630     (version "0.17")
2631     (source
2632      (origin
2633        (method url-fetch)
2634        (uri (string-append
2635              "mirror://cpan/authors/id/N/NI/NIGELM/HTML-Scrubber-"
2636              version
2637              ".tar.gz"))
2638        (sha256
2639         (base32
2640          "06p7w4zd42b2yh541mlzyqj40lwmvvn3fyqi8big4mf34la7m2jm"))))
2641     (build-system perl-build-system)
2642     (native-inputs
2643      `(("perl-module-build" ,perl-module-build)
2644        ("perl-test-cpan-meta" ,perl-test-cpan-meta)
2645        ("perl-test-differences" ,perl-test-differences)
2646        ("perl-test-eol" ,perl-test-eol)
2647        ("perl-test-memory-cycle" ,perl-test-memory-cycle)
2648        ("perl-test-notabs" ,perl-test-notabs)))
2649     (inputs
2650      `(("perl-html-parser" ,perl-html-parser)))
2651     (home-page
2652      "https://metacpan.org/release/HTML-Scrubber")
2653     (synopsis
2654      "Perl extension for scrubbing/sanitizing html")
2655     (description
2656      "@code{HTML::Scrubber} Perl extension for scrubbing/sanitizing HTML.")
2657     (license license:perl-license)))
2658
2659 (define-public perl-html-lint
2660   (package
2661     (name "perl-html-lint")
2662     (version "2.32")
2663     (source
2664      (origin
2665        (method url-fetch)
2666        (uri (string-append "mirror://cpan/authors/id/P/PE/PETDANCE/"
2667                            "HTML-Lint-" version ".tar.gz"))
2668        (sha256
2669         (base32 "0lk02xpfxcg7ij4dvpsa4wjlzhmiizj0jfr3rwmdpbj69nvc93br"))))
2670     (build-system perl-build-system)
2671     (propagated-inputs
2672      `(("perl-html-parser" ,perl-html-parser)
2673        ("perl-html-tagset" ,perl-html-tagset)
2674        ("perl-libwww" ,perl-libwww)))
2675     (home-page "https://metacpan.org/release/HTML-Lint")
2676     (synopsis "Check for HTML errors in a string or file")
2677     (description "HTML::Lint is a pure-Perl HTML parser and checker for
2678 syntactic legitmacy.")
2679     (license license:artistic2.0)))
2680
2681 (define-public perl-html-tableextract
2682   (package
2683     (name "perl-html-tableextract")
2684     (version "2.13")
2685     (source
2686      (origin
2687        (method url-fetch)
2688        (uri (string-append "https://cpan.metacpan.org/authors/id/M/MS/MSISK/"
2689                            "HTML-TableExtract-" version ".tar.gz"))
2690        (sha256
2691         (base32
2692          "01jimmss3q68a89696wmclvqwb2ybz6xgabpnbp6mm6jcni82z8a"))))
2693     (build-system perl-build-system)
2694     (propagated-inputs
2695      `(("perl-html-element-extended" ,perl-html-element-extended)
2696        ("perl-html-parser" ,perl-html-parser)))
2697     (home-page "https://metacpan.org/release/HTML-TableExtract")
2698     (synopsis "Extract contents from HTML tables")
2699     (description
2700      "HTML::TableExtract is a Perl module for extracting the content contained
2701 in tables within an HTML document, either as text or encoded element trees.")
2702     (license license:perl-license)))
2703
2704 (define-public perl-html-tree
2705   (package
2706     (name "perl-html-tree")
2707     (version "5.07")
2708     (source
2709      (origin
2710        (method url-fetch)
2711        (uri (string-append "mirror://cpan/authors/id/K/KE/KENTNL/"
2712                            "HTML-Tree-" version ".tar.gz"))
2713        (sha256
2714         (base32
2715          "1gyvm4qlwm9y6hczkpnrdfl303ggbybr0nqxdjw09hii8yw4sdzh"))))
2716     (build-system perl-build-system)
2717     (native-inputs
2718      `(("perl-module-build" ,perl-module-build)
2719        ("perl-test-fatal" ,perl-test-fatal)))
2720     (propagated-inputs
2721      `(("perl-html-parser" ,perl-html-parser)
2722        ("perl-html-tagset" ,perl-html-tagset)
2723        ("perl-libwww" ,perl-libwww)))
2724     (home-page "https://metacpan.org/release/HTML-Tree")
2725     (synopsis "Work with HTML in a DOM-like tree structure")
2726     (description "This distribution contains a suite of modules for
2727 representing, creating, and extracting information from HTML syntax trees.")
2728     (license license:perl-license)))
2729
2730 (define-public perl-html-parser
2731   (package
2732     (name "perl-html-parser")
2733     (version "3.72")
2734     (source (origin
2735              (method url-fetch)
2736              (uri (string-append
2737                    "mirror://cpan/authors/id/G/GA/GAAS/HTML-Parser-"
2738                    version ".tar.gz"))
2739              (sha256
2740               (base32
2741                "12v05ywlnsi9lc17z32k9jxx3sj1viy7y1wpl7n4az76v7hwfa7c"))))
2742     (build-system perl-build-system)
2743     (inputs
2744      `(("perl-html-tagset" ,perl-html-tagset)
2745        ("perl-http-message" ,perl-http-message)))
2746     (license license:perl-license)
2747     (synopsis "Perl HTML parser class")
2748     (description
2749      "Objects of the HTML::Parser class will recognize markup and separate
2750 it from plain text (alias data content) in HTML documents.  As different
2751 kinds of markup and text are recognized, the corresponding event handlers
2752 are invoked.")
2753     (home-page "https://metacpan.org/release/HTML-Parser")))
2754
2755 (define-public perl-html-tagset
2756   (package
2757     (name "perl-html-tagset")
2758     (version "3.20")
2759     (source (origin
2760              (method url-fetch)
2761              (uri (string-append
2762                    "mirror://cpan/authors/id/P/PE/PETDANCE/HTML-Tagset-"
2763                    version ".tar.gz"))
2764              (sha256
2765               (base32
2766                "1qh8249wgr4v9vgghq77zh1d2zs176bir223a8gh3k9nksn7vcdd"))))
2767     (build-system perl-build-system)
2768     (license license:perl-license)
2769     (synopsis "Perl data tables useful in parsing HTML")
2770     (description
2771      "The HTML::Tagset module contains several data tables useful in various
2772 kinds of HTML parsing operations.")
2773     (home-page "https://metacpan.org/release/HTML-Tagset")))
2774
2775 (define-public perl-html-template
2776   (package
2777     (name "perl-html-template")
2778     (version "2.97")
2779     (source (origin
2780               (method url-fetch)
2781               (uri (string-append "mirror://cpan/authors/id/S/SA/SAMTREGAR/"
2782                                   "HTML-Template-" version ".tar.gz"))
2783               (sha256
2784                (base32
2785                 "17qjw8swj2q4b1ic285pndgrkmvpsqw0j68nhqzpk1daydhsyiv5"))))
2786     (build-system perl-build-system)
2787     (propagated-inputs
2788      `(("perl-cgi" ,perl-cgi)))
2789     (home-page "https://metacpan.org/release/HTML-Template")
2790     (synopsis "HTML-like templates")
2791     (description
2792      "This module attempts to make using HTML templates simple and natural.
2793 It extends standard HTML with a few new HTML-esque tags: @code{<TMPL_VAR>},
2794 @code{<TMPL_LOOP>}, @code{<TMPL_INCLUDE>}, @code{<TMPL_IF>},
2795 @code{<TMPL_ELSE>} and @code{<TMPL_UNLESS>}.  The file written with HTML and
2796 these new tags is called a template.  Using this module you fill in the values
2797 for the variables, loops and branches declared in the template.  This allows
2798 you to separate design from the data.")
2799     (license license:perl-license)))
2800
2801 (define-public perl-http-body
2802   (package
2803     (name "perl-http-body")
2804     (version "1.22")
2805     (source
2806      (origin
2807        (method url-fetch)
2808        (uri (string-append "mirror://cpan/authors/id/G/GE/GETTY/"
2809                            "HTTP-Body-" version ".tar.gz"))
2810        (sha256
2811         (base32
2812          "15vj488i62mdp4ps9k77h39prj70i7anb6b0j8nm7l9vbdc2q3gw"))))
2813     (build-system perl-build-system)
2814     (native-inputs
2815      `(("perl-test-deep" ,perl-test-deep)))
2816     (propagated-inputs
2817      `(("perl-file-temp" ,perl-file-temp)
2818        ("perl-http-message" ,perl-http-message))) ;For HTTP::Headers
2819     (home-page "https://metacpan.org/release/HTTP-Body")
2820     (synopsis "HTTP Body Parser")
2821     (description "HTTP::Body parses chunks of HTTP POST data and supports
2822 application/octet-stream, application/json, application/x-www-form-urlencoded,
2823 and multipart/form-data.")
2824     (license license:perl-license)))
2825
2826 (define-public perl-http-cookiejar
2827   (package
2828     (name "perl-http-cookiejar")
2829     (version "0.008")
2830     (source
2831      (origin
2832        (method url-fetch)
2833        (uri (string-append "mirror://cpan/authors/id/D/DA/DAGOLDEN/"
2834                            "HTTP-CookieJar-" version ".tar.gz"))
2835        (sha256
2836         (base32
2837          "0rfw6avcralggs7bf7n86flvhaahxjnqzvpwszp0sk4z4wwy01wm"))))
2838     (build-system perl-build-system)
2839     (native-inputs
2840      `(("perl-test-deep" ,perl-test-deep)
2841        ("perl-test-requires" ,perl-test-requires)
2842        ("perl-time-mock" ,perl-time-mock)
2843        ("perl-uri" ,perl-uri)))
2844     (inputs
2845      `(("perl-time-local" ,perl-time-local)
2846        ("perl-http-date" ,perl-http-date)))
2847     (home-page "https://metacpan.org/release/HTTP-CookieJar")
2848     (synopsis "Minimalist HTTP user agent cookie jar")
2849     (description "This module implements a minimalist HTTP user agent cookie
2850 jar in conformance with RFC 6265 <http://tools.ietf.org/html/rfc6265>.")
2851     (license license:asl2.0)))
2852
2853 (define-public perl-http-cookies
2854   (package
2855     (name "perl-http-cookies")
2856     (version "6.04")
2857     (source (origin
2858              (method url-fetch)
2859              (uri (string-append
2860                    "mirror://cpan/authors/id/O/OA/OALDERS/HTTP-Cookies-"
2861                    version ".tar.gz"))
2862              (sha256
2863               (base32
2864                "1m0kxcirbvbkrm2c59p1bkbvzlcdymg8fdpa7wlxijlx0xwz1iqc"))))
2865     (build-system perl-build-system)
2866     (propagated-inputs
2867      `(("perl-http-message" ,perl-http-message)))
2868     (license license:perl-license)
2869     (synopsis "Perl HTTP cookie jars")
2870     (description
2871      "The HTTP::Cookies class is for objects that represent a cookie jar,
2872 that is, a database of all the HTTP cookies that a given LWP::UserAgent
2873 object knows about.")
2874     (home-page "https://metacpan.org/release/GAAS/HTTP-Cookies-6.01")))
2875
2876 (define-public perl-http-daemon
2877   (package
2878     (name "perl-http-daemon")
2879     (version "6.01")
2880     (source (origin
2881              (method url-fetch)
2882              (uri (string-append
2883                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Daemon-"
2884                    version ".tar.gz"))
2885              (sha256
2886               (base32
2887                "1hmd2isrkilf0q0nkxms1q64kikjmcw9imbvrjgky6kh89vqdza3"))))
2888     (build-system perl-build-system)
2889     (propagated-inputs
2890      `(("perl-http-message" ,perl-http-message)
2891        ("perl-lwp-mediatypes" ,perl-lwp-mediatypes)))
2892     (license license:perl-license)
2893     (synopsis "Perl simple http server class")
2894     (description
2895      "Instances of the HTTP::Daemon class are HTTP/1.1 servers that listen
2896 on a socket for incoming requests.  The HTTP::Daemon is a subclass of
2897 IO::Socket::INET, so you can perform socket operations directly on it too.")
2898     (home-page "https://metacpan.org/release/HTTP-Daemon")))
2899
2900 (define-public perl-http-date
2901   (package
2902     (name "perl-http-date")
2903     (version "6.02")
2904     (source (origin
2905              (method url-fetch)
2906              (uri (string-append
2907                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Date-"
2908                    version ".tar.gz"))
2909              (sha256
2910               (base32
2911                "0cz357kafhhzw7w59iyi0wvhw7rlh5g1lh38230ckw7rl0fr9fg8"))))
2912     (build-system perl-build-system)
2913     (license license:perl-license)
2914     (synopsis "Perl date conversion routines")
2915     (description
2916      "The HTTP::Date module provides functions that deal with date formats
2917 used by the HTTP protocol (and then some more).")
2918     (home-page "https://metacpan.org/release/HTTP-Date")))
2919
2920 (define-public perl-http-message
2921   (package
2922     (name "perl-http-message")
2923     (version "6.18")
2924     (source (origin
2925              (method url-fetch)
2926              (uri (string-append
2927                    "mirror://cpan/authors/id/O/OA/OALDERS/HTTP-Message-"
2928                    version ".tar.gz"))
2929              (sha256
2930               (base32
2931                "04lih0fn89jpyk74c4aq1rzq18h8v4zd3x0lik2r9dl8sdqd2q6h"))))
2932     (build-system perl-build-system)
2933     (native-inputs
2934      `(("perl-try-tiny" ,perl-try-tiny)))
2935     (propagated-inputs
2936      `(("perl-encode-locale" ,perl-encode-locale)
2937        ("perl-http-date" ,perl-http-date)
2938        ("perl-io-html" ,perl-io-html)
2939        ("perl-lwp-mediatypes" ,perl-lwp-mediatypes)
2940        ("perl-uri" ,perl-uri)))
2941     (license license:perl-license)
2942     (synopsis "Perl HTTP style message")
2943     (description
2944      "An HTTP::Message object contains some headers and a content body.")
2945     (home-page "https://metacpan.org/release/ETHER/HTTP-Message-6.11")))
2946
2947 (define-public perl-http-negotiate
2948   (package
2949     (name "perl-http-negotiate")
2950     (version "6.01")
2951     (source (origin
2952              (method url-fetch)
2953              (uri (string-append
2954                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Negotiate-"
2955                    version ".tar.gz"))
2956              (sha256
2957               (base32
2958                "05p053vjs5g91v5cmjnny7a3xzddz5k7vnjw81wfh01ilqg9qwhw"))))
2959     (build-system perl-build-system)
2960     (propagated-inputs
2961      `(("perl-http-message" ,perl-http-message)))
2962     (license license:perl-license)
2963     (synopsis "Perl http content negotiation")
2964     (description
2965      "The HTTP::Negotiate module provides a complete implementation of the
2966 HTTP content negotiation algorithm specified in
2967 draft-ietf-http-v11-spec-00.ps chapter 12.  Content negotiation allows for
2968 the selection of a preferred content representation based upon attributes
2969 of the negotiable variants and the value of the various Accept* header
2970 fields in the request.")
2971     (home-page "https://metacpan.org/release/HTTP-Negotiate")))
2972
2973 (define-public perl-http-parser
2974   (package
2975     (name "perl-http-parser")
2976     (version "0.06")
2977     (source
2978      (origin
2979        (method url-fetch)
2980        (uri (string-append "mirror://cpan/authors/id/E/ED/EDECA/"
2981                            "HTTP-Parser-" version ".tar.gz"))
2982        (sha256
2983         (base32
2984          "0idwq3jk595xil65lmxz128ha7s3r2n5zknisddpgwnqrghs3igq"))))
2985     (build-system perl-build-system)
2986     (propagated-inputs
2987      `(("perl-http-message" ,perl-http-message)
2988        ("perl-uri" ,perl-uri)))
2989     (home-page "https://metacpan.org/release/HTTP-Parser")
2990     (synopsis "Parse HTTP/1.1 requests")
2991     (description "This is an HTTP request parser.  It takes chunks of text as
2992 received and returns a @code{hint} as to what is required, or returns the
2993 HTTP::Request when a complete request has been read.  HTTP/1.1 chunking is
2994 supported.")
2995     (license license:perl-license)))
2996
2997 (define-public perl-http-parser-xs
2998   (package
2999     (name "perl-http-parser-xs")
3000     (version "0.17")
3001     (source
3002      (origin
3003        (method url-fetch)
3004        (uri (string-append "mirror://cpan/authors/id/K/KA/KAZUHO/"
3005                            "HTTP-Parser-XS-" version ".tar.gz"))
3006        (sha256
3007         (base32
3008          "02d84xq1mm53c7jl33qyb7v5w4372vydp74z6qj0vc96wcrnhkkr"))))
3009     (build-system perl-build-system)
3010     (native-inputs
3011      `(("perl-module-install" ,perl-module-install)))
3012     (home-page "https://metacpan.org/release/HTTP-Parser-XS")
3013     (synopsis "Fast HTTP request parser")
3014     (description "HTTP::Parser::XS is a fast, primitive HTTP request/response
3015 parser.")
3016     (license license:perl-license)))
3017
3018 (define-public perl-http-request-ascgi
3019   (package
3020     (name "perl-http-request-ascgi")
3021     (version "1.2")
3022     (source
3023      (origin
3024        (method url-fetch)
3025        (uri (string-append "mirror://cpan/authors/id/F/FL/FLORA/"
3026                            "HTTP-Request-AsCGI-" version ".tar.gz"))
3027        (sha256
3028         (base32
3029          "1smwmiarwcgq7vjdblnb6ldi2x1s5sk5p15p7xvm5byiqq3znnwl"))))
3030     (build-system perl-build-system)
3031     (propagated-inputs
3032      `(("perl-class-accessor" ,perl-class-accessor)
3033        ("perl-http-message" ,perl-http-message)))
3034     (home-page "https://metacpan.org/release/HTTP-Request-AsCGI")
3035     (synopsis "Set up a CGI environment from an HTTP::Request")
3036     (description "This module provides a convenient way to set up a CGI
3037 environment from an HTTP::Request.")
3038     (license license:perl-license)))
3039
3040 (define-public perl-http-server-simple
3041   (package
3042     (name "perl-http-server-simple")
3043     (version "0.52")
3044     (source
3045      (origin
3046        (method url-fetch)
3047        (uri (string-append "mirror://cpan/authors/id/B/BP/BPS/"
3048                            "HTTP-Server-Simple-" version ".tar.gz"))
3049        (sha256
3050         (base32
3051          "0k6bg7k6mjixfzxdkkdrhqvaqmdhjszx0zsk8g0bimiby6j9z4yq"))))
3052     (build-system perl-build-system)
3053     (propagated-inputs
3054      `(("perl-cgi" ,perl-cgi)))
3055     (arguments
3056      ;; See the discussion of a related tests issue at
3057      ;; https://lists.gnu.org/archive/html/guix-devel/2015-01/msg00346.html
3058      `(#:tests? #f
3059
3060        #:phases (modify-phases %standard-phases
3061                    (add-before 'configure 'set-search-path
3062                      (lambda _
3063                        ;; Work around "dotless @INC" build failure.
3064                        (setenv "PERL5LIB"
3065                                (string-append (getcwd) ":"
3066                                               (getenv "PERL5LIB")))
3067                        #t)))))
3068     (home-page "https://metacpan.org/release/HTTP-Server-Simple")
3069     (synopsis "Lightweight HTTP server")
3070     (description "HTTP::Server::Simple is a simple standalone HTTP daemon with
3071 no non-core module dependencies.  It can be used for building a standalone
3072 http-based UI to your existing tools.")
3073     (license license:perl-license)))
3074
3075 (define-public perl-http-tiny
3076   (package
3077     (name "perl-http-tiny")
3078     (version "0.076")
3079     (source
3080      (origin
3081        (method url-fetch)
3082        (uri (string-append "mirror://cpan/authors/id/D/DA/DAGOLDEN/"
3083                            "HTTP-Tiny-" version ".tar.gz"))
3084        (sha256
3085         (base32
3086          "11wkxxqj3ff84rgj9q2gzkdgscwp3fzj205846k9ycqinlpsmgfx"))))
3087     (build-system perl-build-system)
3088     (inputs
3089      `(("perl-http-cookiejar" ,perl-http-cookiejar)
3090        ("perl-io-socket-ip" ,perl-io-socket-ip)
3091        ("perl-io-socket-ssl" ,perl-io-socket-ssl)
3092        ("perl-mozilla-ca" ,perl-mozilla-ca)
3093        ("perl-net-ssleay" ,perl-net-ssleay)))
3094     (home-page "https://metacpan.org/release/HTTP-Tiny")
3095     (synopsis "HTTP/1.1 client")
3096     (description "This is a very simple HTTP/1.1 client, designed for doing
3097 simple requests without the overhead of a large framework like LWP::UserAgent.
3098 It supports proxies and redirection.  It also correctly resumes after EINTR.")
3099     (license license:perl-license)))
3100
3101 (define-public perl-http-tinyish
3102   (package
3103     (name "perl-http-tinyish")
3104     (version "0.15")
3105     (source
3106      (origin
3107        (method url-fetch)
3108        (uri (string-append
3109              "mirror://cpan/authors/id/M/MI/MIYAGAWA/HTTP-Tinyish-"
3110              version
3111              ".tar.gz"))
3112        (sha256
3113         (base32
3114          "199sa722amvwhq0czjfb7psj3hbqmvni5vxkrm579r5943pg0rax"))))
3115     (build-system perl-build-system)
3116     (propagated-inputs
3117      `(("perl-file-which" ,perl-file-which)
3118        ("perl-ipc-run3" ,perl-ipc-run3)))
3119     (home-page "https://metacpan.org/release/HTTP-Tinyish")
3120     (synopsis "@code{HTTP::Tiny} compatible HTTP client wrappers")
3121     (description
3122      "@code{HTTP::Tinyish} is a wrapper module for @acronym{LWP,libwww-perl},
3123 @code{HTTP::Tiny}, curl and wget.
3124
3125 It provides an API compatible to HTTP::Tiny.")
3126     (license license:perl-license)))
3127
3128 (define-public perl-io-html
3129   (package
3130     (name "perl-io-html")
3131     (version "1.00")
3132     (source (origin
3133              (method url-fetch)
3134              (uri (string-append
3135                    "mirror://cpan/authors/id/C/CJ/CJM/IO-HTML-"
3136                    version ".tar.gz"))
3137              (sha256
3138               (base32
3139                "06nj3a0xgp5jxwxx6ayglfk2v7npf5a7gwkqsjlkapjkybarzqh4"))))
3140     (build-system perl-build-system)
3141     (license license:perl-license)
3142     (synopsis "Perl module to open an HTML file with automatic charset detection")
3143     (description
3144      "IO::HTML provides an easy way to open a file containing HTML while
3145 automatically determining its encoding.  It uses the HTML5 encoding sniffing
3146 algorithm specified in section 8.2.2.1 of the draft standard.")
3147     (home-page "https://metacpan.org/release/IO-HTML")))
3148
3149 (define-public perl-io-socket-ip
3150   (package
3151     (name "perl-io-socket-ip")
3152     (version "0.39")
3153     (source
3154      (origin
3155        (method url-fetch)
3156        (uri (string-append "mirror://cpan/authors/id/P/PE/PEVANS/"
3157                            "IO-Socket-IP-" version ".tar.gz"))
3158        (sha256
3159         (base32
3160          "15kv5g1yb4a345sk3r5wfr99f868lhfqkddzsgpqddvccfkhv58i"))))
3161     (build-system perl-build-system)
3162     (native-inputs `(("perl-module-build" ,perl-module-build)))
3163     (home-page "https://metacpan.org/release/IO-Socket-IP")
3164     (synopsis "Family-neutral IP socket supporting both IPv4 and IPv6")
3165     (description "This module provides a protocol-independent way to use IPv4
3166 and IPv6 sockets, intended as a replacement for IO::Socket::INET.")
3167     (license license:perl-license)))
3168
3169 (define-public perl-io-socket-ssl
3170   (package
3171     (name "perl-io-socket-ssl")
3172     (version "2.066")
3173     (source (origin
3174               (method url-fetch)
3175               (uri (string-append "mirror://cpan/authors/id/S/SU/SULLR/"
3176                                   "IO-Socket-SSL-" version ".tar.gz"))
3177               (sha256
3178                (base32
3179                 "1kgbws7dwp2hh16qid7169dfkhmcwg7dz9ffbm6k0id5h53hciqd"))
3180               (patches (search-patches
3181                         "perl-io-socket-ssl-openssl-1.0.2f-fix.patch"))))
3182     (build-system perl-build-system)
3183     (propagated-inputs
3184      `(("perl-net-ssleay" ,perl-net-ssleay)
3185        ;; for IDN support
3186        ("perl-uri" ,perl-uri)))
3187     (synopsis "Nearly transparent SSL encapsulation for IO::Socket::INET")
3188     (description
3189      "IO::Socket::SSL makes using SSL/TLS much easier by wrapping the
3190 necessary functionality into the familiar IO::Socket interface and providing
3191 secure defaults whenever possible.  This way existing applications can be made
3192 SSL-aware without much effort, at least if you do blocking I/O and don't use
3193 select or poll.")
3194     (license license:perl-license)
3195     (home-page "https://github.com/noxxi/p5-io-socket-ssl")))
3196
3197 (define-public perl-libwww
3198   (package
3199     (name "perl-libwww")
3200     (version "6.39")
3201     (source (origin
3202              (method url-fetch)
3203              (uri (string-append
3204                    "mirror://cpan/authors/id/O/OA/OALDERS/libwww-perl-"
3205                    version ".tar.gz"))
3206              (sha256
3207               (base32
3208                "1mblfwz3g7vmyykmb0mcbmmad77rwx55fwaca9ymv9wajd3pg3cs"))))
3209     (build-system perl-build-system)
3210     (native-inputs
3211      `(("perl-test-fatal" ,perl-test-fatal)
3212        ("perl-test-needs" ,perl-test-needs)
3213        ("perl-test-requiresinternet" ,perl-test-requiresinternet)))
3214     (propagated-inputs
3215      `(("perl-encode-locale" ,perl-encode-locale)
3216        ("perl-file-listing" ,perl-file-listing)
3217        ("perl-html-parser" ,perl-html-parser)
3218        ("perl-http-cookies" ,perl-http-cookies)
3219        ("perl-http-daemon" ,perl-http-daemon)
3220        ("perl-http-date" ,perl-http-date)
3221        ("perl-http-message" ,perl-http-message)
3222        ("perl-http-negotiate" ,perl-http-negotiate)
3223        ("perl-net-http" ,perl-net-http)
3224        ("perl-try-tiny" ,perl-try-tiny)
3225        ("perl-uri" ,perl-uri)
3226        ("perl-www-robotrules" ,perl-www-robotrules)))
3227     (license license:perl-license)
3228     (synopsis "Perl modules for the WWW")
3229     (description
3230      "The libwww-perl collection is a set of Perl modules which provides a
3231 simple and consistent application programming interface to the
3232 World-Wide Web.  The main focus of the library is to provide classes
3233 and functions that allow you to write WWW clients.  The library also
3234 contains modules that are of more general use and even classes that
3235 help you implement simple HTTP servers.")
3236     (home-page "https://metacpan.org/release/libwww-perl")))
3237
3238 (define-public perl-lwp-online
3239   (package
3240     (name "perl-lwp-online")
3241     (version "1.08")
3242     (source
3243      (origin
3244        (method url-fetch)
3245        (uri (string-append
3246              "mirror://cpan/authors/id/A/AD/ADAMK/LWP-Online-"
3247              version ".tar.gz"))
3248        (sha256
3249         (base32
3250          "176f6vbk1018i0y7xj9d406ndbjgwzan2j9nihxnsahzg2vr2vz2"))))
3251     (build-system perl-build-system)
3252     (propagated-inputs
3253      `(("perl-libwww" ,perl-libwww)
3254        ("perl-uri" ,perl-uri)))
3255     (native-inputs
3256      `(("perl-module-install" ,perl-module-install)))
3257     (home-page "https://metacpan.org/release/LWP-Online")
3258     (synopsis "Checks whether your process has access to the web")
3259     (description "This module attempts to answer, as accurately as it can, one
3260 of the nastiest technical questions there is: am I on the internet?
3261
3262 A host of networking and security issues make this problem very difficult.
3263 There are firewalls, proxies (both well behaved and badly behaved).  We might
3264 not have DNS.  We might not have a network card at all!")
3265     (license license:perl-license)))
3266
3267 (define-public perl-lwp-mediatypes
3268   (package
3269     (name "perl-lwp-mediatypes")
3270     (version "6.02")
3271     (source (origin
3272              (method url-fetch)
3273              (uri (string-append
3274                    "mirror://cpan/authors/id/G/GA/GAAS/LWP-MediaTypes-"
3275                    version ".tar.gz"))
3276              (sha256
3277               (base32
3278                "0xmnblp962qy02akah30sji8bxrqcyqlff2w95l199ghql60ny8q"))))
3279     (build-system perl-build-system)
3280     (license license:perl-license)
3281     (synopsis "Perl module to guess the media type for a file or a URL")
3282     (description
3283      "The LWP::MediaTypes module provides functions for handling media (also
3284 known as MIME) types and encodings.  The mapping from file extensions to
3285 media types is defined by the media.types file.  If the ~/.media.types file
3286 exists it is used instead.")
3287     (home-page "https://metacpan.org/release/LWP-MediaTypes")))
3288
3289 (define-public perl-lwp-protocol-https
3290   (package
3291     (name "perl-lwp-protocol-https")
3292     (version "6.07")
3293     (source
3294      (origin
3295        (method url-fetch)
3296        (uri (string-append "mirror://cpan/authors/id/O/OA/OALDERS/"
3297                            "LWP-Protocol-https-" version ".tar.gz"))
3298        (sha256
3299         (base32
3300          "1rxrpwylfw1afah0nk96kgkwjbl2p1a7lwx50iipg8c4rx3cjb2j"))))
3301     (build-system perl-build-system)
3302     (native-inputs
3303      ;; For tests.
3304      `(("perl-test-requiresinternet" ,perl-test-requiresinternet)))
3305     (propagated-inputs
3306      `(("perl-io-socket-ssl" ,perl-io-socket-ssl)
3307        ("perl-libwww" ,perl-libwww)
3308        ;; Users should instead make sure SSL_ca_path is set properly.
3309        ;; ("perl-mozilla-ca" ,perl-mozilla-ca)
3310        ("perl-net-http" ,perl-net-http)))
3311     (home-page "https://metacpan.org/release/LWP-Protocol-https")
3312     (synopsis "HTTPS support for LWP::UserAgent")
3313     (description "The LWP::Protocol::https module provides support for using
3314 https schemed URLs with LWP.")
3315     (license license:perl-license)))
3316
3317 (define-public perl-lwp-useragent-determined
3318   (package
3319     (name "perl-lwp-useragent-determined")
3320     (version "1.07")
3321     (source
3322      (origin
3323        (method url-fetch)
3324        (uri (string-append "mirror://cpan/authors/id/A/AL/ALEXMV/"
3325                            "LWP-UserAgent-Determined-" version ".tar.gz"))
3326        (sha256
3327         (base32
3328          "0lyvbpjng7yfvyha9rp2y2c6liz5hhplmd2grc8jlsfkih7dbn06"))))
3329     (build-system perl-build-system)
3330     (propagated-inputs
3331      `(("perl-libwww" ,perl-libwww)))
3332     (home-page "https://metacpan.org/release/LWP-UserAgent-Determined")
3333     (synopsis "Virtual browser that retries errors")
3334     (description "LWP::UserAgent::Determined works just like LWP::UserAgent,
3335 except that when you use it to get a web page but run into a
3336 possibly-temporary error (like a DNS lookup timeout), it'll wait a few seconds
3337 and retry a few times.")
3338     (license license:perl-license)))
3339
3340 (define-public perl-net-amazon-s3
3341   (package
3342     (name "perl-net-amazon-s3")
3343     (version "0.60")
3344     (source
3345      (origin
3346        (method url-fetch)
3347        (uri (string-append "mirror://cpan/authors/id/P/PF/PFIG/"
3348                            "Net-Amazon-S3-" version ".tar.gz"))
3349        (sha256
3350         (base32
3351          "10dcsq4s2kc9cb1vccx17r187c81drirc3s1hbxh3rb8489kg2b2"))
3352        (patches (search-patches
3353                  "perl-net-amazon-s3-moose-warning.patch"))))
3354     (build-system perl-build-system)
3355     (native-inputs
3356      `(("perl-libwww" ,perl-libwww)
3357        ("perl-test-exception" ,perl-test-exception)))
3358     (propagated-inputs
3359      `(("perl-data-stream-bulk" ,perl-data-stream-bulk)
3360        ("perl-datetime-format-http" ,perl-datetime-format-http)
3361        ("perl-digest-hmac" ,perl-digest-hmac)
3362        ("perl-digest-md5-file" ,perl-digest-md5-file)
3363        ("perl-file-find-rule" ,perl-file-find-rule)
3364        ("perl-http-date" ,perl-http-date)
3365        ("perl-http-message" ,perl-http-message)
3366        ("perl-lwp-useragent-determined" ,perl-lwp-useragent-determined)
3367        ("perl-mime-types" ,perl-mime-types)
3368        ("perl-moose" ,perl-moose)
3369        ("perl-moosex-strictconstructor" ,perl-moosex-strictconstructor)
3370        ("perl-moosex-types-datetime-morecoercions"
3371         ,perl-moosex-types-datetime-morecoercions)
3372        ("perl-path-class" ,perl-path-class)
3373        ("perl-regexp-common" ,perl-regexp-common)
3374        ("perl-term-encoding" ,perl-term-encoding)
3375        ("perl-term-progressbar-simple" ,perl-term-progressbar-simple)
3376        ("perl-uri" ,perl-uri)
3377        ("perl-xml-libxml" ,perl-xml-libxml)))
3378     (home-page "https://metacpan.org/release/Net-Amazon-S3")
3379     (synopsis "Perl interface to Amazon S3")
3380     (description "This module provides a Perlish interface to Amazon S3.")
3381     (license license:perl-license)))
3382
3383 (define-public perl-net-http
3384   (package
3385     (name "perl-net-http")
3386     (version "6.19")
3387     (source (origin
3388              (method url-fetch)
3389              (uri (string-append
3390                    "mirror://cpan/authors/id/O/OA/OALDERS/"
3391                    "Net-HTTP-" version ".tar.gz"))
3392              (sha256
3393               (base32
3394                "1i1gbcwdzx74whn5vn6xbr2cp7frldfz2rfrcjp2qljr770nxdsj"))))
3395     (build-system perl-build-system)
3396     (propagated-inputs
3397      `(("perl-io-socket-ssl" ,perl-io-socket-ssl)
3398        ("perl-uri" ,perl-uri)))
3399     (license license:perl-license)
3400     (synopsis "Perl low-level HTTP connection (client)")
3401     (description
3402      "The Net::HTTP class is a low-level HTTP client.  An instance of the
3403 Net::HTTP class represents a connection to an HTTP server.  The HTTP protocol
3404 is described in RFC 2616.  The Net::HTTP class supports HTTP/1.0 and
3405 HTTP/1.1.")
3406     (home-page "https://metacpan.org/release/Net-HTTP")))
3407
3408 (define-public perl-net-server
3409   (package
3410     (name "perl-net-server")
3411     (version "2.009")
3412     (source
3413      (origin
3414        (method url-fetch)
3415        (uri (string-append "mirror://cpan/authors/id/R/RH/RHANDOM/"
3416                            "Net-Server-" version ".tar.gz"))
3417        (sha256
3418         (base32
3419          "0gw1k9gcw7habbkxvsfa2gz34brlbwcidk6khgsf1qjm0dbccrw2"))))
3420     (build-system perl-build-system)
3421     (home-page "https://metacpan.org/release/Net-Server")
3422     (synopsis "Extensible Perl server engine")
3423     (description "Net::Server is an extensible, generic Perl server engine.
3424 It attempts to be a generic server as in Net::Daemon and NetServer::Generic.
3425 It includes with it the ability to run as an inetd
3426 process (Net::Server::INET), a single connection server (Net::Server or
3427 Net::Server::Single), a forking server (Net::Server::Fork), a preforking
3428 server which maintains a constant number of preforked
3429 children (Net::Server::PreForkSimple), or as a managed preforking server which
3430 maintains the number of children based on server load (Net::Server::PreFork).
3431 In all but the inetd type, the server provides the ability to connect to one
3432 or to multiple server ports.")
3433     (license license:perl-license)))
3434
3435 (define-public perl-net-smtp-ssl
3436   (package
3437     (name "perl-net-smtp-ssl")
3438     (version "1.04")
3439     (source
3440      (origin
3441        (method url-fetch)
3442        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
3443                            "Net-SMTP-SSL-" version ".tar.gz"))
3444        (sha256
3445         (base32
3446          "001a6dcfahf7kkyirqkc8jd4fh4fkal7n7vm9c4dblqrvmdc8abv"))))
3447     (build-system perl-build-system)
3448     (propagated-inputs
3449      `(("perl-io-socket-ssl" ,perl-io-socket-ssl)))
3450     (home-page "https://metacpan.org/release/Net-SMTP-SSL")
3451     (synopsis "SSL support for Net::SMTP")
3452     (description "SSL support for Net::SMTP.")
3453     (license license:perl-license)))
3454
3455 (define-public perl-plack
3456   (package
3457     (name "perl-plack")
3458     (version "1.0033")
3459     (source
3460      (origin
3461        (method url-fetch)
3462        (uri (string-append "mirror://cpan/authors/id/M/MI/MIYAGAWA/"
3463                            "Plack-" version ".tar.gz"))
3464        (sha256
3465         (base32
3466          "081jg0xddzpg2anmqi9i6d7vs6c8z7k557bf8xl6vgb3h95pin5w"))))
3467     (build-system perl-build-system)
3468     (native-inputs
3469      `(("perl-test-requires" ,perl-test-requires)
3470        ("perl-file-sharedir-install" ,perl-file-sharedir-install)))
3471     (propagated-inputs
3472      `(("perl-apache-logformat-compiler" ,perl-apache-logformat-compiler)
3473        ("perl-devel-stacktrace" ,perl-devel-stacktrace)
3474        ("perl-devel-stacktrace-ashtml" ,perl-devel-stacktrace-ashtml)
3475        ("perl-file-sharedir" ,perl-file-sharedir)
3476        ("perl-hash-multivalue" ,perl-hash-multivalue)
3477        ("perl-http-body" ,perl-http-body)
3478        ("perl-http-message" ,perl-http-message)
3479        ("perl-http-tiny" ,perl-http-tiny)
3480        ("perl-libwww" ,perl-libwww)
3481        ("perl-stream-buffered" ,perl-stream-buffered)
3482        ("perl-test-tcp" ,perl-test-tcp)
3483        ("perl-try-tiny" ,perl-try-tiny)
3484        ("perl-uri" ,perl-uri)))
3485     (home-page "https://metacpan.org/release/Plack")
3486     (synopsis "Perl Superglue for Web frameworks and servers (PSGI toolkit)")
3487     (description "Plack is a set of tools for using the PSGI stack.  It
3488 contains middleware components, a reference server, and utilities for Web
3489 application frameworks.  Plack is like Ruby's Rack or Python's Paste for
3490 WSGI.")
3491     (license license:perl-license)))
3492
3493 (define-public perl-plack-middleware-deflater
3494   (package
3495     (name "perl-plack-middleware-deflater")
3496     (version "0.12")
3497     (source
3498      (origin
3499        (method url-fetch)
3500        (uri (string-append
3501              "mirror://cpan/authors/id/K/KA/KAZEBURO/"
3502              "Plack-Middleware-Deflater-" version ".tar.gz"))
3503        (sha256
3504         (base32
3505          "0xf2visi16hgwgyp9q0cjr10ikbn474hjia5mj8mb2scvbkrbni8"))))
3506     (build-system perl-build-system)
3507     (native-inputs
3508      `(("perl-module-install" ,perl-module-install)
3509        ("perl-test-requires" ,perl-test-requires)))
3510     (propagated-inputs
3511      `(("perl-plack" ,perl-plack)))
3512     (home-page "https://metacpan.org/release/Plack-Middleware-Deflater")
3513     (synopsis "Compress response body with Gzip or Deflate")
3514     (description
3515      "Plack::Middleware::Deflater is a middleware to encode your response body
3516 in gzip or deflate, based on \"Accept-Encoding\" HTTP request header.  It
3517 would save the bandwidth a little bit but should increase the Plack server
3518 load, so ideally you should handle this on the frontend reverse proxy
3519 servers.")
3520     (license license:perl-license)))
3521
3522 (define-public perl-plack-middleware-fixmissingbodyinredirect
3523   (package
3524     (name "perl-plack-middleware-fixmissingbodyinredirect")
3525     (version "0.12")
3526     (source
3527      (origin
3528        (method url-fetch)
3529        (uri (string-append "mirror://cpan/authors/id/S/SW/SWEETKID/"
3530                            "Plack-Middleware-FixMissingBodyInRedirect-"
3531                            version ".tar.gz"))
3532        (sha256
3533         (base32
3534          "14dkrmccq7a5vpymx5dv8032gfcvhsw2i6v5sh3c4ym5ymlx08kc"))))
3535     (build-system perl-build-system)
3536     (native-inputs
3537      `(("perl-html-parser" ,perl-html-parser) ;for HTML::Entities
3538        ("perl-http-message" ,perl-http-message)
3539        ("perl-plack" ,perl-plack)))     ;for Plack::Test
3540     (home-page
3541      "https://metacpan.org/release/Plack-Middleware-FixMissingBodyInRedirect")
3542     (synopsis "Plack::Middleware which sets body for redirect response")
3543     (description "This module sets the body in redirect response, if it's not
3544 already set.")
3545     (license license:perl-license)))
3546
3547 (define-public perl-plack-middleware-methodoverride
3548   (package
3549     (name "perl-plack-middleware-methodoverride")
3550     (version "0.20")
3551     (source
3552      (origin
3553        (method url-fetch)
3554        (uri (string-append "mirror://cpan/authors/id/M/MI/MIYAGAWA/"
3555                            "Plack-Middleware-MethodOverride-"
3556                            version ".tar.gz"))
3557        (sha256
3558         (base32 "1wdmmav3rbhv49zpw311zrxxqmg1fz3f3q9src0ypgs8zcp5myyv"))))
3559     (build-system perl-build-system)
3560     (native-inputs
3561      `(("perl-module-build" ,perl-module-build)))
3562     (propagated-inputs
3563      `(("perl-plack" ,perl-plack)))
3564     (home-page "https://metacpan.org/release/Plack-Middleware-MethodOverride")
3565     (synopsis "Override REST methods to Plack apps via POST")
3566     (description "This middleware allows for POST requests that pretend to be
3567 something else: by adding either a header named X-HTTP-Method-Override to the
3568 request, or a query parameter named x-tunneled-method to the URI, the client
3569 can say what method it actually meant.")
3570     (license license:perl-license)))
3571
3572 (define-public perl-plack-middleware-removeredundantbody
3573   (package
3574     (name "perl-plack-middleware-removeredundantbody")
3575     (version "0.07")
3576     (source
3577      (origin
3578        (method url-fetch)
3579        (uri (string-append "mirror://cpan/authors/id/S/SW/SWEETKID/"
3580                            "Plack-Middleware-RemoveRedundantBody-"
3581                            version ".tar.gz"))
3582        (sha256
3583         (base32 "1hz3kgb5vw4r02gfk9i911f5ykvz55lrsx45bdcllk2bszal3f34"))))
3584     (build-system perl-build-system)
3585     (propagated-inputs
3586      `(("perl-plack" ,perl-plack)))
3587     (home-page
3588      "https://metacpan.org/release/Plack-Middleware-RemoveRedundantBody")
3589     (synopsis "Plack::Middleware which removes body for HTTP response")
3590     (description "This module removes the body in an HTTP response if it's not
3591 required.")
3592     (license license:perl-license)))
3593
3594 (define-public perl-plack-middleware-reverseproxy
3595   (package
3596     (name "perl-plack-middleware-reverseproxy")
3597     (version "0.16")
3598     (source
3599      (origin
3600        (method url-fetch)
3601        (uri (string-append "mirror://cpan/authors/id/M/MI/MIYAGAWA/"
3602                            "Plack-Middleware-ReverseProxy-"
3603                            version ".tar.gz"))
3604        (sha256
3605         (base32 "0a512n62pnk5ayj3zdzyj50iy1qi8nwh6ygks2h7nrh7gp9k2jc7"))))
3606     (build-system perl-build-system)
3607     (native-inputs
3608      `(("perl-module-install" ,perl-module-install)))
3609     (propagated-inputs
3610      `(("perl-plack" ,perl-plack)))
3611     (home-page "https://metacpan.org/release/Plack-Middleware-ReverseProxy")
3612     (synopsis "Supports app to run as a reverse proxy backend")
3613     (description "Plack::Middleware::ReverseProxy resets some HTTP headers,
3614 which are changed by reverse-proxy.  You can specify the reverse proxy address
3615 and stop fake requests using @code{enable_if} directive in your app.psgi.")
3616     (license license:perl-license)))
3617
3618 (define-public perl-plack-test-externalserver
3619   (package
3620     (name "perl-plack-test-externalserver")
3621     (version "0.02")
3622     (source
3623      (origin
3624        (method url-fetch)
3625        (uri (string-append "mirror://cpan/authors/id/E/ET/ETHER/"
3626                            "Plack-Test-ExternalServer-" version ".tar.gz"))
3627        (sha256
3628         (base32 "1l1yj1l25679x7cbpd27ii7s1f1ajpkspif9xqnl21hczrbmrbsv"))))
3629     (build-system perl-build-system)
3630     (propagated-inputs
3631      `(("perl-plack" ,perl-plack)))
3632     (home-page "https://metacpan.org/release/Plack-Test-ExternalServer")
3633     (synopsis "Run HTTP tests on external live servers")
3634     (description "This module allows your to run your Plack::Test tests
3635 against an external server instead of just against a local application through
3636 either mocked HTTP or a locally spawned server.")
3637     (license license:perl-license)))
3638
3639 (define-public perl-test-tcp
3640   (package
3641     (name "perl-test-tcp")
3642     (version "2.21")
3643     (source
3644      (origin
3645        (method url-fetch)
3646        (uri (string-append "mirror://cpan/authors/id/K/KA/KAZUHO/"
3647                            "Test-TCP-" version ".tar.gz"))
3648        (sha256
3649         (base32 "1djnaw1yli0kcd7azchqnp59l62f6mp13q50xyrjirpaxhd51j32"))))
3650     (build-system perl-build-system)
3651     (propagated-inputs
3652      `(("perl-test-sharedfork" ,perl-test-sharedfork)))
3653     (arguments `(#:tests? #f))          ;related to signaling in t/05_sigint.t
3654     (home-page "https://metacpan.org/release/Test-TCP")
3655     (synopsis "Testing TCP programs")
3656     (description "Test::TCP is test utilities for TCP/IP programs.")
3657     (license license:perl-license)))
3658
3659 (define-public perl-test-www-mechanize
3660   (package
3661     (name "perl-test-www-mechanize")
3662     (version "1.52")
3663     (source
3664      (origin
3665        (method url-fetch)
3666        (uri (string-append "mirror://cpan/authors/id/P/PE/PETDANCE/"
3667                            "Test-WWW-Mechanize-" version ".tar.gz"))
3668        (sha256
3669         (base32 "1jsywlbxhqw39ij7s8vmgff5vys58vlfaq27072awacnxc65aal4"))))
3670     (build-system perl-build-system)
3671     (propagated-inputs
3672      `(("perl-carp-assert-more" ,perl-carp-assert-more)
3673        ("perl-html-form" ,perl-html-form)
3674        ("perl-html-lint" ,perl-html-lint)
3675        ("perl-http-server-simple" ,perl-http-server-simple)
3676        ("perl-libwww" ,perl-libwww)
3677        ("perl-test-longstring" ,perl-test-longstring)
3678        ("perl-www-mechanize" ,perl-www-mechanize)))
3679     (home-page "https://metacpan.org/release/Test-WWW-Mechanize")
3680     (synopsis "Testing-specific WWW::Mechanize subclass")
3681     (description "Test::WWW::Mechanize is a subclass of the Perl module
3682 WWW::Mechanize that incorporates features for web application testing.")
3683     (license license:artistic2.0)))
3684
3685 (define-public perl-test-www-mechanize-catalyst
3686   (package
3687     (name "perl-test-www-mechanize-catalyst")
3688     (version "0.62")
3689     (source
3690      (origin
3691        (method url-fetch)
3692        (uri (string-append "mirror://cpan/authors/id/M/MS/MSTROUT/"
3693                            "Test-WWW-Mechanize-Catalyst-" version ".tar.gz"))
3694        (sha256
3695         (base32 "1cdc2q16vs6fb335pzaislz2rx1ph9acaxyp7v5hv9xbwwddwfqq"))))
3696     (build-system perl-build-system)
3697     (native-inputs
3698      `(("perl-catalyst-plugin-session" ,perl-catalyst-plugin-session)
3699        ("perl-catalyst-plugin-session-state-cookie"
3700         ,perl-catalyst-plugin-session-state-cookie)
3701        ("perl-module-install" ,perl-module-install)
3702        ("perl-test-exception" ,perl-test-exception)
3703        ("perl-test-pod" ,perl-test-pod)
3704        ("perl-test-utf8" ,perl-test-utf8)))
3705     (propagated-inputs
3706      `(("perl-catalyst-runtime" ,perl-catalyst-runtime)
3707        ("perl-class-load" ,perl-class-load)
3708        ("perl-libwww" ,perl-libwww)
3709        ("perl-moose" ,perl-moose)
3710        ("perl-namespace-clean" ,perl-namespace-clean)
3711        ("perl-test-www-mechanize" ,perl-test-www-mechanize)
3712        ("perl-www-mechanize" ,perl-www-mechanize)))
3713     (home-page "https://metacpan.org/release/Test-WWW-Mechanize-Catalyst")
3714     (synopsis "Test::WWW::Mechanize for Catalyst")
3715     (description "The Test::WWW::Mechanize::Catalyst module meshes the
3716 Test::WWW:Mechanize module and the Catalyst web application framework to allow
3717 testing of Catalyst applications without needing to start up a web server.")
3718     (license license:perl-license)))
3719
3720 (define-public perl-test-www-mechanize-psgi
3721   (package
3722     (name "perl-test-www-mechanize-psgi")
3723     (version "0.38")
3724     (source
3725      (origin
3726        (method url-fetch)
3727        (uri (string-append "mirror://cpan/authors/id/O/OA/OALDERS/"
3728                            "Test-WWW-Mechanize-PSGI-" version ".tar.gz"))
3729        (sha256
3730         (base32
3731          "0fsh2i05kf1kfavv2r9kmnjl7qlyqrd11ikc0qcqzzxsqzzjkg9r"))))
3732     (build-system perl-build-system)
3733     (native-inputs
3734      `(("perl-test-pod" ,perl-test-pod)))
3735     (propagated-inputs
3736      `(("perl-plack" ,perl-plack)
3737        ("perl-test-www-mechanize" ,perl-test-www-mechanize)))
3738     (home-page "https://metacpan.org/release/Test-WWW-Mechanize-PSGI")
3739     (synopsis "Test PSGI programs using WWW::Mechanize")
3740     (description "PSGI is a specification to decouple web server environments
3741 from web application framework code.  Test::WWW::Mechanize is a subclass of
3742 WWW::Mechanize that incorporates features for web application testing.  The
3743 Test::WWW::Mechanize::PSGI module meshes the two to allow easy testing of PSGI
3744 applications.")
3745     (license license:perl-license)))
3746
3747 (define-public perl-uri
3748   (package
3749     (name "perl-uri")
3750     (version "1.76")
3751     (source (origin
3752              (method url-fetch)
3753              (uri (string-append "mirror://cpan/authors/id/O/OA/OALDERS/"
3754                                  "URI-" version ".tar.gz"))
3755              (sha256
3756               (base32
3757                "0gj1aj18k43kmzc3y1zhj5giinf8rksacf757r475xfna0fqxjdj"))))
3758     (build-system perl-build-system)
3759     (native-inputs
3760      ;; For tests.
3761      `(("perl-test-needs" ,perl-test-needs)))
3762     (license license:perl-license)
3763     (synopsis "Perl Uniform Resource Identifiers (absolute and relative)")
3764     (description
3765      "The URI module implements the URI class.  Objects of this class
3766 represent \"Uniform Resource Identifier references\" as specified in RFC 2396
3767 and updated by RFC 2732.")
3768     (home-page "https://metacpan.org/release/URI")))
3769
3770 (define-public perl-uri-fetch
3771   (package
3772     (name "perl-uri-fetch")
3773     (version "0.13")
3774     (source (origin
3775               (method url-fetch)
3776               (uri (string-append "mirror://cpan/authors/id/N/NE/NEILB/"
3777                                   "URI-Fetch-" version ".tar.gz"))
3778               (sha256
3779                (base32
3780                 "0rw6xiqm70s218aii9id3hf8j3pz6n22xnwd8v9m1ff2bnh63c0d"))))
3781     (build-system perl-build-system)
3782     (arguments
3783      `(#:tests? #f)) ; Tests require internet connection to succeed
3784     (inputs
3785      `(("perl-class-errorhandler" ,perl-class-errorhandler)
3786        ("perl-libwww" ,perl-libwww)
3787        ("perl-uri" ,perl-uri)))
3788     (home-page "https://metacpan.org/release/URI-Fetch")
3789     (synopsis "Smart URI fetching/caching")
3790     (description "@code{URI::Fetch} is a smart client for fetching HTTP pages,
3791 notably syndication feeds (RSS, Atom, and others), in an intelligent, bandwidth-
3792 and time-saving way.")
3793     (license license:perl-license)))
3794
3795 (define-public perl-uri-find
3796   (package
3797     (name "perl-uri-find")
3798     (version "20160806")
3799     (source
3800      (origin
3801        (method url-fetch)
3802        (uri (string-append "mirror://cpan/authors/id/M/MS/MSCHWERN/"
3803                            "URI-Find-" version ".tar.gz"))
3804        (sha256
3805         (base32
3806          "1mk3jv8x0mcq3ajrn9garnxd0jc7sw4pkwqi88r5apqvlljs84z2"))))
3807     (build-system perl-build-system)
3808     (native-inputs
3809      `(("perl-module-build" ,perl-module-build)))
3810     (propagated-inputs
3811      `(("perl-uri" ,perl-uri)))
3812     (home-page "https://metacpan.org/release/URI-Find")
3813     (synopsis "Find URIs in arbitrary text")
3814     (description "This module finds URIs and URLs (according to what URI.pm
3815 considers a URI) in plain text.  It only finds URIs which include a
3816 scheme (http:// or the like), for something a bit less strict, consider
3817 URI::Find::Schemeless.  For a command-line interface, urifind is provided.")
3818     (license license:perl-license)))
3819
3820 (define-public perl-uri-ws
3821   (package
3822     (name "perl-uri-ws")
3823     (version "0.03")
3824     (source
3825      (origin
3826        (method url-fetch)
3827        (uri (string-append "mirror://cpan/authors/id/P/PL/PLICEASE/"
3828                            "URI-ws-" version ".tar.gz"))
3829        (sha256
3830         (base32
3831          "1vs1wm80sq685944g1l4a0fxcbccc00c0f9648yabdmcf90hwsvf"))))
3832     (build-system perl-build-system)
3833     (propagated-inputs
3834      `(("perl-uri" ,perl-uri)))
3835     (home-page "https://metacpan.org/release/URI-ws")
3836     (synopsis "WebSocket support for URI package")
3837     (description "With this module, the URI package provides the same set of
3838 methods for WebSocket URIs as it does for HTTP URIs.")
3839     (license license:perl-license)))
3840
3841 (define-public perl-uri-template
3842   (package
3843     (name "perl-uri-template")
3844     (version "0.24")
3845     (source (origin
3846               (method url-fetch)
3847               (uri (string-append "mirror://cpan/authors/id/B/BR/BRICAS/URI-Template-"
3848                                   version ".tar.gz"))
3849               (sha256
3850                (base32
3851                 "1phibcmam2hklrddzj79l43va1gcqpyszbw21ynxq53ynmhjvbk8"))))
3852     (build-system perl-build-system)
3853     (inputs
3854      `(("perl-uri" ,perl-uri)))
3855     (native-inputs
3856      `(("perl-test-pod-coverage" ,perl-test-pod-coverage)
3857        ("perl-test-pod" ,perl-test-pod)
3858        ("perl-module-install" ,perl-module-install)
3859        ("perl-json" ,perl-json)))
3860     (home-page "https://metacpan.org/release/URI-Template")
3861     (synopsis "Object for handling URI templates")
3862     (description "This perl module provides a wrapper around URI templates as described in
3863 RFC 6570.")
3864     (license license:perl-license)))
3865
3866 (define-public perl-www-curl
3867   (package
3868     (name "perl-www-curl")
3869     (version "4.17")
3870     (source (origin
3871               (method url-fetch)
3872               (uri (string-append
3873                     "mirror://cpan/authors/id/S/SZ/SZBALINT/WWW-Curl-"
3874                     version".tar.gz"))
3875               (patches (search-patches "perl-www-curl-remove-symbol.patch"))
3876               (sha256
3877                (base32
3878                 "1fmp9aib1kaps9vhs4dwxn7b15kgnlz9f714bxvqsd1j1q8spzsj"))))
3879     (build-system perl-build-system)
3880     (arguments
3881      '(#:tests? #f                          ;XXX: tests require network access
3882
3883        #:phases (modify-phases %standard-phases
3884                    (add-before 'configure 'set-search-path
3885                      (lambda _
3886                        ;; Work around "dotless @INC" build failure.
3887                        (setenv "PERL5LIB"
3888                                (string-append (getcwd) ":"
3889                                               (getenv "PERL5LIB")))
3890                        #t)))))
3891     (native-inputs
3892      `(("perl-module-install" ,perl-module-install)))
3893     (inputs `(("curl" ,curl)))
3894     (synopsis "Perl extension interface for libcurl")
3895     (description
3896      "This is a Perl extension interface for the libcurl file downloading
3897 library.")
3898     (license license:perl-license)
3899     (home-page "https://metacpan.org/release/WWW-Curl")))
3900
3901 (define-public perl-www-mechanize
3902   (package
3903     (name "perl-www-mechanize")
3904     (version "1.91")
3905     (source
3906      (origin
3907        (method url-fetch)
3908        (uri (string-append "mirror://cpan/authors/id/O/OA/OALDERS/"
3909                            "WWW-Mechanize-" version ".tar.gz"))
3910        (sha256
3911         (base32 "0cb14m1vhaf0mgn2fqwi5hm72xhfi77hpq2g57swgy0w83x7m27b"))))
3912     (build-system perl-build-system)
3913     (native-inputs                      ;only for tests
3914      `(("perl-cgi" ,perl-cgi)
3915        ("perl-test-deep" ,perl-test-deep)
3916        ("perl-test-fatal" ,perl-test-fatal)
3917        ("perl-test-output" ,perl-test-output)
3918        ("perl-test-warnings" ,perl-test-warnings)))
3919     (propagated-inputs
3920      `(("perl-html-form" ,perl-html-form)
3921        ("perl-html-parser" ,perl-html-parser)
3922        ("perl-html-tree" ,perl-html-tree)
3923        ("perl-http-message" ,perl-http-message)
3924        ("perl-http-server-simple" ,perl-http-server-simple)
3925        ("perl-libwww" ,perl-libwww)
3926        ("perl-test-warn" ,perl-test-warn)
3927        ("perl-uri" ,perl-uri)))
3928     (home-page "https://metacpan.org/release/WWW-Mechanize")
3929     (synopsis "Web browsing in a Perl object")
3930     (description "WWW::Mechanize is a Perl module for stateful programmatic
3931 web browsing, used for automating interaction with websites.")
3932     (license license:perl-license)))
3933
3934 (define-public perl-www-opensearch
3935   (package
3936     (name "perl-www-opensearch")
3937     (version "0.17")
3938     (source (origin
3939               (method url-fetch)
3940               (uri (string-append "mirror://cpan/authors/id/B/BR/BRICAS/"
3941                                   "WWW-OpenSearch-" version ".tar.gz"))
3942               (sha256
3943                (base32
3944                 "1yxplx1q1qk2fvnzqrbk01lz26fy1lyhay51a3ky7q3jgh9p01rb"))))
3945     (build-system perl-build-system)
3946     (native-inputs
3947      `(("perl-class-errorhandler" ,perl-class-errorhandler)
3948        ("perl-datetime" ,perl-datetime)
3949        ("perl-datetime-format-mail" ,perl-datetime-format-mail)
3950        ("perl-datetime-format-w3cdtf" ,perl-datetime-format-w3cdtf)
3951        ("perl-feed-find" ,perl-feed-find)
3952        ("perl-module-install" ,perl-module-install)
3953        ("perl-module-pluggable" ,perl-module-pluggable)
3954        ("perl-uri-fetch" ,perl-uri-fetch)
3955        ("perl-test-simple" ,perl-test-simple)
3956        ("perl-xml-atom" ,perl-xml-atom)
3957        ("perl-xml-rss" ,perl-xml-rss)))
3958     (inputs
3959      `(("perl-data-page" ,perl-data-page)
3960        ("perl-libwww" ,perl-libwww)
3961        ("perl-uri" ,perl-uri)
3962        ("perl-uri-template" ,perl-uri-template)
3963        ("perl-xml-feed" ,perl-xml-feed)
3964        ("perl-xml-libxml" ,perl-xml-libxml)))
3965     (home-page "https://metacpan.org/release/WWW-OpenSearch")
3966     (synopsis "Search A9 OpenSearch compatible engines")
3967     (description
3968      "@code{WWW::OpenSearch} is a module to search @url{A9's OpenSearch,
3969 http://opensearch.a9.com} compatible search engines.")
3970     (license license:perl-license)))
3971
3972 (define-public perl-www-robotrules
3973   (package
3974     (name "perl-www-robotrules")
3975     (version "6.02")
3976     (source (origin
3977              (method url-fetch)
3978              (uri (string-append
3979                    "mirror://cpan/authors/id/G/GA/GAAS/WWW-RobotRules-"
3980                    version ".tar.gz"))
3981              (sha256
3982               (base32
3983                "07m50dp5n5jxv3m93i55qvnd67a6g7cvbvlik115kmc8lbkh5da6"))))
3984     (build-system perl-build-system)
3985     (propagated-inputs
3986      `(("perl-uri" ,perl-uri)))
3987     (license license:perl-license)
3988     (synopsis "Perl database of robots.txt-derived permissions")
3989     (description
3990      "The WWW::RobotRules module parses /robots.txt files as specified in
3991 \"A Standard for Robot Exclusion\", at
3992 <http://www.robotstxt.org/wc/norobots.html>.  Webmasters can use the
3993 /robots.txt file to forbid conforming robots from accessing parts of
3994 their web site.")
3995     (home-page "https://metacpan.org/release/WWW-RobotRules")))
3996
3997 (define-public python-feedparser
3998   (package
3999     (name "python-feedparser")
4000     (version "5.2.1")
4001     (source
4002      (origin
4003        (method url-fetch)
4004        (uri (pypi-uri "feedparser" version ".tar.bz2"))
4005        (sha256
4006         (base32
4007          "00hb4qg2am06g81mygfi1jsbx8830024jm45g6qp9g8fr6am91yf"))))
4008     (build-system python-build-system)
4009     (arguments
4010      '(#:tests? #f))
4011     (home-page
4012      "https://github.com/kurtmckee/feedparser")
4013     (synopsis "Parse feeds in Python")
4014     (description
4015      "Universal feed parser which handles RSS 0.9x, RSS 1.0, RSS 2.0,
4016 CDF, Atom 0.3, and Atom 1.0 feeds.")
4017     (license (list license:bsd-2 ; source code
4018                    license:freebsd-doc)))) ; documentation
4019
4020 (define-public python2-feedparser
4021   (package-with-python2 python-feedparser))
4022
4023 (define-public guix-data-service
4024   (let ((commit "8019d2e6878908f40cb6b047f60d2e4fd3c6712e")
4025         (revision "3"))
4026     (package
4027       (name "guix-data-service")
4028       (version (string-append "0.0.1-" revision "." (string-take commit 7)))
4029       (source (origin
4030                 (method git-fetch)
4031                 (uri (git-reference
4032                       (url "https://git.savannah.gnu.org/git/guix/data-service.git")
4033                       (commit commit)))
4034                 (file-name (git-file-name name version))
4035                 (sha256
4036                  (base32
4037                   "06xv43az1aklrdb5y0if17xdqc80qnfdlyjiww8zmv4m3qnvj607"))))
4038       (build-system gnu-build-system)
4039       (arguments
4040        '(#:tests? #f                    ; TODO Tests require PostgreSQL
4041          #:modules ((guix build utils)
4042                     (guix build gnu-build-system)
4043                     (ice-9 rdelim)
4044                     (ice-9 popen))
4045          #:phases
4046          (modify-phases %standard-phases
4047            (add-after 'set-paths 'set-GUIX_ENVIRONMENT
4048              (lambda* (#:key inputs #:allow-other-keys)
4049                ;; This means guix.el finds the Emacs modules
4050                (setenv "GUIX_ENVIRONMENT"
4051                        (assoc-ref inputs "emacs-with-modules"))
4052                #t))
4053            (add-before 'build 'set-GUILE_AUTO_COMPILE
4054              (lambda _
4055                ;; To avoid errors relating to guild
4056                (setenv "GUILE_AUTO_COMPILE" "0")
4057                #t))
4058            (add-after 'install 'wrap-executable
4059              (lambda* (#:key inputs outputs #:allow-other-keys)
4060                (let* ((out (assoc-ref outputs "out"))
4061                       (bin (string-append out "/bin"))
4062                       (guile (assoc-ref inputs "guile"))
4063                       (guile-effective-version
4064                        (read-line
4065                         (open-pipe* OPEN_READ
4066                                     (string-append guile "/bin/guile")
4067                                     "-c" "(display (effective-version))")))
4068                       (scm (string-append out "/share/guile/site/"
4069                                           guile-effective-version))
4070                       (go  (string-append out "/lib/guile/"
4071                                           guile-effective-version
4072                                           "/site-ccache")))
4073                  (for-each
4074                   (lambda (file)
4075                     (wrap-program (string-append bin "/" file)
4076                       `("PATH" ":" prefix
4077                         (,bin))
4078                       `("GUILE_LOAD_PATH" ":" prefix
4079                         (,scm ,(getenv "GUILE_LOAD_PATH")))
4080                       `("GUILE_LOAD_COMPILED_PATH" ":" prefix
4081                         (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))
4082                   '("guix-data-service"
4083                     "guix-data-service-process-branch-updated-email"
4084                     "guix-data-service-process-branch-updated-mbox"
4085                     "guix-data-service-process-job"
4086                     "guix-data-service-process-jobs"
4087                     "guix-data-service-query-build-servers"))
4088                  #t)))
4089            (delete 'strip))))           ; As the .go files aren't compatible
4090       (inputs
4091        `(("guix" ,guix)
4092          ("guile-fibers" ,guile-fibers)
4093          ("guile-json" ,guile-json-3)
4094          ("guile-email" ,guile-email)
4095          ("guile-squee" ,guile-squee)
4096          ("postgresql" ,postgresql)
4097          ("sqitch" ,sqitch)))
4098       (native-inputs
4099        `(("guile" ,guile-2.2)
4100          ("autoconf" ,autoconf)
4101          ("automake" ,automake)
4102          ("emacs-with-modules" ,(directory-union
4103                                  "emacs-union"
4104                                  (list emacs-no-x
4105                                        emacs-htmlize)))
4106          ("pkg-config" ,pkg-config)))
4107       (synopsis "Store and provide data about GNU Guix")
4108       (description
4109        "The Guix Data Service stores data about GNU Guix, and provides this
4110 through a web interface.  It supports listening to the guix-commits mailing
4111 list to find out about new revisions, then loads the data from these in to a
4112 PostgreSQL database.")
4113       (home-page "http://data.guix.gnu.org/")
4114       (license license:agpl3+))))
4115
4116 (define-public gumbo-parser
4117   (package
4118     (name "gumbo-parser")
4119     (version "0.10.1")
4120     (source (origin
4121               (method url-fetch)
4122               (uri (string-append "https://github.com/google/"
4123                                   "gumbo-parser/archive/v" version ".tar.gz"))
4124               (file-name (string-append name "-" version ".tar.gz"))
4125               (sha256
4126                (base32
4127                 "1bgg2kbj311pqdzw2v33za7k66g1rv44kkvvnz2gnpaasi9k0ii8"))))
4128     (build-system gnu-build-system)
4129     (arguments
4130      `(#:tests? #f))         ;tests require bundling googletest sources
4131     ;; The release tarball lacks the generated files.
4132     (native-inputs
4133      `(("autoconf" ,autoconf)
4134        ("automake" ,automake)
4135        ("libtool" ,libtool)))
4136     (home-page "https://github.com/google/gumbo-parser")
4137     (synopsis "HTML5 parsing library")
4138     (description
4139      "Gumbo is an implementation of the HTML5 parsing algorithm implemented as
4140 a pure C99 library.")
4141     (license license:asl2.0)))
4142
4143 (define-public uwsgi
4144   (package
4145     (name "uwsgi")
4146     (version "2.0.18")
4147     (source (origin
4148               (method url-fetch)
4149               (uri (string-append "https://projects.unbit.it/downloads/uwsgi-"
4150                                   version ".tar.gz"))
4151               (sha256
4152                (base32
4153                 "10zmk4npknigmbqcq1wmhd461dk93159px172112vyq0i19sqwj9"))))
4154     (build-system gnu-build-system)
4155     (outputs '("out" "python"))
4156     (arguments
4157      '(;; XXX: The 'check' target runs cppcheck to do static code analysis.
4158        ;;      But there is no obvious way to run the real tests.
4159        #:tests? #f
4160        #:phases
4161        (modify-phases %standard-phases
4162          (replace 'configure
4163            ;; Configuration is done by writing an ini file.
4164            (lambda* (#:key outputs #:allow-other-keys)
4165              (let* ((out       (assoc-ref outputs "out"))
4166                     (bindir    (string-append out "/bin"))
4167                     (plugindir (string-append out "/lib/uwsgi")))
4168                ;; The build phase outputs files to these directories directly.
4169                (mkdir-p bindir)
4170                (mkdir-p plugindir)
4171                ;; XXX: Enable other plugins.
4172                (call-with-output-file "buildconf/guix.ini"
4173                  (lambda (port)
4174                    (format port "[uwsgi]
4175 yaml = libyaml
4176 bin_name = ~a/uwsgi
4177 plugin_dir = ~a
4178
4179 inherit = base
4180 plugins = cgi,python
4181 embedded_plugins =
4182 " bindir plugindir))))
4183              (setenv "PROFILE" "guix")
4184              #t))
4185          (replace 'install
4186            ;; Move plugins into their own output.
4187            (lambda* (#:key outputs #:allow-other-keys)
4188              (let* ((out           (assoc-ref outputs "out"))
4189                     (plugindir     (string-append out "/lib/uwsgi"))
4190                     (python-plugin (string-append
4191                                     plugindir "/python_plugin.so")))
4192                (install-file python-plugin
4193                              (string-append
4194                               (assoc-ref outputs "python") "/lib/uwsgi"))
4195                (delete-file python-plugin)
4196                #t))))))
4197     (native-inputs
4198      `(("pkg-config" ,pkg-config)
4199        ("python" ,python-wrapper)))
4200     (inputs
4201      `(("jansson" ,jansson)
4202        ("libxml2" ,libxml2)
4203        ("libyaml" ,libyaml)
4204        ("openssl" ,openssl)
4205        ("pcre" ,pcre)
4206        ("zlib" ,zlib)
4207        ;; For plugins.
4208        ("python" ,python)))
4209     (home-page "https://uwsgi-docs.readthedocs.org/")
4210     (synopsis "Application container server")
4211     (description
4212      "uWSGI presents a complete stack for networked/clustered web applications,
4213 implementing message/object passing, caching, RPC and process management.
4214 It uses the uwsgi protocol for all the networking/interprocess communications.")
4215     (license license:gpl2+))) ; with linking exception
4216
4217 (define-public jq
4218   (package
4219     (name "jq")
4220     (version "1.6")
4221     (source
4222      (origin
4223        (method url-fetch)
4224        (uri (string-append "https://github.com/stedolan/jq"
4225                            "/releases/download/jq-" version
4226                            "/jq-" version ".tar.gz"))
4227        (sha256
4228         (base32 "0wmapfskhzfwranf6515nzmm84r7kwljgfs7dg6bjgxakbicis2x"))
4229        (modules '((guix build utils)))
4230        (snippet
4231         '(begin
4232            ;; Remove bundled onigurama.
4233            (delete-file-recursively "modules")
4234            #t))))
4235     (inputs
4236      `(("oniguruma" ,oniguruma)))
4237     (native-inputs
4238      `(;; TODO fix gems to generate documentation
4239        ;;("ruby" ,ruby)
4240        ;;("bundler" ,bundler)
4241        ("valgrind" ,valgrind)))
4242     (build-system gnu-build-system)
4243     (home-page "http://stedolan.github.io/jq/")
4244     (synopsis "Command-line JSON processor")
4245     (description "jq is like sed for JSON data – you can use it to slice and
4246 filter and map and transform structured data with the same ease that sed, awk,
4247 grep and friends let you play with text.  It is written in portable C.  jq can
4248 mangle the data format that you have into the one that you want with very
4249 little effort, and the program to do so is often shorter and simpler than
4250 you'd expect.")
4251     (license (list license:expat license:cc-by3.0))))
4252
4253 (define-public uhttpmock
4254   (package
4255     (name "uhttpmock")
4256     (version "0.5.1")
4257     (source
4258      (origin
4259        (method url-fetch)
4260        (uri (string-append "http://tecnocode.co.uk/downloads/uhttpmock/"
4261                            name "-" version ".tar.xz"))
4262        (sha256
4263         (base32
4264          "163py4klka423x7li2b685gmg3a6hjf074mlff2ajhmi3l0lm8x6"))))
4265     (build-system glib-or-gtk-build-system)
4266     (native-inputs
4267      `(("gobject-introspection" ,gobject-introspection)
4268        ;; For check phase.
4269        ("glib-networking" ,glib-networking)
4270        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4271        ("pkg-config" ,pkg-config)))
4272     (inputs
4273      `(("libsoup" ,libsoup)))
4274     (home-page "https://gitlab.com/groups/uhttpmock")
4275     (synopsis "Library for mocking web service APIs which use HTTP or HTTPS")
4276     (description
4277      "Uhttpmock is a project for mocking web service APIs which use HTTP or
4278 HTTPS.  It provides a library, libuhttpmock, which implements recording and
4279 playback of HTTP request/response traces.")
4280     (license license:lgpl2.1+)))
4281
4282 (define-public woof
4283   (package
4284     (name "woof")
4285     (version "2012-05-31")
4286     (source (origin
4287               (method url-fetch)
4288               (uri (string-append
4289                     "http://www.home.unix-ag.org/simon/woof-"
4290                     version ".py"))
4291               (sha256
4292                (base32
4293                 "0wjmjhpg6xlid33yi59j47q2qadz20sijrqsjahj30vngz856hyq"))))
4294     (build-system trivial-build-system)
4295     (arguments
4296      '(#:modules ((guix build utils))
4297        #:builder
4298        (begin
4299          (use-modules (guix build utils))
4300          (let* ((source (assoc-ref %build-inputs "source"))
4301                 (out    (assoc-ref %outputs "out"))
4302                 (bin    (string-append out "/bin"))
4303                 (python (assoc-ref %build-inputs "python")))
4304            (mkdir-p bin)
4305            (with-directory-excursion bin
4306              (copy-file source "woof")
4307              (patch-shebang "woof" (list (string-append python "/bin")))
4308              (chmod "woof" #o555))
4309            #t))))
4310     (inputs `(("python" ,python-2)))
4311     (home-page "http://www.home.unix-ag.org/simon/woof.html")
4312     (synopsis "Single file web server")
4313     (description "Woof (Web Offer One File) is a small simple web server that
4314 can easily be invoked on a single file.  Your partner can access the file with
4315 tools they trust (e.g. wget).")
4316     (license license:gpl2+)))
4317
4318 (define netsurf-buildsystem
4319   (package
4320     (name "netsurf-buildsystem")
4321     (version "1.7")
4322     (source
4323      (origin
4324        (method url-fetch)
4325        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4326                            "buildsystem-" version ".tar.gz"))
4327        (sha256
4328         (base32
4329          "1q23aaycv35ma5471l1gxib8lfq2s9kprrkaqgfc926d04rlbmhw"))))
4330     (build-system gnu-build-system)
4331     (inputs `(("perl" ,perl)))
4332     (arguments
4333      '(#:make-flags (list (string-append "PREFIX=" %output))
4334        #:tests? #f                      ;no tests
4335        #:phases (modify-phases %standard-phases
4336                   (delete 'configure)
4337                   (delete 'build))))
4338     (home-page "http://www.netsurf-browser.org")
4339     (synopsis "Build system for the Netsurf project")
4340     (description
4341      "This package provides the shared build system for Netsurf project
4342 libraries.")
4343     (license license:expat)))
4344
4345 (define netsurf-buildsystem-arguments
4346   `(#:make-flags `("COMPONENT_TYPE=lib-shared"
4347                    "CC=gcc" "BUILD_CC=gcc"
4348                    ,(string-append "PREFIX=" %output)
4349                    ,(string-append "NSSHARED="
4350                                    (assoc-ref %build-inputs
4351                                               "netsurf-buildsystem")
4352                                    "/share/netsurf-buildsystem"))
4353     #:test-target "test"
4354     #:phases (modify-phases %standard-phases
4355                (delete 'configure))))
4356
4357 (define-public libparserutils
4358   (package
4359     (name "libparserutils")
4360     (version "0.2.4")
4361     (source
4362      (origin
4363        (method url-fetch)
4364        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4365                            name "-" version "-src.tar.gz"))
4366        (sha256
4367         (base32
4368          "1n2794y2l0c8nv8z2pxwfnbn882987ifmxjv60zdxkhcndhswarj"))))
4369     (build-system gnu-build-system)
4370     (native-inputs
4371      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4372        ("pkg-config" ,pkg-config)
4373        ("perl" ,perl)))                 ;for test harness
4374     (arguments netsurf-buildsystem-arguments)
4375     (home-page "http://www.netsurf-browser.org/projects/libparserutils/")
4376     (synopsis "Parser building library")
4377     (description
4378      "LibParserUtils is a library for building efficient parsers, written in
4379 C.  It is developed as part of the NetSurf project.")
4380     (license license:expat)))
4381
4382 (define-public hubbub
4383   (package
4384     (name "hubbub")
4385     (version "0.3.6")
4386     (source
4387      (origin
4388        (method url-fetch)
4389        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4390                            "libhubbub-" version "-src.tar.gz"))
4391        (sha256
4392         (base32
4393          "1x3v7xvagx85v9h3pypzc86rcxs4mij87mmcqkp8pq50q6awfmnp"))
4394        (patches (search-patches "hubbub-sort-entities.patch"))))
4395     (build-system gnu-build-system)
4396     (native-inputs
4397      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4398        ("pkg-config" ,pkg-config)
4399        ("doxygen" ,doxygen)
4400        ("json-c" ,json-c-0.12)      ; check whether json-c-0.12 can be removed
4401        ("perl" ,perl)))
4402     (propagated-inputs
4403      `(("libparserutils" ,libparserutils))) ;for libhubbub.pc
4404     (arguments netsurf-buildsystem-arguments)
4405     (home-page "http://www.netsurf-browser.org/projects/hubbub/")
4406     (synopsis "HTML5 compliant parsing library")
4407     (description
4408      "Hubbub is an HTML5 compliant parsing library, written in C, which can
4409 parse both valid and invalid web content.  It is developed as part of the
4410 NetSurf project.")
4411     (license license:expat)))
4412
4413 (define-public ikiwiki
4414   (package
4415     (name "ikiwiki")
4416     (version "3.20190228")
4417     (source
4418      (origin
4419        (method url-fetch)
4420        (uri (string-append "http://snapshot.debian.org/archive/debian/"
4421                            "20190301T035241Z/pool/main/i/ikiwiki/ikiwiki_"
4422                            version ".orig.tar.xz"))
4423        (sha256
4424         (base32
4425          "17pyblaqhkb61lxl63bzndiffism8k859p54k3k4sghclq6lsynh"))))
4426     (build-system perl-build-system)
4427     (arguments
4428      `(#:phases
4429        (modify-phases %standard-phases
4430          (add-after 'unpack 'include-PERL5LIB-in-wrapper
4431            (lambda _
4432              (substitute* "IkiWiki/Wrapper.pm"
4433                (("^@wrapper\\_hooks")
4434                 (string-append
4435                  "@wrapper_hooks\n"
4436                  "        addenv(\"PERL5LIB\", \""
4437                  (getenv "PERL5LIB")
4438                  "\");")))))
4439          (add-after 'patch-source-shebangs 'patch-Makefile
4440            (lambda _
4441              (substitute* "Makefile.PL"
4442                (("SYSCONFDIR\\?=") "SYSCONFDIR?=$(PREFIX)"))
4443              #t))
4444          (add-after 'install 'wrap-programs
4445            (lambda* (#:key outputs #:allow-other-keys)
4446              (let* ((out  (assoc-ref outputs "out"))
4447                     (bin  (string-append out "/bin/"))
4448                     (path (getenv "PERL5LIB")))
4449                (for-each (lambda (file)
4450                            (wrap-program file
4451                              `("PERL5LIB" ":" prefix (,path))))
4452                          (find-files bin))
4453                #t))))))
4454     (native-inputs
4455      `(("which" ,which)
4456        ("perl-html-tagset" ,perl-html-tagset)
4457        ("perl-timedate" ,perl-timedate)
4458        ("perl-xml-sax" ,perl-xml-sax)
4459        ("perl-xml-simple" ,perl-xml-simple)
4460        ("gettext" ,gettext-minimal)
4461        ("subversion" ,subversion)
4462        ("git" ,git)
4463        ("bazaar" ,bazaar)
4464        ("cvs" ,cvs)
4465        ("mercurial" ,mercurial)))
4466     (inputs
4467      `(("python" ,python-wrapper)
4468        ("perl-cgi-formbuilder" ,perl-cgi-formbuilder)
4469        ("perl-cgi-session" ,perl-cgi-session)
4470        ("perl-cgi-simple" ,perl-cgi-simple)
4471        ("perl-db-file" ,perl-db-file)
4472        ("perl-html-parser" ,perl-html-parser)
4473        ("perl-html-scrubber" ,perl-html-scrubber)
4474        ("perl-html-template" ,perl-html-template)
4475        ("perl-image-magick" ,perl-image-magick)
4476        ("perl-json" ,perl-json)
4477        ("perl-text-markdown-discount" ,perl-text-markdown-discount)
4478        ("perl-uri" ,perl-uri)
4479        ("perl-yaml-libyaml" ,perl-yaml-libyaml)))
4480     (home-page "https://ikiwiki.info/")
4481     (synopsis "Wiki compiler, capable of generating HTML")
4482     (description
4483      "Ikiwiki is a wiki compiler, capable of generating a static set of web
4484 pages, but also incorporating dynamic features like a web based editor and
4485 commenting.")
4486     (license license:gpl2+)))
4487
4488 (define-public libwapcaplet
4489   (package
4490     (name "libwapcaplet")
4491     (version "0.4.2")
4492     (source
4493      (origin
4494        (method url-fetch)
4495        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4496                            "libwapcaplet-" version "-src.tar.gz"))
4497        (sha256
4498         (base32
4499          "1fjwzbn7j8bi1b9bvwxsy3i2cr6byq2s2d29866801pjnf528g86"))))
4500     (build-system gnu-build-system)
4501     (native-inputs
4502      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4503        ("pkg-config" ,pkg-config)
4504        ("check" ,check)))               ;for tests
4505     (arguments netsurf-buildsystem-arguments)
4506     (home-page "http://www.netsurf-browser.org/projects/libwapcaplet/")
4507     (synopsis "String internment library")
4508     (description
4509      "LibWapcaplet provides a reference counted string internment system
4510 designed to store small strings and allow rapid comparison of them.  It is
4511 developed as part of the Netsurf project.")
4512     (license license:expat)))
4513
4514 (define-public libcss
4515   (package
4516     (name "libcss")
4517     (version "0.9.0")
4518     (source
4519      (origin
4520        (method url-fetch)
4521        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4522                            "libcss-" version "-src.tar.gz"))
4523        (sha256
4524         (base32
4525          "1vw9j3d2mr4wbvs8fyqmgslkbxknvac10456775hflxxcivbm3xr"))))
4526     (build-system gnu-build-system)
4527     (native-inputs
4528      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4529        ("pkg-config" ,pkg-config)
4530        ("perl" ,perl)))
4531     (propagated-inputs                  ;needed for libcss.pc
4532      `(("libparserutils" ,libparserutils)
4533        ("libwapcaplet" ,libwapcaplet)))
4534     (arguments netsurf-buildsystem-arguments)
4535     (home-page "http://www.netsurf-browser.org/projects/libcss/")
4536     (synopsis "CSS parser and selection library")
4537     (description
4538      "LibCSS is a CSS (Cascading Style Sheet) parser and selection engine,
4539 written in C.  It is developed as part of the NetSurf project.")
4540     (license license:expat)))
4541
4542 (define-public libdom
4543   (package
4544     (name "libdom")
4545     (version "0.4.0")
4546     (source
4547      (origin
4548        (method url-fetch)
4549        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4550                            "libdom-" version "-src.tar.gz"))
4551        (sha256
4552         (base32
4553          "1ixkqsl3f7dl1kajksm0c231w1v5xy8z6hm3v67hgm9nh4qcvfcy"))))
4554     (build-system gnu-build-system)
4555     (native-inputs
4556      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4557        ("pkg-config" ,pkg-config)
4558        ("perl" ,perl)                   ;for test harness
4559        ("perl-libxml" ,perl-libxml)
4560        ("perl-switch" ,perl-switch)
4561        ("perl-xml-xpath" ,perl-xml-xpath)))
4562     (inputs
4563      `(("libparserutils" ,libparserutils)
4564        ("libwapcaplet" ,libwapcaplet)))
4565     (propagated-inputs
4566      `(("expat" ,expat)                 ;needed for headers and linking
4567        ("hubbub" ,hubbub)))             ;for libdom.pc
4568     (arguments
4569      `(#:tests? #f                 ;TODO: re-enable. tests take a looong time.
4570        ,@netsurf-buildsystem-arguments))
4571     (home-page "http://www.netsurf-browser.org/projects/libdom/")
4572     (synopsis "Implementation of the W3C DOM")
4573     (description
4574      "LibDOM is an implementation of the W3C DOM, written in C.  It is
4575 developed as part of the NetSurf project.")
4576     (license license:expat)))
4577
4578 (define-public libsvgtiny
4579   (package
4580     (name "libsvgtiny")
4581     (version "0.1.7")
4582     (source
4583      (origin
4584        (method url-fetch)
4585        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4586                            name "-" version "-src.tar.gz"))
4587        (sha256
4588         (base32
4589          "10bpkmvfpydj74im3r6kqm9vnvgib6afy0alx71q5n0w5yawy39c"))))
4590     (build-system gnu-build-system)
4591     (native-inputs
4592      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4593        ("pkg-config" ,pkg-config)
4594        ("gperf" ,gperf-3.0)))
4595     (inputs
4596      `(("libwapcaplet" ,libwapcaplet)))
4597     (propagated-inputs
4598      `(("libdom" ,libdom)))             ;for libsvgtiny.pc
4599     (arguments netsurf-buildsystem-arguments)
4600     (home-page "http://www.netsurf-browser.org/projects/libsvgtiny/")
4601     (synopsis "Library for parsing SVG files")
4602     (description
4603      "Libsvgtiny takes some SVG as input and returns a list of paths and texts
4604 which can be rendered easily, as defined in
4605 @url{http://www.w3.org/TR/SVGMobile/}.  It is developed as part of the NetSurf
4606 project.")
4607     (license license:expat)))
4608
4609 (define-public libnsbmp
4610   (package
4611     (name "libnsbmp")
4612     (version "0.1.5")
4613     (source
4614      (origin
4615        (method url-fetch)
4616        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4617                            name "-" version "-src.tar.gz"))
4618        (sha256
4619         (base32
4620          "0lib2m07d1i0k80m4blkwnj0g7rha4jbm5vrgd0wwbkyfa0hvk35"))))
4621     (build-system gnu-build-system)
4622     (native-inputs
4623      `(("netsurf-buildsystem" ,netsurf-buildsystem)))
4624     (arguments netsurf-buildsystem-arguments)
4625     (home-page "http://www.netsurf-browser.org/projects/libnsbmp/")
4626     (synopsis "Decoding library for BMP and ICO files")
4627     (description
4628      "Libnsbmp is a decoding library for BMP and ICO image file formats,
4629 written in C.  It is developed as part of the NetSurf project.")
4630     (license license:expat)))
4631
4632 (define-public libnsgif
4633   (package
4634     (name "libnsgif")
4635     (version "0.2.1")
4636     (source
4637      (origin
4638        (method url-fetch)
4639        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4640                            name "-" version "-src.tar.gz"))
4641        (sha256
4642         (base32
4643          "0jwshypgmx16xlsbx3d8njk8a5khazlplca5mxd3rdbhrlsabbly"))))
4644     (build-system gnu-build-system)
4645     (native-inputs
4646      `(("netsurf-buildsystem" ,netsurf-buildsystem)))
4647     (arguments netsurf-buildsystem-arguments)
4648     (home-page "http://www.netsurf-browser.org/projects/libnsgif/")
4649     (synopsis "Decoding library for GIF files")
4650     (description
4651      "Libnsgif is a decoding library for the GIF image file format, written in
4652 C.  It is developed as part of the NetSurf project.")
4653     (license license:expat)))
4654
4655 (define-public libnslog
4656   (package
4657     (name "libnslog")
4658     (version "0.1.2")
4659     (source
4660      (origin
4661        (method url-fetch)
4662        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4663                            "libnslog-" version "-src.tar.gz"))
4664        (sha256
4665         (base32
4666          "1ggs6xvxp8fbg5w8pifalipm458ygr9ab6j2yvj8fnnmxwvdh4jd"))))
4667     (build-system gnu-build-system)
4668     (native-inputs
4669      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4670        ("pkg-config" ,pkg-config)
4671        ("check" ,check)                 ;for tests
4672        ("bison" ,bison)
4673        ("flex" ,flex)))
4674     (arguments netsurf-buildsystem-arguments)
4675     (home-page "http://www.netsurf-browser.org/")
4676     (synopsis "Logging library")
4677     (description
4678      "Libnslog provides a category-based logging library which supports
4679 complex logging filters, multiple log levels, and provides context through to
4680 client applications.  It is developed as part of the NetSurf project.")
4681     (license license:expat)))
4682
4683 (define-public libnsutils
4684   (package
4685     (name "libnsutils")
4686     (version "0.0.5")
4687     (source
4688      (origin
4689        (method url-fetch)
4690        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4691                            name "-" version "-src.tar.gz"))
4692        (sha256
4693         (base32
4694          "09w1rixps1iiq6wirjwxmd6h87llvjzvw565rahjb3rlyhcplfqf"))))
4695     (build-system gnu-build-system)
4696     (native-inputs
4697      `(("netsurf-buildsystem" ,netsurf-buildsystem)))
4698     (arguments netsurf-buildsystem-arguments)
4699     (home-page "http://www.netsurf-browser.org/")
4700     (synopsis "Utility library for NetSurf")
4701     (description
4702      "Libnsutils provides a small number of useful utility routines.  It is
4703 developed as part of the NetSurf project.")
4704     (license license:expat)))
4705
4706 (define-public libnspsl
4707   (package
4708     (name "libnspsl")
4709     (version "0.1.5")
4710     (source
4711      (origin
4712        (method url-fetch)
4713        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4714                            "libnspsl-" version "-src.tar.gz"))
4715        (sha256
4716         (base32
4717          "0siq8zjfxv75i9fw6q5hkaijpdm1w3zskd5qk6vsvz8cqan4vifd"))))
4718     (build-system gnu-build-system)
4719     (native-inputs
4720      `(("netsurf-buildsystem" ,netsurf-buildsystem)))
4721     (arguments netsurf-buildsystem-arguments)
4722     (home-page "http://www.netsurf-browser.org/")
4723     (synopsis "Library to generate a static Public Suffix List")
4724     (description
4725      "Libnspsl is a library to generate a static code representation of the
4726 Public Suffix List.  It is developed as part of the NetSurf project.")
4727     (license license:expat)))
4728
4729 (define-public nsgenbind
4730   (package
4731     (name "nsgenbind")
4732     (version "0.7")
4733     (source
4734      (origin
4735        (method url-fetch)
4736        (uri (string-append "http://download.netsurf-browser.org/libs/releases/"
4737                            "nsgenbind-" version "-src.tar.gz"))
4738        (sha256
4739         (base32
4740          "0rplmky4afsjwiwh7grkmcdmzg86zksa55j93dvq92f91yljwqqq"))))
4741     (build-system gnu-build-system)
4742     (native-inputs
4743      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4744        ("bison" ,bison)
4745        ("flex" ,flex)))
4746     (arguments
4747      (substitute-keyword-arguments netsurf-buildsystem-arguments
4748        ((#:make-flags flags)
4749         `(delete "COMPONENT_TYPE=lib-shared" ,flags))))
4750     (home-page "http://www.netsurf-browser.org/")
4751     (synopsis "Generate JavaScript to DOM bindings")
4752     (description
4753      "@code{nsgenbind} is a tool to generate JavaScript to DOM bindings from
4754 w3c webidl files and a binding configuration file.")
4755     (license license:expat)))
4756
4757 (define-public netsurf
4758   (package
4759     (name "netsurf")
4760     (version "3.9")
4761     (source
4762      (origin
4763        (method url-fetch)
4764        (uri (string-append "http://download.netsurf-browser.org/netsurf/"
4765                            "releases/source/netsurf-" version "-src.tar.gz"))
4766        (sha256
4767         (base32
4768          "1hzcm2s2wh5sapgr000lg63hcdbj6hyajxl43xa1x80kc5piqbyp"))
4769        (patches (search-patches "netsurf-system-utf8proc.patch"
4770                                 "netsurf-y2038-tests.patch"
4771                                 "netsurf-longer-test-timeout.patch"
4772                                 "netsurf-message-timestamp.patch"))))
4773     (build-system glib-or-gtk-build-system)
4774     (native-inputs
4775      `(("netsurf-buildsystem" ,netsurf-buildsystem)
4776        ("nsgenbind" ,nsgenbind)
4777        ("libidn" ,libidn)               ;only for tests
4778        ("check" ,check)
4779        ("perl" ,perl)
4780        ("perl-html-parser" ,perl-html-parser)
4781        ("pkg-config" ,pkg-config)
4782        ("xxd" ,xxd)))
4783     (inputs
4784      `(("curl" ,curl)
4785        ("gtk+" ,gtk+-2)
4786        ("openssl" ,openssl)
4787        ("utf8proc" ,utf8proc)
4788        ("libpng" ,libpng)
4789        ("libjpeg" ,libjpeg)
4790        ("libcss" ,libcss)
4791        ("libdom" ,libdom)
4792        ("libnsbmp" ,libnsbmp)
4793        ("libnsgif" ,libnsgif)
4794        ("libnslog" ,libnslog)
4795        ("libnspsl" ,libnspsl)
4796        ("libnsutils" ,libnsutils)
4797        ("libsvgtiny" ,libsvgtiny)
4798        ("miscfiles" ,miscfiles)))
4799     (arguments
4800      `(#:make-flags `("CC=gcc" "BUILD_CC=gcc"
4801                       ,(string-append "PREFIX=" %output)
4802                       ,(string-append "NSSHARED="
4803                                       (assoc-ref %build-inputs
4804                                                  "netsurf-buildsystem")
4805                                       "/share/netsurf-buildsystem"))
4806        #:test-target "test"
4807        #:modules ((ice-9 rdelim)
4808                   (ice-9 match)
4809                   (srfi srfi-1)
4810                   (sxml simple)
4811                   ,@%glib-or-gtk-build-system-modules)
4812        #:phases
4813        (modify-phases %standard-phases
4814          (delete 'configure)
4815          (add-after 'build 'adjust-welcome
4816            (lambda _
4817              ;; First, fix some unended tags and simple substitutions
4818              (substitute* "frontends/gtk/res/welcome.html"
4819                (("<(img|input)([^>]*)>" _ tag contents)
4820                 (string-append "<" tag contents " />"))
4821                (("Licence") "License") ;prefer GNU spelling
4822                ((" open source") ", free software")
4823                (("web&nbsp;site") "website")
4824                ;; Prefer privacy-respecting default search engine
4825                (("www.google.co.uk") "www.duckduckgo.com/html")
4826                (("Google Search") "DuckDuckGo Search")
4827                (("name=\"btnG\"") ""))
4828              ;; Remove default links so it doesn't seem we're endorsing them
4829              (with-atomic-file-replacement "frontends/gtk/res/welcome.html"
4830                (lambda (in out)
4831                  ;; Leave the DOCTYPE header as is
4832                  (display (read-line in 'concat) out)
4833                  (sxml->xml
4834                   (let rec ((sxml (xml->sxml in)))
4835                     ;; We'd like to use sxml-match here, but it can't
4836                     ;; match against generic tag symbols...
4837                     (match sxml
4838                       (`(div (@ (class "links")) . ,rest)
4839                        '())
4840                       ((x ...)
4841                        (map rec x))
4842                       (x x)))
4843                   out)))
4844              #t))
4845          (add-before 'check 'patch-check
4846            (lambda* (#:key inputs #:allow-other-keys)
4847              (substitute* '("test/bloom.c" "test/hashtable.c")
4848                (("/usr/share/dict/words")
4849                 (string-append (assoc-ref inputs "miscfiles") "/share/web2")))
4850              #t))
4851          (add-after 'install 'install-more
4852            (lambda* (#:key outputs #:allow-other-keys)
4853              (let* ((out (assoc-ref outputs "out"))
4854                     (desktop (string-append out "/share/applications/"
4855                                             "netsurf.desktop")))
4856                (mkdir-p (dirname desktop))
4857                (copy-file "frontends/gtk/res/netsurf-gtk.desktop"
4858                           desktop)
4859                (substitute* desktop
4860                  (("netsurf-gtk") (string-append out "/bin/netsurf-gtk"))
4861                  (("netsurf.png") (string-append out "/share/netsurf/"
4862                                                  "netsurf.xpm")))
4863                (install-file "docs/netsurf-gtk.1"
4864                              (string-append out "/share/man/man1/"))
4865                #t))))))
4866     (home-page "http://www.netsurf-browser.org")
4867     (synopsis "Web browser")
4868     (description
4869      "NetSurf is a lightweight web browser that has its own layout and
4870 rendering engine entirely written from scratch.  It is small and capable of
4871 handling many of the web standards in use today.")
4872     (license license:gpl2+)))
4873
4874 (define-public surfraw
4875   (package
4876     (name "surfraw")
4877     (version "2.3.0")
4878     (source
4879      (origin
4880        (method url-fetch)
4881        (uri (string-append "https://gitlab.com/surfraw/Surfraw/uploads/"
4882                            "2de827b2786ef2fe43b6f07913ca7b7f/"
4883                            "surfraw-" version ".tar.gz"))
4884        (sha256
4885         (base32 "099nbif0x5cbcf18snc58nx1a3q7z0v9br9p2jiq9pcc7ic2015d"))))
4886     (build-system gnu-build-system)
4887     (arguments
4888      `(#:phases
4889        (modify-phases %standard-phases
4890          (add-before 'configure 'patch-perl
4891            (lambda* (#:key inputs #:allow-other-keys)
4892              (let ((perl (assoc-ref inputs "perl")))
4893                (substitute* "surfraw.IN"
4894                  (("perl -e")
4895                   (string-append perl "/bin/perl -e")))
4896                #t)))
4897          (add-after 'install 'compress-elvi.1sr
4898            (lambda* (#:key outputs #:allow-other-keys)
4899              ;; The manpages of the elvis are symlinks to elvi.1sr.gz
4900              ;; but elvi.1sr does not get compressed by our manpage phase.
4901              (let* ((out (assoc-ref %outputs "out"))
4902                     (man (string-append out "/share/man/man1")))
4903                (with-directory-excursion man
4904                  (invoke "gzip" "elvi.1sr"))))))))
4905     (inputs
4906      `(("perl" ,perl)
4907        ("perl-www-opensearch" ,perl-www-opensearch)
4908        ("perl-html-parser" ,perl-html-parser)
4909        ("perl-libwww" ,perl-libwww)))
4910     (synopsis "Unix command line interface to the www")
4911     (description "Surfraw (Shell Users' Revolutionary Front Rage Against the Web)
4912 provides a unix command line interface to a variety of popular www search engines
4913 and similar services.")
4914     (home-page "https://surfraw.alioth.debian.org/")
4915     (license license:public-domain)))
4916
4917 (define-public darkhttpd
4918   (package
4919     (name "darkhttpd")
4920     (version "1.12")
4921     (source
4922      (origin
4923        (method url-fetch)
4924        (uri (string-append "https://unix4lyfe.org/darkhttpd/darkhttpd-"
4925                            version ".tar.bz2"))
4926        (sha256
4927         (base32
4928          "0185wlyx4iqiwfigp1zvql14zw7gxfacncii3d15yaxk4av1f155"))))
4929     (build-system gnu-build-system)
4930     (arguments
4931      `(#:make-flags '("CC=gcc")
4932        #:tests? #f ; No test suite
4933        #:phases
4934        (modify-phases %standard-phases
4935          (delete 'configure)
4936          (replace 'install
4937            (lambda* (#:key outputs #:allow-other-keys)
4938              (install-file "darkhttpd"
4939                            (string-append (assoc-ref outputs "out")
4940                                           "/bin"))
4941              #t)))))
4942     (synopsis "Simple static web server")
4943     (description "darkhttpd is a simple static web server.  It is
4944 standalone and does not need inetd or ucspi-tcp.  It does not need any
4945 config files---you only have to specify the www root.")
4946     (home-page "https://unix4lyfe.org/darkhttpd/")
4947     (license license:isc)))
4948
4949 (define-public goaccess
4950   (package
4951     (name "goaccess")
4952     (version "1.0.2")
4953     (source (origin
4954               (method url-fetch)
4955               (uri (string-append "http://tar.goaccess.io/goaccess-"
4956                                   version ".tar.gz"))
4957               (sha256
4958                (base32
4959                 "1w84y61f3ldg2f28q6qlyr1scn3mcx0bsbq3i5xi5w193wh3xa2q"))
4960               (modules '((guix build utils)))
4961               (snippet '(begin
4962                           (substitute* "src/error.h"
4963                             (("__DATE__") "\"1970-01-01\"")
4964                             (("__TIME__") "\"00:00:00\""))
4965                           #t))))
4966     (build-system gnu-build-system)
4967     (inputs
4968      ;; TODO: Add dependency on geoip-tools.
4969      `(("glib" ,glib)
4970        ("ncurses" ,ncurses)))
4971     (native-inputs
4972      `(("pkg-config" ,pkg-config)))
4973     (home-page "https://goaccess.io")
4974     (synopsis "Analyze Web server logs in real time")
4975     (description
4976      "GoAccess is a real-time web log analyzer and interactive viewer that
4977 runs in a terminal or through your browser.  It provides fast and valuable
4978 HTTP statistics for system administrators that require a visual server report
4979 on the fly.")
4980     (license license:x11)))
4981
4982 (define-public httptunnel
4983   (package
4984     (name "httptunnel")
4985     (version "3.3")
4986     (source
4987      (origin
4988        (method url-fetch)
4989        (uri (string-append "http://www.nocrew.org/software/httptunnel/"
4990                            name "-" version ".tar.gz"))
4991        (sha256
4992         (base32
4993          "0mn5s6p68n32xzadz6ds5i6bp44dyxzkq68r1yljlv470jr84bql"))
4994        (modules '((guix build utils)))
4995        (snippet '(begin
4996                    ;; Remove non-free IETF RFC documentation.
4997                    (delete-file-recursively "doc")
4998                    #t))))
4999     (build-system gnu-build-system)
5000     (arguments
5001      `(#:phases
5002        (modify-phases %standard-phases
5003          ;; The default configure phase tries to pass environment variables as
5004          ;; command-line arguments, which confuses the ./configure script.
5005          (replace 'configure
5006            (lambda* (#:key outputs #:allow-other-keys)
5007              (let* ((out (assoc-ref outputs "out")))
5008                (setenv "CONFIG_SHELL" (which "bash"))
5009                (invoke "./configure"
5010                        (string-append "--prefix=" out))))))))
5011     (home-page "http://www.nocrew.org/software/httptunnel.html")
5012     (synopsis "Tunnel data connections through HTTP requests")
5013     (description "httptunnel creates a bidirectional virtual data connection
5014 tunnelled through HTTP (HyperText Transfer Protocol) requests.  This can be
5015 useful for users behind restrictive firewalls.  As long as Web traffic is
5016 allowed, even through a HTTP-only proxy, httptunnel can be combined with other
5017 tools like SSH (Secure Shell) to reach the outside world.")
5018     (license license:gpl2+)))
5019
5020 (define-public stunnel
5021   (package
5022   (name "stunnel")
5023   (version "5.55")
5024   (source
5025     (origin
5026       (method url-fetch)
5027       (uri (string-append "https://www.stunnel.org/downloads/stunnel-"
5028                           version ".tar.gz"))
5029       (sha256
5030        (base32 "0qjc0wkjf6bqz29fvwwsn9hnjhm6alsm10jcwx4jad2q3ks6kplh"))))
5031   (build-system gnu-build-system)
5032   (native-inputs
5033    ;; For tests.
5034    `(("iproute" ,iproute)
5035      ("netcat" ,netcat)
5036      ("procps" ,procps)))
5037   (inputs `(("openssl" ,openssl)))
5038   (arguments
5039    `(#:configure-flags
5040      (list (string-append "--with-ssl=" (assoc-ref %build-inputs "openssl")))
5041      #:phases
5042      (modify-phases %standard-phases
5043        (add-after 'unpack 'patch-output-directories
5044          (lambda _
5045            ;; Some (not all) Makefiles have a hard-coded incorrect docdir.
5046            (substitute* (list "Makefile.in"
5047                               "doc/Makefile.in"
5048                               "tools/Makefile.in")
5049              (("/doc/stunnel")
5050               (string-append "/doc/" ,name "-" ,version)))
5051            #t))
5052        (add-before 'check 'patch-tests
5053          (lambda _
5054            (substitute* "tests/make_test"
5055              (("/bin/sh ")
5056               (string-append (which "sh") " ")))
5057            #t)))))
5058   (home-page "https://www.stunnel.org")
5059   (synopsis "TLS proxy for clients or servers")
5060   (description "Stunnel is a proxy designed to add TLS encryption
5061 functionality to existing clients and servers without any changes in the
5062 programs' code.  Its architecture is optimized for security, portability, and
5063 scalability (including load-balancing), making it suitable for large
5064 deployments.")
5065   (license license:gpl2+)))
5066
5067 (define-public varnish
5068   (package
5069     (name "varnish")
5070     (home-page "https://varnish-cache.org/")
5071     (version "6.3.0")
5072     (source (origin
5073               (method url-fetch)
5074               (uri (string-append home-page "_downloads/varnish-" version ".tgz"))
5075               (sha256
5076                (base32
5077                 "0zwlffdd1m0ih33nq40xf2wwdyvr4czmns2fs90qpfnwy72xxk4m"))))
5078     (build-system gnu-build-system)
5079     (arguments
5080      `(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")
5081                                ;; Use absolute path of GCC so it's found at runtime.
5082                                (string-append "PTHREAD_CC="
5083                                               (assoc-ref %build-inputs "gcc")
5084                                               "/bin/gcc")
5085                                "--localstatedir=/var")
5086        #:phases
5087        (modify-phases %standard-phases
5088          (add-after 'unpack 'use-absolute-file-names
5089            (lambda _
5090              (substitute* '("bin/varnishtest/vtc_varnish.c"
5091                             "bin/varnishtest/vtc_process.c"
5092                             "bin/varnishd/mgt/mgt_vcc.c"
5093                             "bin/varnishtest/tests/u00014.vtc")
5094                (("/bin/sh") (which "sh")))
5095              (substitute* "bin/varnishd/mgt/mgt_shmem.c"
5096                (("rm -rf") (string-append (which "rm") " -rf")))
5097              (substitute* "bin/varnishtest/vtc_main.c"
5098                (("/bin/rm") (which "rm")))
5099              #t))
5100          (add-before 'install 'patch-Makefile
5101            (lambda _
5102              (substitute* "Makefile"
5103                ;; Do not create /var/varnish during install.
5104                (("^install-data-am: install-data-local") "install-data-am: "))
5105              #t))
5106          (add-after 'install 'wrap-varnishd
5107            ;; Varnish uses GCC to compile VCL, so wrap it with required GCC
5108            ;; environment variables to avoid propagating them to profiles.
5109            (lambda* (#:key inputs outputs #:allow-other-keys)
5110              (let* ((out (assoc-ref outputs "out"))
5111                     (varnishd (string-append out "/sbin/varnishd"))
5112                     (PATH (string-append (assoc-ref inputs "binutils") "/bin"))
5113                     (LIBRARY_PATH (string-append (assoc-ref inputs "libc") "/lib")))
5114                (wrap-program varnishd
5115                  ;; Add binutils to PATH so gcc finds the 'as' executable.
5116                  `("PATH" ":" prefix (,PATH))
5117                  ;; Make sure 'crti.o' et.al is found.
5118                  `("LIBRARY_PATH" ":" prefix (,LIBRARY_PATH)))
5119                #t))))))
5120     (native-inputs
5121      `(("pkg-config" ,pkg-config)
5122        ("python-sphinx" ,python-sphinx)
5123        ("rst2man" ,python-docutils)))
5124     (inputs
5125      `(("jemalloc" ,jemalloc)
5126        ("ncurses" ,ncurses)
5127        ("pcre" ,pcre)
5128        ("python" ,python-wrapper)
5129        ("readline" ,readline)))
5130     (synopsis "Web application accelerator")
5131     (description
5132      "Varnish is a high-performance HTTP accelerator.  It acts as a caching
5133 reverse proxy and load balancer.  You install it in front of any server that
5134 speaks HTTP and configure it to cache the contents through an extensive
5135 configuration language.")
5136     (license (list license:bsd-2           ;main distribution
5137                    license:zlib            ;lib/libvgz/*
5138                    license:public-domain   ;bin/varnishncsa/as64.c, include/miniobj.h
5139                    license:bsd-3))))       ;include/vqueue.h, lib/libvarnishcompat/daemon.c
5140
5141 (define-public varnish-modules
5142   (package
5143     (name "varnish-modules")
5144     (home-page "https://github.com/varnish/varnish-modules")
5145     (version "0.15.0")
5146     (source (origin
5147               (method url-fetch)
5148               (uri (string-append "https://download.varnish-software.com"
5149                                   "/varnish-modules/varnish-modules-"
5150                                   version ".tar.gz"))
5151               (sha256
5152                (base32
5153                 "09li9lqa1kb275w1rby2zldyg8r9cfcl4qyv53qyd9xbzilrz751"))))
5154     (build-system gnu-build-system)
5155     (native-inputs
5156      `(("pkg-config" ,pkg-config)))
5157     (inputs
5158      `(("python" ,python)
5159        ("varnish" ,varnish)))
5160     (synopsis "Collection of Varnish modules")
5161     (description
5162      "This package provides a collection of modules (@dfn{vmods}) for the Varnish
5163 cache server, extending the @dfn{Varnish Configuration Language} (VCL) with
5164 additional capabilities.")
5165     (license license:bsd-2)))
5166
5167 (define-public xinetd
5168   (package
5169     (name "xinetd")
5170     (version "2.3.15")
5171     (source
5172      (origin
5173        (method git-fetch)
5174        (uri (git-reference
5175              (url "https://github.com/xinetd-org/xinetd.git")
5176              (commit (string-append "xinetd-"
5177                                     (string-join (string-split version #\.)
5178                                                  "-")))))
5179        (file-name (git-file-name name version))
5180        (patches (search-patches "xinetd-CVE-2013-4342.patch"
5181                                 "xinetd-fix-fd-leak.patch"))
5182        (sha256
5183         (base32 "0wjai6qagcgxpa1khh639ih7kswgkryc7ll1i4hxhs29sc7irdcn"))))
5184     (build-system gnu-build-system)
5185     (arguments
5186      `(#:configure-flags '("--with-loadavg")
5187        #:tests? #f))                    ; no tests
5188     (home-page "https://github.com/xinetd-org/xinetd")
5189     (synopsis "Internet services daemon")
5190     (description "@code{xinetd}, a more secure replacement for @code{inetd},
5191 listens for incoming requests over a network and launches the appropriate
5192 service for that request.  Requests are made using port numbers as identifiers
5193 and xinetd usually launches another daemon to handle the request.  It can be
5194 used to start services with both privileged and non-privileged port numbers.")
5195     (license (license:fsf-free "file://COPYRIGHT"))))
5196
5197 (define-public tidy-html
5198   (package
5199     (name "tidy-html")
5200     (version "5.6.0")
5201     (source
5202      (origin
5203        (method url-fetch)
5204        (uri (string-append "https://github.com/htacg/tidy-html5/archive/"
5205                            version ".tar.gz"))
5206        (file-name (string-append name "-" version ".tar.gz"))
5207        (sha256
5208         (base32
5209          "0n29wcgw32rhnraj9j21ibhwi0xagmmcskhbaz8ihxly7nx3p9h8"))))
5210     (build-system cmake-build-system)
5211     (outputs '("out"
5212                "static"))               ; 1.0MiB of .a files
5213     (arguments
5214      `(#:tests? #f                      ; no tests available
5215        #:build-type "Release"
5216        #:phases
5217        (modify-phases %standard-phases
5218          (add-after 'install 'move-static-libraries
5219            (lambda* (#:key outputs #:allow-other-keys)
5220              ;; Move static libraries to the "static" output.
5221              (let* ((out    (assoc-ref outputs "out"))
5222                     (lib    (string-append out "/lib"))
5223                     (static (assoc-ref outputs "static"))
5224                     (slib   (string-append static "/lib")))
5225                (mkdir-p slib)
5226                (for-each (lambda (file)
5227                            (install-file file slib)
5228                            (delete-file file))
5229                          (find-files lib "\\.a$"))
5230                #t))))))
5231     (native-inputs
5232      `(("libxslt" ,libxslt)))
5233     (home-page "http://www.html-tidy.org/")
5234     (synopsis "HTML Tidy with HTML5 support")
5235     (description
5236      "Tidy is a console application which corrects and cleans up
5237 HTML and XML documents by fixing markup errors and upgrading
5238 legacy code to modern standards.
5239
5240 Tidy also provides @code{libtidy}, a C static and dynamic library that
5241 developers can integrate into their applications to make use of the
5242 functions of Tidy.")
5243     (license license:bsd-3)))
5244
5245 (define-public hiawatha
5246   (package
5247     (name "hiawatha")
5248     (version "10.9")
5249     (source
5250      (origin
5251        (method url-fetch)
5252        (uri (string-append "https://www.hiawatha-webserver.org/files/"
5253                            "hiawatha-" version ".tar.gz"))
5254        (modules '((guix build utils)))
5255        (snippet '(begin
5256                    ;; We use packaged libraries, so delete the bundled copies.
5257                    (for-each delete-file-recursively
5258                              (list "extra/nghttp2.tgz" "mbedtls"))
5259                    #t))
5260        (sha256
5261         (base32 "1f2j2x1ziawz8ijg3s3izqpyzpiwfyhlsvbv0szxvhvj4a0l7pbl"))))
5262     (build-system cmake-build-system)
5263     (arguments
5264      `(#:tests? #f                      ; no tests included
5265        #:configure-flags (list (string-append "-DUSE_SYSTEM_MBEDTLS=on")
5266                                (string-append "-DENABLE_HTTP2=on")
5267                                (string-append "-DUSE_SYSTEM_NGHTTP2=on")
5268                                (string-append "-DENABLE_TOMAHAWK=on")
5269                                (string-append "-DLOG_DIR=/var/log/hiawatha")
5270                                (string-append "-DPID_DIR=/run")
5271                                (string-append "-DWEBROOT_DIR="
5272                                               (assoc-ref %outputs "out")
5273                                               "/share/hiawatha/html")
5274                                (string-append "-DWORK_DIR=/var/lib/hiawatha"))
5275        #:phases
5276        (modify-phases %standard-phases
5277          (add-after 'unpack 'install-no-empty-directories
5278            (lambda _
5279              (substitute* "CMakeLists.txt"
5280                (("install\\(DIRECTORY DESTINATION" match)
5281                 (string-append "#" match)))
5282              #t))
5283          (add-after 'install 'wrap
5284            (lambda* (#:key inputs outputs #:allow-other-keys)
5285              ;; Make sure 'hiawatha' finds 'mbedtls'.
5286              (let* ((out (assoc-ref outputs "out"))
5287                     (sbin (string-append out "/sbin"))
5288                     (mbed (assoc-ref inputs "mbedtls-apache")))
5289                (wrap-program (string-append sbin "/hiawatha")
5290                  `("PATH" ":" prefix (,mbed)))))))))
5291     (inputs
5292      ;; TODO: package "hiawatha-monitor", an optional dependency of "hiawatha".
5293      `(("libxslt" ,libxslt)
5294        ("libxml2" ,libxml2)
5295        ("mbedtls-apache" ,mbedtls-for-hiawatha)
5296        ("nghttp2" ,nghttp2 "lib")
5297        ("zlib" ,zlib)))
5298     (home-page "https://www.hiawatha-webserver.org")
5299     (synopsis "Webserver with focus on security")
5300     (description
5301      "Hiawatha has been written with security in mind.
5302 Features include the ability to stop SQL injections, XSS and CSRF attacks and
5303 exploit attempts.")
5304     (license license:gpl2)))
5305
5306 (define-public python-httpbin
5307   (package
5308     (name "python-httpbin")
5309     (version "0.5.0")
5310     (source
5311      (origin
5312        (method url-fetch)
5313        (uri (pypi-uri "httpbin" version))
5314        (sha256
5315         (base32
5316          "1dc92lnk846hpilslrqnr63x55cxll4qx88gif8fm521gv9cbyvr"))))
5317     (build-system python-build-system)
5318     (propagated-inputs
5319      `(("python-decorator" ,python-decorator)
5320        ("python-flask" ,python-flask)
5321        ("python-itsdangerous" ,python-itsdangerous)
5322        ("python-markupsafe" ,python-markupsafe)
5323        ("python-six" ,python-six)))
5324     (home-page "https://github.com/Runscope/httpbin")
5325     (synopsis "HTTP request and response service")
5326     (description "Testing an HTTP Library can become difficult sometimes.
5327 @code{RequestBin} is fantastic for testing POST requests, but doesn't let you control the
5328 response.  This exists to cover all kinds of HTTP scenarios.  All endpoint responses are
5329 JSON-encoded.")
5330     (license license:isc)))
5331
5332 (define-public python2-httpbin
5333   (package-with-python2 python-httpbin))
5334
5335 (define-public python-pytest-httpbin
5336   (package
5337     (name "python-pytest-httpbin")
5338     (version "0.2.3")
5339     (source
5340      (origin
5341        (method url-fetch)
5342        (uri (pypi-uri "pytest-httpbin" version))
5343        (sha256
5344         (base32
5345          "1y0v2v7xpzpyd4djwp7ad8ifnlxp8r1y6dfbxg5ckzvllkgridn5"))))
5346     (build-system python-build-system)
5347     (propagated-inputs
5348      `(("python-six" ,python-six)
5349        ("python-httpbin" ,python-httpbin)
5350        ("python-pytest" ,python-pytest)))
5351     (home-page
5352      "https://github.com/kevin1024/pytest-httpbin")
5353     (synopsis
5354      "Test your HTTP library against a local copy of httpbin")
5355     (description
5356      "@code{Pytest-httpbin} creates a @code{pytest} fixture that is dependency-injected
5357 into your tests.  It automatically starts up a HTTP server in a separate thread running
5358 @code{httpbin} and provides your test with the URL in the fixture.")
5359     (license license:expat)))
5360
5361 (define-public python2-pytest-httpbin
5362   (package-with-python2 python-pytest-httpbin))
5363
5364 (define-public http-parser
5365   (package
5366     (name "http-parser")
5367     (version "2.9.2")
5368     (home-page "https://github.com/nodejs/http-parser")
5369     (source (origin
5370               (method git-fetch)
5371               (uri (git-reference (url home-page)
5372                                   (commit (string-append "v" version))))
5373               (file-name (git-file-name name version))
5374               (sha256
5375                (base32
5376                 "1qs6x3n2nrcj1wiik5pg5i16inykf7rcfdfdy7rwyzf40pvdl3c2"))))
5377     (build-system gnu-build-system)
5378     (arguments
5379      `(#:test-target "test"
5380        #:make-flags
5381        (list (string-append "PREFIX="
5382                             (assoc-ref %outputs "out"))
5383              "CC=gcc" "library")
5384        #:phases
5385        (modify-phases %standard-phases
5386          (delete 'configure))))
5387     (synopsis "HTTP request/response parser for C")
5388     (description "This is a parser for HTTP messages written in C.  It parses
5389 both requests and responses.  The parser is designed to be used in
5390 high-performance HTTP applications.  It does not make any syscalls nor
5391 allocations, it does not buffer data, it can be interrupted at anytime.
5392 Depending on your architecture, it only requires about 40 bytes of data per
5393 message stream (in a web server that is per connection).")
5394     (license license:expat)))
5395
5396 (define-public python-httpretty
5397   (package
5398     (name "python-httpretty")
5399     (version "0.9.6")
5400     (source
5401      (origin
5402        (method url-fetch)
5403        (uri (pypi-uri "httpretty" version))
5404        (sha256
5405         (base32 "1p1rb4mpngh0632xrmdfhvc8yink519yfkqz97d2ww3y0x2jvd81"))))
5406     (build-system python-build-system)
5407     (propagated-inputs
5408      `(("python-six" ,python-six)))
5409     (native-inputs
5410      `(("python-coverage" ,python-coverage)
5411        ("python-httplib2" ,python-httplib2)
5412        ("python-mock" ,python-mock)
5413        ("python-nose" ,python-nose)
5414        ("python-nose-randomly" ,python-nose-randomly)
5415        ("python-rednose" ,python-rednose)
5416        ("python-requests" ,python-requests)
5417        ("python-sure" ,python-sure)
5418        ("python-tornado" ,python-tornado)
5419        ("python-urllib3" ,python-urllib3)))
5420     (home-page "https://httpretty.readthedocs.io")
5421     (synopsis "HTTP client mock for Python")
5422     (description "@code{httpretty} is a helper for faking web requests,
5423 inspired by Ruby's @code{fakeweb}.")
5424     (license license:expat)))
5425
5426 (define-public jo
5427   (package
5428     (name "jo")
5429     (version "1.2")
5430     (source
5431      (origin
5432        (method url-fetch)
5433        (uri (string-append "https://github.com/jpmens/jo/releases/download/"
5434                            version "/jo-" version ".tar.gz"))
5435        (sha256
5436         (base32
5437          "1bmdck53jslrl3anqqpm6iyjdxrz445qzcc4fr37hr3wjg22zv1n"))))
5438     (build-system gnu-build-system)
5439     (home-page "https://github.com/jpmens/jo")
5440     (synopsis "Output JSON from a shell")
5441     (description "jo is a command-line utility to create JSON objects or
5442 arrays.  It creates a JSON string on stdout from words provided as
5443 command-line arguments or read from stdin.")
5444     (license (list license:gpl2+
5445                    license:expat)))) ; json.c, json.h
5446
5447 (define-public python-internetarchive
5448   (package
5449     (name "python-internetarchive")
5450     (version "1.8.5")
5451     (source
5452      (origin
5453        (method git-fetch)
5454        (uri (git-reference
5455              (url "https://github.com/jjjake/internetarchive")
5456              (commit (string-append "v" version))))
5457        (file-name (git-file-name name version))
5458        (sha256
5459         (base32
5460          "0ih7hplv92wbv6cmgc1gs0v35qkajwicalwcq8vcljw30plr24fp"))
5461        (modules '((guix build utils)))
5462        (snippet
5463         '(begin
5464            ;; Python 3.7 removed `_pattern_type'.
5465            (for-each (lambda (file)
5466                        (chmod file #o644)
5467                        (substitute* file
5468                          (("^import re\n" line)
5469                           (string-append line "re._pattern_type = re.Pattern\n"))))
5470                      (find-files "." "\\.py$"))
5471            #t))))
5472     (build-system python-build-system)
5473     (arguments
5474      `(#:phases
5475        (modify-phases %standard-phases
5476          (delete 'check)
5477          (add-after 'install 'check
5478            (lambda* (#:key inputs outputs #:allow-other-keys)
5479              (add-installed-pythonpath inputs outputs)
5480              (setenv "PATH" (string-append (assoc-ref outputs "out") "/bin"
5481                                            ":" (getenv "PATH")))
5482              (invoke "py.test" "-v" "-k"
5483                      (string-append
5484                       ;; These tests attempt to make a connection to
5485                       ;; an external web service.
5486                       "not test_get_item_with_kwargs"
5487                       " and not test_ia")))))))
5488     (propagated-inputs
5489      `(("python-requests" ,python-requests)
5490        ("python-jsonpatch" ,python-jsonpatch-0.4)
5491        ("python-docopt" ,python-docopt)
5492        ("python-clint" ,python-clint)
5493        ("python-six" ,python-six)
5494        ("python-schema" ,python-schema-0.5)
5495        ("python-backports-csv" ,python-backports-csv)))
5496     (native-inputs
5497      `(("python-pytest" ,python-pytest)
5498        ("python-pytest-capturelog" ,python-pytest-capturelog)
5499        ("python-responses" ,python-responses)))
5500     (home-page "https://github.com/jjjake/internetarchive")
5501     (synopsis "Command-line interface to archive.org")
5502     (description "@code{ia} is a command-line tool for using
5503 @url{archive.org} from the command-line.  It also emplements the
5504 internetarchive python module for programmatic access to archive.org.")
5505     (license license:agpl3+)))
5506
5507 (define-public python-clf
5508   (let ((commit-test-clf "d01d25923c599d3261910f79fb948825b4270d07")) ; 0.5.7
5509     (package
5510       (name "python-clf")
5511       (version "0.5.7")
5512       (source
5513        (origin
5514          (method url-fetch)
5515          (uri (pypi-uri "clf" version))
5516          (sha256
5517           (base32
5518            "0zlkzqnpz7a4iavsq5vaz0nf5nr7qm5znpg1vlpz6rwnx6hikjdb"))))
5519       (build-system python-build-system)
5520       (propagated-inputs
5521        `(("python-docopt" ,python-docopt)
5522          ("python-pygments" ,python-pygments)
5523          ("python-requests" ,python-requests)
5524          ("python-nose" ,python-nose)
5525          ("python-lxml" ,python-lxml)
5526          ("python-pyaml" ,python-pyaml)))
5527       (inputs
5528        `(("test-clf"
5529           ,(origin
5530              (method url-fetch)
5531              (uri (string-append "https://raw.githubusercontent.com"
5532                                  "/ncrocfer/clf/" commit-test-clf
5533                                  "/test_clf.py"))
5534              (sha256
5535               (base32
5536                "19lr5zdzsmxgkg7wrjq1yzkiahd03wi4k3dskssyhmjls8c10nqd"))))))
5537       (arguments
5538        '(#:phases
5539          (modify-phases %standard-phases
5540            (add-after 'unpack 'get-tests
5541              (lambda _
5542                (copy-file (assoc-ref %build-inputs "test-clf") "test_clf.py")
5543                #t))
5544            (replace 'check
5545              (lambda _
5546                (invoke "nosetests"
5547                        ;; These tests require an Internet connection.
5548                        "--exclude=test_browse"
5549                        "--exclude=test_command"
5550                        "--exclude=test_search"))))))
5551       (home-page "https://github.com/ncrocfer/clf")
5552       (synopsis "Search code snippets on @url{https://commandlinefu.com}")
5553       (description "@code{clf} is a command line tool for searching code
5554 snippets on @url{https://commandlinefu.com}.")
5555       (license license:expat))))
5556
5557 (define-public python2-clf
5558   (package-with-python2 python-clf))
5559
5560 (define-public rss-bridge
5561   (package
5562     (name "rss-bridge")
5563     (version "2019-07-06")
5564     (source
5565      (origin
5566        (method git-fetch)
5567        (uri (git-reference
5568              (url "https://github.com/RSS-Bridge/rss-bridge")
5569              (commit version)))
5570        (file-name (git-file-name name version))
5571        (sha256
5572         (base32
5573          "0zd0c9xzvpx55mvj8xrafakfkvafnwkkvhw9b1j0bf897xdkfsyb"))))
5574     (build-system trivial-build-system)
5575     (arguments
5576      '(#:modules ((guix build utils))
5577        #:builder
5578        (begin
5579          (use-modules (guix build utils)
5580                       (ice-9 match))
5581          (let* ((out (assoc-ref %outputs "out"))
5582                 (share-rss-bridge (string-append out "/share/rss-bridge")))
5583            (mkdir-p share-rss-bridge)
5584            (copy-recursively (assoc-ref %build-inputs "source") share-rss-bridge)
5585            #t))))
5586     (home-page "https://github.com/RSS-Bridge/rss-bridge")
5587     (synopsis "Generate Atom feeds for social networking websites")
5588     (description "rss-bridge generates Atom feeds for social networking
5589 websites lacking feeds.  Supported websites include Facebook, Twitter,
5590 Instagram and YouTube.")
5591     (license (list license:public-domain
5592                    license:expat)))) ;; vendor/simplehtmldom/simple_html_dom.php
5593
5594 (define-public linkchecker
5595   (package
5596     (name "linkchecker")
5597     (version "9.4.0")
5598     (source
5599      (origin
5600        (method git-fetch)
5601        (uri (git-reference
5602              (url "https://github.com/linkchecker/linkchecker")
5603              (commit (string-append "v" version))))
5604        (patches
5605         (search-patches "linkchecker-tests-require-network.patch"))
5606        (file-name (git-file-name name version))
5607        (sha256
5608         (base32
5609          "03ihjmc4bqxxqv71bb43r2f23sx0xnbq1k2fsg9fw05qa5s9x187"))))
5610     (build-system python-build-system)
5611     (inputs
5612      `(("python2-dnspython" ,python2-dnspython)
5613        ("python2-pyxdg" ,python2-pyxdg)
5614        ("python2-requests" ,python2-requests)))
5615     (native-inputs
5616      `(("gettext" ,gettext-minimal)
5617        ("python2-pytest" ,python2-pytest)
5618        ("python2-miniboa" ,python2-miniboa)
5619        ("python2-parameterized" ,python2-parameterized)))
5620     (arguments
5621      `(#:python ,python-2
5622        #:phases
5623        (modify-phases %standard-phases
5624          ;; Move the 'check phase to after 'install, so that the installed
5625          ;; library can be used
5626          (delete 'check)
5627          (add-after 'install 'check
5628            (lambda* (#:key outputs #:allow-other-keys)
5629              (let ((out (assoc-ref outputs "out")))
5630                ;; Set PYTHONPATH so that the installed linkchecker is used
5631                (setenv "PYTHONPATH"
5632                        (string-append out "/lib/python2.7/site-packages"
5633                                       ":"
5634                                       (getenv "PYTHONPATH")))
5635                ;; Remove this directory to avoid it being used when running
5636                ;; the tests
5637                (delete-file-recursively "linkcheck")
5638
5639                (invoke "py.test" "tests"))
5640              #t)))))
5641     (home-page "https://linkcheck.github.io/linkchecker")
5642     (synopsis "Check websites for broken links")
5643     (description "LinkChecker is a website validator.  It checks for broken
5644 links in websites.  It is recursive and multithreaded providing output in
5645 colored or normal text, HTML, SQL, CSV, XML or as a sitemap graph.  It
5646 supports checking HTTP/1.1, HTTPS, FTP, mailto, news, nntp, telnet and local
5647 file links.")
5648     (license (list license:gpl2+
5649                    license:bsd-2              ; linkcheck/better_exchook2.py
5650                    license:bsd-3              ; linkcheck/colorama.py
5651                    license:psfl               ; linkcheck/gzip2.py
5652                    license:expat))))          ; linkcheck/mem.py
5653
5654 (define-public cadaver
5655   (package
5656     (name "cadaver")
5657     (version "0.23.3")
5658     (source
5659      (origin
5660        (method url-fetch)
5661        (uri (string-append "http://www.webdav.org/cadaver/"
5662                            name "-" version ".tar.gz"))
5663        (sha256
5664         (base32
5665          "1jizq69ifrjbjvz5y79wh1ny94gsdby4gdxwjad4bfih6a5fck7x"))))
5666     (build-system gnu-build-system)
5667     ;; TODO: Unbundle libneon and make build succeed with new neon.
5668     (arguments
5669      `(#:configure-flags (list "--with-ssl=openssl")
5670        #:tests? #f)) ;No tests included
5671     (native-inputs
5672      `(("gettext" ,gnu-gettext)
5673        ("pkg-config" ,pkg-config)
5674        ("intltool" ,intltool)))
5675     (inputs
5676      `(("expat" ,expat)
5677        ("openssl" ,openssl)))
5678     (home-page "http://www.webdav.org/cadaver")
5679     (synopsis "Command-line WebDAV client")
5680     (description
5681      "Cadaver is a command-line WebDAV client for Unix. It supports
5682 file upload, download, on-screen display, namespace operations (move/copy),
5683 collection creation and deletion, and locking operations.")
5684     (license license:gpl2)))
5685
5686 (define-public python-py-ubjson
5687   (package
5688     (name "python-py-ubjson")
5689     (version "0.10.0")
5690     (source
5691      (origin
5692        (method url-fetch)
5693        (uri (pypi-uri "py-ubjson" version))
5694        (sha256
5695         (base32
5696          "03l9m9w5ip4hw0y69wlys5gzsfb7zcq3a77blj88grgiqhn5vm5n"))))
5697     (build-system python-build-system)
5698     (home-page "https://github.com/Iotic-Labs/py-ubjson")
5699     (synopsis "Universal Binary JSON encoder/decoder")
5700     (description
5701      "Py-ubjson is a Python module providing an Universal Binary JSON
5702 encoder/decoder based on the draft-12 specification for UBJSON.")
5703     (license license:asl2.0)))
5704
5705 (define-public java-tomcat
5706   (package
5707     (name "java-tomcat")
5708     (version "8.5.38")
5709     (source (origin
5710               (method url-fetch)
5711               (uri (string-append "mirror://apache/tomcat/tomcat-8/v"
5712                                   version "/src/apache-tomcat-" version "-src.tar.gz"))
5713               (sha256
5714                (base32
5715                 "13pbsyk39g1qph82nngp54mqycmg60rxlxwy4yszsssahrqnggb2"))
5716               (modules '((guix build utils)))
5717               ;; Delete bundled jars.
5718               (snippet
5719                '(begin
5720                   (for-each delete-file (find-files "." "\\.jar$"))
5721                   #t))))
5722     (build-system ant-build-system)
5723     (inputs
5724      `(("java-eclipse-jdt-core" ,java-eclipse-jdt-core)))
5725     (native-inputs
5726      `(("java-junit" ,java-junit)))
5727     (arguments
5728      `(#:build-target "package"
5729        #:tests? #f; requires downloading some files.
5730        #:phases
5731        (modify-phases %standard-phases
5732          (add-after 'unpack 'prevent-download
5733            (lambda _
5734              ;; This directory must exist
5735              (mkdir "downloads")
5736              ;; We patch build.xml so it doesn't download any dependency, because
5737              ;; we already have all of them.
5738              (substitute* "build.xml"
5739                (("download-compile,") "")
5740                (("depends=\"validate\"") "depends=\"build-prepare\"")
5741                ((",download-validate") ""))
5742              #t))
5743          (add-after 'unpack 'strip-timestamps
5744            (lambda _
5745              (substitute* "build.xml"
5746                (("<filter token=\"YEAR\" value=.*")
5747                 "<filter token=\"YEAR\" value=\"1970\"/>")
5748                (("<filter token=\"VERSION_BUILT\" value=.*")
5749                 "<filter token=\"VERSION_BUILT\" value=\"Jan 1 1970 00:00:00 UTC\"/>"))
5750              #t))
5751          (add-after 'unpack 'generate-properties
5752            (lambda _
5753              ;; This could have been passed to make-flags, but getcwd returns
5754              ;; a different directory then.
5755              (with-output-to-file "build.properties"
5756                (lambda _
5757                  (display
5758                    (string-append "base.path=" (getcwd) "/downloads\n"))))
5759              #t))
5760          (replace 'install
5761            (install-jars "output/build/lib")))))
5762     (home-page "https://tomcat.apache.org")
5763     (synopsis "Java Servlet, JavaServer Pages, Java Expression Language and Java
5764 WebSocket")
5765     (description "Apache Tomcat is a free implementation of the Java
5766 Servlet, JavaServer Pages, Java Expression Language and Java WebSocket
5767 technologies.")
5768     (license license:asl2.0)))
5769
5770 (define-public java-eclipse-jetty-test-helper
5771   (package
5772     (name "java-eclipse-jetty-test-helper")
5773     (version "4.2")
5774     (source (origin
5775               (method url-fetch)
5776               (uri (string-append "https://github.com/eclipse/jetty.toolchain/"
5777                                   "archive/jetty-test-helper-" version ".tar.gz"))
5778               (sha256
5779                (base32
5780                 "1jd6r9wc26fa11si4rn2gvy8ml8q4zw1nr6v04mjp8wvwpgvzwx5"))))
5781     (build-system ant-build-system)
5782     (arguments
5783      `(#:jar-name "eclipse-jetty-test-helper.jar"
5784        #:source-dir "src/main/java"
5785        #:test-dir "src/test"
5786        #:jdk ,icedtea-8
5787        #:phases
5788        (modify-phases %standard-phases
5789          (add-before 'configure 'chdir
5790            (lambda _
5791              (chdir "jetty-test-helper")
5792              #t))
5793          (add-before 'build 'fix-paths
5794            (lambda _
5795              ;; TODO:
5796              ;; This file assumes that the build directory is named "target"
5797              ;; but it is not the case with our ant-build-system. Once we have
5798              ;; maven though, we will have to rebuild this package because this
5799              ;; assumption is correct with maven-build-system.
5800              (substitute*
5801                "src/main/java/org/eclipse/jetty/toolchain/test/MavenTestingUtils.java"
5802                (("\"target\"") "\"build\"")
5803                (("\"tests\"") "\"test-classes\""))
5804              ;; Tests assume we are building with maven, so that the build
5805              ;; directory is named "target", and not "build".
5806              (with-directory-excursion "src/test/java/org/eclipse/jetty/toolchain/test"
5807                (substitute* '("FSTest.java" "OSTest.java" "TestingDirTest.java"
5808                               "MavenTestingUtilsTest.java")
5809                  (("target/tests") "build/test-classes")
5810                  (("\"target") "\"build")))
5811              #t)))))
5812     (inputs
5813      `(("junit" ,java-junit)
5814        ("hamcrest" ,java-hamcrest-all)))
5815     (home-page "https://www.eclipse.org/jetty/")
5816     (synopsis "Helper classes for jetty tests")
5817     (description "This package contains helper classes for testing the Jetty
5818 Web Server.")
5819     ;; This program is licensed under both epl and asl.
5820     (license (list license:epl1.0 license:asl2.0))))
5821
5822 (define-public java-eclipse-jetty-perf-helper
5823   (package
5824     (inherit java-eclipse-jetty-test-helper)
5825     (name "java-eclipse-jetty-perf-helper")
5826     (arguments
5827      `(#:jar-name "eclipse-jetty-perf-helper.jar"
5828        #:source-dir "src/main/java"
5829        #:tests? #f; no tests
5830        #:jdk ,icedtea-8
5831        #:phases
5832        (modify-phases %standard-phases
5833          (add-before 'configure 'chdir
5834            (lambda _
5835              (chdir "jetty-perf-helper")
5836              #t)))))
5837     (inputs
5838      `(("hdrhistogram" ,java-hdrhistogram)))))
5839
5840 (define-public java-eclipse-jetty-util
5841   (package
5842     (name "java-eclipse-jetty-util")
5843     (version "9.4.6")
5844     (source (origin
5845               (method url-fetch)
5846               (uri (string-append "https://github.com/eclipse/jetty.project/"
5847                                   "archive/jetty-" version ".v20170531.tar.gz"))
5848               (sha256
5849                (base32
5850                 "0x7kbdvkmgr6kbsmbwiiyv3bb0d6wk25frgvld9cf8540136z9p1"))))
5851     (build-system ant-build-system)
5852     (arguments
5853      `(#:jar-name "eclipse-jetty-util.jar"
5854        #:source-dir "src/main/java"
5855        #:test-exclude
5856        (list "**/Abstract*.java"
5857              ;; requires network
5858              "**/InetAddressSetTest.java"
5859              ;; Assumes we are using maven
5860              "**/TypeUtilTest.java"
5861              ;; Error on the style of log
5862              "**/StdErrLogTest.java")
5863        #:jdk ,icedtea-8
5864        #:phases
5865        (modify-phases %standard-phases
5866          (add-before 'configure 'chdir
5867            (lambda _
5868              (chdir "jetty-util")
5869              #t)))))
5870     (inputs
5871      `(("slf4j" ,java-slf4j-api)
5872        ("servlet" ,java-tomcat)))
5873     (native-inputs
5874      `(("junit" ,java-junit)
5875        ("hamcrest" ,java-hamcrest-all)
5876        ("perf-helper" ,java-eclipse-jetty-perf-helper)
5877        ("test-helper" ,java-eclipse-jetty-test-helper)))
5878     (home-page "https://www.eclipse.org/jetty/")
5879     (synopsis "Utility classes for Jetty")
5880     (description "The Jetty Web Server provides an HTTP server and Servlet
5881 container capable of serving static and dynamic content either from a standalone
5882 or embedded instantiation.  This package provides utility classes.")
5883     (license (list license:epl1.0 license:asl2.0))))
5884
5885 ;; This version is required by maven-wagon
5886 (define-public java-eclipse-jetty-util-9.2
5887   (package
5888     (inherit java-eclipse-jetty-util)
5889     (version "9.2.22")
5890     (source (origin
5891               (method url-fetch)
5892               (uri (string-append "https://github.com/eclipse/jetty.project/"
5893                                   "archive/jetty-" version ".v20170606.tar.gz"))
5894               (sha256
5895                (base32
5896                 "1i51qlsd7h06d35kx5rqpzbfadbcszycx1iwr6vz7qc9gf9f29la"))))
5897     (arguments
5898      `(#:jar-name "eclipse-jetty-util.jar"
5899        #:source-dir "src/main/java"
5900        #:jdk ,icedtea-8
5901        #:test-exclude
5902        (list "**/Abstract*.java"
5903              ;; requires network
5904              "**/InetAddressSetTest.java"
5905              ;; Assumes we are using maven
5906              "**/TypeUtilTest.java"
5907              ;; We don't have an implementation for slf4j
5908              "**/LogTest.java"
5909              ;; Error on the style of log
5910              "**/StdErrLogTest.java")
5911        #:phases
5912        (modify-phases %standard-phases
5913          (add-before 'configure 'chdir
5914            (lambda _
5915              (chdir "jetty-util")
5916              #t))
5917          (add-before 'build 'fix-test-sources
5918            (lambda _
5919              ;; We need to fix issues caused by changes in newer versions of
5920              ;; jetty-test-helper
5921              (let ((src "src/test/java/org/eclipse/jetty/util/resource"))
5922                (substitute* (string-append src "/AbstractFSResourceTest.java")
5923                  (("testdir.getDir\\(\\)") "testdir.getPath().toFile()")
5924                  (("testdir.getFile\\(\"foo\"\\)")
5925                   "testdir.getPathFile(\"foo\").toFile()")
5926                  (("testdir.getFile\\(name\\)")
5927                   "testdir.getPathFile(name).toFile()")))
5928              #t)))))))
5929
5930 (define-public java-eclipse-jetty-io
5931   (package
5932     (inherit java-eclipse-jetty-util)
5933     (name "java-eclipse-jetty-io")
5934     (arguments
5935      `(#:jar-name "eclipse-jetty-io.jar"
5936        #:source-dir "src/main/java"
5937        #:jdk ,icedtea-8
5938        #:test-exclude (list "**/Abstract*.java"
5939                             ;; Abstract class
5940                             "**/EndPointTest.java")
5941        #:phases
5942        (modify-phases %standard-phases
5943          (add-before 'configure 'chdir
5944            (lambda _
5945              (chdir "jetty-io")
5946              #t)))))
5947     (inputs
5948      `(("slf4j" ,java-slf4j-api)
5949        ("servlet" ,java-javaee-servletapi)
5950        ("util" ,java-eclipse-jetty-util)))
5951     (synopsis "Jetty :: IO Utility")
5952     (description "The Jetty Web Server provides an HTTP server and Servlet
5953 container capable of serving static and dynamic content either from a standalone
5954 or embedded instantiation.  This package provides IO-related utility classes.")))
5955
5956 (define-public java-eclipse-jetty-io-9.2
5957   (package
5958     (inherit java-eclipse-jetty-io)
5959     (version (package-version java-eclipse-jetty-util-9.2))
5960     (source (package-source java-eclipse-jetty-util-9.2))
5961     (inputs
5962      `(("util" ,java-eclipse-jetty-util-9.2)
5963        ,@(package-inputs java-eclipse-jetty-util-9.2)))
5964     (native-inputs
5965      `(("mockito" ,java-mockito-1)
5966        ("cglib" ,java-cglib)
5967        ("objenesis" ,java-objenesis)
5968        ("asm" ,java-asm)
5969        ,@(package-native-inputs java-eclipse-jetty-util-9.2)))))
5970
5971 (define-public java-eclipse-jetty-http
5972   (package
5973     (inherit java-eclipse-jetty-util)
5974     (name "java-eclipse-jetty-http")
5975     (arguments
5976      `(#:jar-name "eclipse-jetty-http.jar"
5977        #:source-dir "src/main/java"
5978        #:jdk ,icedtea-8
5979        #:phases
5980        (modify-phases %standard-phases
5981          (add-before 'configure 'chdir
5982            (lambda _
5983              (chdir "jetty-http")
5984              #t))
5985          (add-before 'build 'copy-resources
5986            (lambda _
5987              (mkdir-p "build/classes")
5988              (copy-recursively "src/main/resources/" "build/classes/")
5989              #t)))))
5990     (inputs
5991      `(("slf4j" ,java-slf4j-api)
5992        ("servlet" ,java-javaee-servletapi)
5993        ("io" ,java-eclipse-jetty-io)
5994        ("util" ,java-eclipse-jetty-util)))
5995     (synopsis "Jetty :: Http Utility")
5996     (description "The Jetty Web Server provides an HTTP server and Servlet
5997 container capable of serving static and dynamic content either from a standalone
5998 or embedded instantiation.  This package provides HTTP-related utility classes.")))
5999
6000 (define-public java-eclipse-jetty-http-9.2
6001   (package
6002     (inherit java-eclipse-jetty-http)
6003     (version (package-version java-eclipse-jetty-util-9.2))
6004     (source (package-source java-eclipse-jetty-util-9.2))
6005     (inputs
6006      `(("util" ,java-eclipse-jetty-util-9.2)
6007        ("io" ,java-eclipse-jetty-io-9.2)
6008        ,@(package-inputs java-eclipse-jetty-util-9.2)))))
6009
6010 (define-public java-eclipse-jetty-jmx
6011   (package
6012     (inherit java-eclipse-jetty-util)
6013     (name "java-eclipse-jetty-jmx")
6014     (arguments
6015      `(#:jar-name "eclipse-jetty-jmx.jar"
6016        #:source-dir "src/main/java"
6017        #:jdk ,icedtea-8
6018        #:tests? #f; FIXME: requires com.openpojo.validation
6019        #:phases
6020        (modify-phases %standard-phases
6021          (add-before 'configure 'chdir
6022            (lambda _
6023              (chdir "jetty-jmx")
6024              #t)))))
6025     (inputs
6026      `(("slf4j" ,java-slf4j-api)
6027        ("servlet" ,java-javaee-servletapi)
6028        ("util" ,java-eclipse-jetty-util)))
6029     (synopsis "Jetty :: JMX Management")
6030     (description "The Jetty Web Server provides an HTTP server and Servlet
6031 container capable of serving static and dynamic content either from a standalone
6032 or embedded instantiation.  This package provides the JMX management.")))
6033
6034 (define-public java-eclipse-jetty-jmx-9.2
6035   (package
6036     (inherit java-eclipse-jetty-jmx)
6037     (version (package-version java-eclipse-jetty-util-9.2))
6038     (source (package-source java-eclipse-jetty-util-9.2))
6039     (inputs
6040      `(("util" ,java-eclipse-jetty-util-9.2)
6041        ,@(package-inputs java-eclipse-jetty-util-9.2)))))
6042
6043 (define java-eclipse-jetty-http-test-classes
6044   (package
6045     (inherit java-eclipse-jetty-util)
6046     (name "java-eclipse-jetty-http-test-classes")
6047     (arguments
6048      `(#:jar-name "eclipse-jetty-http.jar"
6049        #:source-dir "src/test"
6050        #:tests? #f
6051        #:jdk ,icedtea-8
6052        #:phases
6053        (modify-phases %standard-phases
6054          (add-before 'configure 'chdir
6055            (lambda _
6056              (chdir "jetty-http")
6057              #t)))))
6058     (inputs
6059      `(("slf4j" ,java-slf4j-api)
6060        ("servlet" ,java-tomcat)
6061        ("http" ,java-eclipse-jetty-http)
6062        ("io" ,java-eclipse-jetty-io)
6063        ("util" ,java-eclipse-jetty-util)))))
6064
6065 (define java-eclipse-jetty-http-test-classes-9.2
6066   (package
6067     (inherit java-eclipse-jetty-http-test-classes)
6068     (version (package-version java-eclipse-jetty-util-9.2))
6069     (source (package-source java-eclipse-jetty-util-9.2))
6070     (inputs
6071      `(("http" ,java-eclipse-jetty-http-9.2)
6072        ,@(package-inputs java-eclipse-jetty-http-9.2)))))
6073
6074 (define-public java-eclipse-jetty-server
6075   (package
6076     (inherit java-eclipse-jetty-util)
6077     (name "java-eclipse-jetty-server")
6078     (arguments
6079      `(#:jar-name "eclipse-jetty-server.jar"
6080        #:source-dir "src/main/java"
6081        #:jdk ,icedtea-8
6082        #:tests? #f; requires a mockito version we don't have
6083        #:phases
6084        (modify-phases %standard-phases
6085          (add-before 'configure 'chdir
6086            (lambda _
6087              (chdir "jetty-server")
6088              #t))
6089          (add-before 'build 'fix-source
6090            (lambda _
6091              ;; Explicit casts to prevent build failures
6092              (substitute* "src/main/java/org/eclipse/jetty/server/Request.java"
6093                (("append\\(LazyList")
6094                 "append((CharSequence)LazyList"))
6095              (substitute*
6096                "src/main/java/org/eclipse/jetty/server/handler/ContextHandler.java"
6097                (((string-append
6098                    "Class<\\? extends EventListener> clazz = _classLoader==null"
6099                    "\\?Loader.loadClass\\(ContextHandler.class,className\\):"
6100                    "_classLoader.loadClass\\(className\\);"))
6101                 (string-append "Class<? extends EventListener> clazz = "
6102                                "(Class<? extends EventListener>) "
6103                                "(_classLoader==null?Loader.loadClass("
6104                                "ContextHandler.class,className):"
6105                                "_classLoader.loadClass(className));")))
6106              #t)))))
6107     (inputs
6108      `(("slf4j" ,java-slf4j-api)
6109        ("servlet" ,java-javaee-servletapi)
6110        ("http" ,java-eclipse-jetty-http)
6111        ("io" ,java-eclipse-jetty-io)
6112        ("jmx" ,java-eclipse-jetty-jmx)
6113        ("util" ,java-eclipse-jetty-util)))
6114     (native-inputs
6115      `(("test-classes" ,java-eclipse-jetty-http-test-classes)
6116        ,@(package-native-inputs java-eclipse-jetty-util)))
6117     (synopsis "Core jetty server artifact")
6118     (description "The Jetty Web Server provides an HTTP server and Servlet
6119 container capable of serving static and dynamic content either from a standalone
6120 or embedded instantiation.  This package provides the core jetty server
6121 artifact.")))
6122
6123 (define-public java-eclipse-jetty-server-9.2
6124   (package
6125     (inherit java-eclipse-jetty-server)
6126     (version (package-version java-eclipse-jetty-util-9.2))
6127     (source (package-source java-eclipse-jetty-util-9.2))
6128     (inputs
6129      `(("util" ,java-eclipse-jetty-util-9.2)
6130        ("jmx" ,java-eclipse-jetty-jmx-9.2)
6131        ("io" ,java-eclipse-jetty-io-9.2)
6132        ("http" ,java-eclipse-jetty-http-9.2)
6133        ,@(package-inputs java-eclipse-jetty-util-9.2)))
6134     (native-inputs
6135      `(("test-classes" ,java-eclipse-jetty-http-test-classes-9.2)
6136        ,@(package-native-inputs java-eclipse-jetty-util-9.2)))))
6137
6138 (define-public java-eclipse-jetty-security
6139   (package
6140     (inherit java-eclipse-jetty-util)
6141     (name "java-eclipse-jetty-security")
6142     (arguments
6143      `(#:jar-name "eclipse-jetty-security.jar"
6144        #:source-dir "src/main/java"
6145        #:jdk ,icedtea-8
6146        #:test-exclude (list "**/ConstraintTest.*") ; This test fails
6147        #:phases
6148        (modify-phases %standard-phases
6149          (add-before 'configure 'chdir
6150            (lambda _
6151              (chdir "jetty-security")
6152              #t)))))
6153     (inputs
6154      `(("slf4j" ,java-slf4j-api)
6155        ("servlet" ,java-tomcat)
6156        ("http" ,java-eclipse-jetty-http)
6157        ("server" ,java-eclipse-jetty-server)
6158        ("util" ,java-eclipse-jetty-util)))
6159     (native-inputs
6160      `(("io" ,java-eclipse-jetty-io)
6161        ,@(package-native-inputs java-eclipse-jetty-util)))
6162     (synopsis "Jetty security infrastructure")
6163     (description "The Jetty Web Server provides an HTTP server and Servlet
6164 container capable of serving static and dynamic content either from a standalone
6165 or embedded instantiation.  This package provides the core jetty security
6166 infrastructure")))
6167
6168 (define-public java-eclipse-jetty-security-9.2
6169   (package
6170     (inherit java-eclipse-jetty-security)
6171     (version (package-version java-eclipse-jetty-util-9.2))
6172     (source (package-source java-eclipse-jetty-util-9.2))
6173     (inputs
6174      `(("util" ,java-eclipse-jetty-util-9.2)
6175        ("http" ,java-eclipse-jetty-http-9.2)
6176        ("server" ,java-eclipse-jetty-server-9.2)
6177        ,@(package-inputs java-eclipse-jetty-util-9.2)))
6178     (native-inputs
6179      `(("io" ,java-eclipse-jetty-io-9.2)
6180        ,@(package-native-inputs java-eclipse-jetty-util-9.2)))))
6181
6182 (define-public java-eclipse-jetty-servlet
6183   (package
6184     (inherit java-eclipse-jetty-util)
6185     (name "java-eclipse-jetty-servlet")
6186     (arguments
6187      `(#:jar-name "eclipse-jetty-servlet.jar"
6188        #:source-dir "src/main/java"
6189        #:jdk ,icedtea-8
6190        #:phases
6191        (modify-phases %standard-phases
6192          (add-before 'configure 'chdir
6193            (lambda _
6194              (chdir "jetty-servlet")
6195              #t)))))
6196     (inputs
6197      `(("slf4j" ,java-slf4j-api)
6198        ("servlet" ,java-tomcat)
6199        ("http" ,java-eclipse-jetty-http)
6200        ("http-test" ,java-eclipse-jetty-http-test-classes)
6201        ("io" ,java-eclipse-jetty-io)
6202        ("jmx" ,java-eclipse-jetty-jmx)
6203        ("security" ,java-eclipse-jetty-security)
6204        ("server" ,java-eclipse-jetty-server)
6205        ("util" ,java-eclipse-jetty-util)))
6206     (synopsis "Jetty Servlet Container")
6207     (description "The Jetty Web Server provides an HTTP server and Servlet
6208 container capable of serving static and dynamic content either from a standalone
6209 or embedded instantiation.  This package provides the core jetty servlet
6210 container.")))
6211
6212 (define-public java-eclipse-jetty-servlet-9.2
6213   (package
6214     (inherit java-eclipse-jetty-servlet)
6215     (version (package-version java-eclipse-jetty-util-9.2))
6216     (source (package-source java-eclipse-jetty-util-9.2))
6217     (arguments
6218      `(#:jar-name "eclipse-jetty-servlet.jar"
6219        #:source-dir "src/main/java"
6220        #:jdk ,icedtea-8
6221        #:tests? #f; doesn't work
6222        #:phases
6223        (modify-phases %standard-phases
6224          (add-before 'configure 'chdir
6225            (lambda _
6226              (chdir "jetty-servlet")
6227              #t)))))
6228     (inputs
6229      `(("util" ,java-eclipse-jetty-util-9.2)
6230        ("jmx" ,java-eclipse-jetty-jmx-9.2)
6231        ("io" ,java-eclipse-jetty-io-9.2)
6232        ("http" ,java-eclipse-jetty-http-9.2)
6233        ("security" ,java-eclipse-jetty-security-9.2)
6234        ("http-test" ,java-eclipse-jetty-http-test-classes-9.2)
6235        ("server" ,java-eclipse-jetty-server-9.2)
6236        ,@(package-inputs java-eclipse-jetty-util-9.2)))))
6237
6238 (define-public java-eclipse-jetty-xml
6239   (package
6240     (inherit java-eclipse-jetty-util)
6241     (name "java-eclipse-jetty-xml")
6242     (arguments
6243      `(#:jar-name "eclipse-jetty-xml.jar"
6244        #:source-dir "src/main/java"
6245        #:jdk ,icedtea-8
6246        #:tests? #f; most tests require network
6247        #:phases
6248        (modify-phases %standard-phases
6249          (add-before 'configure 'chdir
6250            (lambda _
6251              (chdir "jetty-xml")
6252              #t)))))
6253     (inputs
6254      `(("java-eclipse-jetty-util" ,java-eclipse-jetty-util)))
6255     (native-inputs
6256      `(("java-eclipse-jetty-io" ,java-eclipse-jetty-io)
6257        ,@(package-native-inputs java-eclipse-jetty-util)))))
6258
6259 (define-public java-eclipse-jetty-xml-9.2
6260   (package
6261     (inherit java-eclipse-jetty-xml)
6262     (version (package-version java-eclipse-jetty-util-9.2))
6263     (source (package-source java-eclipse-jetty-util-9.2))
6264     (arguments
6265      `(#:jar-name "eclipse-jetty-xml.jar"
6266        #:source-dir "src/main/java"
6267        #:jdk ,icedtea-8
6268        #:tests? #f; most tests require network
6269        #:phases
6270        (modify-phases %standard-phases
6271          (add-before 'configure 'chdir
6272            (lambda _
6273              (chdir "jetty-xml")
6274              #t)))))
6275     (inputs
6276      `(("java-eclipse-jetty-util-9.2" ,java-eclipse-jetty-util-9.2)
6277        ,@(package-inputs java-eclipse-jetty-util-9.2)))
6278     (native-inputs
6279      `(("java-eclipse-jetty-io-9.2" ,java-eclipse-jetty-io-9.2)
6280        ,@(package-native-inputs java-eclipse-jetty-util-9.2)))))
6281
6282 (define-public java-eclipse-jetty-webapp
6283   (package
6284     (inherit java-eclipse-jetty-util)
6285     (name "java-eclipse-jetty-webapp")
6286     (arguments
6287      `(#:jar-name "eclipse-jetty-webapp.jar"
6288        #:source-dir "src/main/java"
6289        #:jdk ,icedtea-8
6290        ;; One test fails
6291        #:test-exclude (list "**/WebAppContextTest.java")
6292        #:phases
6293        (modify-phases %standard-phases
6294          (add-before 'configure 'chdir
6295            (lambda _
6296              (chdir "jetty-webapp")
6297              #t)))))
6298     (inputs
6299      `(("java-eclipse-jetty-util" ,java-eclipse-jetty-util)
6300        ("java-eclipse-jetty-http" ,java-eclipse-jetty-http)
6301        ("java-eclipse-jetty-server" ,java-eclipse-jetty-server)
6302        ("java-eclipse-jetty-servlet" ,java-eclipse-jetty-servlet)
6303        ("java-eclipse-jetty-security" ,java-eclipse-jetty-security)
6304        ("java-eclipse-jetty-xml" ,java-eclipse-jetty-xml)
6305        ("java-javaee-servletapi" ,java-javaee-servletapi)))
6306     (native-inputs
6307      `(("java-eclipse-jetty-io" ,java-eclipse-jetty-io)
6308        ,@(package-native-inputs java-eclipse-jetty-util)))))
6309
6310 (define-public java-eclipse-jetty-webapp-9.2
6311   (package
6312     (inherit java-eclipse-jetty-webapp)
6313     (version (package-version java-eclipse-jetty-util-9.2))
6314     (source (package-source java-eclipse-jetty-util-9.2))
6315     (arguments
6316      `(#:jar-name "eclipse-jetty-webapp.jar"
6317        #:source-dir "src/main/java"
6318        #:jdk ,icedtea-8
6319        #:test-exclude (list "**/WebAppContextTest.java")
6320        #:phases
6321        (modify-phases %standard-phases
6322          (add-before 'configure 'chdir
6323            (lambda _
6324              (chdir "jetty-webapp")
6325              #t)))))
6326     (inputs
6327      `(("java-eclipse-jetty-util-9.2" ,java-eclipse-jetty-util-9.2)
6328        ("java-eclipse-jetty-http-9.2" ,java-eclipse-jetty-http-9.2)
6329        ("java-eclipse-jetty-server-9.2" ,java-eclipse-jetty-server-9.2)
6330        ("java-eclipse-jetty-servlet-9.2" ,java-eclipse-jetty-servlet-9.2)
6331        ("java-eclipse-jetty-security-9.2" ,java-eclipse-jetty-security-9.2)
6332        ("java-eclipse-jetty-xml-9.2" ,java-eclipse-jetty-xml-9.2)
6333        ("java-tomcat" ,java-tomcat)
6334        ,@(package-inputs java-eclipse-jetty-util-9.2)))
6335     (native-inputs
6336      `(("java-eclipse-jetty-io-9.2" ,java-eclipse-jetty-io-9.2)
6337        ,@(package-native-inputs java-eclipse-jetty-util-9.2)))))
6338
6339 (define-public java-jsoup
6340   (package
6341     (name "java-jsoup")
6342     (version "1.10.3")
6343     (source (origin
6344               (method url-fetch)
6345               (uri (string-append "https://github.com/jhy/jsoup/archive/jsoup-"
6346                                   version ".tar.gz"))
6347               (sha256
6348                (base32
6349                 "0xbzw7rjv7s4nz1xk9b2cnin6zkpaldmc3svk71waa7hhjgp0a20"))))
6350     (build-system ant-build-system)
6351     (arguments
6352      `(#:jar-name "jsoup.jar"
6353        #:source-dir "src/main/java"
6354        #:phases
6355        (modify-phases %standard-phases
6356          (add-before 'build 'copy-resources
6357            (lambda _
6358              (let ((classes-dir (string-append (getcwd) "/build/classes")))
6359                (with-directory-excursion "src/main/java"
6360                  (for-each (lambda (file)
6361                              (let ((dist (string-append classes-dir "/" file)))
6362                                (mkdir-p (dirname dist))
6363                                (copy-file file dist)))
6364                    (find-files "." ".*.properties"))))
6365              #t)))))
6366     (native-inputs
6367      `(("java-junit" ,java-junit)
6368        ("java-hamcrest-core" ,java-hamcrest-core)
6369        ("java-gson" ,java-gson)))
6370     (home-page "https://jsoup.org")
6371     (synopsis "HTML parser")
6372     (description "Jsoup is a Java library for working with real-world HTML.  It
6373 provides a very convenient API for extracting and manipulating data, using the
6374 best of DOM, CSS, and jQuery-like methods.")
6375     (license license:expat)))
6376
6377 (define-public tidyp
6378   (package
6379     (name "tidyp")
6380     (version "1.04")
6381     (source
6382      (origin
6383        (method url-fetch)
6384        (uri (string-append "https://github.com/downloads/petdance/tidyp/tidyp-"
6385                            version ".tar.gz"))
6386        (sha256
6387         (base32
6388          "0f5ky0ih4vap9c6j312jn73vn8m2bj69pl2yd3a5nmv35k9zmc10"))))
6389     (build-system gnu-build-system)
6390     ;; ./test-thing.sh tries to run ./testall.sh, which is not included.
6391     (arguments `(#:tests? #f))
6392     (home-page "http://www.tidyp.com/")
6393     (synopsis "Validate HTML")
6394     (description "Tidyp is a program that can validate your HTML, as well as
6395 modify it to be more clean and standard.  tidyp does not validate HTML 5.
6396
6397 libtidyp is the library on which the program is based.  It can be used by any
6398 other program that can interface to it.  The Perl module @code{HTML::Tidy} is
6399 based on this library, allowing Perl programmers to easily validate HTML.")
6400     ;; See htmldoc/license.html
6401     (license license:bsd-3)))
6402
6403 (define-public perl-html-tidy
6404   (package
6405     (name "perl-html-tidy")
6406     (version "1.60")
6407     (source
6408      (origin
6409        (method url-fetch)
6410        (uri (string-append "mirror://cpan/authors/id/P/PE/PETDANCE/HTML-Tidy-"
6411                            version ".tar.gz"))
6412        (sha256
6413         (base32
6414          "1iyp2fd6j75cn1xvcwl2lxr8qpjxssy2360cyqn6g3kzd1fzdyxw"))))
6415     (build-system perl-build-system)
6416     (arguments
6417      '(#:phases
6418        (modify-phases %standard-phases
6419          (add-after 'unpack 'fix-tidyp-paths
6420            (lambda* (#:key inputs #:allow-other-keys)
6421              (substitute* "Makefile.PL"
6422                (("^my \\$inc = \"" line)
6423                 (string-append line
6424                                "-I" (assoc-ref inputs "tidyp") "/include/tidyp "))
6425                (("-L/usr/lib")
6426                 (string-append
6427                  "-L" (assoc-ref inputs "tidyp") "/lib")))
6428              #t)))))
6429     (inputs
6430      `(("perl-libwww" ,perl-libwww)
6431        ("tidyp" ,tidyp)))
6432     (native-inputs
6433      `(("perl-test-exception" ,perl-test-exception)))
6434     (home-page "https://metacpan.org/release/HTML-Tidy")
6435     (synopsis "(X)HTML validation in a Perl object")
6436     (description "@code{HTML::Tidy} is an HTML checker in a handy dandy
6437 object.  It's meant as a replacement for @code{HTML::Lint}, which is written
6438 in Perl but is not nearly as capable as @code{HTML::Tidy}.")
6439     (license license:artistic2.0)))
6440
6441 (define-public geomyidae
6442   (package
6443     (name "geomyidae")
6444     (version "0.34")
6445     (source
6446      (origin
6447        (method git-fetch)
6448        (uri (git-reference
6449              (url "git://r-36.net/geomyidae")
6450              (commit (string-append "v" version))))
6451        (file-name (git-file-name name version))
6452        (sha256
6453         (base32 "02afgrk36wkdkflyqr2xgh49v9zq6ma454jshk7igvhpxfb5l3ks"))))
6454     (build-system gnu-build-system)
6455     (arguments
6456      `(#:make-flags (list "CC=gcc"
6457                           (string-append "PREFIX="
6458                                          (assoc-ref %outputs "out")))
6459        #:tests? #f                      ; no tests
6460        #:phases (modify-phases %standard-phases
6461                   (delete 'configure))))
6462     (home-page "http://r-36.net/scm/geomyidae/file/README.html")
6463     (synopsis "Small Gopher server")
6464     (description
6465      "Geomyidae is a server for distributed hypertext protocol Gopher.  Its
6466 features include:
6467
6468 @enumerate
6469 @item Gopher menus (see @file{index.gph} for an example);
6470 @item directory listings (if no @file{index.gph} was found);
6471 @item CGI support (@file{.cgi} files are executed);
6472 @item search support in CGI files;
6473 @item logging with multiple log levels.
6474 @end enumerate\n")
6475     (license license:expat)))
6476
6477 (define-public cat-avatar-generator
6478   (package
6479     (name "cat-avatar-generator")
6480     (version "1")
6481     (source (origin
6482               (method git-fetch)
6483               (uri (git-reference
6484                      (url "https://framagit.org/Deevad/cat-avatar-generator.git")
6485                      (commit "71c0c662742cafe8afd2d2d50ec84243113e35ad")))
6486               (file-name (string-append name "-" version))
6487               (sha256
6488                (base32
6489                 "0s7b5whqsmfa57prbgl66ym551kg6ly0z14h5dgrlx4lqm70y2yw"))))
6490     (build-system trivial-build-system)
6491     (arguments
6492      `(#:modules ((guix build utils)
6493                   (srfi srfi-1)
6494                   (srfi srfi-26))
6495        #:builder
6496        (begin
6497          (use-modules (guix build utils)
6498                       (srfi srfi-1)
6499                       (srfi srfi-26))
6500          (let ((source (assoc-ref %build-inputs "source"))
6501                (php-dir (string-append %output "/share/web/" ,name "/")))
6502            ;; The cache directory must not be in the store, but in a writable
6503            ;; location.  The webserver will give us this location.
6504            (copy-recursively source php-dir)
6505            (substitute* (string-append php-dir "/cat-avatar-generator.php")
6506              (("\\$cachepath = .*")
6507               "if(isset($_SERVER['CACHE_DIR']))
6508 $cachepath = $_SERVER['CACHE_DIR'];
6509 else
6510 die('You need to set the CACHE_DIR variable first.');"))
6511            #t))))
6512     (home-page "https://framagit.org/Deevad/cat-avatar-generator")
6513     (synopsis "Random avatar generator")
6514     (description "Cat avatar generator is a generator of cat pictures optimised
6515 to generate random avatars, or defined avatar from a \"seed\".  This is a
6516 derivation by David Revoy from the original MonsterID by Andreas Gohr.")
6517     ;; expat for the code, CC-BY 4.0 for the artwork
6518     (license (list license:expat
6519                    license:cc-by4.0))))
6520
6521 (define-public nghttp2
6522   (package
6523     (name "nghttp2")
6524     (version "1.39.1")
6525     (source
6526      (origin
6527        (method url-fetch)
6528        (uri (string-append "https://github.com/nghttp2/nghttp2/"
6529                            "releases/download/v" version "/"
6530                            "nghttp2-" version ".tar.xz"))
6531        (sha256
6532         (base32
6533          "0j0lk37k8k3f61r9nw647hg4b22z1753l36n3xrp9x01civ614b7"))))
6534     (build-system gnu-build-system)
6535     (outputs (list "out"
6536                    "lib"))              ; only libnghttp2
6537     (native-inputs
6538      `(("pkg-config" ,pkg-config)
6539
6540        ;; Required by tests.
6541        ("cunit" ,cunit)
6542        ("tzdata" ,tzdata-for-tests)))
6543     (inputs
6544      ;; Required to build the tools (i.e. without ‘--enable-lib-only’).
6545      `(("c-ares" ,c-ares)
6546        ("jansson" ,jansson)             ; for HPACK tools
6547        ("jemalloc" ,jemalloc)           ; fight nghttpd{,x} heap fragmentation
6548        ("libev" ,libev)
6549        ("libxml2" ,libxml2)             ; for ‘nghttp -a’
6550        ("openssl" ,openssl)))
6551     (arguments
6552      `(#:configure-flags
6553        (list (string-append "--libdir=" (assoc-ref %outputs "lib") "/lib")
6554              "--enable-app"             ; build all the tools
6555              "--enable-hpack-tools"     ; ...all the tools
6556              "--disable-examples"
6557              "--disable-static")        ; don't bother building .a files
6558        #:phases
6559        (modify-phases %standard-phases
6560          (add-after 'unpack 'break-circular-reference
6561            ;; libnghttp2.pc by default retains a reference to the ‘out’ output,
6562            ;; which is not allowed.  Break this cycle.  While we could install
6563            ;; only the library to ‘out’ and move everything else to a separate
6564            ;; output, this would inconvenience the majority of (human) users.
6565            (lambda* (#:key outputs #:allow-other-keys)
6566              (substitute* "lib/libnghttp2.pc.in"
6567                (("@prefix@")
6568                 (assoc-ref outputs "lib")))
6569              #t))
6570          (add-before 'check 'set-timezone-directory
6571            (lambda* (#:key inputs #:allow-other-keys)
6572              (setenv "TZDIR" (string-append (assoc-ref inputs "tzdata")
6573                                             "/share/zoneinfo"))
6574              #t)))))
6575     (home-page "https://nghttp2.org/")
6576     (synopsis "HTTP/2 protocol client, proxy, server, and library")
6577     (description
6578      "nghttp2 implements the Hypertext Transfer Protocol, version
6579 2 (@dfn{HTTP/2}).
6580
6581 A reusable C library provides the HTTP/2 framing layer, with several tools built
6582 on top of it:
6583
6584 @itemize
6585 @item @command{nghttp}, a command-line HTTP/2 client.  It exposes many advanced
6586 and low-level aspects of the protocol and is useful for debugging.
6587 @item @command{nghttpd}, a fast, multi-threaded HTTP/2 static web server that
6588 serves files from a local directory.
6589 @item @command{nghttpx}, a fast, multi-threaded HTTP/2 reverse proxy that can be
6590 deployed in front of existing web servers that don't support HTTP/2.
6591 Both @command{nghttpd} and @command{nghttpx} can fall back to HTTP/1.1 for
6592 backwards compatibility with clients that don't speak HTTP/2.
6593 @item @command{h2load} for benchmarking (only!) your own HTTP/2 servers.
6594 @item HTTP/2 uses a header compression method called @dfn{HPACK}.
6595 nghttp2 provides a HPACK encoder and decoder as part of its public API.
6596 @item @command{deflatehd} converts JSON data or HTTP/1-style header fields to
6597 compressed JSON header blocks.
6598 @item @command{inflatehd} converts such compressed headers back to JSON pairs.
6599 @end itemize\n")
6600     (license license:expat)))
6601
6602 (define-public hpcguix-web
6603   (let ((commit "f39c90b35e99e4122b0866ec4337020d61c81508")
6604         (revision "4"))
6605     (package
6606       (name "hpcguix-web")
6607       (version (git-version "0.0.1" revision commit))
6608       (source (origin
6609                 (method git-fetch)
6610                 (uri (git-reference
6611                       (url "https://github.com/UMCUGenetics/hpcguix-web.git")
6612                       (commit commit)))
6613                 (file-name (git-file-name name version))
6614                 (sha256
6615                  (base32
6616                   "0idzzlwnaymk6hm5q9nh146h5m6vd8acp32vlmzp6qq08mimfkq7"))))
6617       (build-system gnu-build-system)
6618       (arguments
6619        `(#:modules ((guix build gnu-build-system)
6620                     (guix build utils)
6621                     (srfi srfi-26)
6622                     (ice-9 popen)
6623                     (ice-9 rdelim))
6624          #:phases
6625          (modify-phases %standard-phases
6626            (add-before 'configure 'set-variables
6627              (lambda _
6628                ;; This prevents a few warnings
6629                (setenv "GUILE_AUTO_COMPILE" "0")
6630                (setenv "XDG_CACHE_HOME" (getcwd))
6631                #t))
6632            (add-after 'install 'wrap-program
6633              (lambda* (#:key inputs outputs #:allow-other-keys)
6634                (let* ((out      (assoc-ref outputs "out"))
6635                       (guix     (assoc-ref inputs "guix"))
6636                       (guile    (assoc-ref inputs "guile"))
6637                       (gcrypt   (assoc-ref inputs "guile-gcrypt"))
6638                       (git      (assoc-ref inputs "guile-git"))
6639                       (bs       (assoc-ref inputs "guile-bytestructures"))
6640                       (json     (assoc-ref inputs "guile-json"))
6641                       (guile-cm (assoc-ref inputs
6642                                            "guile-commonmark"))
6643                       (deps (list guile gcrypt git bs guile-cm guix json))
6644                       (effective
6645                        (read-line
6646                         (open-pipe* OPEN_READ
6647                                     (string-append guile "/bin/guile")
6648                                     "-c" "(display (effective-version))")))
6649                       (path   (string-join
6650                                (map (cut string-append <>
6651                                          "/share/guile/site/"
6652                                          effective)
6653                                     deps)
6654                                ":"))
6655                       (gopath (string-join
6656                                (map (cut string-append <>
6657                                          "/lib/guile/" effective
6658                                          "/site-ccache")
6659                                     deps)
6660                                ":")))
6661                  (wrap-program (string-append out "/bin/run")
6662                    `("GUILE_LOAD_PATH" ":" prefix (,path))
6663                    `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,gopath)))
6664
6665                  #t))))))
6666       (native-inputs
6667        `(("autoconf" ,autoconf)
6668          ("automake" ,automake)
6669          ("uglify-js" ,uglify-js)
6670          ("pkg-config" ,pkg-config)))
6671       (inputs
6672        `(("guix" ,guix)))
6673       (propagated-inputs
6674        `(("guile" ,guile-2.2)
6675          ("guile-commonmark" ,guile-commonmark)
6676          ("guile-json" ,guile-json-3)))
6677       (home-page "https://github.com/UMCUGenetics/hpcguix-web")
6678       (synopsis "Web interface for cluster deployments of Guix")
6679       (description "Hpcguix-web provides a web interface to the list of packages
6680 provided by Guix.  The list of packages is searchable and provides
6681 instructions on how to use Guix in a shared HPC environment.")
6682       (license license:agpl3+))))
6683
6684 (define-public httrack
6685   (package
6686     (name "httrack")
6687     (version "3.49.2")
6688     (source (origin
6689               (method url-fetch)
6690               (uri (string-append "https://mirror.httrack.com/historical/"
6691                                   "httrack-" version ".tar.gz"))
6692               (sha256
6693                (base32
6694                 "09a0gm67nml86qby1k1gh7rdxamnrnzwr6l9r5iiq94favjs0xrl"))))
6695     (build-system gnu-build-system)
6696     (inputs
6697      `(("libressl" ,libressl)
6698        ("zlib" ,zlib)))
6699     (home-page "https://www.httrack.com/")
6700     (synopsis "Easy-to-use offline browser utility")
6701     (description "HTTrack allows you to download a World Wide Web site from
6702 the Internet to a local directory, building recursively all directories,
6703 getting HTML, images, and other files from the server to your computer.
6704
6705 HTTrack arranges the original site's relative link-structure.  Simply open
6706 a page of the ``mirrored'' website in your browser, and you can browse the
6707 site from link to link, as if you were viewing it online.  HTTrack can also
6708 update an existing mirrored site, and resume interrupted downloads.
6709
6710 HTTrack is fully configurable, and has an integrated help system.")
6711     (license license:gpl3+)))
6712
6713 (define-public anonip
6714   (package
6715     (name "anonip")
6716     (version "1.0.0")
6717     (source (origin
6718               (method url-fetch)
6719               (uri (pypi-uri "anonip" version))
6720               (sha256
6721                (base32
6722                 "0ckn9nnfhpdnz8b92q8pkysdqj6pdh71ckfqvfj0z01cq0hzbhd2"))))
6723     (build-system python-build-system)
6724     (home-page "https://github.com/DigitaleGesellschaft/Anonip")
6725     (synopsis "Anonymize IP addresses in log files")
6726     (description
6727      "Anonip masks the last bits of IPv4 and IPv6 addresses in log files.
6728 That way most of the relevant information is preserved, while the IP address
6729 does not match a particular individuum anymore.
6730
6731 Depending on your Web server, the log entries may be piped to Anonip directly
6732 or via a FIFO (named pipe).  Thus the unmasked IP addresses will never be
6733 written to any file.
6734
6735 It's also possible to rewrite existing log files.
6736
6737 Anonip can also be uses as a Python module in your own Python application.")
6738     (license license:bsd-3)))
6739
6740 (define-public poussetaches
6741   (package
6742     (name "poussetaches")
6743     (version "0.0.2")
6744     (source
6745      (origin
6746        (method git-fetch)
6747        (uri (git-reference
6748              (url "https://github.com/tsileo/poussetaches")
6749              (commit version)))
6750        (file-name (git-file-name name version))
6751        (sha256
6752         (base32
6753          "0kckcwvqklavd855np9aq5js6mg84isrlwchr504yigwma0sm7hm"))))
6754     (build-system go-build-system)
6755     (propagated-inputs
6756      `(("go-github-com-robfig-cron" ,go-github-com-robfig-cron)
6757        ("go-golang-org-x-time-rate" ,go-golang-org-x-time-rate)))
6758     (arguments
6759      `(#:import-path "github.com/tsileo/poussetaches"))
6760     (home-page "https://github.com/tsileo/poussetaches")
6761     (synopsis "Lightweight asynchronous task execution service")
6762     (description "Poussetaches (which literally means \"push tasks\" in
6763 French) is a lightweight asynchronous task execution service that aims to
6764 replace Celery and RabbitMQ for small Python applications.
6765
6766 The app posts base64-encoded payload to poussetaches and specifies the
6767 endpoint that will be used to trigger the task.  Poussetaches makes HTTP
6768 requests with the registered payload until the right status code is
6769 returned.")
6770     (license license:isc)))