[pkg-perl-tools] 01/01: dpt-salsa: new method changerepo (name or description)

[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 57ea16f18edb5062d6fb1a5af4f70505a8e6465c
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Jan 28 16:55:25 2018 +0100

    dpt-salsa: new method changerepo (name or description)
    
    Gbp-Dch: Ignore
---
 scripts/salsa | 41 +++++++++++++++++++++++++++++++++++++++++
 t/spelling.st |  1 +
 2 files changed, 42 insertions(+)

diff --git a/scripts/salsa b/scripts/salsa
index 90f2c55..f30a620 100755
--- a/scripts/salsa
+++ b/scripts/salsa
@@ -107,6 +107,8 @@ if ( $command eq 'version' ) {
     createrepo();
 } elsif ( $command eq 'configurerepo' ) {
     configurerepo();
+} elsif ( $command eq 'changerepo' ) {
+    changerepo();
 } elsif ( $command eq 'help' ) {
     pod2usage(1);
 } elsif ( $command eq 'XXX' ) {
@@ -268,6 +270,20 @@ sub configurerepo {
     );
 }
 
+## changerepo
+sub changerepo {
+    my ( $repo, $property, $value ) = @args;
+    die 'Required parameter reponame|repoid missing.'  unless $repo;
+    die 'Required parameter name|description missing.' unless $property;
+    die "Unknown property '$property'. Valid cases: 'name' or 'description'."
+        unless ( $property eq 'name' or $property eq 'description' );
+    die 'Required paramter "new value" missing.' unless $value;
+
+    my $repo_id = repo2repoid($repo);
+    $api->edit_project( $repo_id, { $property => $value } );
+    $api->edit_project( $repo_id, { path => $value } ) if $property eq 'name';
+}
+
 # helper functions
 ## prettyjson($data)
 sub prettyjson {
@@ -370,6 +386,31 @@ Required.
 
 =back
 
+=head3 I<changerepo> I<repositoryid|repositoryname> I<name|description> C<"parameter">
+
+Changes the name (and the path) or the description of a repository.
+
+Parameters:
+
+=over
+
+=item repositoryid|repositoryname
+
+The repository to be configured. Either its id (\d+) or name (\w+).
+Required.
+
+=item name|description
+
+What should be changed? The name or the description of the repository.
+Required.
+
+=item parameter
+
+The new name or description.
+Required.
+
+=back
+
 =head3 I<listrepos>
 
 Show all repositories in the I<modules> subgroup.
diff --git a/t/spelling.st b/t/spelling.st
index a5a6ca0..69b9553 100644
--- a/t/spelling.st
+++ b/t/spelling.st
@@ -53,6 +53,7 @@ alioth
 anonscm
 bts
 bzip
+changerepo
 conf
 configurerepo
 createrepo

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