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 <[email protected]> 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 _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
