* gnu/packages/abiword.scm, gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/backup.scm, gnu/packages/bittorrent.scm, gnu/packages/boost.scm, gnu/packages/compression.scm, gnu/packages/cryptsetup.scm, gnu/packages/curl.scm, gnu/packages/cyrus-sasl.scm, gnu/packages/dc.scm, gnu/packages/emacs.scm, gnu/packages/fonts.scm, gnu/packages/fontutils.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm, gnu/packages/gimp.scm, gnu/packages/gkrellm.scm, gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm, gnu/packages/gnutls.scm, gnu/packages/gnuzilla.scm, gnu/packages/gsasl.scm, gnu/packages/gtk.scm, gnu/packages/gv.scm, gnu/packages/image.scm, gnu/packages/indent.scm, gnu/packages/inkscape.scm, gnu/packages/lesstif.scm, gnu/packages/links.scm, gnu/packages/lisp.scm, gnu/packages/lsh.scm, gnu/packages/lsof.scm, gnu/packages/maths.scm, gnu/packages/mp3.scm, gnu/packages/openssl.scm, gnu/packages/ots.scm, gnu/packages/pciutils.scm, gnu/packages/pcre.scm, gnu/packages/pdf.scm, gnu/packages/pulseaudio.scm, gnu/packages/python.scm, gnu/packages/slim.scm, gnu/packages/ssh.scm, gnu/packages/texlive.scm, gnu/packages/vim.scm, gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wv.scm, gnu/packages/xiph.scm, gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/packages/yasm.scm, gnu/packages/zip.scm, guix/build/cmake-build-system.scm, guix/build/perl-build-system.scm, guix/build/python-build-system.scm, guix/download.scm: Replaces uses of #:renamer and 'symbol-prefix-proc' with #:prefix.
		
			
				
	
	
		
			549 lines
		
	
	
	
		
			21 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			549 lines
		
	
	
	
		
			21 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | |
| ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
 | |
| ;;; Copyright © 2013 Aljosha Papsch <misc@rpapsch.de>
 | |
| ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
 | |
| ;;;
 | |
| ;;; This file is part of GNU Guix.
 | |
| ;;;
 | |
| ;;; GNU Guix is free software; you can redistribute it and/or modify it
 | |
| ;;; under the terms of the GNU General Public License as published by
 | |
| ;;; the Free Software Foundation; either version 3 of the License, or (at
 | |
| ;;; your option) any later version.
 | |
| ;;;
 | |
| ;;; GNU Guix is distributed in the hope that it will be useful, but
 | |
| ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
 | |
| ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | |
| ;;; GNU General Public License for more details.
 | |
| ;;;
 | |
| ;;; You should have received a copy of the GNU General Public License
 | |
| ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | |
| 
 | |
| (define-module (gnu packages web)
 | |
|   #:use-module ((guix licenses) #:prefix l:)
 | |
|   #:use-module (guix packages)
 | |
|   #:use-module (guix download)
 | |
|   #:use-module (guix git-download)
 | |
|   #:use-module (guix build-system gnu)
 | |
|   #:use-module (guix build-system perl)
 | |
|   #:use-module (guix build-system cmake)
 | |
|   #:use-module (gnu packages apr)
 | |
|   #:use-module (gnu packages asciidoc)
 | |
|   #:use-module (gnu packages docbook)
 | |
|   #:use-module (gnu packages autotools)
 | |
|   #:use-module ((gnu packages compression) #:select (zlib))
 | |
|   #:use-module (gnu packages openssl)
 | |
|   #:use-module (gnu packages pcre)
 | |
|   #:use-module (gnu packages xml)
 | |
|   #:use-module (gnu packages perl))
 | |
| 
 | |
| (define-public httpd
 | |
|   (package
 | |
|     (name "httpd")
 | |
|     (version "2.4.6")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append "mirror://apache/httpd/httpd-"
 | |
|                                  version ".tar.bz2"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "1sig08xxq1kqxr2a42ndwr9g4mm6zdqnxldhxraym2y0xcjkd7yw"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (inputs `(("apr" ,apr)
 | |
|               ("apr-util" ,apr-util)
 | |
|               ("openssl" ,openssl)
 | |
|               ("pcre" ,pcre)))
 | |
|     (arguments
 | |
|      `(#:test-target "test"
 | |
|        #:configure-flags (list "--enable-rewrite"
 | |
|                                "--enable-userdir"
 | |
|                                "--enable-vhost-alias"
 | |
|                                "--enable-ssl"
 | |
|                                "--enable-mime-magic"
 | |
|                                (string-append "--sysconfdir="
 | |
|                                               (assoc-ref %outputs "out")
 | |
|                                               "/etc/httpd"))))
 | |
|     (synopsis "Featureful HTTP server")
 | |
|     (description
 | |
|      "The Apache HTTP Server Project is a collaborative software development
 | |
| effort aimed at creating a robust, commercial-grade, featureful, and
 | |
| freely-available source code implementation of an HTTP (Web) server. The project
 | |
| is jointly managed by a group of volunteers located around the world, using the
 | |
| Internet and the Web to communicate, plan, and develop the server and its
 | |
| related documentation.")
 | |
|     (license l:asl2.0)
 | |
|     (home-page "https://httpd.apache.org/")))
 | |
| 
 | |
| (define-public json-c
 | |
|   (package
 | |
|     (name "json-c")
 | |
|     (version "0.12")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append "https://s3.amazonaws.com/json-c_releases/releases/json-c-"
 | |
|                                  version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "0gwzic3ifg2d0w32ya3agpxh8i083cgvf7kmc51cnbgqnfr02300"))
 | |
|              (modules '((guix build utils)))
 | |
|              (snippet
 | |
|               '(begin
 | |
|                  ;; Somehow 'config.h.in' is older than
 | |
|                  ;; 'aclocal.m4', which would trigger a rule to
 | |
|                  ;; run 'autoheader'.
 | |
|                  (set-file-time "config.h.in"
 | |
|                                 (stat "aclocal.m4"))
 | |
| 
 | |
|                  ;; Don't try to build with -Werror.
 | |
|                  (substitute* (find-files "." "Makefile\\.in")
 | |
|                    (("-Werror") ""))))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments '(#:parallel-build? #f
 | |
|                  #:parallel-tests? #f))
 | |
|     (home-page "https://github.com/json-c/json-c/wiki")
 | |
|     (synopsis "JSON implementation in C")
 | |
|     (description
 | |
|      "JSON-C implements a reference counting object model that allows you to
 | |
| easily construct JSON objects in C, output them as JSON formatted strings and
 | |
| parse JSON formatted strings back into the C representation of JSON objects.")
 | |
|     (license l:x11)))
 | |
| 
 | |
| (define-public libwebsockets
 | |
|   (package
 | |
|     (name "libwebsockets")
 | |
|     (version "1.3")
 | |
|     (source (origin
 | |
|               ;; The project does not publish tarballs, so we have to take
 | |
|               ;; things from Git.
 | |
|               (method git-fetch)
 | |
|               (uri (git-reference
 | |
|                     (url "git://git.libwebsockets.org/libwebsockets")
 | |
|                     (commit (string-append "v" version
 | |
|                                            "-chrome37-firefox30"))))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "12fqh2d2098mgf0ls19p9lzibpsqhv7mc5rn1yvrbfnazmcr40g4"))
 | |
|               (file-name (string-append name "-" version))))
 | |
| 
 | |
|     (build-system cmake-build-system)
 | |
|     (arguments
 | |
|      ;; XXX: The thing lacks a 'make test' target, because CMakeLists.txt
 | |
|      ;; doesn't use 'add_test', and it's unclear how to run the test suite.
 | |
|      '(#:tests? #f))
 | |
| 
 | |
|     (native-inputs `(("perl" ,perl)))             ; to build the HTML doc
 | |
|     (inputs `(("zlib" ,zlib)
 | |
|               ("openssl" ,openssl)))
 | |
|     (synopsis "WebSockets library written in C")
 | |
|     (description
 | |
|      "libwebsockets is a library that allows C programs to establish client
 | |
| and server WebSockets connections---a protocol layered above HTTP that allows
 | |
| for efficient socket-like bidirectional reliable communication channels.")
 | |
|     (home-page "http://libwebsockets.org/")
 | |
| 
 | |
|     ;; This is LGPLv2.1-only with extra exceptions specified in 'LICENSE'.
 | |
|     (license l:lgpl2.1)))
 | |
| 
 | |
| (define-public perl-html-tagset
 | |
|   (package
 | |
|     (name "perl-html-tagset")
 | |
|     (version "3.20")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/P/PE/PETDANCE/HTML-Tagset-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "1qh8249wgr4v9vgghq77zh1d2zs176bir223a8gh3k9nksn7vcdd"))))
 | |
|     (build-system perl-build-system)
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl data tables useful in parsing HTML")
 | |
|     (description
 | |
|      "The HTML::Tagset module contains several data tables useful in various
 | |
| kinds of HTML parsing operations.")
 | |
|     (home-page "http://search.cpan.org/dist/HTML-Tagset/")))
 | |
| 
 | |
| (define-public perl-html-parser
 | |
|   (package
 | |
|     (name "perl-html-parser")
 | |
|     (version "3.71")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/HTML-Parser-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "00nqzdgl7c3jilx7mil19k5jwcw3as14pvkjgxi97zyk94vqp4dy"))))
 | |
|     (build-system perl-build-system)
 | |
|     (inputs
 | |
|      `(("perl-html-tagset" ,perl-html-tagset)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl HTML parser class")
 | |
|     (description
 | |
|      "Objects of the HTML::Parser class will recognize markup and separate
 | |
| it from plain text (alias data content) in HTML documents.  As different
 | |
| kinds of markup and text are recognized, the corresponding event handlers
 | |
| are invoked.")
 | |
|     (home-page "http://search.cpan.org/~gaas/HTML-Parser/")))
 | |
| 
 | |
| (define-public perl-http-date
 | |
|   (package
 | |
|     (name "perl-http-date")
 | |
|     (version "6.02")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Date-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "0cz357kafhhzw7w59iyi0wvhw7rlh5g1lh38230ckw7rl0fr9fg8"))))
 | |
|     (build-system perl-build-system)
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl date conversion routines")
 | |
|     (description
 | |
|      "The HTTP::Date module provides functions that deal with date formats
 | |
| used by the HTTP protocol (and then some more).")
 | |
|     (home-page "http://search.cpan.org/~gaas/HTTP-Date/")))
 | |
| 
 | |
| (define-public perl-uri
 | |
|   (package
 | |
|     (name "perl-uri")
 | |
|     (version "1.60")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/URI-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "0xr31mf7lfrwhyvlx4pzp6p7alls5gi4bj8pk5g89f5cckfd74hz"))))
 | |
|     (build-system perl-build-system)
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl Uniform Resource Identifiers (absolute and relative)")
 | |
|     (description
 | |
|      "The URI module implements the URI class.  Objects of this class
 | |
| represent \"Uniform Resource Identifier references\" as specified in RFC 2396
 | |
| (and updated by RFC 2732).")
 | |
|     (home-page "http://search.cpan.org/~gaas/URI/")))
 | |
| 
 | |
| (define-public perl-lwp-mediatypes
 | |
|   (package
 | |
|     (name "perl-lwp-mediatypes")
 | |
|     (version "6.02")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/LWP-MediaTypes-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "0xmnblp962qy02akah30sji8bxrqcyqlff2w95l199ghql60ny8q"))))
 | |
|     (build-system perl-build-system)
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl module to guess the media type for a file or a URL")
 | |
|     (description
 | |
|      "The LWP::MediaTypes module provides functions for handling media (also
 | |
| known as MIME) types and encodings.  The mapping from file extensions to
 | |
| media types is defined by the media.types file.  If the ~/.media.types file
 | |
| exists it is used instead.")
 | |
|     (home-page "http://search.cpan.org/~gaas/LWP-MediaTypes/")))
 | |
| 
 | |
| (define-public perl-io-html
 | |
|   (package
 | |
|     (name "perl-io-html")
 | |
|     (version "1.00")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/C/CJ/CJM/IO-HTML-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "06nj3a0xgp5jxwxx6ayglfk2v7npf5a7gwkqsjlkapjkybarzqh4"))))
 | |
|     (build-system perl-build-system)
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl module to open an HTML file with automatic charset detection")
 | |
|     (description
 | |
|      "IO::HTML provides an easy way to open a file containing HTML while
 | |
| automatically determining its encoding.  It uses the HTML5 encoding sniffing
 | |
| algorithm specified in section 8.2.2.1 of the draft standard.")
 | |
|     (home-page "http://search.cpan.org/~cjm/IO-HTML/")))
 | |
| 
 | |
| (define-public perl-http-message
 | |
|   (package
 | |
|     (name "perl-http-message")
 | |
|     (version "6.06")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Message-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "0qxdrcak97azjvqyx1anpb2ky6vp6vc37x0wcfjdqfajkh09fzh8"))))
 | |
|     (build-system perl-build-system)
 | |
|     (propagated-inputs
 | |
|      `(("perl-http-date" ,perl-http-date)
 | |
|        ("perl-uri" ,perl-uri)))
 | |
|     (inputs
 | |
|      `(("perl-io-html" ,perl-io-html)
 | |
|        ("perl-lwp-mediatypes" ,perl-lwp-mediatypes)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl HTTP style message")
 | |
|     (description
 | |
|      "An HTTP::Message object contains some headers and a content body.")
 | |
|     (home-page "http://search.cpan.org/~gaas/HTTP-Message/")))
 | |
| 
 | |
| (define-public perl-http-cookies
 | |
|   (package
 | |
|     (name "perl-http-cookies")
 | |
|     (version "6.01")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Cookies-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "087bqmg22dg3vj7gssh3pcsh9y1scimkbl5h1kc8jqyfhgisvlzm"))))
 | |
|     (build-system perl-build-system)
 | |
|     (propagated-inputs
 | |
|      `(("perl-http-message" ,perl-http-message)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl HTTP cookie jars")
 | |
|     (description
 | |
|      "The HTTP::Cookies class is for objects that represent a cookie jar,
 | |
| that is, a database of all the HTTP cookies that a given LWP::UserAgent
 | |
| object knows about.")
 | |
|     (home-page "http://search.cpan.org/~gaas/HTTP-Cookies/")))
 | |
| 
 | |
| (define-public perl-http-daemon
 | |
|   (package
 | |
|     (name "perl-http-daemon")
 | |
|     (version "6.01")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Daemon-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "1hmd2isrkilf0q0nkxms1q64kikjmcw9imbvrjgky6kh89vqdza3"))))
 | |
|     (build-system perl-build-system)
 | |
|     (propagated-inputs
 | |
|      `(("perl-http-message" ,perl-http-message)
 | |
|        ("perl-lwp-mediatypes" ,perl-lwp-mediatypes)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl simple http server class")
 | |
|     (description
 | |
|      "Instances of the HTTP::Daemon class are HTTP/1.1 servers that listen
 | |
| on a socket for incoming requests.  The HTTP::Daemon is a subclass of
 | |
| IO::Socket::INET, so you can perform socket operations directly on it too.")
 | |
|     (home-page "http://search.cpan.org/~gaas/HTTP-Daemon/")))
 | |
| 
 | |
| (define-public perl-http-negotiate
 | |
|   (package
 | |
|     (name "perl-http-negotiate")
 | |
|     (version "6.01")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/HTTP-Negotiate-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "05p053vjs5g91v5cmjnny7a3xzddz5k7vnjw81wfh01ilqg9qwhw"))))
 | |
|     (build-system perl-build-system)
 | |
|     (propagated-inputs
 | |
|      `(("perl-http-message" ,perl-http-message)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl http content negotiation")
 | |
|     (description
 | |
|      "The HTTP::Negotiate module provides a complete implementation of the
 | |
| HTTP content negotiation algorithm specified in
 | |
| draft-ietf-http-v11-spec-00.ps chapter 12.  Content negotiation allows for
 | |
| the selection of a preferred content representation based upon attributes
 | |
| of the negotiable variants and the value of the various Accept* header
 | |
| fields in the request.")
 | |
|     (home-page "http://search.cpan.org/~gaas/HTTP-Negotiate/")))
 | |
| 
 | |
| (define-public perl-www-robotrules
 | |
|   (package
 | |
|     (name "perl-www-robotrules")
 | |
|     (version "6.02")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/WWW-RobotRules-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "07m50dp5n5jxv3m93i55qvnd67a6g7cvbvlik115kmc8lbkh5da6"))))
 | |
|     (build-system perl-build-system)
 | |
|     (propagated-inputs
 | |
|      `(("perl-uri" ,perl-uri)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl database of robots.txt-derived permissions")
 | |
|     (description
 | |
|      "The WWW::RobotRules module parses /robots.txt files as specified in
 | |
| \"A Standard for Robot Exclusion\", at
 | |
| <http://www.robotstxt.org/wc/norobots.html>.  Webmasters can use the
 | |
| /robots.txt file to forbid conforming robots from accessing parts of
 | |
| their web site.")
 | |
|     (home-page "http://search.cpan.org/~gaas/WWW-RobotRules/")))
 | |
| 
 | |
| (define-public perl-net-http
 | |
|   (package
 | |
|     (name "perl-net-http")
 | |
|     (version "6.06")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/Net-HTTP-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "1m1rvniffadq99gsy25298ia3lixwymr6kan64jd3ylyi7nkqkhx"))))
 | |
|     (build-system perl-build-system)
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl low-level HTTP connection (client)")
 | |
|     (description
 | |
|      "The Net::HTTP class is a low-level HTTP client.  An instance of the
 | |
| Net::HTTP class represents a connection to an HTTP server.  The HTTP protocol
 | |
| is described in RFC 2616.  The Net::HTTP class supports HTTP/1.0 and
 | |
| HTTP/1.1.")
 | |
|     (home-page "http://search.cpan.org/~gaas/Net-HTTP/")))
 | |
| 
 | |
| (define-public perl-file-listing
 | |
|   (package
 | |
|     (name "perl-file-listing")
 | |
|     (version "6.04")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/File-Listing-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "1xcwjlnxaiwwpn41a5yi6nz95ywh3szq5chdxiwj36kqsvy5000y"))))
 | |
|     (build-system perl-build-system)
 | |
|     (propagated-inputs
 | |
|      `(("perl-http-date" ,perl-http-date)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl directory listing parser")
 | |
|     (description
 | |
|      "The File::Listing module exports a single function called parse_dir(),
 | |
| which can be used to parse directory listings.")
 | |
|     (home-page "http://search.cpan.org/~gaas/File-Listing/")))
 | |
| 
 | |
| (define-public perl-encode-locale
 | |
|   (package
 | |
|     (name "perl-encode-locale")
 | |
|     (version "1.03")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/Encode-Locale-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "0m9d1vdphlyzybgmdanipwd9ndfvyjgk3hzw250r299jjgh3fqzp"))))
 | |
|     (build-system perl-build-system)
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl locale encoding determination")
 | |
|     (description
 | |
|      "The POSIX locale system is used to specify both the language
 | |
| conventions requested by the user and the preferred character set to consume
 | |
| and output.  The Encode::Locale module looks up the charset and encoding
 | |
| (called a CODESET in the locale jargon) and arranges for the Encode module
 | |
| to know this encoding under the name \"locale\".  It means bytes obtained
 | |
| from the environment can be converted to Unicode strings by calling
 | |
| Encode::encode(locale => $bytes) and converted back again with
 | |
| Encode::decode(locale => $string).")
 | |
|     (home-page "http://search.cpan.org/~gaas/Encode-Locale/")))
 | |
| 
 | |
| (define-public perl-libwww
 | |
|   (package
 | |
|     (name "perl-libwww")
 | |
|     (version "6.05")
 | |
|     (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append
 | |
|                    "mirror://cpan/authors/id/G/GA/GAAS/libwww-perl-"
 | |
|                    version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "08wgwyz7748pv5cyngxia0xl6nragfnhrp4p9s78xhgfyygpj9bv"))))
 | |
|     (build-system perl-build-system)
 | |
|     (propagated-inputs
 | |
|      `(("perl-encode-locale" ,perl-encode-locale)
 | |
|        ("perl-file-listing" ,perl-file-listing)
 | |
|        ("perl-html-parser" ,perl-html-parser)
 | |
|        ("perl-http-cookies" ,perl-http-cookies)
 | |
|        ("perl-http-daemon" ,perl-http-daemon)
 | |
|        ("perl-http-negotiate" ,perl-http-negotiate)
 | |
|        ("perl-net-http" ,perl-net-http)
 | |
|        ("perl-www-robotrules" ,perl-www-robotrules)))
 | |
|     (license (package-license perl))
 | |
|     (synopsis "Perl modules for the WWW")
 | |
|     (description
 | |
|      "The libwww-perl collection is a set of Perl modules which provides a
 | |
| simple and consistent application programming interface to the
 | |
| World-Wide Web.  The main focus of the library is to provide classes
 | |
| and functions that allow you to write WWW clients. The library also
 | |
| contain modules that are of more general use and even classes that
 | |
| help you implement simple HTTP servers.")
 | |
|     (home-page "http://search.cpan.org/~gaas/libwww-perl/")))
 | |
| 
 | |
| (define-public tinyproxy
 | |
|   (package
 | |
|     (name "tinyproxy")
 | |
|     (version "1.8.3")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append
 | |
|                     "http://www.samba.org/~obnox/" name "/download/" name "-" version ".tar.bz2"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0vl9igw7vm924rs6d6bkib7zfclxnlf9s8rmml1sfwj7xda9nmdy"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:configure-flags
 | |
|        (list
 | |
|         ;; For the log file, etc.
 | |
|         "--localstatedir=/var")
 | |
|        #:phases
 | |
|        (alist-cons-before
 | |
|         'build 'pre-build
 | |
|         (lambda* (#:key inputs #:allow-other-keys #:rest args)
 | |
|           ;; Uncommenting the next two lines may assist in debugging
 | |
|           ;; (substitute* "docs/man5/Makefile" (("a2x") "a2x -v"))
 | |
|           ;; (setenv "XML_DEBUG_CATALOG" "1")
 | |
| 
 | |
|           (setenv "XML_CATALOG_FILES" 
 | |
|                   (string-append
 | |
|                    (assoc-ref inputs "docbook-xsl") 
 | |
|                    "/xml/xsl/docbook-xsl-1.78.1/catalog.xml"
 | |
|                    ;; Contrary to the documentation, the file names must
 | |
|                    ;; be separated by a space, not a colon.
 | |
|                    " " 
 | |
|                    (assoc-ref inputs "docbook-xml") 
 | |
|                    "/xml/dtd/docbook/catalog.xml")))
 | |
|         %standard-phases)))
 | |
|     ;; All of the below are used to generate the documentation
 | |
|     ;; (Should they be propagated inputs of asciidoc ??)
 | |
|     (native-inputs `(("asciidoc" ,asciidoc)
 | |
|                      ("libxml2" ,libxml2) 
 | |
|                      ("docbook-xml" ,docbook-xml)
 | |
|                      ("docbook-xsl" ,docbook-xsl)
 | |
|                      ("libxslt" ,libxslt)))
 | |
|     (home-page "https://banu.com/tinyproxy/")
 | |
|     (synopsis "Light-weight HTTP/HTTPS proxy daemon")
 | |
|     (description "Tinyproxy is a light-weight HTTP/HTTPS proxy
 | |
| daemon. Designed from the ground up to be fast and yet small, it is an ideal
 | |
| solution for use cases such as embedded deployments where a full featured HTTP
 | |
| proxy is required, but the system resources for a larger proxy are
 | |
| unavailable.") 
 | |
|     (license l:gpl2+)))
 |