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