This file is indexed.

/usr/bin/xpath is in libxml-xpath-perl 1.30-1.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell
use strict;

$| = 1;

use XML::XPath;

my @paths;
my $pipeline;
my $SUFFIX = "\n";
my $PREFIX = "";
my $quiet = 0;


PARSE: while ((@ARGV >= 1) && ($ARGV[0] =~ /^-./ )) {
	OPTIONS: {
		if ($ARGV[0] eq "-e") {
			shift;
			push @paths, shift;
			last OPTIONS;
		}
		if ($ARGV[0] eq "-p") {
			shift;
			$PREFIX = shift;
			last OPTIONS;
		}
		if ($ARGV[0] eq "-s") {
			shift;
			$SUFFIX = shift;
			last OPTIONS;
		}
		if ($ARGV[0] eq "-q") {
			$quiet = 1;
			shift;
			last OPTIONS;
		}
		if ($ARGV[0] eq "-n") {
			$XML::XPath::ParseParamEnt = 0;
			shift;
			last OPTIONS;
		}
		print STDERR "Unknown option ignore: ", shift;
	}
}

unless (@paths >= 1) {
	print STDERR qq(Usage:
$0 [options] -e query [-e query...] [filename...]

	If no filenams are given, supply XML on STDIN.
	You must provide at least one query. Each supplementary
	query is done in order, the previous query giving the
	context of the next one.

	Options:

	-q		quiet. Only output the resulting PATH
	-s suffix	use suffix instead of linefeed.
	-p postfix	use prefix instead of nothing.
	-n		Don't use an external DTD.
);
	exit;
}

do
{
	my $xpath;
	my @curpaths = @paths;
	my $filename;
	if (@ARGV >= 1) {
		$filename = shift @ARGV;
		$xpath = XML::XPath->new(filename => $filename);
	}
	else {
		$filename = 'stdin';
		$xpath = XML::XPath->new(ioref => \*STDIN);
	}

	my $nodes = $xpath->find(shift @curpaths);

	if ($nodes->isa('XML::XPath::NodeSet')) {
		while (@curpaths >= 1) {
			$nodes = find_more($xpath, shift @curpaths, $nodes);
			last unless $nodes->isa('XML::XPath::NodeSet');
		}
	}

	if ($nodes->isa('XML::XPath::NodeSet')) {
		if ($nodes->size) {
			print STDERR "Found ", $nodes->size, " nodes in $filename:\n" unless $quiet;
			foreach my $node ($nodes->get_nodelist) {
				print STDERR "-- NODE --\n" unless $quiet;
				print $PREFIX, $node->toString, $SUFFIX;
			}
		}
		else {
			print STDERR "No nodes found in $filename\n" unless $quiet;
		}
	}
	else {
		print STDERR "Query didn't return a nodeset. Value: ";
		print $nodes->value, "\n";
	}

} until (@ARGV < 1);

exit;

sub find_more {
	my $xpath = shift;
	my $find = shift;
	my ($nodes) = @_;
	
	my $newnodes = XML::XPath::NodeSet->new;
	
	foreach my $node ($nodes->get_nodelist) {
		my $new = $xpath->find($find, $node);
		if ($new->isa('XML::XPath::NodeSet')) {
			$newnodes->append($new);
		}
		else {
			warn "Not a nodeset: ", $new->value, "\n";
		}
	}
	
	return $newnodes;
}

__END__

=head1 NAME

xpath - a script to query XPath statements in XML documents.

=head1 SYNOPSIS

B<xpath [-s suffix] [-p prefix] [-n] [-q] -e query [-e query] ... [file] ...>

=head1 DESCRIPTION

B<xpath> uses the L<XML::XPath|XML::XPath> perl module to make XPath queries
to any XML document. The L<XML::XPath|XML::XPath> module aims to comply exactly
to the XPath specification at C<http://www.w3.org/TR/xpath> and yet
allows extensions to be added in the form of functions.

The script takes any number of XPath pointers and tries to apply them
to each XML document given on the command line. If no file arguments
are given, the query is done using C<STDIN> as an XML document.

When multiple queries exist, the result of the last query is used as
context for the next query and only the result of the last one is output.
The context of the first query is always the root of the current document.

=head1 OPTIONS

=head2 B<-q>

Be quiet. Output only errors (and no separator) on stderr.

=head2 B<-e>

Never use an external DTD, ie. instantiate the XML::Parser module
with 'ParseParamEnt => 0'.

=head2 B<-s suffix>

Place C<suffix> at the end of each entry. Default is a linefeed.

=head2 B<-p prefix>

Place C<prefix> preceding each entry. Default is nothing.

=head1 BUGS

The author of this man page is not very fluant in english. Please,
send him (L<fabien@tzone.org>) any corrections concerning this text.

See also L<XML::XPath(3pm)>.

=head1 SEE ALSO

L<XML::XPath(3pm)>.

=head1 HISTORY

This module is copyright 2000 Fastnet Software Ltd. This is free
software, and as such comes with NO WARRANTY. No dates are used in this
module. You may distribute this module under the terms of either the
Gnu GPL,  or under specific licencing from Fastnet Software Ltd.
Special free licencing consideration will be given to similarly free
software. Please don't flame me for this licence - I've put a lot of
hours into this code, and if someone uses my software in their product
I expect them to have the courtesy to contact me first.

Full support for this module is available from Fastnet Software Ltd on
a pay per incident basis. Alternatively subscribe to the Perl-XML
mailing list by mailing lyris@activestate.com with the text:

	SUBSCRIBE Perl-XML

in the body of the message. There are lots of friendly people on the
list, including myself, and we'll be glad to get you started.

Matt Sergeant, matt@sergeant.org

This man page was added as well as some serious modifications to the script
by Fabien Ninoles <fabien@debian.org> for the Debian Project.

=cut