Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
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 /
Message /
Construct /
[ HOME SHELL ]
Name
Size
Permission
Action
Bounce.pm
1.76
KB
-rw-r--r--
Bounce.pod
2.76
KB
-rw-r--r--
Build.pm
4.69
KB
-rw-r--r--
Build.pod
10.3
KB
-rw-r--r--
Forward.pm
6.98
KB
-rw-r--r--
Forward.pod
14.26
KB
-rw-r--r--
Read.pm
2.15
KB
-rw-r--r--
Read.pod
3.21
KB
-rw-r--r--
Rebuild.pm
7.62
KB
-rw-r--r--
Rebuild.pod
9.94
KB
-rw-r--r--
Reply.pm
6.67
KB
-rw-r--r--
Reply.pod
7.93
KB
-rw-r--r--
Text.pm
1.92
KB
-rw-r--r--
Text.pod
2.17
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Bounce.pm
# Copyrights 2001-2022 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.03. # This code is part of distribution Mail-Message. Meta-POD processed with # OODoc into POD and HTML manual-pages. See README.md # Copyright Mark Overmeer. Licensed under the same terms as Perl itself. package Mail::Message; use vars '$VERSION'; $VERSION = '3.012'; use strict; use warnings; use Mail::Message::Head::Complete; use Mail::Message::Field; use Carp qw/croak/; sub bounce(@) { my $self = shift; my $bounce = $self->clone; my $head = $bounce->head; if(@_==1 && ref $_[0] && $_[0]->isa('Mail::Message::Head::ResentGroup' )) { $head->addResentGroup(shift); return $bounce; } my @rgs = $head->resentGroups; my $rg = $rgs[0]; if(defined $rg) { $rg->delete; # Remove group to re-add it later: otherwise while(@_) # field order in header would be disturbed. { my $field = shift; ref $field ? $rg->set($field) : $rg->set($field, shift); } } elsif(@_) { $rg = Mail::Message::Head::ResentGroup->new(@_); } else { $self->log(ERROR => "Method bounce requires To, Cc, or Bcc"); return undef; } # # Add some nice extra fields. # $rg->set(Date => Mail::Message::Field->toDate) unless defined $rg->date; unless(defined $rg->messageId) { my $msgid = $head->createMessageId; $rg->set('Message-ID' => "<$msgid>"); } $head->addResentGroup($rg); # # Flag action to original message # $self->label(passed => 1); # used by some maildir clients $bounce; } 1;
Close