1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 copy)
#:use-module (guix build-system perl)
#:use-module (gnu packages web))
(define-public perl-mojolicious
(package
(name "perl-mojolicious")
(version "9.17")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/S/SR/SRI/Mojolicious-"
version ".tar.gz"))
(sha256
(base32
"13dxjhr03dhh1f5bbxbb3jiwdv7jby96qqb97l3arf5x043yd9hd"))))
(build-system perl-build-system)
(home-page "https://mojolicious.org/")
(synopsis "Real-time web framework")
(description "Back in the early days of the web, many people learned Perl
because of a wonderful Perl library called @code{CGI}. It was simple enough
to get started without knowing much about the language and powerful enough to
keep you going, learning by doing was much fun. While most of the techniques
used are outdated now, the idea behind it is not. Mojolicious is a new
endeavor to implement this idea using modern technologies.")
(license license:artistic2.0)))
(define-public perl-uri-db
(package
(name "perl-uri-db")
(version "0.19")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/D/DW/DWHEELER/URI-db-"
version
".tar.gz"))
(sha256
(base32
"0n56xxlw7c39pfar0dxckr9mbmp6yrzk53ic0cb24raiykm9v6f4"))))
(build-system perl-build-system)
(native-inputs
(list perl-module-build))
(propagated-inputs
(list perl-uri 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
(list 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
(list perl-module-build))
(propagated-inputs
(list 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)))
(define-public perl-gravatar-url
(package
(name "perl-gravatar-url")
(version "1.07")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/M/MS/MSCHWERN/Gravatar-URL-"
version ".tar.gz"))
(sha256
(base32
"1mxnd70xsb7kxd1sf8s7phcds2nf0m8b8asmy3ikv76wzfpbvji3"))))
(build-system perl-build-system)
(native-inputs (list perl-module-build
perl-test-mockrandom
perl-test-warn))
(propagated-inputs (list perl-net-dns perl-uri))
(home-page "https://metacpan.org/release/Gravatar-URL")
(synopsis "Make URLs for Gravatars from an email address")
(description
"This module looks up the Gravatar for any email address by constructing
a URL to get the image from @url{gravatar.com}. A Gravatar is a Globally
Recognized Avatar for a given email address. This allows you to have a global
picture associated with your email address.")
(license license:perl-license)))
(define-public perl-io-sessiondata
(package
(name "perl-io-sessiondata")
(version "1.03")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/P/PH/PHRED/IO-SessionData-"
version ".tar.gz"))
(sha256
(base32
"1p9d77pqy9a8dbgw7h7vmmkg0rlckk19dchd4c8gvcyv7qm73934"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/IO-SessionData")
(synopsis "Supporting module for SOAP::Lite")
(description
"Package extracted from SOAP::Lite. Slightly modified to work on
multiple platforms.")
(license license:perl-license)))
(define-public perl-soap-lite
(package
(name "perl-soap-lite")
(version "1.27")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/P/PH/PHRED/SOAP-Lite-"
version ".tar.gz"))
(sha256
(base32
"00fkvmnxiy5mr45rj5qmxmflw0xdkw2gihm48iha2i8smdmi0ng3"))))
(build-system perl-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda _
(substitute* "t/Issues/rt53375.t"
(("XML::Parser::Lite")
"XML::Parser")))))))
(native-inputs (list perl-test-most perl-test-warn))
(propagated-inputs (list perl-class-inspector
perl-constant
perl-io-compress
perl-io-sessiondata
perl-io-socket-ssl
perl-libwww
perl-lwp-protocol-https
perl-mime-base64
perl-scalar-list-utils
perl-task-weaken
perl-uri
perl-xml-parser))
(home-page "https://metacpan.org/release/SOAP-Lite")
(synopsis "Client/server interface to the Simple Object Access Protocol")
(description
"@code{SOAP::Lite} is a collection of Perl modules that provide a
simple and lightweight interface to the
@acronym{SOAP, Simple Object Access Protocol}, both on client and server
side.")
(license license:perl-license)))
(define-public geolite-country-data
;; TODO: Figure out how to get an updated, free database.
(hidden-package
(package
(name "geolite-country-data")
(version "2019-12-06")
(source (origin
(method url-fetch)
(uri (string-append
"https://web.archive.org/web/20181229152721/"
"http://geolite.maxmind.com/download/geoip/database/"
"GeoLiteCountry/" "GeoIP.dat.gz"))
(sha256
(base32
"0j84ms2x893cpn7x8gffy082gnx882pmr0f6zpfsd46gpyw5xh5r"))))
(build-system copy-build-system)
(arguments
(list #:install-plan #~'(("GeoIP.dat" "share/GeoIP/"))))
(home-page "https://dev.maxmind.com/geoip/geolite2-free-geolocation-data")
(synopsis "Country-level GeoIP data (December 2018)")
(description
"This package provides an old GeoIP database in the legacy @file{.dat}
format. The data was collected before MaxMind changed the license and format
of their databases. It is intended only as a compatability package for
SpamAssassin.")
(license license:cc-by-sa4.0))))
|