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
|
# Lists forks of a project
package Devscripts::Salsa::forks;
use strict;
use Devscripts::Output;
use Moo::Role;
sub forks {
my ($self, @reponames) = @_;
my $res = 0;
unless (@reponames) {
ds_warn "Repository name is missing";
return 1;
}
foreach my $p (@reponames) {
my $id = $self->project2id($p);
unless ($id) {
ds_warn "Project $_ not found";
$res++;
next;
}
print "$p\n";
my $forks = $self->api->paginator(
'project_forks',
$id,
{
state => 'opened',
});
unless ($forks) {
print "\n";
next;
}
while ($_ = $forks->next) {
print <<END;
\tId : $_->{id}
\tName: $_->{path_with_namespace}
\tURL : $_->{web_url}
END
}
}
return $res;
}
1;
|
