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 a8cac893d03c673be5629ba24386c7bbdce1e7fb Author: gregor herrmann <[email protected]> Date: Sun Jan 28 02:42:03 2018 +0100 dpt-salsa: add createrepo method Gbp-Dch: Ignore --- scripts/salsa | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) diff --git a/scripts/salsa b/scripts/salsa index bed84a1..be423d5 100755 --- a/scripts/salsa +++ b/scripts/salsa @@ -100,6 +100,8 @@ if ( $command eq 'version' ) { or $command eq 'lsrepo' ) { listrepos(); +} elsif ( $command eq 'createrepo' ) { + createrepo(); } elsif ( $command eq 'help' ) { pod2usage(1); } elsif ( $command eq 'XXX' ) { @@ -192,6 +194,45 @@ sub listrepos { } } +# createrepo +sub createrepo { + my ($reponame) = @args; + die 'Required parameter repositoryname missing.' unless $reponame; + + my $repo = $api->create_project( + { name => $reponame, + namespace_id => $config{'perl_team_modules_packages_id'}, + description => "Debian package $reponame", + visibility => 'public', + } + ); + my $repoid = $repo->{id}; + + # webhooks: tagepending + $api->create_project_hook( + $repoid, + { url => "https://webhook.salsa.debian.org/tagpending/$reponame";, + push_events => 1, + } + ); + + # services: emails-on-push, irker + $api->edit_project_service( $repoid, 'emails-on-push', + { recipients => '[email protected]' } ); + $api->edit_project_service( + $repoid, 'irker', + { + + server_host => 'ruprecht.snow-crash.org', + server_port => '6659', + default_irc_uri => 'irc://irc.oftc.net:6667/', + recipients => 'debian-perl', + colorize_messages => 1, + + } + ); +} + # helper functions ## prettyjson($data) sub prettyjson { @@ -245,6 +286,22 @@ B<dpt-salsa> for the first time. =head2 for managing repositories +=head3 I<createrepo> I<repositoryname> + +Creates a new repository in the I<modules> subgroup and sets up the default +webhooks and services. + +Parameters: + +=over + +=item repositoryname + +Name of the repository to be added; usually the package name. +Required. + +=back + =head3 I<listrepos> Show all repos in the I<modules> subgroup. -- 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
