[pkg-perl-tools] 01/02: dpt-salsa: new function listmembers

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository pkg-perl-tools.

commit 7d75920300021d165fd458458e9adea4140da923
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Jan 27 05:35:42 2018 +0100

    dpt-salsa: new function listmembers
    
    Gbp-Dch: Ignore
---
 scripts/salsa | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/scripts/salsa b/scripts/salsa
index bed40f4..c0d860e 100755
--- a/scripts/salsa
+++ b/scripts/salsa
@@ -66,6 +66,12 @@ if ( $command eq 'version' ) {
     or $command eq 'deluser' )
 {
     removeuser();
+} elsif ( $command eq 'listmembers'
+    or $command eq 'listmember'
+    or $command eq 'lsmembers'
+    or $command eq 'lsmember' )
+{
+    listmembers();
 } elsif ( $command eq 'help' ) {
     pod2usage(1);
 } elsif ( $command eq 'XXX' ) {
@@ -131,6 +137,21 @@ sub removeuser {
     $api->remove_group_member( $config{'pkg_perl_id'}, $user_id );
 }
 
+## listmembers()
+sub listmembers {
+    my $members = $api->group_members( $config{'pkg_perl_id'} );
+    ...;
+    foreach ( @{$members} ) {
+        if ( $opts{json} ) {
+            say prettyjson($_);
+        } else {
+            say "Id:       " . $_->{id};
+            say "Username: " . $_->{username};
+            say "Name:     " . $_->{name};
+        }
+    }
+}
+
 # helper functions
 ## prettyjson($data)
 sub prettyjson {
@@ -221,6 +242,10 @@ Required.
 
 =back
 
+=head3 I<listmembers>
+
+Show all members of the I<pkg-perl-team>.
+
 =head2 others
 
 =head3 I<current_user>

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git