From 1b166f97010e64d6c3b77c5f249b416fef46c7a3 Mon Sep 17 00:00:00 2001 From: Arturo Gonzalez Date: Mon, 12 Dec 2016 12:02:26 +0100 Subject: [PATCH] Added value declaration to perl script. Ticket #4267 --- pandora_server/util/recon_scripts/snmp-recon.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pandora_server/util/recon_scripts/snmp-recon.pl b/pandora_server/util/recon_scripts/snmp-recon.pl index e356f35ca8..9805826a85 100755 --- a/pandora_server/util/recon_scripts/snmp-recon.pl +++ b/pandora_server/util/recon_scripts/snmp-recon.pl @@ -95,6 +95,9 @@ my %SWITCH_TO_SWITCH; # MAC addresses. my %MAC; +# Parent-child relationships (in Pandora). +my %PARENTS; + # SNMP query cache. my %SNMP_CACHE; @@ -1323,4 +1326,3 @@ foreach my $device (values(%VISITED_DEVICES)) { # Do not delete unused connections unless at least one connection has been found # (prevents the script from deleting connections if there has been a network outage). delete_unused_connections(\%CONF, $DBH, $TASK_ID,\%CONNECTIONS) if (scalar(keys(%CONNECTIONS)) > 0); -