1
0
Fork 0

Adding upstream version 2.25.15.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
This commit is contained in:
Daniel Baumann 2025-06-21 11:04:07 +02:00
parent 10737b110a
commit b543f2e88d
Signed by: daniel.baumann
GPG key ID: BCC918A2ABD66424
485 changed files with 191459 additions and 0 deletions

View 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;