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 /
Cache /
[ HOME SHELL ]
Name
Size
Permission
Action
File
[ DIR ]
drwxr-xr-x
Memory
[ DIR ]
drwxr-xr-x
Null
[ DIR ]
drwxr-xr-x
RemovalStrategy
[ DIR ]
drwxr-xr-x
BaseCache.pm
14.73
KB
-rw-r--r--
BaseCacheTester.pm
2.76
KB
-rw-r--r--
Cache.pm
8.22
KB
-rw-r--r--
CacheMetaData.pm
5.73
KB
-rw-r--r--
CacheSizer.pm
3.94
KB
-rw-r--r--
CacheTester.pm
13.05
KB
-rw-r--r--
CacheUtils.pm
2.85
KB
-rw-r--r--
Entry.pm
8.37
KB
-rw-r--r--
File.pm
16.72
KB
-rw-r--r--
FileBackend.pm
14.06
KB
-rw-r--r--
FileCache.pm
7.17
KB
-rw-r--r--
IOString.pm
3.24
KB
-rw-r--r--
Memory.pm
9.64
KB
-rw-r--r--
MemoryBackend.pm
2.57
KB
-rw-r--r--
MemoryCache.pm
2.76
KB
-rw-r--r--
Null.pm
2.27
KB
-rw-r--r--
NullCache.pm
2.21
KB
-rw-r--r--
Object.pm
3.4
KB
-rw-r--r--
RemovalStrategy.pm
1.03
KB
-rw-r--r--
SharedMemoryBackend.pm
4.72
KB
-rw-r--r--
SharedMemoryCache.pm
3.4
KB
-rw-r--r--
SizeAwareCache.pm
3.04
KB
-rw-r--r--
SizeAwareCacheTester.pm
5.66
KB
-rw-r--r--
SizeAwareFileCache.pm
3.68
KB
-rw-r--r--
SizeAwareMemoryCache.pm
3.35
KB
-rw-r--r--
SizeAwareSharedMemoryCache.pm
2.55
KB
-rw-r--r--
Tester.pm
13.44
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : IOString.pm
=head1 NAME Cache::IOString - wrapper for IO::String to use in Cache implementations =head1 DESCRIPTION This module implements a derived class of IO::String that handles access modes and allows callback on close. It is for use by Cache implementations and should not be used directly. =cut package Cache::IOString; require 5.006; use strict; use warnings; use IO::String; our @ISA = qw(IO::String); sub open { my $self = shift; my ($dataref, $mode, $close_callback) = @_; return $self->new(@_) unless ref($self); # check mode my $read; my $write; if ($mode =~ /^\+?>>?$/) { $write = 1; $read = 1 if $mode =~ /^\+/; } elsif ($mode =~ /^\+?<$/) { $read = 1; $write = 1 if $mode =~ /^\+/; } $self->SUPER::open($dataref); *$self->{_cache_read} = $read; *$self->{_cache_write} = $write; *$self->{_cache_close_callback} = $close_callback; if ($write) { if ($mode =~ /^\+?>>$/) { # append $self->seek(0, 2); } elsif ($mode =~ /^\+?>$/) { # truncate $self->truncate(0); } } return $self; } sub close { my $self = shift; delete *$self->{_cache_read}; delete *$self->{_cache_write}; *$self->{_cache_close_callback}->($self) if *$self->{_cache_close_callback}; delete *$self->{_cache_close_callback}; $self->SUPER::close(@_); } sub DESTROY { my $self = shift; *$self->{_cache_close_callback}->($self) if *$self->{_cache_close_callback}; } sub pad { my $self = shift; return undef unless *$self->{_cache_write}; return $self->SUPER::pad(@_); } sub getc { my $self = shift; return undef unless *$self->{_cache_read}; return $self->SUPER::getc(@_); } sub ungetc { my $self = shift; return undef unless *$self->{_cache_read}; return $self->SUPER::ungetc(@_); } sub seek { my $self = shift; # call setpos if not writing to ensure a seek past the end doesn't extend # the string. Probably should really return undef in that situation. return $self->SUPER::setpos(@_) unless *$self->{_cache_write}; return $self->SUPER::seek(@_); } sub getline { my $self = shift; return undef unless *$self->{_cache_read}; return $self->SUPER::getline(@_); } sub truncate { my $self = shift; return undef unless *$self->{_cache_write}; return $self->SUPER::truncate(@_); } sub read { my $self = shift; return undef unless *$self->{_cache_read}; return $self->SUPER::read(@_); } sub write { my $self = shift; return undef unless *$self->{_cache_write}; return $self->SUPER::write(@_); } *GETC = \&getc; *READ = \&read; *WRITE = \&write; *SEEK = \&seek; *CLOSE = \&close; 1; __END__ =head1 SEE ALSO Cache::Entry, Cache::File, Cache::RemovalStrategy =head1 AUTHOR Chris Leishman <chris@leishman.org> Based on work by DeWitt Clinton <dewitt@unto.net> =head1 COPYRIGHT Copyright (C) 2003-2006 Chris Leishman. All Rights Reserved. This module is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or implied. This program is free software; you can redistribute or modify it under the same terms as Perl itself. $Id: IOString.pm,v 1.3 2006/01/31 15:23:58 caleishm Exp $ =cut
Close