You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
674 lines
29 KiB
674 lines
29 KiB
4 years ago
|
#!/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});
|