File Coverage

blib/lib/FusionInventory/Agent/Task/Deploy/CheckProcessor.pm

Criterion	Covered	Total	%
statement	15	73	20.5
branch	0	58	0.0
condition	0	5	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	143	13.9

package FusionInventory::Agent::Task::Deploy::CheckProcessor;

use strict;
use warnings;

use English qw(-no_match_vars);
use Digest::SHA;

use FusionInventory::Agent::Task::Deploy::DiskFree;

sub process {
    my ($self, %params) = @_;

    # the code to return in case of failure of the check,
    # the default is 'ko'
    my $failureCode = $params{check}->{return} || "ko";

    my $path = $params{check}->{path};

    # Expend the env vars from the path
    $path =~ s#\$(\w+)#$ENV{$1}#ge;
    $path =~ s#%(\w+)%#$ENV{$1}#ge;

    if ($params{check}->{type} eq 'winkeyExists') {
        return unless $OSNAME eq 'MSWin32';
        require FusionInventory::Agent::Tools::Win32;

        my $path = $path;
        $path =~ s{\\}{/}g;

        my $r = FusionInventory::Agent::Tools::Win32::getRegistryKey(path => $path);

        return defined $r ? 'ok' : $failureCode;
    }

    if ($params{check}->{type} eq 'winkeyEquals') {
        return unless $OSNAME eq 'MSWin32';
        require FusionInventory::Agent::Tools::Win32;

        $path =~ s{\\}{/}g;

        my $r = FusionInventory::Agent::Tools::Win32::getRegistryValue(path => $path);

        return defined $r && $params{check}->{value} eq $r ? 'ok' : $failureCode;
    }

    if ($params{check}->{type} eq 'winkeyMissing') {
        return unless $OSNAME eq 'MSWin32';
        require FusionInventory::Agent::Tools::Win32;

        my $path = $path;
        $path =~ s{\\}{/}g;

        my $r = FusionInventory::Agent::Tools::Win32::getRegistryKey(path => $path);

        return defined $r ? $failureCode : 'ok';
    }

    if ($params{check}->{type} eq 'fileExists') {
        return -f $path ? 'ok' : $failureCode;
    }

    if ($params{check}->{type} eq 'fileSizeEquals') {
        my @s = stat($path);
        return @s ? 'ok' : $failureCode;
    }

    if ($params{check}->{type} eq 'fileSizeGreater') {
        my @s = stat($path);
        return $failureCode unless @s;

        return $params{check}->{value} < $s[7] ? 'ok' : $failureCode;
    }

    if ($params{check}->{type} eq 'fileSizeLower') {
        my @s = stat($path);
        return $failureCode unless @s;
        return $params{check}->{value} > $s[7] ? 'ok' : $failureCode;
    }

    if ($params{check}->{type} eq 'fileMissing') {
        return -f $path ? $failureCode : 'ok';
    }

    if ($params{check}->{type} eq 'freespaceGreater') {
        my $freespace = getFreeSpace(logger => $params{logger}, path => $path);
        return $freespace>$params{check}->{value}? "ok" : $failureCode;
    }

    if ($params{check}->{type} eq 'fileSHA512') {
        my $sha = Digest::SHA->new('512');

        my $sha512 = "";
        eval {
            $sha->addfile($path, 'b');
            $sha512 = $sha->hexdigest;
        };

        return $sha512 eq $params{check}->{value} ? "ok" : $failureCode;
    }

    if ($params{check}->{type} eq 'directoryExists') {
        return -d $path ? 'ok' : $failureCode;
    }

    if ($params{check}->{type} eq 'directoryMissing') {
        return -d $path ? $failureCode : 'ok';
    }

    print "Unknown check: `".$params{check}->{type}."'\n";

    return "ok";
}

1;