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.213
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 /
virtualmin-registrar /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
newfeatures
[ DIR ]
drwxr-xr-x
CHANGELOG
990
B
-rw-r--r--
LICENSE
34.32
KB
-rw-r--r--
auto.pl
3.16
KB
-rwxr-xr-x
cgi_args.pl
857
B
-rwxr-xr-x
config
46
B
-rw-r--r--
config.info
271
B
-rw-r--r--
config.info.de
135
B
-rw-r--r--
config.info.nl
214
B
-rw-r--r--
countries.txt
9.3
KB
-rw-r--r--
create.cgi
1.16
KB
-rwxr-xr-x
create_form.cgi
936
B
-rwxr-xr-x
defaultacl
12
B
-rw-r--r--
delete.cgi
1.97
KB
-rwxr-xr-x
dereg.cgi
1.28
KB
-rwxr-xr-x
distribute-type-lib.pl
16.68
KB
-rwxr-xr-x
edit.cgi
3.27
KB
-rwxr-xr-x
edit_auto.cgi
1.91
KB
-rwxr-xr-x
edit_contact.cgi
4.18
KB
-rwxr-xr-x
edit_dereg.cgi
1.04
KB
-rwxr-xr-x
edit_import.cgi
1.38
KB
-rwxr-xr-x
edit_ns.cgi
2.04
KB
-rwxr-xr-x
edit_onecontact.cgi
2.93
KB
-rwxr-xr-x
edit_renew.cgi
1.67
KB
-rwxr-xr-x
edit_transfer.cgi
1.48
KB
-rwxr-xr-x
gandi-type-lib.pl
14.21
KB
-rwxr-xr-x
import.cgi
2.01
KB
-rwxr-xr-x
index.cgi
2.58
KB
-rwxr-xr-x
install-type
4
B
-rw-r--r--
list.cgi
1.73
KB
-rwxr-xr-x
list_contacts.cgi
1.59
KB
-rwxr-xr-x
module.info
125
B
-rw-r--r--
module.info.af.auto
42
B
-rw-r--r--
module.info.ar.auto
43
B
-rw-r--r--
module.info.be.auto
55
B
-rw-r--r--
module.info.bg.auto
70
B
-rw-r--r--
module.info.ca.auto
39
B
-rw-r--r--
module.info.cs.auto
38
B
-rw-r--r--
module.info.da.auto
39
B
-rw-r--r--
module.info.de
39
B
-rw-r--r--
module.info.el.auto
45
B
-rw-r--r--
module.info.es.auto
42
B
-rw-r--r--
module.info.eu.auto
41
B
-rw-r--r--
module.info.fa.auto
37
B
-rw-r--r--
module.info.fi.auto
50
B
-rw-r--r--
module.info.fr.auto
45
B
-rw-r--r--
module.info.he.auto
39
B
-rw-r--r--
module.info.hr.auto
39
B
-rw-r--r--
module.info.hu.auto
41
B
-rw-r--r--
module.info.it.auto
40
B
-rw-r--r--
module.info.ja.auto
37
B
-rw-r--r--
module.info.ko.auto
32
B
-rw-r--r--
module.info.lt.auto
46
B
-rw-r--r--
module.info.lv.auto
42
B
-rw-r--r--
module.info.ms.auto
38
B
-rw-r--r--
module.info.mt.auto
47
B
-rw-r--r--
module.info.nl
38
B
-rw-r--r--
module.info.no.auto
38
B
-rw-r--r--
module.info.pl.auto
38
B
-rw-r--r--
module.info.pt.auto
40
B
-rw-r--r--
module.info.pt_BR.auto
43
B
-rw-r--r--
module.info.ro.auto
41
B
-rw-r--r--
module.info.ru.auto
57
B
-rw-r--r--
module.info.sk.auto
40
B
-rw-r--r--
module.info.sl.auto
38
B
-rw-r--r--
module.info.sv.auto
42
B
-rw-r--r--
module.info.th.auto
71
B
-rw-r--r--
module.info.tr.auto
36
B
-rw-r--r--
module.info.uk.auto
53
B
-rw-r--r--
module.info.ur.auto
49
B
-rw-r--r--
module.info.vi.auto
42
B
-rw-r--r--
module.info.zh.auto
28
B
-rw-r--r--
module.info.zh_TW.auto
31
B
-rw-r--r--
namecheap-type-lib.pl
15.86
KB
-rw-r--r--
newgandi-type-lib.pl
22.86
KB
-rwxr-xr-x
rcom-type-lib.pl
21.94
KB
-rwxr-xr-x
renew.cgi
1.18
KB
-rwxr-xr-x
save.cgi
3.17
KB
-rwxr-xr-x
save_auto.cgi
1.96
KB
-rwxr-xr-x
save_contact.cgi
2.06
KB
-rwxr-xr-x
save_ns.cgi
1.79
KB
-rwxr-xr-x
save_onecontact.cgi
2.27
KB
-rwxr-xr-x
transfer.cgi
1.43
KB
-rwxr-xr-x
update_contacts.cgi
1.31
KB
-rw-r--r--
view_contact.cgi
1.42
KB
-rwxr-xr-x
virtual_feature.pl
12.34
KB
-rwxr-xr-x
virtualmin-registrar-lib.pl
7.98
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : save.cgi
#!/usr/bin/perl # Create, update or delete a registrar account use strict; no strict 'refs'; use warnings; our (%access, %text, %in); our $registrar_accounts_dir; require './virtualmin-registrar-lib.pl'; $access{'registrar'} || &error($text{'edit_ecannot'}); &ReadParse(); &error_setup($text{'save_err'}); my @accounts = &list_registrar_accounts(); # Get the account object and registrar type my $account; my $reg; if ($in{'registrar'}) { $reg = $in{'registrar'}; $account = { 'id' => time().$$, 'registrar' => $reg }; } else { ($account) = grep { $_->{'id'} eq $in{'id'} } @accounts; $account || &error($text{'edit_egone'}); $reg = $account->{'registrar'}; } if ($in{'delete'}) { # Check if in use by any Virtualmin domains - if so, we can't delete &error_setup($text{'save_err2'}); my @doms = &find_account_domains($account); if (@doms && @accounts < 2) { &error(&text('save_edoms', join(" ", map { "<tt>$_->{'dom'}</tt>" } @doms))); } if ($in{'confirm'}) { # Just delete it &lock_file($account->{'file'}); &delete_registrar_account($account); &unlock_file($account->{'file'}); # Update domains to new use registrar foreach my $d (@doms) { $d->{'registrar_account'} = $in{'transfer'}; &virtual_server::save_domain($d); } } else { # Ask first &ui_print_header(undef, $text{'save_dtitle'}, ""); print &ui_form_start("save.cgi", "post"); print &ui_hidden("id", $in{'id'}); print &ui_hidden("delete", 1); print "<center>"; print &text('save_drusure', "<i>$account->{'desc'}</i>"),"<p>\n", &ui_submit($text{'save_dok'}, 'confirm'),"<p>\n"; # Ask which account to transfer to if (@doms) { print "<b>",&text('save_transfer', scalar(@doms))," ", &ui_select("transfer", undef, [ map { [ $_->{'id'}, $_->{'desc'} ] } grep { $_->{'id'} ne $account->{'id'} } @accounts ]),"</b><p>\n"; } print "</center>\n"; print &ui_form_end(); &ui_print_footer("", $text{'index_return'}); } } else { # Validate inputs $in{'desc'} =~ /\S/ || &error($text{'save_edesc'}); $account->{'desc'} = $in{'desc'}; $account->{'enabled'} = $in{'enabled'}; if ($in{'doms_def'}) { delete($account->{'doms'}); } else { $in{'doms'} =~ /\S/ || &error($text{'save_etopdoms'}); foreach my $tld (split(/\s+/, $in{'doms'})) { $tld =~ /^\.[a-z0-9\.\-]+$/ || &error(&text('save_etopdoms2', $tld)); } $account->{'doms'} = $in{'doms'}; } if ($in{'ns_def'}) { delete($account->{'ns'}); } else { my @ns = split(/\s+/, $in{'ns'}); foreach my $ns (@ns) { &to_ipaddress($ns) || &error(&text('save_ens', $ns)); &check_ipaddress($ns) && &error(&text('save_ensip', $ns)); } @ns || &error(&text('save_enss')); $account->{'ns'} = join(" ", @ns); } my $pfunc = "type_".$reg."_edit_parse"; my $perr = &$pfunc($account, $in{'registrar'}, \%in); &error($perr) if ($perr); # Make sure the login actually works my $vfunc = "type_".$reg."_validate"; my $verr = &$vfunc($account); &error($verr) if ($verr); # Save or create &lock_file($account->{'file'} || "$registrar_accounts_dir/$account->{'id'}"); &save_registrar_account($account); &unlock_file($account->{'file'}); &redirect("index.cgi"); }
Close
