Linux vmi284606.contaboserver.net 4.15.0-213-generic #224-Ubuntu SMP Mon Jun 19 13:30:12 UTC 2023 x86_64
Apache/2.4.57 (Ubuntu)
: 167.86.127.34 | : 216.73.217.1
Cant Read [ /etc/named.conf ]
7.2.24-0ubuntu0.18.04.17
root
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 /
[ HOME SHELL ]
Name
Size
Permission
Action
Field
[ DIR ]
drwxr-xr-x
Mailer
[ DIR ]
drwxr-xr-x
Address.pm
6.66
KB
-rw-r--r--
Address.pod
3.71
KB
-rw-r--r--
Cap.pm
6.17
KB
-rw-r--r--
Cap.pod
3.74
KB
-rw-r--r--
Field.pm
4.68
KB
-rw-r--r--
Field.pod
4.9
KB
-rw-r--r--
Filter.pm
1.23
KB
-rw-r--r--
Filter.pod
2.79
KB
-rw-r--r--
Header.pm
14.02
KB
-rw-r--r--
Header.pod
7.72
KB
-rw-r--r--
Internet.pm
12
KB
-rw-r--r--
Internet.pod
10.31
KB
-rw-r--r--
Mailer.pm
4.73
KB
-rw-r--r--
Mailer.pod
3.88
KB
-rw-r--r--
Send.pm
1.13
KB
-rw-r--r--
Send.pod
2.8
KB
-rw-r--r--
Util.pm
3.14
KB
-rw-r--r--
Util.pod
3.08
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Filter.pm
# Copyrights 1995-2016 by [Mark Overmeer <perl@overmeer.net>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. use strict; package Mail::Filter; use vars '$VERSION'; $VERSION = '2.18'; use Carp; sub new(@) { my $class = shift; bless { filters => [ @_ ] }, $class; } sub add(@) { my $self = shift; push @{$self->{filters}}, @_; } sub _filter($) { my ($self, $mail) = @_; foreach my $sub ( @{$self->{filters}} ) { my $mail = ref $sub eq 'CODE' ? $sub->($self,$mail) : !ref $sub ? $self->$sub($mail) : carp "Cannot call filter '$sub', ignored"; ref $mail or last; } $mail; } sub filter { my ($self, $obj) = @_; if($obj->isa('Mail::Folder')) { $self->{folder} = $obj; foreach my $m ($obj->message_list) { my $mail = $obj->get_message($m) or next; $self->{msgnum} = $m; $self->_filter($mail); } delete $self->{folder}; delete $self->{msgnum}; } elsif($obj->isa('Mail::Internet')) { return $self->filter($obj); } else { carp "Cannot process '$obj'"; return undef; } } sub folder() {shift->{folder}} sub msgnum() {shift->{msgnum}} 1;
Close
