Digimer
4 years ago
committed by
GitHub
commit
3b1afa0d92
11 changed files with 812 additions and 189 deletions
@ -0,0 +1,183 @@ |
|||||||
|
#!/usr/bin/perl |
||||||
|
# |
||||||
|
# This prints JSON formated data reporting the status of an file systems on nodes and DR hosts. |
||||||
|
# |
||||||
|
|
||||||
|
use strict; |
||||||
|
use warnings; |
||||||
|
use Anvil::Tools; |
||||||
|
use Data::Dumper; |
||||||
|
use JSON; |
||||||
|
|
||||||
|
$| = 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->Get->switches; |
||||||
|
|
||||||
|
$anvil->Database->connect; |
||||||
|
$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}); |
||||||
|
} |
||||||
|
|
||||||
|
# Read in any CGI variables, if needed. |
||||||
|
$anvil->Get->cgi(); |
||||||
|
|
||||||
|
$anvil->Database->get_hosts(); |
||||||
|
$anvil->Database->get_anvils(); |
||||||
|
|
||||||
|
print $anvil->Template->get({file => "shared.html", name => "json_headers", show_name => 0})."\n"; |
||||||
|
|
||||||
|
my $hash = { file_systems => [] }; |
||||||
|
my $anvil_uuid = ""; |
||||||
|
if ($anvil->data->{cgi}{anvil_uuid}{value}) |
||||||
|
{ |
||||||
|
$anvil_uuid = $anvil->data->{cgi}{anvil_uuid}{value}; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { anvil_uuid => $anvil_uuid }}); |
||||||
|
} |
||||||
|
elsif ($anvil->data->{switches}{'anvil-uuid'}) |
||||||
|
{ |
||||||
|
$anvil_uuid = $anvil->data->{switches}{'anvil-uuid'}; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { anvil_uuid => $anvil_uuid }}); |
||||||
|
} |
||||||
|
if ((not $anvil_uuid) or (not exists $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid})) |
||||||
|
{ |
||||||
|
$anvil->data->{anvil_status}{anvil_name} = "!!invalid!anvil_uuid!!"; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 'anvil_status::anvil_name' => $anvil->data->{anvil_status}{anvil_name} }}); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
my $node1_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid}; |
||||||
|
my $node2_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid}; |
||||||
|
my $dr1_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_dr1_host_uuid}; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
node1_uuid => $node1_uuid, |
||||||
|
node2_uuid => $node2_uuid, |
||||||
|
dr1_uuid => $dr1_uuid, |
||||||
|
}}); |
||||||
|
|
||||||
|
my $query = " |
||||||
|
SELECT |
||||||
|
a.host_uuid, |
||||||
|
a.host_name, |
||||||
|
b.scan_filesystem_mount_point, |
||||||
|
b.scan_filesystem_size, |
||||||
|
b.scan_filesystem_used |
||||||
|
FROM |
||||||
|
hosts a, |
||||||
|
scan_filesystems b |
||||||
|
WHERE |
||||||
|
a.host_uuid = b.scan_filesystem_host_uuid |
||||||
|
AND |
||||||
|
( |
||||||
|
a.host_uuid = ".$anvil->Database->quote($node1_uuid)." |
||||||
|
OR |
||||||
|
a.host_uuid = ".$anvil->Database->quote($node2_uuid); |
||||||
|
if ($dr1_uuid) |
||||||
|
{ |
||||||
|
$query .= " |
||||||
|
OR |
||||||
|
a.host_uuid = ".$anvil->Database->quote($dr1_uuid); |
||||||
|
} |
||||||
|
$query .= " |
||||||
|
) |
||||||
|
ORDER BY |
||||||
|
a.host_name ASC, |
||||||
|
b.scan_filesystem_mount_point DESC |
||||||
|
;"; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }}); |
||||||
|
my $results = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__}); |
||||||
|
my $count = @{$results}; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
results => $results, |
||||||
|
count => $count, |
||||||
|
}}); |
||||||
|
foreach my $row (@{$results}) |
||||||
|
{ |
||||||
|
my $host_uuid = $row->[0]; |
||||||
|
my $host_name = $row->[1]; |
||||||
|
my $mount_point = $row->[2]; |
||||||
|
my $size = $row->[3]; |
||||||
|
my $used = $row->[4]; |
||||||
|
my $free = $size - $used; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
host_uuid => $host_uuid, |
||||||
|
host_name => $host_name, |
||||||
|
mount_point => $mount_point, |
||||||
|
size => $anvil->Convert->add_commas({number => $size})." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $size}).")",, |
||||||
|
used => $anvil->Convert->add_commas({number => $used})." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $used}).")",, |
||||||
|
free => $anvil->Convert->add_commas({number => $free})." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $free}).")",, |
||||||
|
}}); |
||||||
|
|
||||||
|
$anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{host_name} = $host_name; |
||||||
|
$anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{total} = $size; |
||||||
|
$anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{free} = $free; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
"raw::file_systems::${mount_point}::nodes::${host_uuid}::host_name" => $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{host_name}, |
||||||
|
"raw::file_systems::${mount_point}::nodes::${host_uuid}::total" => $anvil->Convert->add_commas({number => $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{total}})." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{total}}).")",, |
||||||
|
"raw::file_systems::${mount_point}::nodes::${host_uuid}::free" => $anvil->Convert->add_commas({number => $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{free}})." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{free}}).")",, |
||||||
|
}}); |
||||||
|
} |
||||||
|
|
||||||
|
foreach my $mount_point (sort {$a cmp $b} keys %{$anvil->data->{raw}{file_systems}}) |
||||||
|
{ |
||||||
|
# Make a FS hash, which will be pushed into the file_systems array in the response body. |
||||||
|
my $file_system = {}; |
||||||
|
|
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { mount_point => $mount_point }}); |
||||||
|
$file_system->{mount_point} = $mount_point; |
||||||
|
$file_system->{hosts} = []; |
||||||
|
my $nodes = [$node1_uuid, $node2_uuid]; |
||||||
|
if ($dr1_uuid) |
||||||
|
{ |
||||||
|
push @{$nodes}, $dr1_uuid; |
||||||
|
} |
||||||
|
foreach my $host_uuid (@{$nodes}) |
||||||
|
{ |
||||||
|
my $host_name = $anvil->data->{hosts}{host_uuid}{$host_uuid}{host_name}; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
host_uuid => $host_uuid, |
||||||
|
host_name => $host_name, |
||||||
|
}}); |
||||||
|
if (exists $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}) |
||||||
|
{ |
||||||
|
push @{$file_system->{hosts}}, { |
||||||
|
host_uuid => $host_uuid, |
||||||
|
host_name => $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{host_name}, |
||||||
|
# \1 will be transformed to the JSON boolean "true" by the JSON module. |
||||||
|
is_mounted => \1, |
||||||
|
# FS total size is required by the spec to be an JSON number rather than string. |
||||||
|
total => int($anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{total}), |
||||||
|
free => $anvil->data->{raw}{file_systems}{$mount_point}{nodes}{$host_uuid}{free}, |
||||||
|
} |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
push @{$file_system->{hosts}}, { |
||||||
|
host_uuid => $host_uuid, |
||||||
|
host_name => $anvil->data->{hosts}{host_uuid}{$host_uuid}{host_name}, |
||||||
|
# \0 will be transformed to the JSON boolean "false" by the JSON module. |
||||||
|
is_mounted => \0, |
||||||
|
total => 0, |
||||||
|
free => 0, |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# Push the filled FS has into the response body's file_systems array. |
||||||
|
push(@{$hash->{file_systems}}, $file_system); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
print JSON->new->utf8->encode($hash)."\n"; |
||||||
@ -0,0 +1,236 @@ |
|||||||
|
#!/usr/bin/perl |
||||||
|
# |
||||||
|
# This prints JSON formatted data about all networks within a specified anvil. |
||||||
|
# |
||||||
|
|
||||||
|
use strict; |
||||||
|
use warnings; |
||||||
|
use Anvil::Tools; |
||||||
|
use Data::Dumper; |
||||||
|
use JSON; |
||||||
|
|
||||||
|
$| = 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(); |
||||||
|
|
||||||
|
sub handle_invalid_uuid |
||||||
|
{ |
||||||
|
my $parameters = shift; |
||||||
|
my $name = $parameters->{name}; |
||||||
|
my $uuid = $parameters->{uuid}; |
||||||
|
|
||||||
|
$anvil->Log->entry({ |
||||||
|
source => $THIS_FILE, |
||||||
|
line => __LINE__, |
||||||
|
level => 0, |
||||||
|
'print' => 1, |
||||||
|
priority => "err", |
||||||
|
key => "error_0160", |
||||||
|
variables => { name => $name, uuid => $uuid } |
||||||
|
}); |
||||||
|
$anvil->nice_exit({ exit_code => 1 }); |
||||||
|
} |
||||||
|
|
||||||
|
sub get_anvil_networks |
||||||
|
{ |
||||||
|
my $parameters = shift; |
||||||
|
my $anvil_uuid = $parameters->{anvil_uuid}; |
||||||
|
|
||||||
|
my @host_uuids = ( |
||||||
|
$anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid}, |
||||||
|
$anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid} |
||||||
|
); |
||||||
|
my $anvil_networks = []; |
||||||
|
|
||||||
|
foreach (@host_uuids) |
||||||
|
{ |
||||||
|
my $host_networks = get_host_networks({ host_uuid => $_ }); |
||||||
|
|
||||||
|
push(@$anvil_networks, $host_networks); |
||||||
|
} |
||||||
|
|
||||||
|
return $anvil_networks; |
||||||
|
} |
||||||
|
|
||||||
|
sub get_host_networks |
||||||
|
{ |
||||||
|
my $parameters = shift; |
||||||
|
my $host_uuid = $parameters->{host_uuid}; |
||||||
|
my $host_name = $anvil->data->{hosts}{host_uuid}{$host_uuid}{short_host_name}; |
||||||
|
|
||||||
|
# Note: the subprocess name matches its definition; there is a typo though. |
||||||
|
$anvil->Network->load_interfces({ host_uuid => $host_uuid, host => $host_name }); |
||||||
|
|
||||||
|
my $host_networks_data = $anvil->data->{network}{$host_name}; |
||||||
|
my $interfaces = $host_networks_data->{interface}; |
||||||
|
my $bond_uuids = $host_networks_data->{bond_uuid}; |
||||||
|
my $bond_uuid_index_map = {}; |
||||||
|
my $host_networks = { |
||||||
|
host_uuid => $host_uuid, |
||||||
|
host_name => $host_name, |
||||||
|
bonds => [] |
||||||
|
}; |
||||||
|
|
||||||
|
my $build_bond_link_hash = sub { |
||||||
|
my $parameters = shift; |
||||||
|
my $bond_data = $parameters->{bond_data}; |
||||||
|
my $link_name = $parameters->{link_name}; |
||||||
|
my $link_data = $parameters->{link_data}; |
||||||
|
my $known_links = $parameters->{known_links}; |
||||||
|
|
||||||
|
my $link_speed = $link_data->{speed}; |
||||||
|
my $link_state = $link_data->{operational} eq "up" ? "optimal" : "down"; |
||||||
|
|
||||||
|
my $degrade_link_state = sub { |
||||||
|
my $current_link_state = shift; |
||||||
|
|
||||||
|
return $current_link_state eq "optimal" ? "degraded" : $current_link_state; |
||||||
|
}; |
||||||
|
|
||||||
|
# When at lease 1 link has already been processed, check this link against them. |
||||||
|
if ($known_links) |
||||||
|
{ |
||||||
|
my $known_links_index = 0; |
||||||
|
my $known_links_length = scalar(@$known_links); |
||||||
|
|
||||||
|
foreach (@$known_links) |
||||||
|
{ |
||||||
|
# Degrade the link with lower speed. |
||||||
|
if ($_->{link_speed} < $link_speed) |
||||||
|
{ |
||||||
|
$_->{link_state} = &$degrade_link_state($_->{link_state}); |
||||||
|
} |
||||||
|
elsif ($_->{link_state} > $link_speed) |
||||||
|
{ |
||||||
|
$link_state = &$degrade_link_state($link_state); |
||||||
|
} |
||||||
|
|
||||||
|
$anvil->Log->variables({ |
||||||
|
source => $THIS_FILE, |
||||||
|
line => __LINE__, |
||||||
|
level => 2, |
||||||
|
list => { |
||||||
|
known_link_name => $_->{link_name}, |
||||||
|
known_link_speed => $_->{link_speed}, |
||||||
|
known_link_state => $_->{link_state}, |
||||||
|
link_speed => $link_speed, |
||||||
|
link_name => $link_name, |
||||||
|
link_state => $link_state |
||||||
|
} |
||||||
|
}); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
return { |
||||||
|
link_name => $link_name, |
||||||
|
link_uuid => $link_data->{uuid}, |
||||||
|
link_speed => $link_speed, |
||||||
|
link_state => $link_state, |
||||||
|
is_active => $link_name eq $bond_data->{active_interface} ? \1 : \0 |
||||||
|
}; |
||||||
|
}; |
||||||
|
|
||||||
|
foreach my $interface_name (sort { $a cmp $b } keys %$interfaces) |
||||||
|
{ |
||||||
|
my $interface = $interfaces->{$interface_name}; |
||||||
|
# Only a bond's link will have the bond_uuid entry. |
||||||
|
my $bond_uuid = $interface->{bond_uuid}; |
||||||
|
|
||||||
|
if ($bond_uuid) |
||||||
|
{ |
||||||
|
my $bond_name = $bond_uuids->{$bond_uuid}{name}; |
||||||
|
my $bond_index = $bond_uuid_index_map->{$bond_uuid}; |
||||||
|
|
||||||
|
$anvil->Log->variables({ |
||||||
|
source => $THIS_FILE, |
||||||
|
line => __LINE__, |
||||||
|
level => 2, |
||||||
|
list => { |
||||||
|
bond_name => $bond_name, |
||||||
|
bond_index => $bond_index |
||||||
|
} |
||||||
|
}); |
||||||
|
|
||||||
|
if (defined $bond_index) |
||||||
|
{ |
||||||
|
my $bond = @{$host_networks->{bonds}}[$bond_index]; |
||||||
|
|
||||||
|
push(@{$bond->{links}}, &$build_bond_link_hash({ |
||||||
|
bond_data => $interfaces->{$bond_name}, |
||||||
|
link_name => $interface_name, |
||||||
|
link_data => $interface, |
||||||
|
known_links => $bond->{links} |
||||||
|
})); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
my $bond = { bond_name => $bond_name, bond_uuid => $bond_uuid, links => [] }; |
||||||
|
my $link = &$build_bond_link_hash({ |
||||||
|
bond_data => $interfaces->{$bond_name}, |
||||||
|
link_name => $interface_name, |
||||||
|
link_data => $interface |
||||||
|
}); |
||||||
|
|
||||||
|
push(@{$bond->{links}}, $link); |
||||||
|
|
||||||
|
push(@{$host_networks->{bonds}}, $bond); |
||||||
|
|
||||||
|
# Get the index of the most recently inserted item and map it to the bond's UUID. |
||||||
|
$bond_uuid_index_map->{$bond_uuid} = $#{$host_networks->{bonds}}; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
return $host_networks; |
||||||
|
} |
||||||
|
|
||||||
|
$anvil->Get->switches; |
||||||
|
|
||||||
|
$anvil->Database->connect; |
||||||
|
$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}); |
||||||
|
} |
||||||
|
|
||||||
|
# Read in any CGI variables, if needed. |
||||||
|
$anvil->Get->cgi(); |
||||||
|
|
||||||
|
$anvil->Database->get_hosts(); |
||||||
|
$anvil->Database->get_anvils(); |
||||||
|
|
||||||
|
print $anvil->Template->get({file => "shared.html", name => "json_headers", show_name => 0})."\n"; |
||||||
|
|
||||||
|
my $anvil_uuid = exists $anvil->data->{cgi}{anvil_uuid}{value} ? $anvil->data->{cgi}{anvil_uuid}{value} : $anvil->data->{switches}{'anvil-uuid'}; |
||||||
|
my $anvil_uuid_variable_name = "anvil UUID"; |
||||||
|
|
||||||
|
my $response_body = {}; |
||||||
|
|
||||||
|
if ($anvil_uuid) |
||||||
|
{ |
||||||
|
if (exists $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}) |
||||||
|
{ |
||||||
|
my $anvil_networks = get_anvil_networks({ anvil_uuid => $anvil_uuid }); |
||||||
|
|
||||||
|
$response_body->{hosts} = $anvil_networks; |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
handle_invalid_uuid({ name => $anvil_uuid_variable_name, uuid => $anvil_uuid }); |
||||||
|
} |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
handle_invalid_uuid({ name => $anvil_uuid_variable_name, uuid => $anvil_uuid }); |
||||||
|
} |
||||||
|
|
||||||
|
print JSON->new->utf8->encode($response_body)."\n"; |
||||||
@ -0,0 +1,215 @@ |
|||||||
|
#!/usr/bin/perl |
||||||
|
# |
||||||
|
# Accepts a HTTP PUT request to set the cluster membership of a host. |
||||||
|
# |
||||||
|
|
||||||
|
use strict; |
||||||
|
use warnings; |
||||||
|
use Anvil::Tools; |
||||||
|
use Data::Dumper; |
||||||
|
use JSON |
||||||
|
|
||||||
|
$| = 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(); |
||||||
|
|
||||||
|
sub handle_invalid_uuid |
||||||
|
{ |
||||||
|
my $parameters = shift; |
||||||
|
my $name = $parameters->{name}; |
||||||
|
my $uuid = $parameters->{uuid}; |
||||||
|
|
||||||
|
$anvil->Log->entry({ |
||||||
|
source => $THIS_FILE, |
||||||
|
line => __LINE__, |
||||||
|
level => 0, |
||||||
|
'print' => 1, |
||||||
|
priority => "err", |
||||||
|
key => "error_0160", |
||||||
|
variables => { name => $name, uuid => $uuid } |
||||||
|
}); |
||||||
|
$anvil->nice_exit({ exit_code => 1 }); |
||||||
|
} |
||||||
|
|
||||||
|
sub get_active_member |
||||||
|
{ |
||||||
|
my $parameters = shift; |
||||||
|
my $host_uuid = $parameters->{host_uuid}; |
||||||
|
|
||||||
|
my $query = " |
||||||
|
SELECT |
||||||
|
scan_cluster_node_in_ccm, |
||||||
|
scan_cluster_node_crmd_member, |
||||||
|
scan_cluster_node_cluster_member |
||||||
|
FROM |
||||||
|
scan_cluster_nodes |
||||||
|
WHERE |
||||||
|
scan_cluster_node_host_uuid = ".$anvil->Database->quote($host_uuid)." |
||||||
|
"; |
||||||
|
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query } }); |
||||||
|
my $results = $anvil->Database->query({ query => $query, source => $THIS_FILE, line => __LINE__ }); |
||||||
|
my $count = @{$results}; |
||||||
|
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
results => $results, |
||||||
|
count => $count |
||||||
|
} }); |
||||||
|
|
||||||
|
if ($count == 1) |
||||||
|
{ |
||||||
|
my $row = $results->[0]; |
||||||
|
my $is_in_ccm = $row->[0]; |
||||||
|
my $is_crmd_member = $row->[1]; |
||||||
|
my $is_cluster_member = $row->[2]; |
||||||
|
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
is_in_ccm => $is_in_ccm, |
||||||
|
is_crmd_member => $is_crmd_member, |
||||||
|
is_cluster_member => $is_cluster_member |
||||||
|
} }); |
||||||
|
|
||||||
|
return $is_in_ccm && $is_crmd_member && $is_cluster_member; |
||||||
|
} |
||||||
|
|
||||||
|
return 0; |
||||||
|
} |
||||||
|
|
||||||
|
sub alter_host_membership |
||||||
|
{ |
||||||
|
# Expects the first of positional parameters to be a hash. |
||||||
|
my $parameters = shift; |
||||||
|
my $host_uuid = $parameters->{host_uuid}; |
||||||
|
my $is_join_cluster = $parameters->{is_join_cluster}; |
||||||
|
|
||||||
|
if ($is_join_cluster) |
||||||
|
{ |
||||||
|
join_cluster({ host_uuid => $host_uuid }); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
leave_cluster({ host_uuid => $host_uuid }); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# Re-adds a host to its anvil cluster. |
||||||
|
# |
||||||
|
# Note: not to be confused wtih adding a new host the an anvil. |
||||||
|
sub join_cluster |
||||||
|
{ |
||||||
|
my $parameters = shift; |
||||||
|
my $host_uuid = $parameters->{host_uuid}; |
||||||
|
|
||||||
|
# Determine whether host is already a cluster member. |
||||||
|
my $is_active_member = get_active_member({ host_uuid => $host_uuid }); |
||||||
|
# Find out whether the host is online before trying to make it join the cluster. |
||||||
|
my $is_online = $anvil->data->{hosts}{host_uuid}{$host_uuid}{host_status} eq "online" ? 1 : 0; |
||||||
|
|
||||||
|
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
is_active_member => $is_active_member, |
||||||
|
is_online => $is_online |
||||||
|
} }); |
||||||
|
|
||||||
|
if (not $is_active_member && $is_online) |
||||||
|
{ |
||||||
|
$anvil->Database->insert_or_update_jobs({ |
||||||
|
job_command => $anvil->data->{path}{exe}{'anvil-safe-start'}, |
||||||
|
job_host_uuid => $host_uuid, |
||||||
|
job_description => "job_0337", |
||||||
|
job_name => "cgi-bin::set_membership::join", |
||||||
|
job_progress => 0, |
||||||
|
job_title => "job_0336" |
||||||
|
}); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# Removes a host from its anvil cluster. |
||||||
|
# |
||||||
|
# Note: does not permanently remove the host; can be re-added. |
||||||
|
sub leave_cluster |
||||||
|
{ |
||||||
|
my $parameters = shift; |
||||||
|
my $host_uuid = $parameters->{host_uuid}; |
||||||
|
|
||||||
|
# Determine whether host is already a cluster member. |
||||||
|
my $is_active_member = get_active_member({ host_uuid => $host_uuid }); |
||||||
|
|
||||||
|
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||||
|
is_active_member => $is_active_member |
||||||
|
} }); |
||||||
|
|
||||||
|
if ($is_active_member) |
||||||
|
{ |
||||||
|
$anvil->Database->insert_or_update_jobs({ |
||||||
|
job_command => $anvil->data->{path}{exe}{'anvil-safe-stop'}, |
||||||
|
job_host_uuid => $host_uuid, |
||||||
|
job_description => "job_0339", |
||||||
|
job_name => "cgi-bin::set_membership::leave", |
||||||
|
job_progress => 0, |
||||||
|
job_title => "job_0338" |
||||||
|
}); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
$anvil->Get->switches; |
||||||
|
|
||||||
|
$anvil->Database->connect; |
||||||
|
$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}); |
||||||
|
} |
||||||
|
|
||||||
|
# Read in any CGI variables, if needed. |
||||||
|
$anvil->Get->cgi(); |
||||||
|
|
||||||
|
$anvil->Database->get_hosts(); |
||||||
|
$anvil->Database->get_anvils(); |
||||||
|
|
||||||
|
print $anvil->Template->get({file => "shared.html", name => "json_headers", show_name => 0})."\n"; |
||||||
|
|
||||||
|
my $response_body = {}; |
||||||
|
|
||||||
|
my $request_body; |
||||||
|
|
||||||
|
my $is_decode_json_success = eval { |
||||||
|
$request_body = decode_json($anvil->data->{cgi}{PUTDATA}{value}); |
||||||
|
}; |
||||||
|
|
||||||
|
if (not $is_decode_json_success) |
||||||
|
{ |
||||||
|
$anvil->Log->entry({ |
||||||
|
source => $THIS_FILE, |
||||||
|
line => __LINE__, |
||||||
|
level => 0, |
||||||
|
'print' => 1, |
||||||
|
priority => "err", |
||||||
|
key => "error_0304", |
||||||
|
variables => { request_body_string => $anvil->data->{cgi}{PUTDATA}{value}, json_decode_error => $_ } |
||||||
|
}); |
||||||
|
} |
||||||
|
|
||||||
|
my $host_uuid = exists $request_body->{host_uuid} ? $request_body->{host_uuid} : $anvil->data->{switches}{'host-uuid'}; |
||||||
|
# Defaults to join; will check whether host is already part of its anvil cluster. |
||||||
|
my $is_member = exists $request_body->{is_member} ? $request_body->{is_member} : $anvil->data->{switches}{'is-member'}; |
||||||
|
my $host_uuid_variable_name = "host UUID"; |
||||||
|
|
||||||
|
if ($host_uuid) |
||||||
|
{ |
||||||
|
if (exists $anvil->data->{hosts}{host_uuid}{$host_uuid}) |
||||||
|
{ |
||||||
|
alter_host_membership({ host_uuid => $host_uuid, is_join_cluster => $is_member }); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
handle_invalid_uuid({ name => $host_uuid_variable_name, uuid => $host_uuid }); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
print JSON->new->utf8->encode($response_body)."\n"; |
||||||
Loading…
Reference in new issue