[pve-devel] [PATCH access-control 2/3] Add grouplist to pveum for group listing

[Alwin Antreich]

Signed-off-by: Alwin Antreich <a.antreich at proxmox.com>
---
 PVE/CLI/pveum.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/PVE/CLI/pveum.pm b/PVE/CLI/pveum.pm
index 0426cfb..7a4930f 100755
--- a/PVE/CLI/pveum.pm
+++ b/PVE/CLI/pveum.pm
@@ -74,6 +74,18 @@ our $cmddef = {
     groupadd => [ 'PVE::API2::Group', 'create_group', ['groupid'] ],
     groupmod => [ 'PVE::API2::Group', 'update_group', ['groupid'] ],
     groupdel => [ 'PVE::API2::Group', 'delete_group', ['groupid'] ],
+    grouplist => [ 'PVE::API2::Group', 'index', undef, undef, sub {
+	    my $grouplist = shift;
+
+	    exit 0 if (!scalar(@$grouplist));
+
+	    my $format = qq(%15s  %-10s\n);
+	    printf($format, qw(GROUP COMMENT));
+
+	    foreach my $rec (sort {$a->{groupid} cmp $b->{groupid} } @$grouplist) {
+		printf($format, $rec->{groupid}, $rec->{comment});
+	    }
+	}],
 
     roleadd => [ 'PVE::API2::Role', 'create_role', ['roleid'] ],
     rolemod => [ 'PVE::API2::Role', 'update_role', ['roleid'] ],
-- 
2.11.0