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.20
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 /
Head /
[ HOME SHELL ]
Name
Size
Permission
Action
Complete.pm
11.15
KB
-rw-r--r--
Complete.pod
25.24
KB
-rw-r--r--
Delayed.pm
1.88
KB
-rw-r--r--
Delayed.pod
6.75
KB
-rw-r--r--
FieldGroup.pm
3.87
KB
-rw-r--r--
FieldGroup.pod
9.25
KB
-rw-r--r--
ListGroup.pm
7.58
KB
-rw-r--r--
ListGroup.pod
10.47
KB
-rw-r--r--
Partial.pm
2.69
KB
-rw-r--r--
Partial.pod
14.91
KB
-rw-r--r--
ResentGroup.pm
4.96
KB
-rw-r--r--
ResentGroup.pod
13.12
KB
-rw-r--r--
SpamGroup.pm
4.66
KB
-rw-r--r--
SpamGroup.pod
10.38
KB
-rw-r--r--
Subset.pm
2.04
KB
-rw-r--r--
Subset.pod
6.93
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Delayed.pm
# Copyrights 2001-2020 by [Mark Overmeer]. # 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 distribution Mail-Box. 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::Head::Delayed; use vars '$VERSION'; $VERSION = '3.009'; use base 'Mail::Message::Head'; use strict; use warnings; use Object::Realize::Later becomes => 'Mail::Message::Head::Complete', realize => 'load', believe_caller => 1; use Scalar::Util 'weaken'; sub build(@) {shift->log(ERROR => "Cannot build() a delayed header.") } #------------------------------------------ sub init($$) { my ($self, $args) = @_; $self->SUPER::init($args); if(defined $args->{message}) { $self->{MMHD_message} = $args->{message}; weaken($self->{MMHD_message}); } $self; } #------------------------------------------ sub isDelayed() {1} #------------------------------------------ sub modified(;$) { return 0 if @_==1 || !$_[1]; shift->forceRealize->modified(1); } #------------------------------------------ sub isModified() { 0 } #------------------------------------------ sub isEmpty() { 0 } #------------------------------------------ sub get($;$) { my $self = shift; $self->load->get(@_); } #------------------------------------------ sub guessBodySize() {undef} sub guessTimestamp() {undef} #------------------------------------------ sub read($) { my ($self, $parser, $headtype, $bodytype) = @_; # $parser->skipHeader not implemented... returns where $self->{MMH_where} = 0; $self; } sub load() {$_[0] = $_[0]->message->loadHead} sub setNoRealize($) { shift->log(INTERNAL => "Setting field on a delayed?") } 1;
Close