Updated DRBD->get_devices() and Server->parse_definition() to take 'anvil_uuid' so that server data can be parsed from anywhere.
Created, but not finished, tools/anvil-report-usage that will print a report of server resource allocation and Anvil! resource availability. Signed-off-by: Digimer <digimer@alteeve.ca>main
Digimer
3 years ago
parent
3ad1793c23
commit
4751c6e747
4 changed files with 237 additions and 26 deletions
@ -0,0 +1,141 @@ |
||||
#!/usr/bin/perl |
||||
|
||||
use strict; |
||||
use warnings; |
||||
use Anvil::Tools; |
||||
use Data::Dumper; |
||||
use Text::Diff; |
||||
|
||||
$| = 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(); |
||||
|
||||
$anvil->data->{switches}{brief} = 0; |
||||
$anvil->Get->switches(); |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||
"switches::brief" => $anvil->data->{switches}{brief}, |
||||
}}); |
||||
|
||||
$anvil->Database->connect(); |
||||
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 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_0359"}); |
||||
$anvil->nice_exit({exit_code => 1}); |
||||
} |
||||
|
||||
gather_data($anvil); |
||||
|
||||
|
||||
$anvil->nice_exit({exit_code => 0}); |
||||
|
||||
|
||||
############################################################################################################# |
||||
# Functions # |
||||
############################################################################################################# |
||||
|
||||
sub gather_data |
||||
{ |
||||
my ($anvil) = @_; |
||||
|
||||
collect_anvil_data($anvil); |
||||
collect_server_data($anvil); |
||||
# collect_cpu_data($conf); |
||||
# collect_ram_data($conf); |
||||
# collect_storage_data($conf); |
||||
# collect_server_data($conf); |
||||
# collect_bridges($conf); |
||||
|
||||
return(0); |
||||
} |
||||
|
||||
sub collect_server_data |
||||
{ |
||||
my ($anvil) = @_; |
||||
|
||||
$anvil->Database->get_anvils(); |
||||
$anvil->Database->get_servers(); |
||||
$anvil->Database->get_server_definitions(); |
||||
|
||||
foreach my $server_uuid (sort {$a cmp $b} keys %{$anvil->data->{servers}{server_uuid}}) |
||||
{ |
||||
my $server_name = $anvil->data->{servers}{server_uuid}{$server_uuid}{server_name}; |
||||
my $anvil_uuid = $anvil->data->{servers}{server_uuid}{$server_uuid}{server_anvil_uuid}; |
||||
my $anvil_name = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_name}; |
||||
my $server_definition = $anvil->data->{server_definitions}{server_definition_server_uuid}{$server_uuid}{server_definition_xml}; |
||||
my $server_ram = $anvil->data->{servers}{server_uuid}{$server_uuid}{server_ram_in_use}; |
||||
if ($anvil->data->{servers}{server_uuid}{$server_uuid}{server_configured_ram} > $server_ram) |
||||
{ |
||||
$server_ram = $anvil->data->{servers}{server_uuid}{$server_uuid}{server_configured_ram}; |
||||
} |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||
's1:server_name' => $server_name, |
||||
's2:anvil_name' => $anvil_name, |
||||
's3:server_ram' => $anvil->Convert->add_commas({number => $server_ram})." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $server_ram}).")", |
||||
}}); |
||||
|
||||
my $target = $anvil->Get->short_host_name; |
||||
my $source = "from_db"; |
||||
$anvil->Server->parse_definition({ |
||||
debug => 2, |
||||
source => $source, |
||||
server => $server_name, |
||||
definition => $server_definition, |
||||
anvil_uuid => $anvil_uuid, |
||||
}); |
||||
|
||||
# CPU info |
||||
my $total_cores = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{total_cores}; |
||||
my $cpu_sockets = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{sockets}; |
||||
my $cpu_cores = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{cores}; |
||||
my $cpu_threads = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{threads}; |
||||
my $cpu_model = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{model_name}; |
||||
my $cpu_fallback = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{model_fallback}; |
||||
my $cpu_match = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{match}; |
||||
my $cpu_vendor = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{vendor}; |
||||
my $cpu_mode = $anvil->data->{server}{$target}{$server_name}{$source}{cpu}{mode}; |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||
's1:total_cores' => $total_cores, |
||||
's2:cpu_sockets' => $cpu_sockets, |
||||
's3:cpu_cores' => $cpu_cores, |
||||
's4:cpu_threads' => $cpu_threads, |
||||
's5:cpu_model' => $cpu_model, |
||||
's6:cpu_fallback' => $cpu_fallback, |
||||
's7:cpu_match' => $cpu_match, |
||||
's8:cpu_vendor' => $cpu_vendor, |
||||
's9:cpu_mode' => $cpu_mode, |
||||
}}); |
||||
|
||||
# Storage info. |
||||
|
||||
} |
||||
|
||||
return(0); |
||||
} |
||||
|
||||
sub collect_anvil_data |
||||
{ |
||||
my ($anvil) = @_; |
||||
|
||||
# Get a list of Anvil's and what free RAM and disk space they have available. |
||||
$anvil->Database->get_anvils(); |
||||
|
||||
foreach my $anvil_name (sort {$a cmp $b} keys %{$anvil->data->{anvils}{anvil_name}}) |
||||
{ |
||||
# $anvil->data->{anvils}{anvil_name}{$anvil_name}{anvil_uuid} = $anvil_uuid; |
||||
# $anvil->data->{anvils}{anvil_name}{$anvil_name}{anvil_description} = $anvil_description; |
||||
# $anvil->data->{anvils}{anvil_name}{$anvil_name}{anvil_node1_host_uuid} = $anvil_node1_host_uuid; |
||||
# $anvil->data->{anvils}{anvil_name}{$anvil_name}{anvil_node2_host_uuid} = $anvil_node2_host_uuid; |
||||
# $anvil->data->{anvils}{anvil_name}{$anvil_name}{anvil_dr1_host_uuid} = $anvil_dr1_host_uuid; |
||||
} |
||||
|
||||
return(0); |
||||
} |
||||
Loading…
Reference in new issue