Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains :
Cant Read [ /etc/named.conf ]
User : SISTEMA
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
C: /
xampp /
perl /
vendor /
lib /
Mail /
Mailer /
Delete
Unzip
Name
Size
Permission
Date
Action
qmail.pm
750
B
-rw-rw-rw-
2019-05-21 18:26
rfc822.pm
809
B
-rw-rw-rw-
2019-05-21 18:26
sendmail.pm
971
B
-rw-rw-rw-
2019-05-21 18:26
smtp.pm
2.29
KB
-rw-rw-rw-
2019-05-21 18:26
smtps.pm
2.27
KB
-rw-rw-rw-
2019-05-21 18:26
testfile.pm
1.35
KB
-rw-rw-rw-
2019-05-21 18:26
Save
Rename
# 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;