From 5e3cf3162a296f20625137b60faba852b63e302b Mon Sep 17 00:00:00 2001
From: fbsanchez <fborja.sanchez@artica.es>
Date: Wed, 21 Mar 2018 16:58:42 +0100
Subject: [PATCH] CLI example check/get server_address

---
 pandora_server/util/pandora_manage.pl | 84 +++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)

diff --git a/pandora_server/util/pandora_manage.pl b/pandora_server/util/pandora_manage.pl
index 201ce190ba..ab7b7c0f63 100644
--- a/pandora_server/util/pandora_manage.pl
+++ b/pandora_server/util/pandora_manage.pl
@@ -5612,6 +5612,82 @@ sub cli_export_visual_console() {
 	print_log "[INFO] JSON file now contents: \n" . $data_to_json . "\n\n";
 }
 
+##############################################################################
+# cli_get_server_address gets first occurrence of IP address
+##############################################################################
+sub cli_get_server_address {
+	my ($target_node_name) = $ARGV[2];
+
+	if (is_metaconsole($conf)) {
+		my $rs = enterprise_hook("get_server_address",[\%conf, $dbh, $target_node_name]);
+		if (!defined($rs) || $rs eq '') {
+			print_log("0\n");
+			print STDERR "Error, no IP set in $target_node_name.\n" if ($conf->{'verbosity'} >= 3);
+			return;
+		}
+
+		print_log("$rs\n");
+	}
+	else {
+		my $server_address = get_db_value($dbh, "SELECT ip_address FROM tserver where name = ? AND ip_address!= '' ",
+			$target_node_name);
+
+		if (defined($server_address) && ("$server_address" ne "")) {
+			print_log("$server_address\n");
+		}
+		else {
+			print_log("0\n");
+			print STDERR "Error, no IP set in $target_node_name.\n" if ($conf->{'verbosity'} >= 3);
+		}
+	}
+}
+
+
+##############################################################################
+# cli_check_server_address
+##############################################################################
+sub cli_check_server_address {
+	my ($target_node_name) = $ARGV[2];
+
+	if (!is_metaconsole($conf)) {
+		print_log("0\n");
+		print STDERR "Error, this is not a Metaconsole Server.\n" if ($conf->{'verbosity'} >= 1);
+		return;
+	}
+
+	my $rs = enterprise_hook("get_server_address",[\%conf, $dbh, $target_node_name]);
+	if (!defined($rs) || $rs eq '') {
+		print_log("0\n");
+		print STDERR "Error, no IP set in $target_node_name.\n" if ($conf->{'verbosity'} >= 3);
+		return;
+	}
+
+	print_log("1\n");
+}
+
+
+#
+sub cli_check_mr_same {}
+#
+sub cli_check_alerts_act_exist {}
+#
+sub cli_check_alerts_temp_exist {}
+#
+sub cli_check_inventory_exist {}
+#
+sub cli_check_agent_conf {}
+#
+sub cli_check_collections_exist {}
+#
+sub cli_check_plugins_exist {}
+#
+sub cli_check_policies_exist {}
+#
+sub cli_check_group_exist {}
+#
+sub cli_check_agent_exist {}
+
+
 ###############################################################################
 ###############################################################################
 # MAIN
@@ -6066,6 +6142,14 @@ sub pandora_manage_main ($$$) {
 			param_check($ltotal, 3, 2);
 			cli_export_visual_console();
 		}
+		elsif ($param eq '--check_server_address') {
+			param_check($ltotal, 1, 0);
+			cli_check_server_address();
+		}
+		elsif ($param eq '--get_server_address') {
+			param_check($ltotal, 1, 0);
+			cli_get_server_address();
+		}
 		else {
 			print_log "[ERROR] Invalid option '$param'.\n\n";
 			$param = '';