⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.1
Server IP:
185.238.29.86
Server:
Linux server2 6.8.12-6-pve #1 SMP PREEMPT_DYNAMIC PMX 6.8.12-6 (2024-12-19T19:05Z) x86_64
Server Software:
nginx/1.18.0
PHP Version:
8.1.31
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
perl5
/
Mail
/
Mailer
/
Edit File: 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;
Simpan