Adding upstream version 2.25.15.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
This commit is contained in:
parent
10737b110a
commit
b543f2e88d
485 changed files with 191459 additions and 0 deletions
49
lib/Devscripts/Salsa/merge_requests.pm
Normal file
49
lib/Devscripts/Salsa/merge_requests.pm
Normal file
|
@ -0,0 +1,49 @@
|
|||
# Lists merge requests proposed to a project
|
||||
package Devscripts::Salsa::merge_requests;
|
||||
|
||||
use strict;
|
||||
use Devscripts::Output;
|
||||
use Moo::Role;
|
||||
|
||||
sub merge_requests {
|
||||
my ($self, @reponames) = @_;
|
||||
my $res = 1;
|
||||
unless (@reponames) {
|
||||
ds_warn "project name is missing";
|
||||
return 1;
|
||||
}
|
||||
foreach my $p (@reponames) {
|
||||
my $id = $self->project2id($p);
|
||||
my $count = 0;
|
||||
unless ($id) {
|
||||
ds_warn "Project $_ not found";
|
||||
return 1;
|
||||
}
|
||||
print "$p\n";
|
||||
my $mrs = $self->api->paginator(
|
||||
'merge_requests',
|
||||
$id,
|
||||
{
|
||||
state => 'opened',
|
||||
});
|
||||
while ($_ = $mrs->next) {
|
||||
$res = 0;
|
||||
my $status = $_->{work_in_progress} ? 'WIP' : $_->{merge_status};
|
||||
print <<END;
|
||||
\tId : $_->{id}
|
||||
\tTitle : $_->{title}
|
||||
\tAuthor: $_->{author}->{username}
|
||||
\tStatus: $status
|
||||
\tUrl : $_->{web_url}
|
||||
|
||||
END
|
||||
}
|
||||
unless ($count) {
|
||||
print "\n";
|
||||
next;
|
||||
}
|
||||
}
|
||||
return $res;
|
||||
}
|
||||
|
||||
1;
|
Loading…
Add table
Add a link
Reference in a new issue