From 4766ceff70a27d796d1ccb9312c1fb5f5fc2b902 Mon Sep 17 00:00:00 2001
From: digimer <mkelly@alteeve.ca>
Date: Wed, 29 May 2024 00:35:27 -0400
Subject: [PATCH] Added logging to debug network config issue.

Signed-off-by: digimer <mkelly@alteeve.ca>
---
 share/words.xml            | 2 ++
 tools/anvil-configure-host | 9 +++++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/share/words.xml b/share/words.xml
index b2f35c5f..6992b530 100644
--- a/share/words.xml
+++ b/share/words.xml
@@ -2739,6 +2739,8 @@ The file: [#!variable!file!#] needs to be updated. The difference is:
 The key in the database has been updated, so we're going to swap the key. The change is;
 old key: [#!variable!old_key!#]
 new key: [#!variable!new_key!#]</key>
+		<key name="log_0852">Finished configuring bonds.</key>
+		<key name="log_0853">Now configuring bridges.</key>
 
 		<!-- Messages for users (less technical than log entries), though sometimes used for logs, too. -->
 		<key name="message_0001">The host name: [#!variable!target!#] does not resolve to an IP address.</key>
diff --git a/tools/anvil-configure-host b/tools/anvil-configure-host
index 567d2473..cf4c11c9 100755
--- a/tools/anvil-configure-host
+++ b/tools/anvil-configure-host
@@ -534,7 +534,7 @@ ORDER BY
 			file      => $THIS_FILE, 
 			line      => __LINE__,
 		});
-		$anvil->Database->disconnect();
+		$anvil->Database->disconnect({debug => 2});
 	}
 	
 	# These can brake the connection.
@@ -726,6 +726,7 @@ sub reconfigure_bridges
 {
 	my ($anvil) = @_;
 	
+	$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "log_0853"});
 	my $local_host = $anvil->Get->short_host_name();
 	my $bcn_count  = $anvil->data->{config}{bcn_count};
 	my $ifn_count  = $anvil->data->{config}{ifn_count};
@@ -1458,10 +1459,14 @@ sub reconfigure_bonds
 					line      => __LINE__,
 					variables => { },
 				});
-				$anvil->Network->collect_data();
+				$anvil->Network->collect_data({debug => 2});
+				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { nm_uuid => $nm_uuid }});
 			}
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { i => $i }});
 		}
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_type => $network_type }});
 	}
+	$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "log_0852"});
 	
 	return(0);
 }