[pkg-perl-tools] 01/04: dpt-salsa: add --attic (for listrepos and configurerepo)

[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 e8dcc7c173d3b6b70c693f3f038875c79245dab7
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Feb 9 23:07:19 2018 +0100

    dpt-salsa: add --attic (for listrepos and configurerepo)
    
    Gbp-Dch: Ignore
---
 scripts/salsa | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/scripts/salsa b/scripts/salsa
index cc9f926..addb1a6 100755
--- a/scripts/salsa
+++ b/scripts/salsa
@@ -39,7 +39,8 @@ foreach ( keys %config ) {
 # commandline
 ## options
 my %opts;
-GetOptions( \%opts, 'help|?', 'man', 'json', 'all', ) or pod2usage(2);
+GetOptions( \%opts, 'help|?', 'man', 'json', 'all', 'attic', )
+    or pod2usage(2);
 pod2usage(1) if $opts{help};
 pod2usage( -exitval => 0, -verbose => 2 ) if $opts{man};
 pod2usage(    # don't check earlier to allow for --help/--man
@@ -216,7 +217,9 @@ sub listmembers {
 sub listrepos {
     my $repos = $api->paginator(
         'group_projects',
-        $config{perl_team_modules_packages_id},
+        $opts{attic}
+        ? $config{perl_team_modules_attic_id}
+        : $config{perl_team_modules_packages_id},
         { order_by => 'name', sort => 'asc' }
     )->all();
     my @repoids;
@@ -464,7 +467,7 @@ B<dpt-salsa> - manage repositories and members of the I<perl-team> on I<salsa.de
 
 =head1 SYNOPSIS
 
-B<dpt salsa> [--help|--man|--json|--all] I<subcommand> [parameters]
+B<dpt salsa> [--help|--man|--json|--all|--attic] I<subcommand> [parameters]
 
 =head1 DESCRIPTION
 
@@ -518,9 +521,10 @@ Required.
 
 =back
 
-=head3 I<configurerepo> I<--all>
+=head3 I<configurerepo> I<--all> [--attic]
 
-Sets up the default webhooks and services for all active repositories.
+Sets up the default webhooks and services for all active (or, with
+C<--attic>, archived) repositories.
 
 =head3 I<changerepo> I<repositoryid|repositoryname> I<name|description> C<"parameter">
 
@@ -558,9 +562,10 @@ only works for admins. Trying it via B<GitLab::API::v4> leads to a C<403
 forbidden> error. Use the web interface (which requires an extra
 confirmation step) for now.
 
-=head3 I<listrepos> [--json]
+=head3 I<listrepos> [--json] [--attic]
 
-Show all repositories in the I<modules> subgroup.
+Show all active (or, with C<--attic>, archived) repositories in the
+I<modules> subgroup.
 
 If used with C<--all>, returns repository ids and does not output anything;
 for internal use.
@@ -696,6 +701,11 @@ Show complete manpage.
 Act on all users or repositories, not a single named one.
 Only for specific subcommands, as noted in their description.
 
+=item --attic
+
+Act on archived repositories instead of active ones.
+Only for specific subcommands, as noted in their description.
+
 =item --json
 
 Format output as JSON instead of human-targeted text.

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