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: Copy.pm (1.23 KB)

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

use strict;
use warnings;

$File::Copy::Recursive::CPRFComp = 1;
use English qw(-no_match_vars);
use Encode;
use File::Copy::Recursive qw(rcopy);
use File::Glob;
use UNIVERSAL::require;

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

    my $msg = [];
    my $status = 1;
    foreach my $from (File::Glob::bsd_glob($params->{from})) {

        my $to = $params->{to};

        my $from_local = $from;
        my $to_local = $to;

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

        if (!File::Copy::Recursive::rcopy($from_local, $to_local)) {
            my $m = "Failed to copy: `".$from."' to '".$to;
            push @$msg, $m;
            push @$msg, $ERRNO;
            $logger->debug($m);

            $status = 0;
        }
    }
    return {
        status => $status,
        msg => $msg,
    };
}

1;