From b45c967919d862b1f02161e55a915628f4c3299b Mon Sep 17 00:00:00 2001
From: daniel <daniel.barbero@artica.es>
Date: Wed, 15 Nov 2023 08:30:24 +0100
Subject: [PATCH] add code lost inventory server pandora_enterprise#12188

---
 .../lib/PandoraFMS/InventoryServer.pm         | 38 ++++++++++++++-----
 1 file changed, 28 insertions(+), 10 deletions(-)

diff --git a/pandora_server/lib/PandoraFMS/InventoryServer.pm b/pandora_server/lib/PandoraFMS/InventoryServer.pm
index 5f0f90e95d..515d875788 100644
--- a/pandora_server/lib/PandoraFMS/InventoryServer.pm
+++ b/pandora_server/lib/PandoraFMS/InventoryServer.pm
@@ -183,15 +183,22 @@ sub data_consumer ($$) {
 
 	# No code to run
 	return if ($module->{'interpreter'} eq '');
-	
-	# Save script in a temporary file
+
+	my $command;
 	my ($fh, $temp_file) = tempfile();
-	$fh->print (decode_base64($module->{'code'}));
-	close ($fh);
-	set_file_permissions($pa_config, $temp_file, "0777");
 	
-	# Run the script
-	my $command = $module->{'interpreter'} . ' ' . $temp_file . ' "' . $module->{'target'} . '"';
+	if ($module->{'script_mode'} == '1') {
+		my $script_file = $module->{'script_path'};
+		$command = $module->{'interpreter'} . ' ' . $script_file;
+	} else {
+		# Save script in a temporary file
+		$fh->print (decode_base64($module->{'code'}));
+		close ($fh);
+		set_file_permissions($pa_config, $temp_file, "0777");
+
+		# Run the script
+		$command = $module->{'interpreter'} . ' ' . $temp_file . ' "' . $module->{'target'} . '"';
+	}
 	
 	# Try to read the custom fields to use them as arguments into the command
 	if (defined($module->{'custom_fields'}) && $module->{'custom_fields'} ne '') {
@@ -206,7 +213,11 @@ sub data_consumer ($$) {
 
 		if (!defined ($decoded_cfields)) {
 			logger ($pa_config, "Remote inventory module ".$module->{'name'}." has failed because the custom fields can't be read", 6);
-			unlink ($temp_file);
+
+			if ($module->{'script_mode'} == '2') {
+				unlink ($temp_file);
+			}
+
 			return;
 		}
 
@@ -237,11 +248,18 @@ sub data_consumer ($$) {
 	# Check for errors
 	if ($? != 0) {
 		logger ($pa_config,  "Remote inventory module ".$module->{'name'}." has failed with error level $?", 6);
-		unlink ($temp_file);
+
+		if ($module->{'script_mode'} == '2') {
+			unlink ($temp_file);
+		}
+
 		return;
 	}
 	
-	unlink ($temp_file);
+	if ($module->{'script_mode'} == '2') {
+		unlink ($temp_file);
+	}
+
 	my $utimestamp = time ();
 	my $timestamp = strftime ("%Y-%m-%d %H:%M:%S", localtime ($utimestamp));
 	eval {