/usr/share/fusioninventory/lib/FusionInventory/Agent/XML/Response.pm is in fusioninventory-agent 1:2.3.10.1-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 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 | package FusionInventory::Agent::XML::Response;
use strict;
use warnings;
use List::Util qw(first);
use XML::TreePP;
sub new {
my ($class, %params) = @_;
my $tpp = XML::TreePP->new(
force_array => [ qw/
OPTION PARAM MODEL AUTHENTICATION RANGEIP DEVICE GET WALK
/ ],
attr_prefix => '',
text_node_key => 'content'
);
my $content = $tpp->parse($params{content});
die "content is not an XML message" unless ref $content eq 'HASH';
die "content is an invalid XML message" unless defined($content->{REPLY});
my $self = {
content => $content->{REPLY}
};
bless $self, $class;
return $self;
}
sub getContent {
my ($self) = @_;
return $self->{content};
}
sub getOptionsInfoByName {
my ($self, $name) = @_;
return unless $self->{content}->{OPTION};
return
first { $_->{NAME} eq $name }
@{$self->{content}->{OPTION}};
}
1;
__END__
=head1 NAME
FusionInventory::Agent::XML::Response - Generic server message
=head1 DESCRIPTION
This is a generic message sent by the server to the agent.
=head1 METHODS
=head2 new(%params)
The constructor. The following parameters are allowed, as keys of the %params
hash:
=over
=item I<logger>
the logger object to use (default: a new stderr logger)
=item I<content>
the raw XML content
=back
=head2 getContent
Get content, as a perl data structure.
=head2 getOptionsInfoByName($name)
Get parameters of a specific option
|