File Coverage

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

Criterion	Covered	Total	%
statement	33	39	84.6
branch	15	18	83.3
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	53	66	80.3

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

use strict;
use warnings;

use FusionInventory::Agent::Tools;
use FusionInventory::Agent::Tools::Network;

sub isEnabled {
    return canRun('hponcfg');
}

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

    my $handle = getFileHandle(%params);

    return unless $handle;

    my $interface = {
        DESCRIPTION => 'Management Interface - HP iLO',
        TYPE        => 'ethernet',
        MANAGEMENT  => 'iLO',
        STATUS      => 'Down',
    };

    while (my $line = <$handle>) {
        if ($line =~ //) {
            $interface->{IPADDRESS} = $1 unless $1 eq '0.0.0.0';
        }
        if ($line =~ //) {
            $interface->{IPMASK} = $1;
        }
        if ($line =~ //) {
            $interface->{IPGATEWAY} = $1;
        }
        if ($line =~ //) {
            $interface->{SPEED} = $1;
        }
        if ($line =~ //) {
            $interface->{STATUS} = 'Up';
        }
        if ($line =~ /not found/) {
            chomp $line;
            $params{logger}->error("error in hponcfg output: $line")
                if $params{logger};
        }
    }
    close $handle;
    $interface->{IPSUBNET} = getSubnetAddress(
        $interface->{IPADDRESS}, $interface->{IPMASK}
    );

    return $interface;
}

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

    my $inventory = $params{inventory};
    my $logger    = $params{logger};

    my $entry = _parseHponcfg(
        logger => $logger,
        command => 'hponcfg -aw -'
    );

    $inventory->addEntry(
        section => 'NETWORKS',
        entry   => $entry
    );
}

1;