| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Mojo::Darkpan; |
|
2
|
1
|
|
|
1
|
|
997
|
use v5.20; |
|
|
1
|
|
|
|
|
4
|
|
|
3
|
1
|
|
|
1
|
|
650
|
use Data::Dumper; |
|
|
1
|
|
|
|
|
7863
|
|
|
|
1
|
|
|
|
|
93
|
|
|
4
|
1
|
|
|
1
|
|
658
|
use FindBin; |
|
|
1
|
|
|
|
|
1221
|
|
|
|
1
|
|
|
|
|
61
|
|
|
5
|
1
|
|
|
1
|
|
1191
|
use Mojo::Base 'Mojolicious', -signatures; |
|
|
1
|
|
|
|
|
235780
|
|
|
|
1
|
|
|
|
|
13
|
|
|
6
|
1
|
|
|
1
|
|
454466
|
use Mojo::Darkpan::Config; |
|
|
1
|
|
|
|
|
4
|
|
|
|
1
|
|
|
|
|
283
|
|
|
7
|
|
|
|
|
|
|
|
|
8
|
0
|
|
|
0
|
1
|
|
sub startup($self) { |
|
|
0
|
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# https://metacpan.org/pod/Mojolicious::Plugin::BasicAuthPlus |
|
10
|
0
|
|
|
|
|
|
$self->plugin('basic_auth_plus'); |
|
11
|
0
|
|
|
|
|
|
$self->plugin('DirectoryHandler', |
|
12
|
|
|
|
|
|
|
delivery_path => Mojo::Darkpan::Config->new->path); |
|
13
|
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
#---------- |
|
15
|
|
|
|
|
|
|
# Router |
|
16
|
|
|
|
|
|
|
#---------- |
|
17
|
0
|
|
|
|
|
|
my $r = $self->routes; |
|
18
|
0
|
|
|
|
|
|
my $index = $r->any('/'); |
|
19
|
0
|
|
|
|
|
|
$index->get('/list')->to(controller => 'index', action => 'list'); |
|
20
|
0
|
|
|
|
|
|
$index->get('/reindex')->to(controller => 'index', action => 'reindex'); |
|
21
|
|
|
|
|
|
|
|
|
22
|
0
|
|
|
|
|
|
my $uploader = $r->any('/publish'); |
|
23
|
0
|
|
|
|
|
|
$uploader->post('/')->to(controller => 'publish', action => 'upload'); |
|
24
|
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
# goes to the same place as publish, used for compatibility |
|
26
|
0
|
|
|
|
|
|
my $authenquery = $r->any('/authenquery'); |
|
27
|
0
|
|
|
|
|
|
$authenquery->post('/')->to(controller => 'publish', action => 'upload'); |
|
28
|
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
} |
|
30
|
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
our $VERSION = "0.06"; |
|
32
|
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
1; |
|
34
|
|
|
|
|
|
|
__END__ |
|
35
|
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
=encoding utf-8 |
|
37
|
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=head1 NAME |
|
39
|
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
Mojo::Darkpan - A Mojolicious web service frontend leveraging OrePAN2 |
|
41
|
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
=head1 DESCRIPTION |
|
43
|
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
Mojo::Darkpan is a webservice build on Mojolicious to frontend L<OrePAN2|https://metacpan.org/pod/OrePAN2>. This module was inspired |
|
45
|
|
|
|
|
|
|
by L<OrePAN2::Server|https://metacpan.org/pod/OrePAN2::Server'> but built on |
|
46
|
|
|
|
|
|
|
Mojolicious to take advantage of it's robust framework of tools. A good bit of the documentation |
|
47
|
|
|
|
|
|
|
was also taken from OrePAN2::Server as the functionality is similar if not identical. |
|
48
|
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
=head1 SYNOPSIS |
|
50
|
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
=head2 Running the server |
|
52
|
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
# start a server with default configurations on port 8080 |
|
54
|
|
|
|
|
|
|
darkpan --port 8080 |
|
55
|
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
# start a server with AD backed basic auth |
|
57
|
|
|
|
|
|
|
# config.json |
|
58
|
|
|
|
|
|
|
{ |
|
59
|
|
|
|
|
|
|
"basic_auth": { |
|
60
|
|
|
|
|
|
|
"Realm Name": { |
|
61
|
|
|
|
|
|
|
"host": "ldaps://my.ldap.server.org", |
|
62
|
|
|
|
|
|
|
"port": 636, |
|
63
|
|
|
|
|
|
|
"basedn": "DC=my,DC=compoany,DC=org", |
|
64
|
|
|
|
|
|
|
"binddn": "bind_name", |
|
65
|
|
|
|
|
|
|
"bindpw": "bond_pw", |
|
66
|
|
|
|
|
|
|
"filter": "(&(objectCategory=*)(sAMAccountName=%s)(|(objectClass=user)(objectClass=group)))" |
|
67
|
|
|
|
|
|
|
} |
|
68
|
|
|
|
|
|
|
} |
|
69
|
|
|
|
|
|
|
} |
|
70
|
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
darkpan --config ./config.json |
|
72
|
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
=head4 Options: |
|
74
|
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
=over 2 |
|
76
|
|
|
|
|
|
|
|
|
77
|
|
|
|
|
|
|
=item B<-c,--config> I<default: undef>: |
|
78
|
|
|
|
|
|
|
JSON configuration file location |
|
79
|
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
=item B<-p,--port> I<default: 3000>: |
|
81
|
|
|
|
|
|
|
Web application port |
|
82
|
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
=back |
|
84
|
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
=head4 Paths: |
|
86
|
|
|
|
|
|
|
|
|
87
|
|
|
|
|
|
|
=over 2 |
|
88
|
|
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
=item B</publish> or B</authenquery>: |
|
90
|
|
|
|
|
|
|
POST path(s) for releasing packages, set as the upload_uri in your .pause file |
|
91
|
|
|
|
|
|
|
|
|
92
|
|
|
|
|
|
|
=item B</list>: |
|
93
|
|
|
|
|
|
|
JSON list of packages and info about them |
|
94
|
|
|
|
|
|
|
|
|
95
|
|
|
|
|
|
|
=item B</reindex>: |
|
96
|
|
|
|
|
|
|
Force OrePAN2 to do a index all modules and recreate the 02packages.details file. |
|
97
|
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
=item B</darkpan> I<(may differ if you set a custom path)>: |
|
99
|
|
|
|
|
|
|
Directory listing of the repository. This is the path to reference as your mirror or |
|
100
|
|
|
|
|
|
|
set the PERL_CARTON_MIRROR env var |
|
101
|
|
|
|
|
|
|
|
|
102
|
|
|
|
|
|
|
=back |
|
103
|
|
|
|
|
|
|
|
|
104
|
|
|
|
|
|
|
=head2 Configuring the server |
|
105
|
|
|
|
|
|
|
|
|
106
|
|
|
|
|
|
|
Configurations can be done using environment variables or by creating a json config file. |
|
107
|
|
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
=head3 environment variables |
|
109
|
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
Environment variables are at a higher order than values set in the json configuration |
|
111
|
|
|
|
|
|
|
file and will take precedence if set. The B<DARKPAN_CONFIG_FILE> env variable can be |
|
112
|
|
|
|
|
|
|
set instead of using the command line option to denote the path of the config file. |
|
113
|
|
|
|
|
|
|
|
|
114
|
|
|
|
|
|
|
=over 2 |
|
115
|
|
|
|
|
|
|
|
|
116
|
|
|
|
|
|
|
=item B<DARKPAN_CONFIG_FILE>: |
|
117
|
|
|
|
|
|
|
Location of a json configuration file, same as passing the --config option |
|
118
|
|
|
|
|
|
|
|
|
119
|
|
|
|
|
|
|
=item B<DARKPAN_DIRECTORY>: |
|
120
|
|
|
|
|
|
|
Directory where uploads will be stored. |
|
121
|
|
|
|
|
|
|
|
|
122
|
|
|
|
|
|
|
=item B<DARKPAN_PATH>: |
|
123
|
|
|
|
|
|
|
URL path to function as cpan repository resolver/mirror endpoint. |
|
124
|
|
|
|
|
|
|
|
|
125
|
|
|
|
|
|
|
=item B<DARKPAN_COMPRESS_INDEX>: |
|
126
|
|
|
|
|
|
|
Setting whether to compress (gzip) the 02packages.details.txt file. |
|
127
|
|
|
|
|
|
|
|
|
128
|
|
|
|
|
|
|
=item B<DARKPAN_AUTH_REALM>: |
|
129
|
|
|
|
|
|
|
Basic auth realm name. This variable needs to be set to enable parsing of additional |
|
130
|
|
|
|
|
|
|
auth settings using the following the format DARKPAN_AUTH_[setting]. |
|
131
|
|
|
|
|
|
|
|
|
132
|
|
|
|
|
|
|
=item B<DARKPAN_AUTH_[setting]>: |
|
133
|
|
|
|
|
|
|
Additional basic auth settings can be passed using this format. The settings |
|
134
|
|
|
|
|
|
|
will be parsed and applied to your basic auth configurations. See |
|
135
|
|
|
|
|
|
|
L<Mojolicious::Plugin::BasicAuthPlus|https://metacpan.org/pod/Mojolicious::Plugin::BasicAuthPlus> |
|
136
|
|
|
|
|
|
|
for additional details on configurations. |
|
137
|
|
|
|
|
|
|
|
|
138
|
|
|
|
|
|
|
=back |
|
139
|
|
|
|
|
|
|
|
|
140
|
|
|
|
|
|
|
=head3 config.json |
|
141
|
|
|
|
|
|
|
|
|
142
|
|
|
|
|
|
|
The config.json file contains customizations for the darkpan web application. It can be |
|
143
|
|
|
|
|
|
|
referenced by absolute path or relative to where the application is run from. |
|
144
|
|
|
|
|
|
|
|
|
145
|
|
|
|
|
|
|
{ |
|
146
|
|
|
|
|
|
|
"directory": "darkpan", |
|
147
|
|
|
|
|
|
|
"compress_index": true, |
|
148
|
|
|
|
|
|
|
"path": "darkpan, |
|
149
|
|
|
|
|
|
|
"basic_auth": { |
|
150
|
|
|
|
|
|
|
"Realm Name": { |
|
151
|
|
|
|
|
|
|
"host": "ldaps://my.ldap.server.org", |
|
152
|
|
|
|
|
|
|
"port": 636, |
|
153
|
|
|
|
|
|
|
"basedn": "DC=my,DC=compoany,DC=org", |
|
154
|
|
|
|
|
|
|
"binddn": "bind_name", |
|
155
|
|
|
|
|
|
|
"bindpw": "bond_pw", |
|
156
|
|
|
|
|
|
|
"filter": "(&(objectCategory=*)(sAMAccountName=%s)(|(objectClass=user)(objectClass=group)))" |
|
157
|
|
|
|
|
|
|
} |
|
158
|
|
|
|
|
|
|
} |
|
159
|
|
|
|
|
|
|
} |
|
160
|
|
|
|
|
|
|
|
|
161
|
|
|
|
|
|
|
=head4 config.json options |
|
162
|
|
|
|
|
|
|
|
|
163
|
|
|
|
|
|
|
=over 2 |
|
164
|
|
|
|
|
|
|
|
|
165
|
|
|
|
|
|
|
=item B<directory> I<default: darkpan>: |
|
166
|
|
|
|
|
|
|
Directory where uploads will be stored. |
|
167
|
|
|
|
|
|
|
|
|
168
|
|
|
|
|
|
|
=item B<path> I<default: darkpan>: |
|
169
|
|
|
|
|
|
|
URL path to function as cpan repository resolver/mirror endpoint. |
|
170
|
|
|
|
|
|
|
|
|
171
|
|
|
|
|
|
|
=item B<compress_index> I<default: true>: |
|
172
|
|
|
|
|
|
|
Setting whether to compress (gzip) the 02packages.details.txt file. |
|
173
|
|
|
|
|
|
|
|
|
174
|
|
|
|
|
|
|
=item B<basic_auth> I<default: undef>: |
|
175
|
|
|
|
|
|
|
Basic authentication settings, see configurations for L<Mojolicious::Plugin::BasicAuthPlus|https://metacpan.org/pod/Mojolicious::Plugin::BasicAuthPlus>. When not provided |
|
176
|
|
|
|
|
|
|
no authentication is necessary to post modules to the service. |
|
177
|
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
=back |
|
179
|
|
|
|
|
|
|
|
|
180
|
|
|
|
|
|
|
=head3 Authentication |
|
181
|
|
|
|
|
|
|
|
|
182
|
|
|
|
|
|
|
Authentication is handled by L<Mojolicious::Plugin::BasicAuthPlus|https://metacpan.org/pod/Mojolicious::Plugin::BasicAuthPlus>. |
|
183
|
|
|
|
|
|
|
To configure basic auth, see the configuration options for L<Mojolicious::Plugin::BasicAuthPlus|https://metacpan.org/pod/Mojolicious::Plugin::BasicAuthPlus> |
|
184
|
|
|
|
|
|
|
and add your settings to the basic auth section of the config.json file. |
|
185
|
|
|
|
|
|
|
|
|
186
|
|
|
|
|
|
|
=head2 How to Deploy |
|
187
|
|
|
|
|
|
|
|
|
188
|
|
|
|
|
|
|
=head3 Deploying with POST |
|
189
|
|
|
|
|
|
|
|
|
190
|
|
|
|
|
|
|
Publishing to darkpan can be done using a post request and a URL to git or bitbucket repo. |
|
191
|
|
|
|
|
|
|
|
|
192
|
|
|
|
|
|
|
#upload git managed module to my darkpan by curl |
|
193
|
|
|
|
|
|
|
curl --data-urlencode 'module=git+ssh://git@mygit/home/git/repos/MyModule.git' --data-urlencode 'author=reshingleton' http://localhost:3000/publish |
|
194
|
|
|
|
|
|
|
curl --data-urlencode 'module=git+file:///home/rshingleton/project/MyModule.git' --data-urlencode 'author=reshingleton' http://localhost:3000/publish |
|
195
|
|
|
|
|
|
|
curl --data-urlencode 'module=git@github.com:rshingleton/perl-module-test.git' --data-urlencode 'author=reshingleton' http://localhost:3000/publish |
|
196
|
|
|
|
|
|
|
|
|
197
|
|
|
|
|
|
|
The module parameter can also be an HTTP url. see L<OrePAN2::Injector|https://metacpan.org/pod/OrePAN2::Injector> for |
|
198
|
|
|
|
|
|
|
additional details. |
|
199
|
|
|
|
|
|
|
|
|
200
|
|
|
|
|
|
|
curl --data-urlencode 'module=https://cpan.metacpan.org/authors/id/O/OA/OALDERS/OrePAN2-0.48.tar.gz' --data-urlencode 'author=OALDERS' http://localhost:3000/publish |
|
201
|
|
|
|
|
|
|
|
|
202
|
|
|
|
|
|
|
=head3 Deploying with L<Minilla|https://metacpan.org/pod/Minilla> |
|
203
|
|
|
|
|
|
|
|
|
204
|
|
|
|
|
|
|
Minilla is a cpan authoring tool, see L<Minilla|https://metacpan.org/pod/Minilla> for more details. |
|
205
|
|
|
|
|
|
|
|
|
206
|
|
|
|
|
|
|
=head4 minil.toml |
|
207
|
|
|
|
|
|
|
|
|
208
|
|
|
|
|
|
|
Add a reference to a pause configruation file in your minil.toml that points to your darkpan instance. |
|
209
|
|
|
|
|
|
|
The configuration can reference a relative path as follows: |
|
210
|
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
[release] |
|
212
|
|
|
|
|
|
|
pause_config=".pause" |
|
213
|
|
|
|
|
|
|
|
|
214
|
|
|
|
|
|
|
=head4 .pause file |
|
215
|
|
|
|
|
|
|
|
|
216
|
|
|
|
|
|
|
The .pause file is a configuration file for uploading modules to CPAN or your own Darkpan Repository. |
|
217
|
|
|
|
|
|
|
See L<CPAN::Uploader|https://metacpan.org/pod/CPAN::Uploader> for more detail. |
|
218
|
|
|
|
|
|
|
|
|
219
|
|
|
|
|
|
|
upload_uri http://my-darkpan.server/publish |
|
220
|
|
|
|
|
|
|
user myUsername |
|
221
|
|
|
|
|
|
|
password myPassword |
|
222
|
|
|
|
|
|
|
|
|
223
|
|
|
|
|
|
|
I<** if you don't set the upload_uri, you will upload to CPAN> |
|
224
|
|
|
|
|
|
|
|
|
225
|
|
|
|
|
|
|
If basic auth is enabled, the username and password set in the .pause file will be |
|
226
|
|
|
|
|
|
|
used as basic auth credentials. |
|
227
|
|
|
|
|
|
|
|
|
228
|
|
|
|
|
|
|
=head2 How to install from your Darkpan |
|
229
|
|
|
|
|
|
|
|
|
230
|
|
|
|
|
|
|
=head3 cpanm |
|
231
|
|
|
|
|
|
|
|
|
232
|
|
|
|
|
|
|
See L<cpanm|https://metacpan.org/pod/cpanm> for additional details. |
|
233
|
|
|
|
|
|
|
|
|
234
|
|
|
|
|
|
|
# check CPAN and your Darkpan server |
|
235
|
|
|
|
|
|
|
cpanm --mirror http://my-darkpan.server/darkpan |
|
236
|
|
|
|
|
|
|
|
|
237
|
|
|
|
|
|
|
# check for packages from only your Darkpan server |
|
238
|
|
|
|
|
|
|
cpanm --mirror-only http://my-darkpan.server/darkpan |
|
239
|
|
|
|
|
|
|
cpanm --from http://my-darkpan.server/darkpan |
|
240
|
|
|
|
|
|
|
|
|
241
|
|
|
|
|
|
|
=head3 cpm |
|
242
|
|
|
|
|
|
|
|
|
243
|
|
|
|
|
|
|
See L<cpm|https://metacpan.org/dist/App-cpm/view/script/cpm> for additional details. |
|
244
|
|
|
|
|
|
|
|
|
245
|
|
|
|
|
|
|
# resolve distribution names from DARKPAN/modules/02packages.details.txt.gz |
|
246
|
|
|
|
|
|
|
# and fetch distibutions from DARKPAN/authors/id/... |
|
247
|
|
|
|
|
|
|
> cpm install --resolver 02packages,http://example.com/darkpan Your::Module |
|
248
|
|
|
|
|
|
|
|
|
249
|
|
|
|
|
|
|
# use darkpan first, and if it fails, use metadb and normal CPAN |
|
250
|
|
|
|
|
|
|
> cpm install --resolver 02packages,http://my-darkpan.server/darkpan --resolver metadb Your::Module |
|
251
|
|
|
|
|
|
|
|
|
252
|
|
|
|
|
|
|
=head3 carton |
|
253
|
|
|
|
|
|
|
|
|
254
|
|
|
|
|
|
|
See L<carton|https://metacpan.org/pod/Carton> for additional details. |
|
255
|
|
|
|
|
|
|
|
|
256
|
|
|
|
|
|
|
# in the cpanfile |
|
257
|
|
|
|
|
|
|
# local mirror (darkpan) |
|
258
|
|
|
|
|
|
|
|
|
259
|
|
|
|
|
|
|
requires 'Plack', '== 0.9981', |
|
260
|
|
|
|
|
|
|
dist => 'MYCOMPANY/Plack-0.9981-p1.tar.gz', |
|
261
|
|
|
|
|
|
|
mirror => 'http://my-darkpan.server/darkpan'; |
|
262
|
|
|
|
|
|
|
|
|
263
|
|
|
|
|
|
|
Carton also uses an (L<undocumented|https://domm.plix.at/perl/2017_07_carton_darkpan.html>) environment variable PERL_CARTON_MIRROR that will enable you |
|
264
|
|
|
|
|
|
|
to add your Darkpan server to its list of resolvers. Carton will install from |
|
265
|
|
|
|
|
|
|
your Darkpan and from the default CPAN mirror. |
|
266
|
|
|
|
|
|
|
|
|
267
|
|
|
|
|
|
|
PERL_CARTON_MIRROR=http://my-darkpan.server/darkpan carton install |
|
268
|
|
|
|
|
|
|
|
|
269
|
|
|
|
|
|
|
=head1 SEE ALSO |
|
270
|
|
|
|
|
|
|
|
|
271
|
|
|
|
|
|
|
L<OrePAN2|https://metacpan.org/pod/OrePAN2> |
|
272
|
|
|
|
|
|
|
|
|
273
|
|
|
|
|
|
|
L<OrePAN2::Server|https://metacpan.org/pod/OrePAN2::Server> |
|
274
|
|
|
|
|
|
|
|
|
275
|
|
|
|
|
|
|
|
|
276
|
|
|
|
|
|
|
=head1 LICENSE |
|
277
|
|
|
|
|
|
|
|
|
278
|
|
|
|
|
|
|
Copyright (C) rshingleton. |
|
279
|
|
|
|
|
|
|
|
|
280
|
|
|
|
|
|
|
This library is free software; you can redistribute it and/or modify |
|
281
|
|
|
|
|
|
|
it under the same terms as Perl itself. |
|
282
|
|
|
|
|
|
|
|
|
283
|
|
|
|
|
|
|
=head1 AUTHOR |
|
284
|
|
|
|
|
|
|
|
|
285
|
|
|
|
|
|
|
rshingleton E<lt>reshingleton@gmail.comE<gt> |
|
286
|
|
|
|
|
|
|
|
|
287
|
|
|
|
|
|
|
=cut |
|
288
|
|
|
|
|
|
|
|