seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* 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.

Browse Source 
* 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>
main
Digimer 4 years ago
parent 992143ef1b
commit bbad058b33
6 changed files with 772 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 1
      Anvil/Tools.pm
  2. 2
      Anvil/Tools/Convert.pm
  3. 87
      Anvil/Tools/Words.pm
  4. 9
      share/words.xml
  5. 1
      tools/Makefile.am
  6. 673
      tools/anvil-watch-bonds

1
Anvil/Tools.pm
Unescape View File

@ -1062,6 +1062,7 @@ sub _set_paths
alert_emails => "/var/spool/anvil", alert_emails => "/var/spool/anvil",
anvil => "/etc/anvil", anvil => "/etc/anvil",
backups => "/root/anvil-backups", backups => "/root/anvil-backups",
bonds => "/proc/net/bonding",
'cgi-bin' => "/var/www/cgi-bin", 'cgi-bin' => "/var/www/cgi-bin",
drbd_resources => "/etc/drbd.d/", drbd_resources => "/etc/drbd.d/",
fence_agents => "/usr/sbin", fence_agents => "/usr/sbin",

2
Anvil/Tools/Convert.pm
Unescape View File

@ -137,7 +137,7 @@ sub add_commas
$whole = $_; $whole = $_;
# Put it together # 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 }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { number => $number }});
return ($number); return ($number);

87
Anvil/Tools/Words.pm
Unescape View File

@ -18,6 +18,7 @@ my $THIS_FILE = "Words.pm";
# $ENV{'PERL_UNICODE'} = 1; # $ENV{'PERL_UNICODE'} = 1;
### Methods; ### Methods;
# center_text
# clean_spaces # clean_spaces
# key # key
# language # language
@ -93,6 +94,92 @@ sub parent
# Public methods # # 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 =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. 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.

9
share/words.xml
Unescape View File

@ -710,6 +710,14 @@ sys::manage::firewall = 1
<key name="header_0051">Synced</key> <key name="header_0051">Synced</key>
<key name="header_0052">Remove</key> <key name="header_0052">Remove</key>
<key name="header_0053">#!string!brand_0006!# Name</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 --> <!-- Strings used by jobs -->
<key name="job_0001">Configure Network</key> <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_0037">Fahrenheit</key>
<key name="unit_0038">%</key> <key name="unit_0038">%</key>
<key name="unit_0039">Amps</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 <!-- 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. are used when adding UPSes to the system for use in Install Manifests.

1
tools/Makefile.am
Unescape View File

@ -32,6 +32,7 @@ dist_sbin_SCRIPTS = \
anvil-update-issue \ anvil-update-issue \
anvil-update-states \ anvil-update-states \
anvil-update-system \ anvil-update-system \
anvil-watch-bonds \
scancore \ scancore \
striker-boot-machine \ striker-boot-machine \
striker-get-peer-data \ striker-get-peer-data \

673
tools/anvil-watch-bonds
Unescape View File

@ -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});
Write Preview
Loading…
Cancel
Save