File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Virtualization/Jails.pm

Criterion	Covered	Total	%
statement	22	28	78.5
branch	3	4	75.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	29	40	72.5

package FusionInventory::Agent::Task::Inventory::Virtualization::Jails;

use strict;
use warnings;

use FusionInventory::Agent::Tools;

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

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

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

    foreach my $machine (_getVirtualMachines(logger => $logger)) {
        $inventory->addEntry(
            section => 'VIRTUALMACHINES', entry => $machine
        );
    }
}

sub  _getVirtualMachines {
    my (%params) = (
        command => 'jls -n',
        @_
    );

    my $handle = getFileHandle(%params);

    return unless $handle;

    my @machines;
    while (my $line = <$handle>) {
        my $info;
        foreach my $item (split(' ', $line)) {
            next unless $item =~ /(\S+)=(\S+)/;
            $info->{$1} = $2;
        }

        my $machine = {
            VMTYPE    => 'jail',
            NAME      => $info->{'host.hostname'},
            STATUS    => 'running'
        };

        push @machines, $machine;

    }
    close $handle;

    return @machines;
}

1;