File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Linux.pm

Criterion	Covered	Total	%
statement	24	33	72.7
branch	3	4	75.0
condition			n/a
subroutine	6	8	75.0
pod	0	2	0.0
total	33	47	70.2

package FusionInventory::Agent::Task::Inventory::Linux;

use strict;
use warnings;

use English qw(-no_match_vars);
use XML::TreePP;


use FusionInventory::Agent::Tools;

our $runAfter = ["FusionInventory::Agent::Task::Inventory::Generic"];

sub isEnabled {
    return $OSNAME eq 'linux';
}

sub doInventory {
    my (%params) = @_;

    my $inventory = $params{inventory};

    my $kernelVersion = getFirstLine(command => 'uname -v');
    my $kernelRelease = getFirstLine(command => 'uname -r');

    my $systemId  = _getRHNSystemId('/etc/sysconfig/rhn/systemid');

    my $boottime =
        time - getFirstMatch(file => '/proc/uptime', pattern => qr/^(\d+)/);

    $inventory->setHardware({
        OSVERSION  => $kernelRelease,
        OSCOMMENTS => $kernelVersion,
        WINPRODID  => $systemId,
    });

    $inventory->setOperatingSystem({
        KERNEL_VERSION => $kernelRelease,
        BOOT_TIME      => getFormatedLocalTime($boottime)
    });

}

# Get RedHat Network SystemId
sub _getRHNSystemId {
    my ($file) = @_;

    return unless -f $file;
    my $tpp = XML::TreePP->new();
    my $h = $tpp->parsefile($file);
    eval {
        foreach (@{$h->{params}{param}{value}{struct}{member}}) {
            next unless $_->{name} eq 'system_id';
            return $_->{value}{string};
        }
    }
}

1;