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.
204 lines
8.3 KiB
204 lines
8.3 KiB
#!/usr/bin/perl |
|
# |
|
# This is the master daemon that manages all periodically run processes on Striker dashboards and Anvil! |
|
# nodes. |
|
# |
|
use strict; |
|
use warnings; |
|
use AN::Tools; |
|
|
|
my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0]; |
|
my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0]; |
|
if (($running_directory =~ /^\./) && ($ENV{PWD})) |
|
{ |
|
$running_directory =~ s/^\./$ENV{PWD}/; |
|
} |
|
|
|
my $an = AN::Tools->new(); |
|
$an->Log->level({set => 2}); |
|
|
|
$an->Storage->read_config({file => "/etc/striker/striker.conf"}); |
|
my $connections = $an->Database->connect({ |
|
sql_file => $an->data->{sys}{database}{schema}, |
|
test_table => "network_interfaces", |
|
}); |
|
|
|
# Turn off buffering so that the pinwheel will display while waiting for the SSH call(s) to complete. |
|
$| = 1; |
|
|
|
report_network($an); |
|
|
|
exit(0); |
|
|
|
############################################################################################################# |
|
# Functions # |
|
############################################################################################################# |
|
|
|
# This reports the current network interface states, tracked by the MAC address. |
|
sub report_network |
|
{ |
|
my ($an) = @_; |
|
|
|
# Write out the data in json format. |
|
my $directory = $an->data->{path}{sysfs}{network_interfaces}; |
|
local(*DIRECTORY); |
|
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0018", variables => { directory => $directory }}); |
|
opendir(DIRECTORY, $directory); |
|
while(my $file = readdir(DIRECTORY)) |
|
{ |
|
next if $file eq "."; |
|
next if $file eq ".."; |
|
next if $file eq "lo"; |
|
my $full_path = "$directory/$file"; |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { full_path => $full_path }}); |
|
if (-d $full_path) |
|
{ |
|
# Pull out the data I want. |
|
my $interface = $file; |
|
my $mac_address = $an->Storage->read_file({file => $full_path."/address"}); |
|
my $link_state = $an->Storage->read_file({file => $full_path."/carrier"}); |
|
my $mtu = $an->Storage->read_file({file => $full_path."/mtu"}); |
|
my $duplex = $an->Storage->read_file({file => $full_path."/duplex"}); # full or half? |
|
my $operational = $an->Storage->read_file({file => $full_path."/operstate"}); # up or down |
|
my $speed = $link_state ? $an->Storage->read_file({file => $full_path."/speed"}) : 0; # Mbps (ie: 1000 = Gbps), gives a very high number for unplugged link |
|
if ($speed > 100000) |
|
{ |
|
# NOTE: This is probably 0 now... Though someday >100 Gbps will be reasonable |
|
# and we'll need to change this. |
|
$speed = 0; |
|
} |
|
|
|
# Find the media, if possible. |
|
my $media = "unknown"; |
|
my $ethtool = $an->System->call({shell_call => $an->data->{path}{exe}{ethtool}}); |
|
foreach my $line (split/\n/, $ethtool) |
|
{ |
|
if ($line =~ /Supported ports: \[ (.*?) \]/i) |
|
{ |
|
$media = lc($1); |
|
last; |
|
} |
|
} |
|
|
|
# Log |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { |
|
interface => $interface, |
|
mac_address => $mac_address, |
|
link_state => $link_state, |
|
mtu => $mtu, |
|
duplex => $duplex, |
|
operational => $operational, |
|
speed => $speed, |
|
media => $media, |
|
}}); |
|
|
|
$an->Database->insert_or_update_network_interfaces({ |
|
network_interface_name => $interface, |
|
network_interface_duplex => $duplex, |
|
network_interface_link_state => $link_state, |
|
network_interface_operational => $operational, |
|
network_interface_mac_address => $mac_address, |
|
network_interface_medium => $media, |
|
network_interface_mtu => $mtu, |
|
network_interface_speed => $speed, |
|
}); |
|
|
|
} |
|
} |
|
closedir(DIRECTORY); |
|
|
|
# Write out the XML file and JSON file. |
|
my $order = 1; |
|
my $network_xml = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; |
|
$network_xml .= "<network>\n"; |
|
my $network_json = "{\"networks\":[\n"; |
|
my $query = " |
|
SELECT |
|
network_interface_mac_address, |
|
network_interface_name, |
|
network_interface_speed, |
|
network_interface_mtu, |
|
network_interface_link_state, |
|
network_interface_operational, |
|
network_interface_duplex, |
|
network_interface_medium, |
|
network_interface_bond_uuid, |
|
network_interface_bridge_uuid |
|
FROM |
|
network_interfaces |
|
WHERE |
|
network_interface_host_uuid = ".$an->data->{sys}{use_db_fh}->quote($an->Get->host_uuid)." |
|
ORDER BY |
|
modified_date DESC |
|
;"; |
|
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0124", variables => { query => $query }}); |
|
my $results = $an->Database->query({query => $query, source => $THIS_FILE, line => __LINE__}); |
|
my $count = @{$results}; |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { |
|
results => $results, |
|
count => $count, |
|
}}); |
|
foreach my $row (@{$results}) |
|
{ |
|
my $network_interface_mac_address = $row->[0]; |
|
my $network_interface_name = $row->[1]; |
|
my $network_interface_speed = $row->[2]; |
|
my $network_interface_mtu = defined $row->[3] ? $row->[3] : ""; |
|
my $network_interface_link_state = $row->[4]; |
|
my $network_interface_operational = $row->[5]; |
|
my $network_interface_duplex = $row->[6]; |
|
my $network_interface_medium = defined $row->[7] ? $row->[7] : ""; |
|
my $network_interface_bond_uuid = defined $row->[8] ? $row->[8] : ""; |
|
my $network_interface_bridge_uuid = defined $row->[9] ? $row->[9] : ""; |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { |
|
network_interface_mac_address => $network_interface_mac_address, |
|
network_interface_name => $network_interface_name, |
|
network_interface_speed => $network_interface_speed, |
|
network_interface_mtu => $network_interface_mtu, |
|
network_interface_link_state => $network_interface_link_state, |
|
network_interface_operational => $network_interface_operational, |
|
network_interface_duplex => $network_interface_duplex, |
|
network_interface_medium => $network_interface_medium, |
|
network_interface_bond_uuid => $network_interface_bond_uuid, |
|
network_interface_bridge_uuid => $network_interface_bridge_uuid, |
|
order => $order, |
|
}}); |
|
$network_json .= " { \"name\":\"$network_interface_name\", \"mac\":\"$network_interface_mac_address\", \"link\":\"$network_interface_link_state\", \"speed\":\"$network_interface_speed\", \"mtu\":\"$network_interface_mtu\", \"duplex\":\"$network_interface_duplex\", \"state\":\"$network_interface_operational\", \"media\":\"$network_interface_medium\", \"bond\":\"$network_interface_bond_uuid\", \"bridge\":\"$network_interface_bridge_uuid\", \"order\":\"$order\" },\n"; |
|
$network_xml .= " <interface name=\"$network_interface_name\" mac=\"$network_interface_mac_address\" link=\"$network_interface_link_state\" speed=\"$network_interface_speed\" mtu=\"$network_interface_mtu\" duplex=\"$network_interface_duplex\" state=\"$network_interface_operational\" media=\"$network_interface_medium\" bond=\"$network_interface_bond_uuid\" bridge=\"$network_interface_bridge_uuid\" order=\"$order\" />\n"; |
|
$order++; |
|
} |
|
|
|
$network_json =~ s/,$//s; |
|
$network_json .= "]}\n"; |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { network_json => $network_json }}); |
|
|
|
$network_xml .= "</network>\n"; |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { network_xml => $network_xml }}); |
|
|
|
### TODO: Set the 'status/network.json' name into 'striker.conf' |
|
# Write the JSON file. |
|
my $output_json = $an->data->{path}{directories}{html}."/status/network.json"; |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { output_xml => $output_json }}); |
|
$an->Storage->write_file({ |
|
file => $output_json, |
|
body => $network_json, |
|
overwrite => 1, |
|
mode => "0644", |
|
user => "apache", |
|
group => "apache" |
|
}); |
|
|
|
# Write the XML file. |
|
my $output_xml = $an->data->{path}{directories}{html}."/status/network.xml"; |
|
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { output_xml => $output_xml }}); |
|
$an->Storage->write_file({ |
|
file => $output_xml, |
|
body => $network_xml, |
|
overwrite => 1, |
|
mode => "0644", |
|
user => "apache", |
|
group => "apache" |
|
}); |
|
|
|
return(0); |
|
}
|
|
|