#!/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",
none => "bold red",
},
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->data->{switches}{'run-once'} = "";
$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},
}});
# Set some defaults that may not be found.
$anvil->data->{bond}{$bond_name}{primary_slave} = "None";
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)
{
if ($active_slave eq "None")
{
$active_slave_colour = $anvil->data->{colours}{bond}{active_iface}{none};
}
else
{
$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";
if ($anvil->data->{switches}{'run-once'})
{
$anvil->nice_exit({exit_code => 0});
}
print $anvil->Words->string({key => "header_0061"})."\n";
sleep 2;
}
$anvil->nice_exit({exit_code => 0});
