127 lines
		
	
	
	
		
			4.6 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			127 lines
		
	
	
	
		
			4.6 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
;;; GNU Guix --- Functional package management for GNU
 | 
						|
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
 | 
						|
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
						|
;;;
 | 
						|
;;; 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 perl-web)
 | 
						|
  #:use-module ((guix licenses) #:prefix license:)
 | 
						|
  #:use-module (gnu packages)
 | 
						|
  #:use-module (guix packages)
 | 
						|
  #:use-module (gnu packages perl)
 | 
						|
  #:use-module (gnu packages perl-check)
 | 
						|
  #:use-module (guix download)
 | 
						|
  #:use-module (guix build-system perl)
 | 
						|
  #:use-module (gnu packages web))
 | 
						|
 | 
						|
(define-public perl-mojolicious
 | 
						|
  (package
 | 
						|
    (name "perl-mojolicious")
 | 
						|
    (version "7.59")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/S/SR/SRI/Mojolicious-"
 | 
						|
                           version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "11whfrbafj191ahbhlhadws0vkg9kmvqswzkvswgwajhr1x678rh"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "http://mojolicious.org/")
 | 
						|
    (synopsis "Real-time web framework")
 | 
						|
    (description "Back in the early days of the web, many people learned Perl
 | 
						|
because of a wonderful Perl library called @code{CGI}.  It was simple enough
 | 
						|
to get started without knowing much about the language and powerful enough to
 | 
						|
keep you going, learning by doing was much fun.  While most of the techniques
 | 
						|
used are outdated now, the idea behind it is not.  Mojolicious is a new
 | 
						|
endeavor to implement this idea using modern technologies.")
 | 
						|
    (license license:artistic2.0)))
 | 
						|
 | 
						|
(define-public perl-uri-db
 | 
						|
  (package
 | 
						|
    (name "perl-uri-db")
 | 
						|
    (version "0.19")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append
 | 
						|
             "mirror://cpan/authors/id/D/DW/DWHEELER/URI-db-"
 | 
						|
             version
 | 
						|
             ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0n56xxlw7c39pfar0dxckr9mbmp6yrzk53ic0cb24raiykm9v6f4"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs
 | 
						|
     `(("perl-module-build" ,perl-module-build)))
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-uri" ,perl-uri)
 | 
						|
       ("perl-uri-nested" ,perl-uri-nested)))
 | 
						|
    (home-page "https://metacpan.org/release/URI-db")
 | 
						|
    (synopsis "Handle database URIs")
 | 
						|
    (description
 | 
						|
     "This module defines a format for database URIs, and provides a @{URI}
 | 
						|
class to handle these.")
 | 
						|
    (license license:perl-license)))
 | 
						|
 | 
						|
(define-public perl-uri-escape
 | 
						|
  (package
 | 
						|
    (name "perl-uri-escape")
 | 
						|
    (version "1.76")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/O/OA/OALDERS/URI-"
 | 
						|
                           version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0gj1aj18k43kmzc3y1zhj5giinf8rksacf757r475xfna0fqxjdj"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs
 | 
						|
     `(("perl-test-needs" ,perl-test-needs)))
 | 
						|
    (home-page "https://github.com/libwww-perl/URI")
 | 
						|
    (synopsis "Percent-encode and percent-decode unsafe characters")
 | 
						|
    (description "This module provides functions to percent-encode and
 | 
						|
percent-decode URI strings as defined by RFC 3986.  Percent-encoding URI's is
 | 
						|
informally called URI escaping.  This is the terminology used by this module,
 | 
						|
which predates the formalization of the terms by the RFC by several years.")
 | 
						|
    (license license:perl-license)))
 | 
						|
 | 
						|
(define-public perl-uri-nested
 | 
						|
  (package
 | 
						|
    (name "perl-uri-nested")
 | 
						|
    (version "0.10")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append
 | 
						|
             "mirror://cpan/authors/id/D/DW/DWHEELER/URI-Nested-"
 | 
						|
             version
 | 
						|
             ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1bzg6f11m8wfnmycflvp858rs99xknsx8hkip0xcdfjzlqwi75z1"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs
 | 
						|
     `(("perl-module-build" ,perl-module-build)))
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-uri" ,perl-uri)))
 | 
						|
    (home-page "https://metacpan.org/release/URI-Nested")
 | 
						|
    (synopsis "Nested URIs")
 | 
						|
    (description
 | 
						|
     "@code{URI::Nested} provides support for nested URIs, where the scheme is
 | 
						|
a prefix, and the remainder of the URI is another URI.")
 | 
						|
    (license license:perl-license)))
 |