1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Deletes a repository
package Devscripts::Salsa::del_repo;
use strict;
use Devscripts::Output;
use Dpkg::IPC;
use Moo::Role;
sub del_repo {
my ($self, $reponame) = @_;
unless ($reponame) {
ds_warn "Repository 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;
|
