/usr/share/perl5/RPC/XML/identity.xpl is in librpc-xml-perl 0.76-3.
This file is owned by root:root, with mode 0o644.
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 | <?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE methoddef SYSTEM "rpc-method.dtd">
<!--
Generated automatically by make_method 1.15 on Tue Jun 26 03:15:38 2012
Any changes made here will be lost.
-->
<methoddef>
<name>system.identity</name>
<version>1.1</version>
<signature>string</signature>
<help>
Return the server name and version as a string
</help>
<code language="perl">
<![CDATA[
#!/usr/bin/perl
###############################################################################
#
# Sub Name: identity
#
# Description: Simply returns the server's identity as a string
#
# Arguments: First arg is server instance
#
# Globals: None.
#
# Returns: string
#
###############################################################################
sub identity
{
use strict;
$_[0]->product_tokens;
}
__END__
]]></code>
</methoddef>
|