From 06442fa6e30cb00fe4d41245814ff53831722c96 Mon Sep 17 00:00:00 2001
From: Calvo <luis.calvo@pandorafms.com>
Date: Fri, 10 Feb 2023 15:03:57 +0100
Subject: [PATCH] WIP: Omnishell error xml if YAML::Tiny not installed on agent

---
 pandora_agents/unix/pandora_agent | 46 ++++++++++++++++++-------------
 1 file changed, 27 insertions(+), 19 deletions(-)

diff --git a/pandora_agents/unix/pandora_agent b/pandora_agents/unix/pandora_agent
index f01ddb5744..90b7d93c7c 100755
--- a/pandora_agents/unix/pandora_agent
+++ b/pandora_agents/unix/pandora_agent
@@ -556,30 +556,38 @@ BEGIN {
 	sub runCommand {
 		my ($self, $ref, $output_mode) = @_;
 
+		my $result;
 		if($self->load_libraries()) {
 			# Functionality possible.
 			my $command = $self->{'commands'}->{$ref};
-			my $result = $self->evaluate_command($ref);
-			if (ref($result) eq "HASH") {
-				# Process command result.
-				if (defined($output_mode) && $output_mode eq 'xml') {
-					my $output = '';
-					$output .= "<cmd_report>\n";
-					$output .= "  <cmd_response>\n";
-					$output .= "    <cmd_name><![CDATA[".$result->{'name'}."]]></cmd_name>\n";
-					$output .= "    <cmd_key><![CDATA[".$ref."]]></cmd_key>\n";
-					$output .= "    <cmd_errorlevel><![CDATA[".$result->{'error_level'}."]]></cmd_errorlevel>\n";
-					$output .= "    <cmd_stdout><![CDATA[".$result->{'stdout'}."]]></cmd_stdout>\n";
-					$output .= "    <cmd_stderr><![CDATA[".$result->{'stderr'}."]]></cmd_stderr>\n";
-					$output .= "  </cmd_response>\n";
-					$output .= "</cmd_report>\n";
+			$result = $self->evaluate_command($ref);
+		} else {
+				$result = {
+				'stderr' => 'Cannot use commands without YAML dependency, please install it.',
+				'name'   => 'YAML::Tiny',
+				'error_level' => 2,
+			};
+		}
 
-					return $output;
-				}
-				return $result;
-			} else {
-				$self->set_last_error('Failed to process ['.$ref.']: '.$result);
+		if (ref($result) eq "HASH") {
+			# Process command result.
+			if (defined($output_mode) && $output_mode eq 'xml') {
+				my $output = '';
+				$output .= "<cmd_report>\n";
+				$output .= "  <cmd_response>\n";
+				$output .= "    <cmd_name><![CDATA[".$result->{'name'}."]]></cmd_name>\n";
+				$output .= "    <cmd_key><![CDATA[".$ref."]]></cmd_key>\n";
+				$output .= "    <cmd_errorlevel><![CDATA[".$result->{'error_level'}."]]></cmd_errorlevel>\n";
+				$output .= "    <cmd_stdout><![CDATA[".$result->{'stdout'}."]]></cmd_stdout>\n";
+				$output .= "    <cmd_stderr><![CDATA[".$result->{'stderr'}."]]></cmd_stderr>\n";
+				$output .= "  </cmd_response>\n";
+				$output .= "</cmd_report>\n";
+
+				return $output;
 			}
+			return $result;
+		} else {
+			$self->set_last_error('Failed to process ['.$ref.']: '.$result);
 		}
 
 		return undef;