* Updated Network->find_access() to clear the data from previous scans, which fixes a bug where checking multiple hosts could return stale data for the previous host.

* Updated anvil-manage-server-storage, striker-collect-debug, and striker-update-cluster to be able to find a connection on an interface when none were found on preferred networks.

Signed-off-by: digimer <mkelly@alteeve.ca>

Anvil/Tools/Network.pm

@@ -1245,6 +1245,11 @@ sub find_access
 		return("!!error!!");
 	}
 	
+	if (exists $anvil->data->{network_access})
+	{
+		delete $anvil->data->{network_access};
+	}
+	
 	my $host_uuid              = $anvil->Get->host_uuid;
 	my $short_host_name        = $anvil->Get->short_host_name;
 	my $target_short_host_name = $anvil->data->{hosts}{host_uuid}{$target_host_uuid}{short_host_name};

tools/anvil-manage-server-storage

@@ -2242,13 +2242,16 @@ sub check_drbd_peer_access
 			target => $this_host, 
 		});
 		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { matches => $matches }});
-		foreach my $preferred_network ("bcn", "mn", "ifn", "sn")
+		foreach my $preferred_network ("bcn", "mn", "ifn", "sn", "any")
 		{
 			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { preferred_network => $preferred_network }});
 			foreach my $network_name (sort {$a cmp $b} keys %{$anvil->data->{network_access}})
 			{
 				next if $access;
-				next if $network_name !~ /^$preferred_network/;
+				if (($network_name !~ /^$preferred_network/) && ($preferred_network ne "any"))
+				{
+					next;
+				}
 				my $target_ip   = $anvil->data->{network_access}{$network_name}{target_ip_address};
 				my $test_access = $anvil->Remote->test_access({target => $target_ip});
 				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 

tools/striker-collect-debug

@@ -296,11 +296,17 @@ sub collect_remote_data
 	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { matches => $matches }});
 	$anvil->data->{peer}{$short_host_name}{access}{ip}      = "";
 	$anvil->data->{peer}{$short_host_name}{access}{network} = "";
-	foreach my $preferred_network ("bcn", "mn", "ifn", "sn")
+	foreach my $preferred_network ("bcn", "mn", "ifn", "sn", "any")
 	{
 		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { preferred_network => $preferred_network }});
 		foreach my $network_name (sort {$a cmp $b} keys %{$anvil->data->{network_access}})
 		{
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_name => $network_name }});
+			if (($network_name !~ /^$preferred_network/) && ($preferred_network ne "any"))
+			{
+				next;
+			}
+			
 			next if $network_name !~ /^$preferred_network/;
 			my $target_ip   = $anvil->data->{network_access}{$network_name}{target_ip_address};
 			my $test_access = $anvil->Remote->test_access({target => $target_ip});

tools/striker-update-cluster

@@ -238,18 +238,21 @@ sub update_nodes
 			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { matches => $matches }});
 			$anvil->data->{peer}{$short_host_name}{access}{ip}      = "";
 			$anvil->data->{peer}{$short_host_name}{access}{network} = "";
-			foreach my $preferred_network ("bcn", "mn", "ifn", "sn")
+			foreach my $preferred_network ("bcn", "mn", "ifn", "sn", "any")
 			{
 				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { preferred_network => $preferred_network }});
 				foreach my $network_name (sort {$a cmp $b} keys %{$anvil->data->{network_access}})
 				{
-					next if $network_name !~ /^$preferred_network/;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_name => $network_name }});
+					if (($network_name !~ /^$preferred_network/) && ($preferred_network ne "any"))
+					{
+						next;
+					}
 					my $target_ip   = $anvil->data->{network_access}{$network_name}{target_ip_address};
 					my $test_access = $anvil->Remote->test_access({target => $target_ip});
 					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
-						's1:network_name' => $network_name, 
+						's1:target_ip'   => $target_ip, 
-						's2:target_ip'    => $target_ip, 
+						's2:test_access' => $test_access, 
-						's3:test_access'  => $test_access, 
 					}});
 					
 					if ($test_access)
@@ -1348,14 +1351,17 @@ sub verify_access
 			
 			$anvil->data->{peer}{$short_host_name}{access}{ip}      = "";
 			$anvil->data->{peer}{$short_host_name}{access}{network} = "";
-			foreach my $preferred_network ("bcn", "mn", "ifn", "sn")
+			foreach my $preferred_network ("bcn", "mn", "ifn", "sn", "any")
 			{
 				next if $anvil->data->{peer}{$short_host_name}{access}{ip};
 				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { preferred_network => $preferred_network }});
 				foreach my $network_name (sort {$a cmp $b} keys %{$anvil->data->{network_access}})
 				{
 					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_name => $network_name }});
-					next if $network_name !~ /^$preferred_network/;
+					if (($network_name !~ /^$preferred_network/) && ($preferred_network ne "any"))
+					{
+						next;
+					}
 					
 					my $target_ip   = $anvil->data->{network_access}{$network_name}{target_ip_address};
 					my $test_access = $anvil->Remote->test_access({