Beta Shell v2.0

File Manager

~ /usr/share/fusioninventory/lib/FusionInventory/Agent/Task/Deploy/ActionProcessor/Action

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Cmd.pm	4.11 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
Copy.pm	1.23 KB	-rw-r--r--	2018-10-12 15:43:48	Edit Del
Delete.pm	889 B	-rw-r--r--	2018-10-12 15:43:43	Edit Del
Mkdir.pm	1.09 KB	-rw-r--r--	2018-10-12 15:43:43	Edit Del
Move.pm	1.21 KB	-rw-r--r--	2018-10-12 15:43:48	Edit Del

Editing: Delete.pm (889 B)

package FusionInventory::Agent::Task::Deploy::ActionProcessor::Action::Delete;

use strict;
use warnings;

use File::Path;
use UNIVERSAL::require;

use English qw(-no_match_vars);

sub do {
    my ($params, $logger) = @_;

    my $msg = [];
    my $status = 1;

    foreach my $loc (@{$params->{list}}) {

        my $loc_local = $loc;

        if ($OSNAME eq 'MSWin32') {
            FusionInventory::Agent::Tools::Win32->require;
            my $localCodepage = FusionInventory::Agent::Tools::Win32::getLocalCodepage();
            if (Encode::is_utf8($loc)) {
                $loc_local = encode($localCodepage, $loc);
            }
        }

        File::Path::remove_tree($loc_local);
        $status = 0 if -e $loc;
        my $m = "Failed to delete $loc";
        push @$msg, $m;
        $logger->debug($m);
    }
    return {
    status => $status,
    msg => $msg,
    };
}

1;