lib/Devscripts/Salsa/del_repo.pm


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;