Adding upstream version 2.25.15.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
This commit is contained in:
parent
10737b110a
commit
b543f2e88d
485 changed files with 191459 additions and 0 deletions
26
lib/Devscripts/Salsa/del_repo.pm
Normal file
26
lib/Devscripts/Salsa/del_repo.pm
Normal file
|
@ -0,0 +1,26 @@
|
|||
# Deletes a project
|
||||
package Devscripts::Salsa::del_repo; # delete_project
|
||||
|
||||
use strict;
|
||||
use Devscripts::Output;
|
||||
use Dpkg::IPC;
|
||||
use Moo::Role;
|
||||
|
||||
sub del_repo {
|
||||
my ($self, $reponame) = @_;
|
||||
unless ($reponame) {
|
||||
ds_warn "Project name or path is missing";
|
||||
return 1;
|
||||
}
|
||||
my $id = $self->project2id($reponame) or return 1;
|
||||
my $path = $self->project2path($reponame);
|
||||
return 1
|
||||
if ($ds_yes < 0
|
||||
and ds_prompt("You're going to delete $path. Continue (Y/n) ")
|
||||
=~ refuse);
|
||||
$self->api->delete_project($id);
|
||||
ds_warn "Project $path deleted";
|
||||
return 0;
|
||||
}
|
||||
|
||||
1;
|
Loading…
Add table
Add a link
Reference in a new issue