From bbad058b3379d04111fe8ba4471262be8feeb18e Mon Sep 17 00:00:00 2001
From: Digimer <digimer@alteeve.ca>
Date: Wed, 26 May 2021 20:24:05 -0400
Subject: [PATCH] * Created a new tool, anvil-watch-bonds, which is a live
 monitor of bonds and interfaces designed to be run from the command line on a
 given host. * Created Words->center_text that takes a string (or string key)
 and centers it to a given string length, padding white spaces on either side
 of the string as needed.

Signed-off-by: Digimer <digimer@alteeve.ca>
---
 Anvil/Tools.pm          |   1 +
 Anvil/Tools/Convert.pm  |   2 +-
 Anvil/Tools/Words.pm    |  87 ++++++
 share/words.xml         |   9 +
 tools/Makefile.am       |   1 +
 tools/anvil-watch-bonds | 673 ++++++++++++++++++++++++++++++++++++++++
 6 files changed, 772 insertions(+), 1 deletion(-)
 create mode 100755 tools/anvil-watch-bonds

diff --git a/Anvil/Tools.pm b/Anvil/Tools.pm
index 42b6191e..c60f16da 100644
--- a/Anvil/Tools.pm
+++ b/Anvil/Tools.pm
@@ -1062,6 +1062,7 @@ sub _set_paths
 				alert_emails			=>	"/var/spool/anvil",
 				anvil				=>	"/etc/anvil",
 				backups				=>	"/root/anvil-backups",
+				bonds				=>	"/proc/net/bonding",
 				'cgi-bin'			=>	"/var/www/cgi-bin",
 				drbd_resources			=>	"/etc/drbd.d/",
 				fence_agents			=>	"/usr/sbin",
diff --git a/Anvil/Tools/Convert.pm b/Anvil/Tools/Convert.pm
index b1589a36..0423f89f 100644
--- a/Anvil/Tools/Convert.pm
+++ b/Anvil/Tools/Convert.pm
@@ -137,7 +137,7 @@ sub add_commas
 	$whole = $_;
 	
 	# Put it together
-	$number = $decimal ? "$whole.$decimal" : $whole;
+	$number = $decimal ? $whole.".".$decimal : $whole;
 	
 	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { number => $number }});
 	return ($number);
diff --git a/Anvil/Tools/Words.pm b/Anvil/Tools/Words.pm
index adc38e2d..672ebd15 100644
--- a/Anvil/Tools/Words.pm
+++ b/Anvil/Tools/Words.pm
@@ -18,6 +18,7 @@ my $THIS_FILE = "Words.pm";
 # $ENV{'PERL_UNICODE'} = 1;
 
 ### Methods;
+# center_text
 # clean_spaces
 # key
 # language
@@ -93,6 +94,92 @@ sub parent
 # Public methods                                                                                            #
 #############################################################################################################
 
+
+=head2 center_text
+
+This takes a string and an integer and pads the string with spaces on either side until the length is that of the integer. For uneven splits, the smaller number of spaces will be on the left.
+
+Paramters;
+
+=head3 string
+
+This is the string being centered. If not given, and empty string is returned.
+
+B<< Note >>: This can be C<< #!string!x!# >>. If this is passed, the string will be translated before being centered.
+
+=head3 width
+
+This is an integer of how width the centered string should be. 
+
+=cut
+sub center_text
+{
+	my $self      = shift;
+	my $parameter = shift;
+	my $anvil     = $self->parent;
+	my $debug     = defined $parameter->{debug} ? $parameter->{debug} : 3;
+	$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0125", variables => { method => "Words->center_text()" }});
+	
+	# Pick up the parameters.
+	my $string = defined $parameter->{string} ? $parameter->{string} : "";
+	my $width  = defined $parameter->{width}  ? $parameter->{width}  : 0;
+	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 
+		string => $string, 
+		width  => $width,
+	}});
+	
+	return($string) if $width eq "";
+	return("")      if $parameter->{string} eq "";
+	
+	### NOTE: If a '#!string!x!#' is passed, the Log->entry method will translate it in the log itself,
+	###       so you won't see that string.
+	if ($string =~ /#!string!(.*?)!#/)
+	{
+		$string = $anvil->Words->string({key => $1});
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { string => $string }});
+	}
+	
+	my $current_length = length($string);
+	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { current_length => $current_length }});
+	if ($current_length < $width)
+	{
+		my $difference = $width - $current_length;
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { difference => $difference }});
+		if ($difference == 1)
+		{
+			$string .= " ";
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { string => $string }});
+		}
+		else
+		{
+			my $remainder  =  $difference % 2;
+			   $difference -= $remainder;
+			my $spaces     =  $difference / 2;
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 
+				remainder => $remainder,
+				spaces    => $spaces, 
+			}});
+			for (1..$spaces)
+			{
+				$string = " ".$string." ";
+				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { string => $string }});
+			}
+			if ($remainder)
+			{
+				$string .= " ";
+				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { string => $string }});
+			}
+		}
+	}
+	
+	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 
+		string   => $string,
+		'length' => length($string),
+	}});
+	return($string);
+}
+
+
 =head2 clean_spaces
 
 This methid takes a string via a 'C<< line >>' parameter and strips leading and trailing spaces, plus compresses multiple spaces into single spaces. It is designed primarily for use by code parsing text coming in from a shell command.
diff --git a/share/words.xml b/share/words.xml
index 3673aa94..9c8de6e1 100644
--- a/share/words.xml
+++ b/share/words.xml
@@ -710,6 +710,14 @@ sys::manage::firewall						=	1
 		<key name="header_0051">Synced</key>
 		<key name="header_0052">Remove</key>
 		<key name="header_0053">#!string!brand_0006!# Name</key>
+		<key name="header_0054">Active Interface</key>
+		<key name="header_0055">Bond Mode</key>
+		<key name="header_0056">Active Interface</key>
+		<key name="header_0057">Link State</key>
+		<key name="header_0058">Duplex</key>
+		<key name="header_0059">Link Drops</key>
+		<key name="header_0060"><![CDATA[-=[ Bond Status - #!variable!date!# ] =-]]></key>
+		<key name="header_0061"><![CDATA[-=[ Ctrl + C to exit ] =-]]></key>
 		
 		<!-- Strings used by jobs -->
 		<key name="job_0001">Configure Network</key>
@@ -2574,6 +2582,7 @@ Here we will inject 't_0006', which injects 't_0001' which has a variable: [#!st
 		<key name="unit_0037">Fahrenheit</key>
 		<key name="unit_0038">%</key>
 		<key name="unit_0039">Amps</key>
+		<key name="unit_0040">Going Back</key>				<!-- Bond state -->
 		
 		<!-- These are special. These are used to describe the UPSes that ScanCore supports. These 
 		     are used when adding UPSes to the system for use in Install Manifests.
diff --git a/tools/Makefile.am b/tools/Makefile.am
index 5d5804d8..e72a20ae 100644
--- a/tools/Makefile.am
+++ b/tools/Makefile.am
@@ -32,6 +32,7 @@ dist_sbin_SCRIPTS	= \
 			  anvil-update-issue \
 			  anvil-update-states \
 			  anvil-update-system \
+			  anvil-watch-bonds \
 			  scancore \
 			  striker-boot-machine \
 			  striker-get-peer-data \
diff --git a/tools/anvil-watch-bonds b/tools/anvil-watch-bonds
new file mode 100755
index 00000000..869e99c8
--- /dev/null
+++ b/tools/anvil-watch-bonds
@@ -0,0 +1,673 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Anvil::Tools;
+use Data::Dumper;
+use Term::ANSIColor;
+
+$| = 1;
+
+my $THIS_FILE           =  ($0 =~ /^.*\/(.*)$/)[0];
+my $running_directory   =  ($0 =~ /^(.*?)\/$THIS_FILE$/)[0];
+if (($running_directory =~ /^\./) && ($ENV{PWD}))
+{
+	$running_directory =~ s/^\./$ENV{PWD}/;
+}
+
+my $anvil = Anvil::Tools->new();
+
+=cut colours (from the Term::ANSIColor source)
+%ATTRIBUTES = ('clear'      => 0,
+               'reset'      => 0,
+               'bold'       => 1,
+               'dark'       => 2,
+               'faint'      => 2,
+               'underline'  => 4,
+               'underscore' => 4,
+               'blink'      => 5,
+               'reverse'    => 7,
+               'concealed'  => 8,
+
+               'black'      => 30,   'on_black'   => 40,
+               'red'        => 31,   'on_red'     => 41,
+               'green'      => 32,   'on_green'   => 42,
+               'yellow'     => 33,   'on_yellow'  => 43,
+               'blue'       => 34,   'on_blue'    => 44,
+               'magenta'    => 35,   'on_magenta' => 45,
+               'cyan'       => 36,   'on_cyan'    => 46,
+               'white'      => 37,   'on_white'   => 47);
+=cut 
+
+$anvil->data->{colours} = {
+	anvil		=>	{
+		name		=>	"bold cyan",
+		hostnames	=>	"bold blue",
+		node_offline	=>	"bold white",
+		node_hung	=>	"bold red",
+		node_starting	=>	"yellow",
+		short_hostnames	=>	"bold blue",
+		servers		=>	{
+			name		=>	"bold blue",
+			node1_host	=>	"bold green",		# The idea is to have a quick visual queue to tell when all servers are on the same node
+			node2_host	=>	"bold cyan",
+		},
+	},
+	bond	=>	{
+		active_iface	=>	
+		{
+			is_primary	=>	"bold green", 
+			is_other	=>	"yellow",
+		},
+		bond_name	=>	"bold cyan",
+		duplex		=>	{
+			down		=>	"faint white",
+			full		=>	"bold green", 
+			half		=>	"yellow",
+			unknown_entry	=>	"bold magenta",
+		},
+		failure_count	=>	"bold white",
+		interface	=>	"cyan",
+		irrelevant	=>	"faint white",
+		mac_address	=>	"bold cyan",
+		mode		=>	"bold cyan",
+		speed		=>	{
+			'10'		=>	"red", 
+			'100'		=>	"yellow",
+			'1000'		=>	"bold green", 
+			'10000'		=>	"bold cyan", 	# Anything over 10 Gbps will get this
+			down		=>	"faint white",
+			unknown_entry	=>	"bold magenta",
+		},
+		'state'		=>	{
+			up		=>	"bold green",
+			down		=>	"yellow", 
+			going_back	=>	"bold magenta", 
+			unknown_entry	=>	"magenta",
+		},
+		updelay		=>	{
+			good		=>	"bold green",
+			unknown_entry	=>	"bold magenta",
+		},
+	},
+	drbd		=>	{
+		connection_state =>	{
+			StandAlone	=>	"bold cyan",
+			Disconnecting	=>	"yellow", 
+			Unconnected	=>	"yellow",
+			Timeout		=>	"bold red",
+			BrokenPipe	=>	"bold red",
+			NetworkFailure	=>	"bold red",
+			ProtocolError	=>	"bold red",
+			TearDown	=>	"yellow",
+			WFConnection	=>	"bold blue",
+			WFReportParams	=>	"bold blue",
+			Connected	=>	"bold green",
+			StartingSyncS	=>	"bold green",
+			StartingSyncT	=>	"yellow",
+			WFBitMapS	=>	"bold green",
+			WFBitMapT	=>	"yellow",
+			WFSyncUUID	=>	"bold cyan",
+			SyncSource	=>	"bold green",
+			SyncTarget	=>	"yellow",
+			PausedSyncS	=>	"bold green",
+			PausedSyncT	=>	"yellow",
+			VerifyS		=>	"bold green",
+			VerifyT		=>	"yellow",
+			unknown_entry	=>	"bold magenta",
+		},
+		disk_state	=>	{
+			Diskless	=>	"bold red",
+			Attaching	=>	"yellow",
+			Failed		=>	"bold red",
+			Negotiating	=>	"yellow",
+			Inconsistent	=>	"yellow",
+			Outdated	=>	"yellow",
+			DUnknown	=>	"yellow",
+			Consistent	=>	"bold cyan",
+			UpToDate	=>	"bold green",
+			unknown_entry	=>	"bold magenta",
+		},
+		module		=>	{
+			loaded		=>	"bold white",
+			unloaded	=>	"faint white",
+		},
+		resource	=>	{
+			name		=>	"bold blue", 
+			online		=>	"bold green",
+			offline		=>	"faint white",
+		},
+		role		=>	{
+			Primary		=>	"bold green",
+			Secondary	=>	"yellow",
+			Unknown		=>	"faint white",
+			unknown_entry	=>	"bold magenta",
+		},
+		starting	=>	"yellow",	# or stopping
+		to_resync	=>	{
+			nothing		=>	"faint white", 
+			something	=>	"yellow", 
+			eta		=>	"yellow",
+			percent		=>	"yellow",
+		},
+		timeout		=>	"bold white",
+		version		=>	"bold white",
+	},
+	# https://access.redhat.com/documentation/en-US/Red_Hat_Enterprise_Linux/6/html/High_Availability_Add-On_Overview/s2-rgmanager-opstates-states.html
+	services	=>	{
+		online		=>	"bold green",
+		offline		=>	"faint white",	# stopped or disabled
+		starting	=>	"yellow",	# or stopping, recovering
+		failed		=>	"bold red",
+		unknown_entry	=>	"bold magenta",
+	},
+};
+
+# $anvil->Database->connect({debug => 3});
+# $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure => 0, key => "log_0132"});
+# if (not $anvil->data->{sys}{database}{connections})
+# {
+# 	# No databases, exit.
+# 	$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, 'print' => 1, priority => "err", key => "error_0003"});
+# 	$anvil->nice_exit({exit_code => 1});
+# }
+$anvil->Get->switches();
+
+while(1)
+{
+	my $name_length     = 8;
+	my $mode_length     = 0;
+	my $speed_length    = 0;
+	my $fail_length     = 0;
+	my $status_length   = 4;
+	my $duplex_length   = 4;
+	my $failures_length = 1;
+	my $mac_length      = 17;
+	my $directory       = $anvil->data->{path}{directories}{bonds};
+	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { directory => $directory }});
+	local(*DIRECTORY);
+	opendir(DIRECTORY, $directory);
+	while(my $file = readdir(DIRECTORY))
+	{
+		next if $file eq ".";
+		next if $file eq "..";
+		my $full_path = $directory."/".$file;
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+			file      => $file,
+			full_path => $full_path,
+		}});
+		
+		# Get the MAC address of the interface.
+		my $in_slave    = "";
+		my $bond_name   = $file;
+		my $bond_mac    = "--";
+		my $bond_colour = $anvil->data->{colours}{bond}{irrelevant};
+		my $shell_call  = $anvil->data->{path}{exe}{ip}." addr list ".$bond_name;
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }});
+		my ($output, $return_code) = $anvil->System->call({shell_call => $shell_call});
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+			output      => $output, 
+			return_code => $return_code,
+		}});
+		if (not $return_code)
+		{
+			foreach my $line (split/\n/, $output)
+			{
+				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { line => $line }});
+				if ($line =~ /link\/ether (.*?) /)
+				{
+					$bond_mac    = $1;
+					$bond_colour = $anvil->data->{colours}{bond}{mac_address};
+				}
+			}
+		}
+		$anvil->data->{bond}{$bond_name}{mac_address}        = $bond_mac;
+		$anvil->data->{bond}{$bond_name}{mac_address_colour} = $bond_colour;
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+			"bond::${bond_name}::mac_address"        => $anvil->data->{bond}{$bond_name}{mac_address},
+			"bond::${bond_name}::mac_address_colour" => $anvil->data->{bond}{$bond_name}{mac_address_colour}, 
+		}});
+		
+		my $bond_body = $anvil->Storage->read_file({file => $full_path});
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+			bond_name => $bond_name,
+			bond_body => $bond_body,
+		}});
+		
+		if (length($bond_name) > $name_length)
+		{
+			$name_length = length($bond_name);
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { name_length => $name_length }});
+		}
+		
+		foreach my $line (split/\n/, $bond_body)
+		{
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { line => $line }});
+			
+			if ($in_slave)
+			{
+				if (not $line)
+				{
+					$in_slave = "";
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { in_slave => $in_slave }});
+					next;
+				}
+				if ($line =~ /MII Status: (.*)$/i)
+				{
+					my $status = $1;
+					my $colour = $anvil->data->{colours}{bond}{'state'}{unknown_entry};
+					if (lc($status) eq "up")
+					{
+						$status = $anvil->Words->string({key => "unit_0013"});
+						$colour = $anvil->data->{colours}{bond}{'state'}{up};
+					}
+					elsif (lc($status) eq "down")
+					{
+						$status = $anvil->Words->string({key => "unit_0014"});
+						$colour = $anvil->data->{colours}{bond}{'state'}{down};
+					}
+					elsif (lc($status) eq "going back")
+					{
+						$status = $anvil->Words->string({key => "unit_0040"});
+						$colour = $anvil->data->{colours}{bond}{'state'}{going_back};
+					}
+					
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status}     = $status;
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status_raw} = $1;
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{status_colour}  = $colour;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::slave::${in_slave}::mii_status"     => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status},
+						"bond::${bond_name}::slave::${in_slave}::mii_status_raw" => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status_raw},
+						"bond::${bond_name}::slave::${in_slave}::status_colour"  => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{status_colour},
+					}});
+					if (length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status}) > $status_length)
+					{
+						$status_length = length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status});
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { status_length => $status_length }});
+					}
+				}
+				if ($line =~ /Speed: (.*)$/i)
+				{
+					my $speed  =  $1;
+					$speed  =~ s/ Mbps//; 
+					my $colour =  $anvil->data->{colours}{bond}{speed}{down};
+					if ((not $speed) or ($speed =~ /Unknown/i))
+					{
+						# 10 Gbps or better
+						$speed  = "--";
+						$colour = $anvil->data->{colours}{bond}{speed}{down};
+					}
+					elsif ($speed > 1001)
+					{
+						# 10 Gbps or better
+						$speed  = $anvil->Convert->add_commas({number => $speed})." ".$anvil->Words->string({key => "unit_0031"});
+						$colour = $anvil->data->{colours}{bond}{speed}{'10000'};
+					}
+					elsif ($speed == 1000)
+					{
+						# Gbit
+						$speed  = $anvil->Convert->add_commas({number => $speed})." ".$anvil->Words->string({key => "unit_0031"});
+						$colour =  $anvil->data->{colours}{bond}{speed}{'1000'};
+					}
+					elsif ($speed == 100)
+					{
+						# 100 Mbit... uh oh
+						$speed  = $anvil->Convert->add_commas({number => $speed})." ".$anvil->Words->string({key => "unit_0031"});
+						$colour = $anvil->data->{colours}{bond}{speed}{'100'};
+					}
+					elsif ($speed == 10)
+					{
+						# 10 Mbit. Hello 90s.
+						$speed  = $anvil->Convert->add_commas({number => $speed})." ".$anvil->Words->string({key => "unit_0031"});
+						$colour = $anvil->data->{colours}{bond}{speed}{'10'};
+					}
+					else
+					{
+						# wat?
+						$speed  = "?".$speed."?";
+						$colour = $anvil->data->{colours}{bond}{speed}{unknown_entry};
+					}
+					
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed}        = $speed;
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed_colour} = $colour;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::slave::${in_slave}::speed"        => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed},
+						"bond::${bond_name}::slave::${in_slave}::speed_colour" => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed_colour},
+					}});
+					if (length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed}) > $speed_length)
+					{
+						$speed_length = length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed});
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { speed_length => $speed_length }});
+					}
+				}
+				if ($line =~ /Duplex: (.*)$/i)
+				{
+					my $duplex = $1;
+					my $colour = $anvil->data->{colours}{bond}{duplex}{unknown_entry};
+					if ($duplex =~ /Unknown/i)
+					{
+						# Full duplex
+						$duplex = "--";
+						$colour = $anvil->data->{colours}{bond}{duplex}{down};
+					}
+					elsif ($duplex eq "full")
+					{
+						# Full duplex
+						$duplex = $anvil->Words->string({key => "unit_0015"});
+						$colour = $anvil->data->{colours}{bond}{duplex}{full};
+					}
+					elsif ($duplex eq "half")
+					{
+						# Half duplex... not good.
+						$duplex = $anvil->Words->string({key => "unit_0016"});
+						$colour = $anvil->data->{colours}{bond}{duplex}{half};
+					}
+					else
+					{
+						# *sigh*
+						$duplex = "?".$duplex."?";
+						$colour = $anvil->data->{colours}{bond}{duplex}{unknown_entry};
+					}
+					
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex}        = $duplex;
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex_colour} = $colour;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::slave::${in_slave}::duplex"        => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex},
+						"bond::${bond_name}::slave::${in_slave}::duplex_colour" => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex_colour},
+					}});
+
+					if (length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex}) > $duplex_length)
+					{
+						$duplex_length = length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex});
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { duplex_length => $duplex_length }});
+					}
+				}
+				if ($line =~ /Link Failure Count: (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{link_failure_count} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::slave::${in_slave}::link_failure_count" => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{link_failure_count},
+					}});
+					
+					if (length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{link_failure_count}) > $failures_length)
+					{
+						$failures_length = length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{link_failure_count});
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { failures_length => $failures_length }});
+					}
+				}
+				if ($line =~ /Permanent HW addr: (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mac_address} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::slave::${in_slave}::mac_address" => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mac_address},
+					}});
+					
+					if (length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mac_address}) > $mac_length)
+					{
+						$mac_length = length($anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mac_address});
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { failures_length => $mac_length }});
+					}
+				}
+				if ($line =~ /Slave queue ID: (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{slave}{$in_slave}{slave_queue_id} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::slave::${in_slave}::slave_queue_id" => $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{slave_queue_id},
+					}});
+				}
+			}
+			else
+			{
+				if ($line =~ /Bonding Mode: .* \((.*?)\)/i)
+				{
+					$anvil->data->{bond}{$bond_name}{mode} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::mode" => $anvil->data->{bond}{$bond_name}{mode},
+					}});
+					if (length($anvil->data->{bond}{$bond_name}{mode}) > $mode_length)
+					{
+						$mode_length = length($anvil->data->{bond}{$bond_name}{mode});
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { mode_length => $mode_length }});
+					}
+				}
+				if ($line =~ /Primary Slave: (.*?) \((.*?)\)/i)
+				{
+					$anvil->data->{bond}{$bond_name}{primary_slave}         = $1;
+					$anvil->data->{bond}{$bond_name}{primary_slave_options} = $2;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::primary_slave"         => $anvil->data->{bond}{$bond_name}{primary_slave},
+						"bond::${bond_name}::primary_slave_options" => $anvil->data->{bond}{$bond_name}{primary_slave_options},
+					}});
+				}
+				if ($line =~ /Currently Active Slave: (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{active_slave} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::active_slave" => $anvil->data->{bond}{$bond_name}{active_slave},
+					}});
+				}
+				if ($line =~ /MII Status: (.*)$/i)
+				{
+					my $status = $1;
+					my $colour = $anvil->data->{colours}{bond}{'state'}{unknown_entry};
+					if (lc($status) eq "up")
+					{
+						$status = $anvil->Words->string({key => "unit_0013"});
+						$colour = $anvil->data->{colours}{bond}{'state'}{up};
+					}
+					elsif (lc($status) eq "down")
+					{
+						$status = $anvil->Words->string({key => "unit_0014"});
+						$colour = $anvil->data->{colours}{bond}{'state'}{down};
+					}
+					elsif (lc($status) eq "going back")
+					{
+						$status = $anvil->Words->string({key => "unit_0040"});
+						$colour = $anvil->data->{colours}{bond}{'state'}{going_back};
+					}
+					
+					$anvil->data->{bond}{$bond_name}{mii_status}    = $status;
+					$anvil->data->{bond}{$bond_name}{status_colour} = $colour;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::mii_status"    => $anvil->data->{bond}{$bond_name}{mii_status},
+						"bond::${bond_name}::status_colour" => $anvil->data->{bond}{$bond_name}{status_colour},
+					}});
+					if (length($anvil->data->{bond}{$bond_name}{mii_status}) > $status_length)
+					{
+						$status_length = length($anvil->data->{bond}{$bond_name}{mii_status});
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { status_length => $status_length }});
+					}
+				}
+				if ($line =~ /MII Polling Interval \(ms\): (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{mii_polling_interval_ms} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::mii_polling_interval_ms" => $anvil->data->{bond}{$bond_name}{mii_polling_interval_ms},
+					}});
+				}
+				if ($line =~ /Up Delay \(ms\): (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{up_delay} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::up_delay" => $anvil->data->{bond}{$bond_name}{up_delay},
+					}});
+				}
+				if ($line =~ /Down Delay \(ms\): (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{down_delay} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::down_delay" => $anvil->data->{bond}{$bond_name}{down_delay},
+					}});
+				}
+				if ($line =~ /Peer Notification Delay \(ms\): (.*)$/i)
+				{
+					$anvil->data->{bond}{$bond_name}{peer_notification_delay} = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+						"bond::${bond_name}::peer_notification_delay" => $anvil->data->{bond}{$bond_name}{peer_notification_delay},
+					}});
+				}
+				if ($line =~ /Slave Interface: (.*)$/i)
+				{
+					$in_slave = $1;
+					$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { in_slave => $in_slave }});
+					
+					if ((length($in_slave) + 2) > $name_length)
+					{
+						$name_length = length($in_slave);
+						$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { name_length => $name_length }});
+					}
+				}
+			}
+		}
+	}
+	closedir(DIRECTORY);
+	
+	
+	system ("/usr/bin/clear");    #clear the screen
+	#print "\033[0;0H";  #jump to 0,0
+	
+	# Print the title
+	print $anvil->Words->string({key => "header_0060", variables => { date => $anvil->Get->date_and_time() }})."\n";
+	my $say_interface = $anvil->Words->string({key => "header_0054"});
+	my $say_mode      = $anvil->Words->string({key => "header_0055"});
+	my $say_active    = $anvil->Words->string({key => "header_0056"});
+	my $say_status    = $anvil->Words->string({key => "header_0057"});
+	my $say_speed     = $anvil->Words->string({key => "header_0005"});
+	my $say_duplex    = $anvil->Words->string({key => "header_0058"});
+	my $say_failures  = $anvil->Words->string({key => "header_0059"});	# "Link Drops", to be less scary for users
+	my $say_mac       = $anvil->Words->string({key => "header_0002"});
+	if (length($say_interface) > $name_length)
+	{
+		$name_length = length($say_interface);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { name_length => $name_length }});
+	}
+	if (length($say_active) > $name_length)
+	{
+		$name_length = length($say_active);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { name_length => $name_length }});
+	}
+	if (length($say_mode) > $mode_length)
+	{
+		$mode_length = length($say_mode);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { mode_length => $mode_length }});
+	}
+	if (length($say_status) > $status_length)
+	{
+		$status_length = length($say_status);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { status_length => $status_length }});
+	}
+	if (length($say_speed) > $speed_length)
+	{
+		$speed_length = length($say_speed);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { speed_length => $speed_length }});
+	}
+	if (length($say_duplex) > $duplex_length)
+	{
+		$duplex_length = length($say_duplex);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { duplex_length => $duplex_length }});
+	}
+	if (length($say_failures) > $failures_length)
+	{
+		$failures_length = length($say_failures);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { failures_length => $failures_length }});
+	}
+	if (length($say_mac) > $mac_length)
+	{
+		$mac_length = length($say_mac);
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { mac_length => $mac_length }});
+	}
+
+	my $centered_interface = $anvil->Words->center_text({string => $say_interface, width => $name_length});
+	my $centered_mode      = $anvil->Words->center_text({string => $say_mode,      width => $mode_length});
+	my $centered_active    = $anvil->Words->center_text({string => $say_active,    width => $name_length});
+	my $centered_status    = $anvil->Words->center_text({string => $say_status,    width => $status_length});
+	my $centered_speed     = $anvil->Words->center_text({string => $say_speed,     width => $speed_length});
+	my $centered_duplex    = $anvil->Words->center_text({string => $say_duplex,    width => $duplex_length});
+	my $centered_failures  = $anvil->Words->center_text({string => $say_failures,  width => $failures_length});
+	my $centered_mac       = $anvil->Words->center_text({string => $say_mac,       width => $mac_length});
+
+	my $interface_divider = ""; for (1..$name_length)     { $interface_divider .= "-"; }
+	my $mode_divider      = ""; for (1..$mode_length)     { $mode_divider      .= "-"; }
+	my $status_divider    = ""; for (1..$status_length)   { $status_divider    .= "-"; }
+	my $speed_divider     = ""; for (1..$speed_length)    { $speed_divider     .= "-"; }
+	my $duplex_divider    = ""; for (1..$duplex_length)   { $duplex_divider    .= "-"; }
+	my $failures_divider  = ""; for (1..$failures_length) { $failures_divider  .= "-"; }
+	my $mac_divider       = ""; for (1..$mac_length)      { $mac_divider       .= "-"; }
+
+	#         Interface             | Mode               | Active                  | Status               | Speed               | Duplux               | Failures               | MAC
+	print " ".$centered_interface." | ".$centered_mode." | ".$centered_interface." | ".$centered_status." | ".$centered_speed." | ".$centered_duplex." | ".$centered_failures." | ".$centered_mac."\n";
+	my $divider_line = "-".$interface_divider."-+-".$mode_divider."-+-".$interface_divider."-+-".$status_divider."-+-".$speed_divider."-+-".$duplex_divider."-+-".$failures_divider."-+-".$mac_divider."-";
+
+	foreach my $bond_name (sort {$a cmp $b} keys %{$anvil->data->{bond}})
+	{
+		print $divider_line."\n";
+		my $mode          = $anvil->data->{bond}{$bond_name}{mode};
+		my $primary_slave = $anvil->data->{bond}{$bond_name}{primary_slave};
+		my $active_slave  = $anvil->data->{bond}{$bond_name}{active_slave};
+		my $bond_status   = $anvil->data->{bond}{$bond_name}{mii_status};
+		my $bond_speed    = $anvil->data->{bond}{$bond_name}{slave}{$active_slave}{speed};
+		my $bond_duplex   = $anvil->data->{bond}{$bond_name}{slave}{$active_slave}{duplex};
+		my $bond_mac      = $anvil->data->{bond}{$bond_name}{mac_address};
+		
+		my $active_slave_colour = $anvil->data->{colours}{bond}{active_iface}{is_primary};
+		if ($primary_slave ne $active_slave)
+		{
+			$active_slave_colour = $anvil->data->{colours}{bond}{active_iface}{is_other};
+		}
+		
+		my $centered_bond_name    = $anvil->Words->center_text({string => $bond_name,    width => $name_length});
+		my $centered_mode         = $anvil->Words->center_text({string => $mode,         width => $mode_length});
+		my $centered_active_iface = $anvil->Words->center_text({string => $active_slave, width => $name_length});
+		my $centered_bond_status  = $anvil->Words->center_text({string => $bond_status,  width => $status_length});
+		my $centered_bond_speed   = $anvil->Words->center_text({string => $bond_speed,   width => $speed_length});
+		my $centered_bond_duplex  = $anvil->Words->center_text({string => $bond_duplex,  width => $duplex_length});
+		my $centered_failures     = $anvil->Words->center_text({string => "-",           width => $failures_length});
+		my $centered_mac_address  = $anvil->Words->center_text({string => $bond_mac,     width => $mac_length});
+		
+		my $say_bond_name        = colored($centered_bond_name,    $anvil->data->{colours}{bond}{bond_name});
+		my $say_mode             = colored($centered_mode,         $anvil->data->{colours}{bond}{mode});
+		my $say_active_iface     = colored($centered_active_iface, $active_slave_colour);
+		my $say_bond_status      = colored($centered_bond_status,  $anvil->data->{bond}{$bond_name}{status_colour});
+		my $say_bond_speed       = colored($centered_bond_speed,   $anvil->data->{bond}{$bond_name}{slave}{$active_slave}{speed_colour});
+		my $say_bond_duplex      = colored($centered_bond_duplex,  $anvil->data->{bond}{$bond_name}{slave}{$active_slave}{duplex_colour});
+		my $say_bond_failures    = colored($centered_failures,     $anvil->data->{colours}{bond}{irrelevant});
+		my $say_bond_mac_address = colored($centered_mac_address,  $anvil->data->{bond}{$bond_name}{mac_address_colour});
+		print " ".$say_bond_name." | ".$say_mode." | ".$say_active_iface." | ".$say_bond_status." | ".$say_bond_speed." | ".$say_bond_duplex." | ".$say_bond_failures." | ".$say_bond_mac_address." \n";
+		
+		foreach my $in_slave (sort {$a cmp $b} keys %{$anvil->data->{bond}{$bond_name}{slave}})
+		{
+			my $mii_status  = $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status};
+			my $speed       = $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed};
+			my $duplex      = $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex};
+			my $fail_count  = $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{link_failure_count};
+			my $mac_address = $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mac_address};
+			
+			my $centered_iface_name   = $anvil->Words->center_text({string => "- ".$in_slave, width => $name_length});
+			my $centered_mode         = $anvil->Words->center_text({string => "--",           width => $mode_length});
+			my $centered_active_iface = $anvil->Words->center_text({string => "--",           width => $name_length});
+			my $centered_iface_status = $anvil->Words->center_text({string => $mii_status,    width => $status_length});
+			my $centered_iface_speed  = $anvil->Words->center_text({string => $speed,         width => $speed_length});
+			my $centered_iface_duplex = $anvil->Words->center_text({string => $duplex,        width => $duplex_length});
+			my $centered_failures     = $anvil->Words->center_text({string => $fail_count,    width => $failures_length});
+			my $centered_mac_address  = $anvil->Words->center_text({string => $mac_address,   width => $mac_length});
+			
+			my $iface_name_colour = $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{mii_status_raw} eq "up" ? $anvil->data->{colours}{bond}{interface} : $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{status_colour};
+			
+			my $say_iface_name        = colored($centered_iface_name,   $iface_name_colour);
+			my $say_mode              = colored($centered_mode,         $anvil->data->{colours}{bond}{irrelevant});
+			my $say_active_iface      = colored($centered_active_iface, $anvil->data->{colours}{bond}{irrelevant});
+			my $say_iface_status      = colored($centered_iface_status, $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{status_colour});
+			my $say_iface_speed       = colored($centered_iface_speed,  $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{speed_colour});
+			my $say_iface_duplex      = colored($centered_iface_duplex, $anvil->data->{bond}{$bond_name}{slave}{$in_slave}{duplex_colour});
+			my $say_iface_failures    = colored($centered_failures,     $anvil->data->{colours}{bond}{failure_count});
+			my $say_iface_mac_address = colored($centered_mac_address,  $anvil->data->{colours}{bond}{mac_address});
+			print " ".$say_iface_name." | ".$say_mode." | ".$say_active_iface." | ".$say_iface_status." | ".$say_iface_speed." | ".$say_iface_duplex." | ".$say_iface_failures." | ".$say_iface_mac_address." \n";
+		}
+	}
+	print $divider_line."\n";
+	print $anvil->Words->string({key => "header_0061"})."\n";
+	sleep 2;
+}
+
+
+$anvil->nice_exit({exit_code => 0});