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.13
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 /
auto /
CGI /
XMLForm /
Path /
[ HOME SHELL ]
Name
Size
Permission
Action
Append.al
633
B
-rw-r--r--
Attrib.al
344
B
-rw-r--r--
FullPath.al
470
B
-rw-r--r--
Path.al
336
B
-rw-r--r--
Pop.al
425
B
-rw-r--r--
autosplit.ix
308
B
-rw-r--r--
buildSelf.al
1.19
KB
-rw-r--r--
isChildPath.al
664
B
-rw-r--r--
isEqual.al
718
B
-rw-r--r--
isRelative.al
357
B
-rw-r--r--
isRepeat.al
349
B
-rw-r--r--
new.al
612
B
-rw-r--r--
rebuildSelf.al
400
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : buildSelf.al
# NOTE: Derived from ../blib/lib/CGI/XMLForm/Path.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package CGI::XMLForm::Path; #line 36 "../blib/lib/CGI/XMLForm/Path.pm (autosplit into ../blib/lib/auto/CGI/XMLForm/Path/buildSelf.al)" sub buildSelf { my $self = shift; my $prev = shift; if ($self->{_path} =~ s/\*$//) { $self->{_repeat} = 1; } # warn "Building from ", $self->{_path}, "\n"; my @parts = split('/', $self->{_path}); my @fullpath; $self->{Relative} = 0; if ($self->{_path} !~ /^\//) { # It's a relative path $self->{_relative} = 1; @fullpath = @{$prev->{_fullpath}}; if ($prev->isRelative) { # prev was a relative path so remove top item pop @fullpath; } foreach ( @parts ) { if ($_ eq "..") { pop @fullpath; } else { push @fullpath, $_; } } } else { # remove crap from beginning (empty because of preceding "/") shift @parts; @fullpath = @parts; } if ($fullpath[$#fullpath] =~ /^\@(\w+)$/) { pop @fullpath; pop @parts; $self->{_attrib} = $1; } $self->{Parts} = \@parts; $self->{_fullpath} = \@fullpath; # warn "Built: ", $self->FullPath, "\n"; } # end of CGI::XMLForm::Path::buildSelf 1;
Close