Dashboard
PHP:
8.2.30
OS:
Linux
User:
dh_nv8b2m
/
/
usr
/
share
/
perl5
/
Devscripts
/
Salsa
📤 Upload
📝 New File
📁 New Folder
Close
Editing: list_groups.pm
# Lists subgroups of a group or groups of a user package Devscripts::Salsa::list_groups; use strict; use Devscripts::Output; use Moo::Role; sub list_groups { my ($self, $match) = @_; my $groups; my $count = 0; my $opts = { order_by => 'name', sort => 'asc', ($match ? (search => $match) : ()), }; if ($self->group_id) { $groups = $self->api->paginator('group_subgroups', $self->group_id, $opts); } else { $groups = $self->api->paginator('groups', $opts); } while ($_ = $groups->next) { $count++; my $parent = $_->{parent_id} ? "Parent id: $_->{parent_id}\n" : ''; print <<END; Id : $_->{id} Name : $_->{name} Full path: $_->{full_path} $parent END } unless ($count) { ds_warn "No groups found"; return 1; } return 0; } 1;
Save
Cancel