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
36
lib/Devscripts/Salsa/search_user.pm
Normal file
36
lib/Devscripts/Salsa/search_user.pm
Normal file
|
@ -0,0 +1,36 @@
|
|||
# Searches users using given string
|
||||
package Devscripts::Salsa::search_user; # search_users
|
||||
|
||||
use strict;
|
||||
use Devscripts::Output;
|
||||
use Moo::Role;
|
||||
|
||||
sub search_user {
|
||||
my ($self, $user) = @_;
|
||||
unless ($user) {
|
||||
ds_warn "User name is missing";
|
||||
return 1;
|
||||
}
|
||||
my $users = $self->api->user($user);
|
||||
if ($users) {
|
||||
$users = [$users];
|
||||
} else {
|
||||
$users = $self->api->paginator('users', { search => $user })->all();
|
||||
}
|
||||
unless ($users and @$users) {
|
||||
ds_warn "No user found";
|
||||
return 1;
|
||||
}
|
||||
foreach (@$users) {
|
||||
print <<END;
|
||||
Id : $_->{id}
|
||||
Username : $_->{username}
|
||||
Name : $_->{name}
|
||||
State : $_->{state}
|
||||
|
||||
END
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
1;
|
Loading…
Add table
Add a link
Reference in a new issue