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
37
lib/Devscripts/Salsa/search_group.pm
Normal file
37
lib/Devscripts/Salsa/search_group.pm
Normal file
|
@ -0,0 +1,37 @@
|
|||
# Searches groups using given string
|
||||
package Devscripts::Salsa::search_group; # search_groups
|
||||
|
||||
use strict;
|
||||
use Devscripts::Output;
|
||||
use Moo::Role;
|
||||
|
||||
sub search_group {
|
||||
my ($self, $group) = @_;
|
||||
unless ($group) {
|
||||
ds_warn "Searched string is missing";
|
||||
return 1;
|
||||
}
|
||||
my $groups = $self->api->group_without_projects($group);
|
||||
if ($groups) {
|
||||
$groups = [$groups];
|
||||
} else {
|
||||
$groups = $self->api->paginator('groups',
|
||||
{ search => $group, order_by => 'name' })->all;
|
||||
}
|
||||
unless ($groups and @$groups) {
|
||||
ds_warn "No group found";
|
||||
return 1;
|
||||
}
|
||||
foreach (@$groups) {
|
||||
print <<END;
|
||||
Id : $_->{id}
|
||||
Name : $_->{name}
|
||||
Full name: $_->{full_name}
|
||||
Full path: $_->{full_path}
|
||||
|
||||
END
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
1;
|
Loading…
Add table
Add a link
Reference in a new issue