File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Solaris/Softwares.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	12	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	12	48	25.0

package FusionInventory::Agent::Task::Inventory::Solaris::Softwares;

use strict;
use warnings;

use FusionInventory::Agent::Tools;

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

    return
        !$params{no_category}->{software} &&
        canRun('pkginfo');
}

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

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

    my $handle = getFileHandle(
        command => 'pkginfo -l',
        logger  => $logger,
    );

    return unless $handle;

    my $software;
    while (my $line = <$handle>) {
        if ($line =~ /^\s*$/) {
            $inventory->addEntry(
                section => 'SOFTWARES',
                entry   =>  $software
            );
            undef $software;
        } elsif ($line =~ /PKGINST:\s+(.+)/) {
            $software->{NAME} = $1;
        } elsif ($line =~ /VERSION:\s+(.+)/) {
            $software->{VERSION} = $1;
        } elsif ($line =~ /VENDOR:\s+(.+)/) {
            $software->{PUBLISHER} = $1;
        } elsif ($line =~  /DESC:\s+(.+)/) {
            $software->{COMMENTS} = $1;
        }
    }

    close $handle;
}

1;