tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-29 00:34:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Pandora Agent RCMD

Browse Source
This commit is contained in:
fbsanchez 2019-11-13 14:21:09 +01:00
parent 5f8ec8f89c
commit c17328d39d
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pandora_agents/unix/pandora_agent
View File

@ -318,8 +318,7 @@ sub read_file {
my $path = shift;
my $_FILE;
if( !open($_FILE, "<".$path) ) {
print ">> Failed to open $path ".`whoami`."\n";
if( !open($_FILE, "<", $path) ) {
# failed to open, return undef
return undef;
}
@ -1535,15 +1534,20 @@ sub report_command {
sub execute_command_block {
my ($commands, $std_files) = @_;
$std_files = '' unless defined ($std_files);
return 0 if ref($commands) ne "ARRAY";
my $err_level;
$std_files = '' unless defined ($std_files);
foreach my $comm (@{$commands}) {
`($comm) $std_files`;
if (ref($commands) ne "ARRAY") {
`($commands) $std_files`;
print "($commands) $std_files\n";
$err_level = $?>>8;
last unless ($err_level == 0);
} else {
foreach my $comm (@{$commands}) {
`($comm) $std_files`;
print $comm. '=> ' . ($?>>8)."\n";
$err_level = $?>>8;
last unless ($err_level == 0);
}
}
return $err_level;