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 : push.pm

# Push local work. Like gbp push but able to push incomplete work
package Devscripts::Salsa::push;
use strict;
use Devscripts::Output;
use Devscripts::Utils;
use Dpkg::Source::Format;
use Moo::Role;
use Dpkg::IPC;

sub readGbpConf {
    my ($self) = @_;
    my $res = '';
    foreach my $gbpconf (qw(.gbp.conf debian/gbp.conf .git/gbp.conf)) {
        if (-e $gbpconf) {
            open(my $f, $gbpconf);
            while (<$f>) {
                $res .= $_;
                if (/^\s*(debian|upstream)\-(branch|tag)\s*=\s*(.*\S)/) {
                    $self->{"$1_$2"} = $3;
                }
            }
            close $f;
            last;
        }
    }
    if ($self->{debian_tag}) {
        $self->{debian_tag} =~ s/%$version$s/.*/g;
        $self->{debian_tag} =~ s/^/^/;
        $self->{debian_tag} =~ s/$/\$/;
    } else {
        my @tmp
          = Dpkg::Source::Format->new(filename => 'debian/source/format')->get;
        $self->{debian_tag} = $tmp[2] eq 'native' ? '.*' : '^debian/.*$';
    }
    if ($self->{upstream_tag}) {
        $self->{upstream_tag} =~ s/%$version$s/.*/g;
        $self->{upstream_tag} =~ s/^/^/;
        $self->{upstream_tag} =~ s/$/\$/;
    } else {
        $self->{upstream_tag} = '^upstream/.*$';
    }
    $self->{debian_branch}   ||= 'master';
    $self->{upstream_branch} ||= 'upstream';
    return $res;
}

sub push {
    my ($self) = @_;
    $self->readGbpConf;
    my @refs;
    foreach (
        $self->{debian_branch}, $self->{upstream_branch},
        'pristine-tar',         'refs/notes/commits'
    ) {
        if (ds_exec_no_fail(qw(git rev-parse --verify --quiet), $_) == 0) {
            push @refs, $_;
        }
    }
    my $out;
    spawn(exec => ['git', 'tag'], wait_child => 1, to_string => \$out);
    my @tags = grep /(?:$self->{debian_tag}|$self->{upstream_tag})/,
      split(/\r?\n/, $out);
    unless (
        $ds_yes < 0
        and ds_prompt(
                "You're going to push :\n - "
              . join(', ', @refs)
              . "\nand check tags that match:\n - "
              . join(', ', $self->{debian_tag}, $self->{upstream_tag})
              . "\nContinue (Y/n) "
        ) =~ refuse
    ) {
        my $origin;
        eval {
            spawn(
                exec       => ['git', 'rev-parse', '--abbrev-ref', 'HEAD'],
                wait_child => 1,
                to_string  => \$out,
            );
            chomp $out;
            spawn(
                exec =>
                  ['git', 'config', '--local', '--get', "branch.$out.remote"],
                wait_child => 1,
                to_string  => \$origin,
            );
            chomp $origin;
        };
        if ($origin) {
            ds_verbose 'Origin is ' . $origin;
        } else {
            ds_warn 'Unable to detect remote name, trying "origin"';
            ds_verbose "Error: $@" if ($@);
            $origin = 'origin';
        }
        ds_verbose "Execute 'git push $origin " . join(' ', @refs, '<tags>');
        ds_debug "Tags are: " . join(' ', @tags);
        spawn(
            exec       => ['git', 'push', $origin, @refs, @tags],
            wait_child => 1
        );
    }
    return 0;
}

${this.title}

Code Editor : push.pm