/usr/share/doc/librpc-xml-perl/examples/linux.proc.cpuinfo.code is in librpc-xml-perl 0.79-1.
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 | ###############################################################################
#
# Sub Name: linux_proc_cpuinfo
#
# Description: Read the /proc/cpuinfo on a Linux server and return a
# STRUCT with the information.
#
# Arguments: None.
#
# Returns: hashref
#
###############################################################################
sub linux_proc_sysinfo
{
use strict;
my (%cpuinfo, $line, $key, $value);
local *F;
open(F, '/proc/cpuinfo') or
return RPC::XML::fault->new(501, "Cannot open /proc/cpuinfo: $!");
while (defined($line = <F>))
{
chomp $line;
next if ($line =~ /^\s*$/);
($key, $value) = split(/\s+:\s+/, $line, 2);
$key =~ s/ /_/g;
$cpuinfo{$key} = ($key eq 'flags') ? [ split(/ /, $value) ] : $value;
}
close(F);
\%cpuinfo;
}
|