Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Config.pm	10.72 KB	-rw-r--r--
Hooks.pm	7.9 KB	-rw-r--r--
Repo.pm	1.87 KB	-rw-r--r--
add_user.pm	976 B	-rw-r--r--
check_repo.pm	5.08 KB	-rw-r--r--
checkout.pm	2.08 KB	-rw-r--r--
create_repo.pm	1.13 KB	-rw-r--r--
del_repo.pm	602 B	-rw-r--r--
del_user.pm	733 B	-rw-r--r--
fork.pm	711 B	-rw-r--r--
forks.pm	892 B	-rw-r--r--
group.pm	724 B	-rw-r--r--
join.pm	452 B	-rw-r--r--
last_ci_status.pm	2.31 KB	-rw-r--r--
list_groups.pm	882 B	-rw-r--r--
list_repos.pm	876 B	-rw-r--r--
merge_request.pm	6.05 KB	-rw-r--r--
merge_requests.pm	1.05 KB	-rw-r--r--
protect_branch.pm	1.1 KB	-rw-r--r--
protected_branches.pm	761 B	-rw-r--r--
purge_cache.pm	285 B	-rw-r--r--
push.pm	3.12 KB	-rw-r--r--
push_repo.pm	1.65 KB	-rw-r--r--
rename_branch.pm	1.14 KB	-rw-r--r--
search_group.pm	776 B	-rw-r--r--
search_project.pm	1.38 KB	-rw-r--r--
search_user.pm	700 B	-rw-r--r--
update_repo.pm	4.15 KB	-rw-r--r--
update_safe.pm	569 B	-rw-r--r--
update_user.pm	883 B	-rw-r--r--
whoami.pm	578 B	-rw-r--r--

Code Editor : last_ci_status.pm

package Devscripts::Salsa::last_ci_status;

use strict;
use Devscripts::Output;
use Moo::Role;

with "Devscripts::Salsa::Repo";

use constant OK      => 'success';
use constant SKIPPED => 'skipped';
use constant FAILED  => 'failed';

sub last_ci_status {
    my ($self, @repos) = @_;
    unless (@repos or $self->config->all) {
        ds_warn "Usage $0 ci_status <names>";
        return 1;
    }
    if (@repos and $self->config->all) {
        ds_warn "--all with a reponame makes no sense";
        return 1;
    }

# If --all is asked, launch all projects
    @repos = map { $_->[1] } $self->get_repo(0, @repos) unless (@repos);
    my $ret = 0;
    foreach my $repo (@repos) {
        my $id        = $self->project2id($repo) or return 1;
        my $pipelines = $self->api->pipelines($id);
        unless ($pipelines and @$pipelines) {
            ds_warn "No pipelines for $repo";
            $ret++;
            return 1 unless $self->config->no_fail;
        } else {
            my $status = $pipelines->[0]->{status};
            if ($status eq OK) {
                print "Last result for $repo: $status\n";
            } else {
                print STDERR "Last result for $repo: $status\n";
                my $jobs
                  = $self->api->pipeline_jobs($id, $pipelines->[0]->{id});
                my %jres;
                foreach my $job (sort { $a->{id} <=> $b->{id} } @$jobs) {
                    next if $job->{status} eq SKIPPED;
                    push @{ $jres{ $job->{status} } }, $job->{name};
                }
                if ($jres{ OK() }) {
                    print STDERR '    success: '
                      . join(', ', @{ $jres{ OK() } }) . "\n";
                    delete $jres{ OK() };
                }
                foreach my $k (sort keys %jres) {
                    print STDERR '    '
                      . uc($k) . ': '
                      . join(', ', @{ $jres{$k} }) . "\n";
                }
                print STDERR "\n  See: " . $pipelines->[0]->{web_url} . "\n\n";
                if ($status eq FAILED) {
                    $ret++;
                    unless ($self->config->no_fail) {
                        ds_verbose "Use --no-fail to continue";
                        return 1;
                    }
                }
            }
        }
    }
    return $ret;
}

${this.title}

Code Editor : last_ci_status.pm