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 ba49df5b33597cc90ade9ec516671be8f93bb1bb Author: gregor herrmann <[email protected]> Date: Sun Jan 28 04:28:07 2018 +0100 dpt-salsa: no need to quote some hashkeys when others are unquoted Gbp-Dch: ignore --- scripts/salsa | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/scripts/salsa b/scripts/salsa index cedf7aa..ed27122 100755 --- a/scripts/salsa +++ b/scripts/salsa @@ -148,7 +148,7 @@ sub adduser { my $access_level = $levels_name{ lc($level) }; die "Unknown access level '$level'." unless $access_level; - $api->add_group_member( $config{'perl_team_modules_id'}, + $api->add_group_member( $config{perl_team_modules_id}, { user_id => $user_id, access_level => $access_level } ); } @@ -157,13 +157,13 @@ sub removeuser { my ($user) = @args; die 'Required parameter username|userid missing.' unless $user; my $user_id = user2userid($user); - $api->remove_group_member( $config{'perl_team_modules_id'}, $user_id ); + $api->remove_group_member( $config{perl_team_modules_id}, $user_id ); } ## listmembers() sub listmembers { my $members - = $api->paginator( 'group_members', $config{'perl_team_modules_id'} ) + = $api->paginator( 'group_members', $config{perl_team_modules_id} ) ->all(); foreach ( @{$members} ) { if ( $opts{json} ) { @@ -182,7 +182,7 @@ sub listmembers { sub listrepos { my $repos = $api->paginator( 'group_projects', - $config{'perl_team_modules_packages_id'}, + $config{perl_team_modules_packages_id}, { order_by => 'name', sort => 'asc' } )->all(); foreach ( @{$repos} ) { @@ -203,7 +203,7 @@ sub createrepo { my $repo = $api->create_project( { name => $reponame, - namespace_id => $config{'perl_team_modules_packages_id'}, + namespace_id => $config{perl_team_modules_packages_id}, description => "Debian package $reponame", visibility => 'public', } @@ -237,8 +237,8 @@ sub createrepo { # allow access to debian group $api->share_project_with_group( $repoid, - { group_id => $config{'debian_id'}, - group_access => $levels_name{'developer'}, + { group_id => $config{debian_id}, + group_access => $levels_name{developer}, } ); } -- 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
