Beta Shell v2.0

File Manager

~ /usr/share/fusioninventory/lib/FusionInventory/Agent/Task/Deploy/CheckProcessor

Name	Size	Perms	Modified	Actions
[ .. / .. ]
DirectoryExists.pm	409 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
DirectoryMissing.pm	412 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FileExists.pm	394 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FileMissing.pm	397 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FileSHA512.pm	1.13 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FileSHA512Mismatch.pm	1.25 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FileSizeEquals.pm	947 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FileSizeGreater.pm	907 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FileSizeLower.pm	911 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
FreeSpaceGreater.pm	861 B	-rw-r--r--	2020-08-04 07:36:42	Edit Del
WinKeyEquals.pm	2.3 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
WinKeyExists.pm	1.43 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
WinKeyMissing.pm	1.47 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
WinKeyNotEquals.pm	2.35 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
WinValueExists.pm	1.43 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
WinValueMissing.pm	1.57 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
WinValueType.pm	2.69 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del

Editing: WinKeyEquals.pm (2.3 KB)

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

use strict;
use warnings;

use English qw(-no_match_vars);
use UNIVERSAL::require;

use parent "FusionInventory::Agent::Task::Deploy::CheckProcessor";

sub prepare {
    my ($self) = @_;

    $self->{path} =~ s{\\}{/}g;
    # We will look for default regkey value while path ends with / ou \
    $self->{path} =~ s{/+$}{/}g;
}

sub success {
    my ($self) = @_;

    $self->on_failure("check only available on windows");
    return 0 unless $OSNAME eq 'MSWin32';

    $self->on_failure("no value provided to check registry value against");
    my $expected = $self->{value};
    return 0 unless (defined($expected));

    Win32::TieRegistry->require();
    if ($EVAL_ERROR) {
        $self->on_failure("failed to load Win32::TieRegistry: $EVAL_ERROR");
        return 0;
    }
    Win32::TieRegistry->import(qw(REG_DWORD));

    FusionInventory::Agent::Tools::Win32->require();
    if ($EVAL_ERROR) {
        $self->on_failure("failed to load Win32 tools: $EVAL_ERROR");
        return 0;
    }

    # First check parent winkey
    my ( $parent, $key ) = $self->{path} =~ m|^(.*)/([^/]*)$|;
    $self->on_failure("registry path not supported: ".$self->{path});
    return 0 unless (defined($parent));
    $self->on_failure("missing parent registry key: ".$parent);
    my $parent_key = FusionInventory::Agent::Tools::Win32::getRegistryKey(
        path => $parent
    );
    return 0 unless (defined($parent_key));

    my @regValue = $parent_key->GetValue($key);

    if ($key && defined($parent_key->{$key.'/'})) {
        $self->on_failure("seen as a registry key: ".$self->{path}.'/');
    } else {
        $self->on_failure("missing registry value: ".$self->{path});
    }
    return 0 unless (@regValue);

    # We need to convert values as string while checking a DWORD value
    my ($regValue, $regType ) = @regValue;
    if ($regType == REG_DWORD()) {
        $regValue = hex($regValue) if ($regValue =~ /^0x/);
        $expected = hex($expected) if ($expected =~ /^0x/);
        $expected = int($expected) if ($expected =~ /^0\d+$/);
    }

    $self->on_success("found expected registry value: $expected in ".$self->{path});
    $self->on_failure("bad registry value: found $regValue vs $expected in ".$self->{path});
    return ( $regValue eq $expected );
}

1;