seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Local modifications to ClusterLabs/Anvil by Alteeve
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.
3729 Commits
2 Branches
0 Tags
21 MiB
Tag: Branch: Tree: 753358a13b
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '753358a13b'
${ noResults }
anvil/Anvil/Tools/Striker.pm

1811 lines
94 KiB
Raw Normal View History Unescape

* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
package Anvil::Tools::Striker;
#
# This module contains methods used to handle common Striker (webUI) tasks.
#
use strict;
use warnings;
use Data::Dumper;
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
use JSON;
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
use Scalar::Util qw(weaken isweak);
use Text::Diff;
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
our $VERSION = "3.0.0";
my $THIS_FILE = "Striker.pm";
### Methods;
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
# check_httpd_conf
* Renamed Network->match_gateway() to ->is_ip_in_network(), and changed the parameters 'gateway -> ip' and 'ip_address -> network'. This is to clarify it's use as a general purpose "does this IP fall in the given network range?". * Created the shell of Striker->generate_manifest() that will pull out CGI data to generate the install manifest itself and save/update it. * Got step 3 menu finished along with the corresponding sanity checks. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# generate_manifest
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# get_fence_data
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# get_local_repo
# get_peer_data
* Added the ability to store, edit and delete UPSes ** Created Database->get_upses() and ->insert_or_update_upses(). ** Created Striker->get_ups_data(). This parses the special 'ups_XXXX' strings. * Updated Validate->is_domain() and added ->is_host_name() to use the Data::Validate::Domain module (which is now required in the core RPM). * Started work on manifest handling. * Sorted the language keys alphabetically. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# get_ups_data
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# load_manifest
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# parse_all_status_json
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=pod
=encoding utf8
=head1 NAME
Anvil::Tools::Striker
Provides all methods related to the Striker WebUI.
=head1 SYNOPSIS
use Anvil::Tools;
# Get a common object handle on all Anvil::Tools modules.
my $anvil = Anvil::Tools->new();
# Access to methods using '$anvil->Striker->X'.
#
# Example using 'system_call()';
=head1 METHODS
Methods in this module;
=cut
sub new
{
my $class = shift;
my $self = {};
bless $self, $class;
return ($self);
}
# Get a handle on the Anvil::Tools object. I know that technically that is a sibling module, but it makes more
# sense in this case to think of it as a parent.
sub parent
{
my $self = shift;
my $parent = shift;
$self->{HANDLE}{TOOLS} = $parent if $parent;
# Defend against memory leads. See Scalar::Util'.
if (not isweak($self->{HANDLE}{TOOLS}))
{
weaken($self->{HANDLE}{TOOLS});
}
return ($self->{HANDLE}{TOOLS});
}
#############################################################################################################
# Public methods #
#############################################################################################################
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
=head2 check_httpd_conf
This checks the apache configuration file to ensure it's setup for the Striker dashboard and RPM repository. This method does nothing if called on non-striker dashboard.
This method takes no parameters.
=cut
sub check_httpd_conf
{
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 => "Striker->check_httpd_conf()" }});
fix(Anvil): use augeas to modify Apache conf
3 years ago
if (not -s $anvil->data->{path}{data}{httpd_conf})
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
{
fix(Anvil): abort when no new Apache conf created
3 years ago
# The apache config file doesn't exist or is empty; abort.
fix(Anvil): use augeas to modify Apache conf
3 years ago
return(0);
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
}
fix(Anvil): use augeas to modify Apache conf
3 years ago
my $is_write = 0;
my $write_shell_call = $anvil->data->{path}{exe}{augtool}." --new <<EOF\n";
my $read_shell_call;
my $shell_output;
my $shell_return_code;
my $augtool_path;
$augtool_path = "/files".$anvil->data->{path}{data}{httpd_conf}."/IfModule[arg='dir_module']/directive[.='DirectoryIndex']/arg[1]";
$read_shell_call = $anvil->data->{path}{exe}{augtool}." <<EOF\nmatch ".$augtool_path."\nquit\nEOF\n";
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $read_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $read_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
if (($shell_return_code == 0) and ($shell_output =~ /^\//))
{
$is_write = 1;
# Set DirectoryIndex to cgi-bin/striker.
$write_shell_call .= "set ".$augtool_path." cgi-bin/striker\n";
}
my $header_name = "Access-Control-Allow-Origin";
$augtool_path = "/files".$anvil->data->{path}{data}{httpd_conf}."/Directory[arg='\"/var/www/cgi-bin\"']/directive[.='Header']";
fix(Anvil): search all args for Access-Control value
3 years ago
$read_shell_call = $anvil->data->{path}{exe}{augtool}." <<EOF\nmatch ".$augtool_path."/arg[.='".$header_name."']\nquit\nEOF\n";
fix(Anvil): use augeas to modify Apache conf
3 years ago
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $read_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $read_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
if (($shell_return_code == 0) and (not $shell_output =~ /^\//))
{
$is_write = 1;
my $last_header_arg = $augtool_path."[last()]/arg";
# Add header Access-Control-Allow-Origin "all" to cgi-bin scripts.
$write_shell_call .= "set ".$augtool_path."[last()+1] Header\n";
$write_shell_call .= "set ".$last_header_arg."[1] set\n";
$write_shell_call .= "set ".$last_header_arg."[2] ".$header_name."\n";
$write_shell_call .= "set ".$last_header_arg."[3] \\\"*\\\"\n";
}
$augtool_path = "/files".$anvil->data->{path}{data}{httpd_conf}."/Directory[arg='\"/var/www/html\"']/IfModule";
$read_shell_call = $anvil->data->{path}{exe}{augtool}." <<EOF\nmatch ".$augtool_path."[arg='rewrite_module']\nquit\nEOF\n";
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $read_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $read_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
if (($shell_return_code == 0) and (not $shell_output =~ /^\//))
{
$is_write = 1;
my $last_ifmodule_directive = $augtool_path."[last()]/directive";
my $new_directive = $last_ifmodule_directive."[last()+1]";
my $rewriteengine_directive = "RewriteEngine";
my $rewritecond_directive = "RewriteCond";
my $rewriterule_directive = "RewriteRule";
# Insert rewrite rules to redirect /page to /page.html.
# Create IfModule block to avoid setting the rewrite rules when the rewrite module isn't available.
$write_shell_call .= "set ".$augtool_path."[last()+1]/arg[1] rewrite_module\n";
# Turn on the rewrite engine to enable rewriting.
$write_shell_call .= "set ".$new_directive." ".$rewriteengine_directive."\n";
$write_shell_call .= "set ".$last_ifmodule_directive."[.='".$rewriteengine_directive."']/arg[1] on\n";
my $last_rewriterule_arg = $last_ifmodule_directive."[.='".$rewriterule_directive."'][last()]/arg";
# Set rule #1: remove all trailing slashes from the URI.
$write_shell_call .= "set ".$new_directive." ".$rewriterule_directive."\n";
$write_shell_call .= "set ".$last_rewriterule_arg."[1] ^(.*)/+\$\n";
$write_shell_call .= "set ".$last_rewriterule_arg."[2] \\\$1\n";
my $last_rewritecond_arg = $last_ifmodule_directive."[.='".$rewritecond_directive."'][last()]/arg";
# Set rule #2: redirect to [basename].html if it exists.
$write_shell_call .= "set ".$new_directive." ".$rewritecond_directive."\n";
$write_shell_call .= "set ".$last_rewritecond_arg."[1] %{REQUEST_FILENAME}.html\n";
$write_shell_call .= "set ".$last_rewritecond_arg."[2] -f\n";
$write_shell_call .= "set ".$new_directive." ".$rewriterule_directive."\n";
$write_shell_call .= "set ".$last_rewriterule_arg."[1] ![^/]+[.]html\$\n";
$write_shell_call .= "set ".$last_rewriterule_arg."[2] %{REQUEST_FILENAME}.html\n";
$write_shell_call .= "set ".$last_rewriterule_arg."[3] [L]\n";
}
fix(Anvil): config Apache to forward requests to Striker UI API
3 years ago
# Attempt to setup forwarding from the Apache server to the Striker UI API.
$augtool_path = "/files".$anvil->data->{path}{data}{httpd_conf}."/Location[arg='\"/api\"']";
$read_shell_call = $anvil->data->{path}{exe}{augtool}." <<EOF\nmatch ".$augtool_path."\nquit\nEOF\n";
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $read_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $read_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
if (($shell_return_code == 0) and (not $shell_output =~ /^\//))
{
$is_write = 1;
my $new_ifmodule_directive = $augtool_path."/IfModule[arg='proxy_module']";
my $striker_ui_api_url = "http://localhost:8080/api";
$write_shell_call .= "set ".$augtool_path =~ s/(Location)[^\s]+$/$1/r."[last()+1]/arg[1] '\"/api\"'\n";
$write_shell_call .= "set ".$augtool_path."/IfModule[last()+1]/arg[1] 'proxy_module'\n";
$write_shell_call .= "set ".$new_ifmodule_directive."/directive[last()+1] 'ProxyPass'\n";
$write_shell_call .= "set ".$new_ifmodule_directive."/directive[.='ProxyPass']/arg[1] '".$striker_ui_api_url."'\n";
}
fix(Anvil): use augeas to modify Apache conf
3 years ago
if ($is_write)
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
{
fix(Anvil): use augeas to modify Apache conf
3 years ago
$write_shell_call .= "save\nquit\nEOF\n";
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $write_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $write_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
my $new_httpd_conf = $anvil->data->{path}{data}{httpd_conf}.".augnew";
fix(Anvil): abort when no new Apache conf created
3 years ago
if (not -s $new_httpd_conf)
{
# No new conf file created; abort.
return(0);
}
fix(Anvil): add clean up logic when failed to validate Apache conf after modify
3 years ago
my $diff_output = diff $anvil->data->{path}{data}{httpd_conf}, $new_httpd_conf, { STYLE => 'Unified' };
fix(Anvil): use augeas to modify Apache conf
3 years ago
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => { diff_output => $diff_output } });
# Test the new config file before overwriting.
$read_shell_call = $anvil->data->{path}{exe}{httpd}." -t -f ".$new_httpd_conf;
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $read_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $read_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
if ($shell_return_code == 0)
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
{
fix(Anvil): use augeas to modify Apache conf
3 years ago
# No issues found during the test; proceed to overwriting.
$anvil->Storage->backup({ debug => $debug, file => $anvil->data->{path}{data}{httpd_conf} });
$write_shell_call = $anvil->data->{path}{exe}{mv}." -f ".$new_httpd_conf." ".$anvil->data->{path}{data}{httpd_conf};
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $write_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $write_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
$anvil->Storage->change_mode({ debug => $debug, path => $anvil->data->{path}{data}{httpd_conf}, mode => "0644" });
$anvil->Storage->change_owner({ debug => $debug, path => $anvil->data->{path}{data}{httpd_conf}, user => "root", group => "root" });
$anvil->System->restart_daemon({ debug => $debug, daemon => $anvil->data->{sys}{daemon}{httpd} });
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
}
fix(Anvil): add clean up logic when failed to validate Apache conf after modify
3 years ago
else
{
# Found issues during the test; clean up.
$write_shell_call = $anvil->data->{path}{exe}{rm}." -f ".$new_httpd_conf;
($shell_output, $shell_return_code) = $anvil->System->call({ shell_call => $write_shell_call });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => {
shell_call => $write_shell_call,
shell_output => $shell_output,
shell_return_code => $shell_return_code
} });
}
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
}
fix(Anvil): use augeas to modify Apache conf
3 years ago
* Added a new parameter called 'sensitive' to Database->connect() that returns after connections before any ancilliary checks are done, minimizing connect time. * Fixed a problem with Database->insert_or_update_variables() where variable_source_uuid being set to an empty string wasn't converted to NULL. * Fixed Database->locking() where the way the lock variable was set was rather broken. * Created Striker->check_httpd_conf() which configured apache to handle the integration of the new WebUI for Anvil! management with the existing WebUI. * Updated System->update_hosts() to specifically set the 127.0.0.1 and ::1 lines to handle how cloud-init overrides /etc/hosts and breaks CI/CD tests. * Removed the old index.html as it's now used for the new WebUI. * Began work on removing DB connection requirements from ocf:alteeve:server. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
return(0);
}
* Renamed Network->match_gateway() to ->is_ip_in_network(), and changed the parameters 'gateway -> ip' and 'ip_address -> network'. This is to clarify it's use as a general purpose "does this IP fall in the given network range?". * Created the shell of Striker->generate_manifest() that will pull out CGI data to generate the install manifest itself and save/update it. * Got step 3 menu finished along with the corresponding sanity checks. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=head2 generate_manifest
Working on a bug where broken manifests are saved. * Updated Striker->generate_manifest() to add pod and make the prefix, sequence and domain parameters required. * Created the check_for_broken_manifests() function for anvil-daemon to detect/remove broken manifests. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
This reads the CGI data coming from the manifest form to generate the manifest XML. On success, the C<< manifest_uuid >>, and C<< manifest_uuid >> are returned. If there's a problem, C<< !!error!! >> is returned.
Parameters;
=head3 dns (optional)
This is a comma-separated list of DNS servers to use.
=head3 domain (required)
This is the domain name to use for this Anvil! node.
=head3 manifest_uuid (optional)
This allows updating an existing mannifest, or specifying the manifest UUID to use for the new manifest.
=head3 mtu (optional)
This allows specifying a custome MTU (maximum transmission unit) size. Only use this if you know all network devices support this MTU size!
=head3 ntp (optional)
This allows specifying a custom NTP (network time protocol) server to use to sync the subnode's time against.
=head3 prefix (required)
This is the node's descriptive prefix (usually 1~5 characters).
=head3 sequence (required)
This is an integer, 1 or higher, indication the node's sequence number.
* Renamed Network->match_gateway() to ->is_ip_in_network(), and changed the parameters 'gateway -> ip' and 'ip_address -> network'. This is to clarify it's use as a general purpose "does this IP fall in the given network range?". * Created the shell of Striker->generate_manifest() that will pull out CGI data to generate the install manifest itself and save/update it. * Got step 3 menu finished along with the corresponding sanity checks. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=cut
sub generate_manifest
{
my $self = shift;
my $parameter = shift;
my $anvil = $self->parent;
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $debug = $parameter->{debug} // 3;
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0125", variables => { method => "Striker->generate_manifest()" }});
fix: allow param override in generate_manifest in Striker.pm
2 years ago
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
my $network_dns = $parameter->{dns} // $anvil->data->{cgi}{dns}{value};
my $domain = $parameter->{domain} // $anvil->data->{cgi}{domain}{value};
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $manifest_uuid = $parameter->{manifest_uuid} // $anvil->data->{cgi}{manifest_uuid}{value};
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
my $network_mtu = $parameter->{mtu} // $anvil->data->{cgi}{mtu}{value};
my $network_ntp = $parameter->{ntp} // $anvil->data->{cgi}{ntp}{value};
my $name_prefix = $parameter->{prefix} // $anvil->data->{cgi}{prefix}{value};
my $padded_sequence = $parameter->{sequence} // $anvil->data->{cgi}{sequence}{value};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
network_dns => $network_dns,
domain => $domain,
manifest_uuid => $manifest_uuid,
network_mtu => $network_mtu,
network_ntp => $network_ntp,
name_prefix => $name_prefix,
padded_sequence => $padded_sequence,
}});
* Renamed Network->match_gateway() to ->is_ip_in_network(), and changed the parameters 'gateway -> ip' and 'ip_address -> network'. This is to clarify it's use as a general purpose "does this IP fall in the given network range?". * Created the shell of Striker->generate_manifest() that will pull out CGI data to generate the install manifest itself and save/update it. * Got step 3 menu finished along with the corresponding sanity checks. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
Working on a bug where broken manifests are saved. * Updated Striker->generate_manifest() to add pod and make the prefix, sequence and domain parameters required. * Created the check_for_broken_manifests() function for anvil-daemon to detect/remove broken manifests. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
if (not $domain)
{
# No target...
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0020", variables => { method => "Striker->generate_manifest()", parameter => "domain" }});
return('!!error!!', '!!error!!');
}
if (not $name_prefix)
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0020", variables => { method => "Striker->generate_manifest()", parameter => "name_prefix" }});
return('!!error!!', '!!error!!');
}
if (not $padded_sequence)
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0020", variables => { method => "Striker->generate_manifest()", parameter => "padded_sequence" }});
return('!!error!!', '!!error!!');
}
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Database->get_upses({debug => $debug});
$anvil->Database->get_fences({debug => $debug});
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
if ($manifest_uuid eq "new")
{
$manifest_uuid = "";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { manifest_uuid => $manifest_uuid }});
}
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if (length($padded_sequence) == 1)
{
$padded_sequence = sprintf("%02d", $padded_sequence);
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { padded_sequence => $padded_sequence }});
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $anvil_name = $name_prefix."-anvil-".$padded_sequence;
my $node1_name = $name_prefix."-a".$padded_sequence."n01";
my $node2_name = $name_prefix."-a".$padded_sequence."n02";
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $machines = {};
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
anvil_name => $anvil_name,
node1_name => $node1_name,
node2_name => $node2_name,
}});
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $manifest_xml = '<?xml version="1.0" encoding="UTF-8"?>
fix: allow param override in generate_manifest in Striker.pm
2 years ago
<install_manifest name="'.$anvil_name.'" domain="'.$domain.'">
<networks mtu="'.$network_mtu.'" dns="'.$network_dns.'" ntp="'.$network_ntp.'">
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
';
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
foreach my $network ("bcn", "ifn", "sn", "mn")
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
my $count_key = $network."_count";
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $count_value = $parameter->{$count_key} // $anvil->data->{cgi}{$count_key}{value};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { "${count_key}" => $count_value }});
foreach my $i (1..$count_value)
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $network_name = $network.$i;
my $network_key = $network_name."_network";
my $network_value = $parameter->{$network_key} // $anvil->data->{cgi}{$network_key}{value};
my $subnet_key = $network_name."_subnet";
my $subnet_value = $parameter->{$subnet_key} // $anvil->data->{cgi}{$subnet_key}{value};
my $gateway_key = $network_name."_gateway";
my $gateway_value = $parameter->{$gateway_key} // $anvil->data->{cgi}{$gateway_key}{value};
$manifest_xml .= ' <network name="'.$network_name.'" network="'.$network_value.'" subnet="'.$subnet_value.'" gateway="'.$gateway_value.'" />'."\n";
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# While we're here, gather the network data for the machines.
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
foreach my $machine ("node1", "node2")
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
# Record the network
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $ip_key = $machine."_".$network_name."_ip";
my $ip_value = ($parameter->{$ip_key} // $anvil->data->{cgi}{$ip_key}{value}) // "";
$machines->{$machine}{network}{$network_name} = $ip_value;
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# On the first loop (bcn1), pull in the other information as well.
if (($network eq "bcn") && ($i eq "1"))
{
# Get the IP.
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $ipmi_ip_key = $machine."_ipmi_ip";
my $ipmi_ip_value = ($parameter->{$ipmi_ip_key} // $anvil->data->{cgi}{$ipmi_ip_key}{value}) // "";
$machines->{$machine}{ipmi_ip} = $ipmi_ip_value;
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Find the UPSes.
foreach my $ups_name (sort {$a cmp $b} keys %{$anvil->data->{upses}{ups_name}})
{
my $ups_key = $machine."_ups_".$ups_name;
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $ups_value = ($parameter->{$ups_key} // $anvil->data->{cgi}{$ups_key}{value}) // "";
$machines->{$machine}{ups}{$ups_name} = $ups_value ? "1" : "0";
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
# Find the Fence devices.
foreach my $fence_name (sort {$a cmp $b} keys %{$anvil->data->{fences}{fence_name}})
{
fix: allow param override in generate_manifest in Striker.pm
2 years ago
my $fence_key = $machine."_fence_".$fence_name;
my $fence_value = ($parameter->{$fence_key} // $anvil->data->{cgi}{$fence_key}{value}) // "";
$machines->{$machine}{fence}{$fence_name} = $fence_value;
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
}
}
}
}
$manifest_xml .= ' </networks>
<upses>
';
# We don't store information about the UPS as it may change over time. We just need the reference.
foreach my $ups_name (sort {$a cmp $b} keys %{$anvil->data->{upses}{ups_name}})
{
$manifest_xml .= ' <ups name="'.$ups_name.'" uuid="'.$anvil->data->{upses}{ups_name}{$ups_name}{ups_uuid}.'" />
';
}
$manifest_xml .= ' </upses>
<fences>
';
# We don't store information about the UPS as it may change over time. We just need the reference.
foreach my $fence_name (sort {$a cmp $b} keys %{$anvil->data->{fences}{fence_name}})
{
$manifest_xml .= ' <fence name="'.$fence_name.'" uuid="'.$anvil->data->{fences}{fence_name}{$fence_name}{fence_uuid}.'" />
';
}
$manifest_xml .= ' </fences>
<machines>
';
* Finished the menus to save a new Install Manifest and got the create page showing the existing manifests. * Updated Database->insert_or_update_manifests() so that not passing in 'manifest_last_ran' is OK. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Now record the info about the machines.
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $machine (sort {$a cmp $b} keys %{$machines})
{
* Updated Striker->generate_manifest() to remove integral DR support and add migration-network support. This helps address issue #440. Signed-off-by: digimer <mkelly@alteeve.ca>
1 year ago
my $host_name = "";
if ($machine eq "node1") { $host_name = $node1_name; }
if ($machine eq "node2") { $host_name = $node2_name; }
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { host_name => $host_name }});
* Got the new Striker->generate_manifest() generating the manifest XML. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$manifest_xml .= ' <'.$machine.' name="'.$host_name.'" ipmi_ip="'.$machines->{$machine}{ipmi_ip}.'">
<networks>
';
foreach my $network_name (sort {$a cmp $b} keys %{$machines->{$machine}{network}})
{
$manifest_xml .= ' <network name="'.$network_name.'" ip="'.$machines->{$machine}{network}{$network_name}.'" />
';
}
$manifest_xml .= ' </networks>
<upses>
';
foreach my $ups_name (sort {$a cmp $b} keys %{$machines->{$machine}{ups}})
{
$manifest_xml .= ' <ups name="'.$ups_name.'" used="'.$machines->{$machine}{ups}{$ups_name}.'" />
';
}
$manifest_xml .= ' </upses>
<fences>
';
foreach my $fence_name (sort {$a cmp $b} keys %{$machines->{$machine}{fence}})
{
$manifest_xml .= ' <fence name="'.$fence_name.'" port="'.$machines->{$machine}{fence}{$fence_name}.'" />
';
}
$manifest_xml .= ' </fences>
</'.$machine.'>
';
}
$manifest_xml .= ' </machines>
</install_manifest>
';
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { manifest_xml => $manifest_xml }});
* Renamed Network->match_gateway() to ->is_ip_in_network(), and changed the parameters 'gateway -> ip' and 'ip_address -> network'. This is to clarify it's use as a general purpose "does this IP fall in the given network range?". * Created the shell of Striker->generate_manifest() that will pull out CGI data to generate the install manifest itself and save/update it. * Got step 3 menu finished along with the corresponding sanity checks. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Finished the menus to save a new Install Manifest and got the create page showing the existing manifests. * Updated Database->insert_or_update_manifests() so that not passing in 'manifest_last_ran' is OK. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Now save the manifest!
($manifest_uuid) = $anvil->Database->insert_or_update_manifests({
debug => $debug,
manifest_uuid => $manifest_uuid,
manifest_name => $anvil_name,
manifest_xml => $manifest_xml,
});
return($manifest_uuid, $anvil_name);
* Renamed Network->match_gateway() to ->is_ip_in_network(), and changed the parameters 'gateway -> ip' and 'ip_address -> network'. This is to clarify it's use as a general purpose "does this IP fall in the given network range?". * Created the shell of Striker->generate_manifest() that will pull out CGI data to generate the install manifest itself and save/update it. * Got step 3 menu finished along with the corresponding sanity checks. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Created Database->get_bridges() that, surprise, loads data from the 'bridges' table. * Started work on Get->available_resources() that will take an 'anvil_uuid' and figure out what resources are still available for use by new servers or that can be added to existing servers. * Fixed a bug in ScanCore->agent_startup() where tables weren't being generated properly from the agent's SQL file. * Made Storage->change_mode() return silently if it's called without a mode being passed. This happens frequently and is harmless so it's not worth filling the logs with errors. * Renamed the 'start_time' key to 'at_start' when recording files' MD5 sums in Storage->record_md5sums and ->check_md5sums. * When we moved the directory scan logic out of the 'scancore' daemon and into 'Storage->scan_directory', the logic to record scan agent names in 'scancore::agent::<file>' was removed. This broke a few things and, so, it was restored when it was found that a file starts with 'scan-' and the directory matches the scancore agent directory. * Moved the 'scancore' daemon's 'load_agent_strings' to 'Words' * Updated Words->parse_banged_string() to look for variables in the format 'value=X:units=Y' and translate it properly. * Fixed a bug in scan-ipmitool where discovered sensor INSERT SQL queries were queued, but not committed. * Fixed a bug in scan-storcli where a while loop was broken, preventing execution. * Fixed a bug in the 'scancore' daemon where it wouldn't exit if sums changed. Fixed a bug where alerts weren't being sent between loops. Fixed a bug where command-line log level wasn't surviving inside the main loop. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=head2 get_fence_data
This parses the unified metadata file from the avaialable fence_devices on this host. If the unified file (location stored in C<< path::data::fences_unified_metadata >>, default is C<< /tmp/fences_unified_metadata.xml >> is not found or fails to parse, C<< 1 >> is returned. If the file is successfully parsed. C<< 0 >> is returned.
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
The parsed data is stored under C<< fence_data::<agent_name>::... >>.
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=cut
sub get_fence_data
{
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 => "Striker->get_fence_data()" }});
my $parsed_xml = "";
Updated anvil-parse-fence-agents to validate each fence agent's metadata is valid before adding it to the unified XML. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
my $xml_body = $anvil->Storage->read_file({
debug => $debug,
file => $anvil->data->{path}{data}{fences_unified_metadata},
});
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Globally replace \fI (opening underline) with '[' and \fP (closing underline) with ']'.
$xml_body =~ s/\\fI/[/gs;
$xml_body =~ s/\\fP/]/gs;
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { xml_body => $xml_body }});
if ($xml_body =~ /<\?xml version="1.0" \?>/gs)
{
my $xml = XML::Simple->new();
eval { $parsed_xml = $xml->XMLin($xml_body, KeyAttr => { key => 'name' }, ForceArray => []) };
if ($@)
{
chomp $@;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "error_0111", variables => {
xml_body => $xml_body,
eval_error => $@,
}});
* Got server migration working using ocf:alteeve:server in a test environment! * Converted most 'eval { }' calls to localize $@ and test the output of the eval, instead of checking to see if $@ was set. * Converted all 'local' hash references to instead use the short host name of the local machine as a new standard. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
# Clear the error so it doesn't propogate out to a future 'die' and confuse things.
$@ = '';
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
return(1);
}
}
else
{
$anvil->nice_exit({exit_code => 1});
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "error_0112"});
return(1);
}
foreach my $agent_ref (@{$parsed_xml->{agent}})
{
* Finished adding support for deleting fence agents. * Added the 'include_deleted' parameter to Database->get_fences(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $fence_agent = $agent_ref->{name};
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{description} = $agent_ref->{'resource-agent'}->{longdesc};
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::description" => $anvil->data->{fence_data}{$fence_agent}{description},
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
if (exists $agent_ref->{'resource-agent'}->{'symlink'})
{
if (ref($agent_ref->{'resource-agent'}->{'symlink'}) eq "ARRAY")
{
foreach my $hash_ref (@{$agent_ref->{'resource-agent'}->{'symlink'}})
{
my $name = $hash_ref->{name};
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{'symlink'}{$name} = $hash_ref->{shortdesc};
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::symlink::${name}" => $anvil->data->{fence_data}{$fence_agent}{'symlink'}{$name},
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
}
else
{
my $name = $agent_ref->{'resource-agent'}->{'symlink'}->{name};
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{'symlink'}{$name} = $agent_ref->{'resource-agent'}->{'symlink'}->{shortdesc};
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::symlink::${name}" => $anvil->data->{fence_data}{$fence_agent}{'symlink'}{$name},
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
}
foreach my $hash_ref (@{$agent_ref->{'resource-agent'}->{parameters}{parameter}})
{
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# We ignore some parameters that are not useful parameters in our case.
my $name = $hash_ref->{name};
* OK, this time CentOS is actually supported. For reals. ** Needed to add a couple more packages to CentOS's package list. ** Changed the PXE kickstart template to create a dedicated '/boot' partition (raw partition or on RAID 1). This seems to be required now on 8.1. ** Added PXE's UEFI support to the template system (untested, but it's at least generated now). * Filtered out 'debug' and 'verbose' options when configuring fence devices. * Added an internet test to tools/striker-manage-install-target and skipped attempting to download packages when there's no internet. Also made loading the host OS info into a small function. * Started creating the man pages. Signed-off-by: Madison Kelly <mkelly@alteeve.ca>
5 years ago
next if $name =~ /debug/;
* Filtered out 'delay' and 'plug' options from Striker->get_fence_data()'s options parsing. * Cleaned up striker's display of fence agent data. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
next if $name eq "delay";
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
next if $name eq "help";
next if $name eq "version";
next if $name eq "separator";
* Filtered out 'delay' and 'plug' options from Striker->get_fence_data()'s options parsing. * Cleaned up striker's display of fence agent data. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
next if $name eq "plug";
* Cleaned up a couple things in the fence config menu. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
next if $name =~ /snmp(.*?)_path/;
* OK, this time CentOS is actually supported. For reals. ** Needed to add a couple more packages to CentOS's package list. ** Changed the PXE kickstart template to create a dedicated '/boot' partition (raw partition or on RAID 1). This seems to be required now on 8.1. ** Added PXE's UEFI support to the template system (untested, but it's at least generated now). * Filtered out 'debug' and 'verbose' options when configuring fence devices. * Added an internet test to tools/striker-manage-install-target and skipped attempting to download packages when there's no internet. Also made loading the host OS info into a small function. * Started creating the man pages. Signed-off-by: Madison Kelly <mkelly@alteeve.ca>
5 years ago
next if $name eq "verbose";
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $unique = exists $hash_ref->{unique} ? $hash_ref->{unique} : 0;
my $required = exists $hash_ref->{required} ? $hash_ref->{required} : 0;
my $deprecated = exists $hash_ref->{deprecated} ? $hash_ref->{deprecated} : 0;
my $obsoletes = exists $hash_ref->{obsoletes} ? $hash_ref->{obsoletes} : 0;
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{unique} = $unique;
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{required} = $required;
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{deprecated} = $deprecated;
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{obsoletes} = $obsoletes;
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{description} = $hash_ref->{shortdesc}->{content};
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{description} =~ s/\n/ /g;
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{switches} = defined $hash_ref->{getopt}->{mixed} ? $hash_ref->{getopt}->{mixed} : "";
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type} = $hash_ref->{content}->{type};
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::parameters::${name}::unique" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{unique},
"fence_data::${fence_agent}::parameters::${name}::required" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{required},
"fence_data::${fence_agent}::parameters::${name}::deprecated" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{deprecated},
"fence_data::${fence_agent}::parameters::${name}::obsoletes" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{obsoletes},
"fence_data::${fence_agent}::parameters::${name}::description" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{description},
"fence_data::${fence_agent}::parameters::${name}::switches" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{switches},
"fence_data::${fence_agent}::parameters::${name}::content_type" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type},
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Added 'fence_delay' fence agent to handle the corner cases where an IPMI BMC had crashed until a power cycle, and PDU fencing was effected, but failed to report as such. * Updated Cluster->parse_cib() to take a CIB as a parameter. * Fixed a bug in Database->get_hosts() where loading the host_ipmi value was filtered through Log->is_secure. * Updated Striker->get_fence_data() to parse the switches to make it easier to map a fence agent's command line switches to STDIN arguments. * Created System->parse_arguments() that converts a series of command line switches and their values into a hash. It's similar to Get->switches(), but works on any string. * Continued work on anvil-join-anvil's fence configuration logic. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
# Make it easier to tranlate a switch to a parameter name.
if ($anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{switches})
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
fence_agent => $fence_agent,
name => $name,
}});
foreach my $switch (split/,/, $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{switches})
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { '>> switch' => $switch }});
$switch =~ s/=.*$//;
$switch =~ s/\s//g;
$switch =~ s/^-{1,2}//;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { '<< switch' => $switch }});
$anvil->data->{fence_data}{$fence_agent}{switch}{$switch}{name} = $name;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"fence_data::${fence_agent}::switch::${switch}::name" => $anvil->data->{fence_data}{$fence_agent}{switch}{$switch}{name},
}});
}
}
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# 'action' is a string, but it has a set list of allowed values, so we manually switch it to a 'select' for the web interface
if ($name eq "action")
{
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'} = exists $hash_ref->{content}->{'default'} ? $hash_ref->{content}->{'default'} : "";
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type} = "select";
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{options} = [];
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Read the action
* Fixed a bug where fence option values with double-quotes where not being stored correctly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
#print "Agent: [".$fence_agent."]; actions (default: [".$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'}."]);\n";
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $array_ref (sort {$a cmp $b} @{$agent_ref->{'resource-agent'}->{actions}->{action}})
{
# There are several options that don't make sense for us.
next if $array_ref->{name} eq "list";
next if $array_ref->{name} eq "monitor";
next if $array_ref->{name} eq "manpage";
next if $array_ref->{name} eq "status";
next if $array_ref->{name} eq "validate-all";
next if $array_ref->{name} eq "list-status";
next if $array_ref->{name} eq "metadata";
next if $array_ref->{name} eq "on";
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
push @{$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{options}}, $array_ref->{name};
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $option (sort {$a cmp $b} @{$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{options}})
* Fixed several issues with the fence configuration menu in striker. * Added filters Striker->get_fence_data() for parameters. Manually change 'action' entries from 'string' to 'select' and use the data in the 'actions' element to populate it, with actions that don't make sense filtered out. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { option => $option }});
}
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
elsif ($anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type} eq "string")
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'} = exists $hash_ref->{content}->{'default'} ? $hash_ref->{content}->{'default'} : "";
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::parameters::${name}::default" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'},
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
elsif ($anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type} eq "select")
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{options} = [];
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $option_ref (@{$hash_ref->{content}->{option}})
{
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
push @{$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{options}}, $option_ref->{value};
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $option (sort {$a cmp $b} @{$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{options}})
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { option => $option }});
}
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
elsif ($anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type} eq "boolean")
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
# Nothing to collect here.
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
elsif ($anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type} eq "second")
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
# Nothing to collect here.
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'} = exists $hash_ref->{content}->{'default'} ? $hash_ref->{content}->{'default'} : "";
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::parameters::${name}::default" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'},
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
elsif ($anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{content_type} eq "integer")
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
# Nothing to collect here.
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'} = exists $hash_ref->{content}->{'default'} ? $hash_ref->{content}->{'default'} : "";;
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::parameters::${name}::default" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{'default'},
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# If this obsoletes another parameter, mark it as such.
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{replacement} = "" if not exists $anvil->data->{fence_data}{$fence_agent}{parameters}{$name}{replacement};
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if ($obsoletes)
{
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{parameters}{$obsoletes}{replacement} = $name;
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"fence_data::${fence_agent}::parameters::${obsoletes}::replacement" => $anvil->data->{fence_data}{$fence_agent}{parameters}{$obsoletes}{replacement},
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{fence_data}{$fence_agent}{actions} = [];
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $hash_ref (@{$agent_ref->{'resource-agent'}->{actions}{action}})
{
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
push @{$anvil->data->{fence_data}{$fence_agent}{actions}}, $hash_ref->{name};
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Created Database->get_fences() to load existing fence devices into memory. * Removed fences -> fence_type from the database schema, wasn't needed. * Updated Striker->get_fence_data() to store data in the 'fence_data' parent hash so to not conflict with 'fences' used in Database->get_fences(). * Got the saving and loading of fence devices working. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $action (sort {$a cmp $b} @{$anvil->data->{fence_data}{$fence_agent}{actions}})
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { action => $action }});
}
}
* THe get_cpu endpoint was completed. * The get_mmeory endpoint was completed. * The get_replicated_storage endpoint was completed, though it requires testing and likely has issues. To prepare for the get_status endpoint work, I needed to update ScanCore and modules to track the host_status. This commit contains the work needed for this. * Updated ScanCore->post_scan_analysis_striker() to use configured fence devices (except PDUs) to check if a target host is off or on, in there is no host_ipmi interface. In all cases, if a machine can be confirmed on or off, the host_status is now updated. * To support the above fence based power checks, updated scan-cluster to store the on-disk CIB in the new scan_cluster -> scan_cluster_cib colume. * Updated ScanCore->parse_cib() to map stonith primitive IDs to fence agents. Updated ->parse_crm_mon() to not call if the executable doesn't exist to avoid unhelpful error messages in the logs when called from a Striker. * Update DRBD->gather_data() to get the size data from /sys/block/drbd<minor>/size' x '/sys/block/drbd<minor>/queue/logical_block_size so it works when a device is Secondary (and can't be promoted). * Updated Database->get_hosts_info() to record the short host name as well as the stored host name. Created ->update_host_status() as a wrapper to ->insert_or_update_hosts() that only updates the host status. * Updated anvil-join-anvil to disabled ksm and ksmtuned daemons. * Updated scancore and anvil-daemon to set the host_status to 'online' on startup. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
# ScanCore will load this to check nodes that are not accessible. To reduce load, as this is an
# expensive call, this time is set so a caller can decide if the data should be updated.
* Started work on, but not at all finished, anvil-manage-server which will allow manipulation of a server's resources. * Changed the alteeve repo RPM to the new cimmunity/enterprise repo * Fixed a bug where 'fence_data::updated' was causing the fences web page to break. * Fixed a bug in Database->insert_or_update_network_interfaces() where certain interfaces were being repeatedly added to the database. * Fixed a bug in Database->_find_behind_databases() was marking DBs as behind even though they had less than 10 columns off. * Fixed a bug in Get->host_name() where, if the host name was changed on disk but the environment variable was still the old name, it would cause the hostname to waffle back and forth and cause constant updated to /etc/hosts. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->data->{sys}{fence_data_updated} = time;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"sys::fence_data_updated" => $anvil->data->{sys}{fence_data_updated},
}});
* Created tools/striker-parse-fence-agents which finds all the available fence agents on a system and gathers their metadata into a common XML file. * Created Striker->get_fence_data() that reads/parses the unified fence metadata file created by tools/striker-parse-fence-agents. * Created the new 'fences' database table and Database->insert_or_update_fences() to handle it. * Added hosts -> host_ipmi that will, later, store information on how to access the host's IPMI interface, when available. * Sketched out how the new Install Manifests are going to work. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
return(0);
}
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=head2 get_local_repo
This builds the body of an RPM repo for the local machine. If, for some reason, this machine can't be used as a repo, an empty string will be returned.
The method takes no paramters.
=cut
sub get_local_repo
{
my $self = shift;
my $parameter = shift;
my $anvil = $self->parent;
my $debug = defined $parameter->{debug} ? $parameter->{debug} : 3;
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0125", variables => { method => "Striker->get_local_repo()" }});
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# What is the repo directory?
my $document_root = "";
my $httpd_conf = $anvil->Storage->read_file({file => $anvil->data->{path}{data}{httpd_conf} });
foreach my $line (split/\n/, $httpd_conf)
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { line => $line }});
if ($line =~ /^DocumentRoot\s+"(\/.*?)"/)
{
$document_root = $1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { document_root => $document_root }});
last;
}
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { document_root => $document_root }});
if (not $document_root)
{
# Problem with apache.
return("");
}
$anvil->Storage->scan_directory({
debug => $debug,
directory => $document_root,
recursive => 1,
no_files => 1,
search_for => "repodata",
});
my $directory = "";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { "scan::searched" => $anvil->data->{scan}{searched} }});
if ($anvil->data->{scan}{searched})
{
$directory = $anvil->data->{scan}{searched};
$directory =~ s/^$document_root//;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { directory => $directory }});
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { directory => $directory }});
if (not $directory)
{
# No repo found.
return("");
}
# What are my IPs?
* Finished the initial tools/striker-initialize-host! * Created Tools->refresh to reload anvil.conf in one call. * Created Anvil::Tools::Network to hold network-related tasks. ** Created Network->is_remote() that tests to see if a string (containing a target) refers to the remote machine (versus a local machine). Updated all previous checks to use this new method. ** Moved Get->network_details() and Get->network() to the new Network module. Renamed Get->network() to Network->get_network(). ** Made Network->get_ips() work locally and remotely. ** Created Network->find_matches() that compares two scanned machines IPs (via two previous calls to Network->get_ips()) * Created Database->manage_anvil_conf() that will add, update or remove a given database connection in a local or remote anvil.conf file. * Fixed bugs in Storage->backup() where the bash calls were quite broken. I'm not sure how it ever worked before... x_x * Updated anvil-daemon to not initialize a database unless it's running on dashboard. Also added a check at the startup of anvil-daemon where it will go into a loop waiting for a database to become available, re-reading anvil.conf each loop. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Network->get_ips();
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $base_url = "";
* Moved the '_host_name', '_short_host_name', and '_domain_name' private methods in Tools.pm over to Get.pm (removing the leading '_' in the method names). * Created 'Cluster->which_node' that returns 'node1' or 'node2' to indicate which node a host is. * Continued working on scan_cluster; decided to make it not host-dependent. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
my $host = $anvil->Get->short_host_name();
* Switched all hash 'local' keys to be the host's short user name. Untested, likely bugs to be fixed in the next commit. Signed-off-by: Madison Kelly <mkelly@alteeve.ca>
4 years ago
foreach my $interface (sort {$a cmp $b} keys %{$anvil->data->{network}{$host}{interface}})
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { interface => $interface }});
* Switched all hash 'local' keys to be the host's short user name. Untested, likely bugs to be fixed in the next commit. Signed-off-by: Madison Kelly <mkelly@alteeve.ca>
4 years ago
if ($anvil->data->{network}{$host}{interface}{$interface}{ip})
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Switched all hash 'local' keys to be the host's short user name. Untested, likely bugs to be fixed in the next commit. Signed-off-by: Madison Kelly <mkelly@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { "network::local::interface::${interface}::ip" => $anvil->data->{network}{$host}{interface}{$interface}{ip} }});
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if (not $base_url)
{
* Switched all hash 'local' keys to be the host's short user name. Untested, likely bugs to be fixed in the next commit. Signed-off-by: Madison Kelly <mkelly@alteeve.ca>
4 years ago
$base_url = "baseurl=http://".$anvil->data->{network}{$host}{interface}{$interface}{ip}.$directory;
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
else
{
* Switched all hash 'local' keys to be the host's short user name. Untested, likely bugs to be fixed in the next commit. Signed-off-by: Madison Kelly <mkelly@alteeve.ca>
4 years ago
$base_url .= "\n http://".$anvil->data->{network}{$host}{interface}{$interface}{ip}.$directory;
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
}
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { base_url => $base_url }});
* Added a flag that tells anvil-daemon when a node is having it's network mapped. When this happens, open ssh connections are closed each loop and only tasks related to mapping the network run. This improves responsiveness in Striker when reporting which network links have come up or gone down. * Fixed a bug in Database->insert_or_update_variables() where, if 'update_value_only' was set but not variable_uuid was passed or could be found, an (incomplete) INSERT would be attempted. * Added support for generating module metadata when setting up local repos on Striker. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
### NOTE: The 'module_hotfixes=1' is needed until we can figure out how to add libssh2 to
* Updated Get->os_type() to support detection of CentOS Stream separate from CentOS. * Updated pxe.txt to start support for UEFI boot target. * Updated update_install_source to be smarter about moving html and tftp directory names to better reflect the host OS, and to make it support converting OSes on the fly. Also added support to the package list for CentOS Stream. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
### 'modules.yaml' (from the RHEL 8.x repodata). See:
* Added a flag that tells anvil-daemon when a node is having it's network mapped. When this happens, open ssh connections are closed each loop and only tasks related to mapping the network run. This improves responsiveness in Striker when reporting which network links have come up or gone down. * Fixed a bug in Database->insert_or_update_variables() where, if 'update_value_only' was set but not variable_uuid was passed or could be found, an (incomplete) INSERT would be attempted. * Added support for generating module metadata when setting up local repos on Striker. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
### - https://docs.fedoraproject.org/en-US/modularity/making-modules/defining-modules/
### - https://docs.fedoraproject.org/en-US/modularity/hosting-modules/
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Create the local repo file body
* Moved the '_host_name', '_short_host_name', and '_domain_name' private methods in Tools.pm over to Get.pm (removing the leading '_' in the method names). * Created 'Cluster->which_node' that returns 'node1' or 'node2' to indicate which node a host is. * Continued working on scan_cluster; decided to make it not host-dependent. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
my $repo = "[".$anvil->Get->short_host_name."-repo]
name=Repo on ".$anvil->Get->host_name."
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
".$base_url."
enabled=1
gpgcheck=0
timeout=5
* Added a flag that tells anvil-daemon when a node is having it's network mapped. When this happens, open ssh connections are closed each loop and only tasks related to mapping the network run. This improves responsiveness in Striker when reporting which network links have come up or gone down. * Fixed a bug in Database->insert_or_update_variables() where, if 'update_value_only' was set but not variable_uuid was passed or could be found, an (incomplete) INSERT would be attempted. * Added support for generating module metadata when setting up local repos on Striker. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
skip_if_unavailable=1
module_hotfixes=1";
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { repo => $repo }});
return($repo);
}
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=head2 get_peer_data
* Updated Storage->backup to append a short UUID to the timestamp to prevent issues if the same file is backed up twice in the same clock second. Also fixed a bug with remote_user parameter not having a default. * Finished the detection of and handling of initialization of a host when the host has no Internet access. * Disabled (for now) anvil-daemon's check_ssh_keys function. * Fixed a couple small bugs elsewhere. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
This calls the C<< call_striker-get-peer-data >> program to try to connect to the target (as C<< root >>). This method returns a string variable and a hash reference. The string variable will be C<< 1 >> if we connected successfully, C<< 0 >> if not. The hash reference will contain parsed details about the peer, assuming it connected. If the connection failed, the hash reference will exist but the values will be empty.
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Updated Storage->backup to append a short UUID to the timestamp to prevent issues if the same file is backed up twice in the same clock second. Also fixed a bug with remote_user parameter not having a default. * Finished the detection of and handling of initialization of a host when the host has no Internet access. * Disabled (for now) anvil-daemon's check_ssh_keys function. * Fixed a couple small bugs elsewhere. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
Keys in the hash;
* C<< host_uuid >> - The host's UUID.
* C<< host_name >> - The host's current (static) host name.
* C<< host_os >> - This is the host's operating system and version. The OS is returned as C<< rhel >> or C<< centos >>. The version is returned as C<< 8.x >>.
* C<< internet >> - This indicates if the target was found to have a a working Internet connection.
* C<< os_registered >> - This indicates if the OS is registered with Red Hat (if the OS is C<< rhel >>). It will be C<< yes >>, C<< no >> or C<< unknown >>.
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my ($connected, $data) = $anvil->Striker->get_peer_data({target => 10.255.1.218, password => "Initial1"});
if ($connected)
{
print "Hostname: [".$data->{host_name}."], host UUID: [".$data->{host_uuid}."]\n";
}
Parameters;
=head3 password (required)
This is the target machine's C<< root >> password.
=head3 port (optional, default 22)
This is the TCP port to use when connecting to the target
=head3 target (required, IPv4 address)
This is the current IP address of the target machine.
=cut
sub get_peer_data
{
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 => "Striker->get_peer_data()" }});
my $target = defined $parameter->{target} ? $parameter->{target} : "";
my $password = defined $parameter->{password} ? $parameter->{password} : "";
my $port = defined $parameter->{port} ? $parameter->{port} : 22;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
target => $target,
password => $anvil->Log->is_secure($password),
port => $port,
}});
# Store the password.
my $connected = 0;
my $data = {
host_uuid => "",
host_name => "",
host_os => "",
* Updated Storage->backup to append a short UUID to the timestamp to prevent issues if the same file is backed up twice in the same clock second. Also fixed a bug with remote_user parameter not having a default. * Finished the detection of and handling of initialization of a host when the host has no Internet access. * Disabled (for now) anvil-daemon's check_ssh_keys function. * Fixed a couple small bugs elsewhere. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
internet => 0,
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
os_registered => "",
};
if (not $target)
{
# No target...
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0020", variables => { method => "Striker->get_peer_data()", parameter => "target" }});
return($connected, $data);
}
* Updated Storage->backup to append a short UUID to the timestamp to prevent issues if the same file is backed up twice in the same clock second. Also fixed a bug with remote_user parameter not having a default. * Finished the detection of and handling of initialization of a host when the host has no Internet access. * Disabled (for now) anvil-daemon's check_ssh_keys function. * Fixed a couple small bugs elsewhere. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Record the password in the database so that we don't pass it over the command line.
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $state_uuid = $anvil->Database->insert_or_update_states({
debug => $debug,
file => $THIS_FILE,
line => __LINE__,
state_name => "peer::".$target."::password",
state_note => $password,
uuid => $anvil->data->{sys}{host_uuid}, # Only write to our DB, no reason to store elsewhere
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { state_uuid => $state_uuid }});
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my ($output, $return_code) = $anvil->System->call({
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
debug => $debug,
shell_call => $anvil->data->{path}{exe}{'call_striker-get-peer-data'}." --target root\@".$target.":".$port." --state-uuid ".$state_uuid,
});
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
output => $output,
return_code => $return_code,
}});
# Pull out the details
foreach my $line (split/\n/, $output)
{
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { line => $line }});
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if ($line =~ /connected=(.*)$/)
{
# We collect this, but apparently not for any real reason...
$connected = $1;
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { connected => $connected }});
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
if ($line =~ /host_name=(.*)$/)
{
# We collect this, but apparently not for any real reason...
$data->{host_name} = $1;
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 'data->{host_name}' => $data->{host_name} }});
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
if ($line =~ /host_uuid=(.*)$/)
{
$data->{host_uuid} = $1;
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 'data->{host_uuid}' => $data->{host_uuid} }});
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
if ($line =~ /host_os=(.*)$/)
{
$data->{host_os} = $1;
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 'data->{host_os}' => $data->{host_os} }});
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
if ($line =~ /os_registered=(.*)$/)
{
$data->{os_registered} = $1;
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 'data->{os_registered}' => $data->{os_registered} }});
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Updated Storage->backup to append a short UUID to the timestamp to prevent issues if the same file is backed up twice in the same clock second. Also fixed a bug with remote_user parameter not having a default. * Finished the detection of and handling of initialization of a host when the host has no Internet access. * Disabled (for now) anvil-daemon's check_ssh_keys function. * Fixed a couple small bugs elsewhere. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if ($line =~ /internet=(.*)$/)
{
$data->{internet} = $1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 'data->{internet}' => $data->{internet} }});
}
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Made a fair bit more progress on tools/striker-manage-install-target. It now registers a system with Red Hat and attaches appropriate subscriptions, updates the OS and (tries) to install anvil-{node,dr}. * Fixed a bug in Remote->call where a shell call that ended in a newline would work, but throw an error and not get the return code. * Created Database->get_job_details() which takes a job_uuid and returns the job details, if found. * Fixed a bug in Jobs->update_progress() where 'clear' wasn't removing the old job_progress data. * Added the parameters 'no_files' to skip stat'ing/recording non-directories, and 'search_for' which will set the parent directory in 'scan::searched' and stop scanning if found. This allows this method to act as a directory tree scanner and as a search engine. * Created Striker->get_local_repo() that builds a repo file body suitable for adding to peers, nodes and DR hosts. * Fixed bugs in the Striker WebUI related to initializing a target node / DR host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
connected => $connected,
'data->{host_name}' => $data->{host_name},
'data->{host_uuid}' => $data->{host_uuid},
'data->{host_os}' => $data->{host_os},
* Updated Storage->backup to append a short UUID to the timestamp to prevent issues if the same file is backed up twice in the same clock second. Also fixed a bug with remote_user parameter not having a default. * Finished the detection of and handling of initialization of a host when the host has no Internet access. * Disabled (for now) anvil-daemon's check_ssh_keys function. * Fixed a couple small bugs elsewhere. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
'data->{internet}' => $data->{internet},
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
'data->{os_registered}' => $data->{os_registered},
}});
# Make sure the database entry is gone (striker-get-peer-data should have removed it, but lets be safe).
my $query = "DELETE FROM states WHERE state_name = ".$anvil->Database->quote("peer::".$target."::password").";";
$anvil->Database->write({uuid => $anvil->data->{sys}{host_uuid}, debug => 3, query => $query, source => $THIS_FILE, line => __LINE__});
* Updated Storage->backup to append a short UUID to the timestamp to prevent issues if the same file is backed up twice in the same clock second. Also fixed a bug with remote_user parameter not having a default. * Finished the detection of and handling of initialization of a host when the host has no Internet access. * Disabled (for now) anvil-daemon's check_ssh_keys function. * Fixed a couple small bugs elsewhere. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Verify that the host UUID is actually valid.
* Renamed all Validate->is_X to Validate->X. Also created Validate->ipv6() to validate IPv6 addresses using Data::Validate::IP (and added it as a requirement to the .spec base RPM). * Added the fix from the last commit for System->call to handle returned data without an ending newline to Remote->call. * Got more work done on System->update_hosts(). It's able to add new hosts, but misses the short and FQDN host names. Need to fix that and the verify existing / manual entries aren't molested. Signed-off-by: digimer <digimer@pulsar.alteeve.com>
4 years ago
if (not $anvil->Validate->uuid({uuid => $data->{host_uuid}}))
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$data->{host_uuid} = "";
}
return($connected, $data);
}
* Added the ability to store, edit and delete UPSes ** Created Database->get_upses() and ->insert_or_update_upses(). ** Created Striker->get_ups_data(). This parses the special 'ups_XXXX' strings. * Updated Validate->is_domain() and added ->is_host_name() to use the Data::Validate::Domain module (which is now required in the core RPM). * Started work on manifest handling. * Sorted the language keys alphabetically. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=head2 get_ups_data
This parses the special C<< ups_X >> string keys to create a list of supported UPSes (in ScanCore and Install Manifests).
Parsed data is stored in;
* C<< ups_data::<key>::agent >>
* C<< ups_data::<key>::brand >>
* C<< ups_data::<key>::description >>
The language used is the language returned by C<< Words->language() >>.
This method takes no parameters.
=cut
sub get_ups_data
{
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 => "Striker->get_ups_data()" }});
# In case we've loaded the data before, clear it.
if (exists $anvil->data->{ups_data})
{
delete $anvil->data->{ups_data};
}
my $language = $anvil->Words->language();
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { language => $language }});
foreach my $word_file (sort {$a cmp $b} keys %{$anvil->data->{words}})
{
# Now loop through all keys looking for 'ups_*'.
foreach my $key (sort {$a cmp $b} keys %{$anvil->data->{words}{$word_file}{language}{$language}{key}})
{
next if $key !~ /^ups_(\d+)/;
# If we're here, we've got a UPS.
my $description = $anvil->data->{words}{$word_file}{language}{$language}{key}{$key}{content};
my $brand = $anvil->data->{words}{$word_file}{language}{$language}{key}{$key}{brand};
my $agent = $anvil->data->{words}{$word_file}{language}{$language}{key}{$key}{agent};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
's1:brand' => $brand,
's2:agent' => $agent,
's3:description' => $description,
}});
$anvil->data->{ups_data}{$key}{agent} = $agent;
$anvil->data->{ups_data}{$key}{brand} = $brand;
$anvil->data->{ups_data}{$key}{description} = $description;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"s1:ups_data::${key}::agent" => $anvil->data->{ups_data}{$key}{agent},
"s2:ups_data::${key}::brand" => $anvil->data->{ups_data}{$key}{brand},
"s3:ups_data::${key}::description" => $anvil->data->{ups_data}{$key}{description},
}});
# Make it easy to convert the agent to the brand.
$anvil->data->{ups_agent}{$agent}{brand} = $brand;
$anvil->data->{ups_agent}{$agent}{key} = $key;
$anvil->data->{ups_agent}{$agent}{description} = $description;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"ups_agent::${agent}::brand" => $anvil->data->{ups_agent}{$agent}{brand},
"ups_agent::${agent}::key" => $anvil->data->{ups_agent}{$agent}{key},
"ups_agent::${agent}::description" => $anvil->data->{ups_agent}{$agent}{description},
}});
}
}
return(0);
}
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=head2 load_manifest
This takes a manifest UUID and loads and parses it. If the manifest is loaded, C<< 0 >> is returned. C<< 1 >> is returned on error.
The loaded data is stored in a hash as:
manifests::manifest_uuid::<manifest_uuid>::manifest_name = <name>
manifests::manifest_uuid::<manifest_uuid>::manifest_last_ran = <unix time>
manifests::manifest_uuid::<manifest_uuid>::manifest_xml = <raw_xml>
manifests::manifest_uuid::<manifest_uuid>::manifest_note = <user note>
manifests::manifest_uuid::<manifest_uuid>::modified_date = <unix time>
The following hash is used to facilitate manifest name to UUID look up.
manifests::name_to_uuid::<manifest_name> = <manifest_uuid>
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
The parsed manifest XML is stored as (<machine> == node1, node2 or dr1):
manifests::manifest_uuid::<manifest_uuid>::parsed::name = <Anvil! name>
manifests::manifest_uuid::<manifest_uuid>::parsed::domain = <Anvil! domain name>
* Created Database->get_anvils() and ->insert_or_update_anvils(). * Updated the anvils database table to have columns for traching which hosts are used as node 1, node 2 and the DR host. * Updated Database->get_hosts() to check which, if any, Anvil! a given hosts is attached to. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
manifests::manifest_uuid::<manifest_uuid>::parsed::prefix = <Anvil! prefix>
manifests::manifest_uuid::<manifest_uuid>::parsed::sequence = <Anvil! sequence, zero-padded to two digits>
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
manifests::manifest_uuid::<manifest_uuid>::parsed::upses::<ups_name>::uuid = <upses -> ups_uuid of named UPS>
manifests::manifest_uuid::<manifest_uuid>::parsed::fences::<fence_name>::uuid = <fences -> fence_uuid of named fence device>
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::dns = <DNS to use, default is '8.8.8.8,8.8.4.4'>
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::ntp = <NTP to use, if any>
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::mtu = <MTU of network>
* Finished the "run manifest" form / page. Actually saving / pushing the job to nodes is not yet done though. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::count::bcn = <number of BCNs>
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::count::sn = <number of SNs>
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::count::ifn = <number of IFNs>
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::name::<network_name>::network = <base network ip, ie: 10.255.0.0>
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::name::<network_name>::subnet = <subnet mask>
manifests::manifest_uuid::<manifest_uuid>::parsed::networks::name::<network_name>::gateway = <gateway ip, if any>
manifests::manifest_uuid::<manifest_uuid>::parsed::machine::<machine>::name = <host name>
manifests::manifest_uuid::<manifest_uuid>::parsed::machine::<machine>::ipmi_ip = <ip of IPMI BMC, if any>
manifests::manifest_uuid::<manifest_uuid>::parsed::machine::<machine>::fence::<fence_name>::port = <'port' name/number (see fence agent man page)
manifests::manifest_uuid::<manifest_uuid>::parsed::machine::<machine>::ups::<ups_name>::used = <1 if powered by USB, 0 if not>
manifests::manifest_uuid::<manifest_uuid>::parsed::machine::<machine>::network::<network_name>::ip = <ip used on network>
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
B<Note>: The machines to use in each role is selected when the manifest is run. Unlike in M2, the manifest does not store machine-specific information (like MAC addresses, etc). The chosen machines at run time contain that information. Similarly, passwords are NOT stored in the manifest, and passed when the manifest is run.
Parameters;
=head3 manifest_uuid (required)
This is the manifest UUID to load.
=cut
sub load_manifest
{
my $self = shift;
my $parameter = shift;
my $anvil = $self->parent;
my $debug = defined $parameter->{debug} ? $parameter->{debug} : 3;
* Renamed striker-parse-fence-agents to anvil-parse-fence-agents and changed anvil-daemon to run it on all machines. * Cleaned up a lot of logging. * Updated Cluster->parse_cib() to track if a stonith device has 'delay' set. * Got a lot more work done on anvil-join-anvil's stonith processing, but it still isn't complete. Updated it to change shell user passwords as well. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0125", variables => { method => "Striker->load_manifest()" }});
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $manifest_uuid = defined $parameter->{manifest_uuid} ? $parameter->{manifest_uuid} : "";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
manifest_uuid => $manifest_uuid,
}});
if (not $manifest_uuid)
{
# Didn't get a UUID
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0020", variables => { method => "Striker->load_manifest()", parameter => "manifest_uuid" }});
return(1);
}
* Renamed all Validate->is_X to Validate->X. Also created Validate->ipv6() to validate IPv6 addresses using Data::Validate::IP (and added it as a requirement to the .spec base RPM). * Added the fix from the last commit for System->call to handle returned data without an ending newline to Remote->call. * Got more work done on System->update_hosts(). It's able to add new hosts, but misses the short and FQDN host names. Need to fix that and the verify existing / manual entries aren't molested. Signed-off-by: digimer <digimer@pulsar.alteeve.com>
4 years ago
elsif (not $anvil->Validate->uuid({uuid => $manifest_uuid}))
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
# UUID isn't valid
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0130", variables => { method => "Striker->load_manifest()", parameter => "manifest_uuid", uuid => $manifest_uuid}});
return(1);
}
my $query = "
SELECT
manifest_name,
manifest_last_ran,
manifest_xml,
manifest_note,
ROUND(extract(epoch FROM modified_date))
FROM
manifests
WHERE
manifest_uuid = ".$anvil->Database->quote($manifest_uuid)."
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, 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 => $debug, list => {
results => $results,
count => $count,
}});
my $manifest_template = "";
if ($count)
{
my $manifest_name = $results->[0]->[0];
my $manifest_last_ran = $results->[0]->[1];
my $manifest_xml = $results->[0]->[2];
my $manifest_note = $results->[0]->[3];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
manifest_name => $manifest_name,
manifest_last_ran => $manifest_last_ran,
manifest_xml => $manifest_xml,
manifest_note => $manifest_note,
}});
# Record the data.
$anvil->data->{manifests}{$manifest_uuid}{manifest_name} = $manifest_name;
$anvil->data->{manifests}{$manifest_uuid}{manifest_last_ran} = $manifest_last_ran;
$anvil->data->{manifests}{$manifest_uuid}{manifest_xml} = $manifest_xml;
$anvil->data->{manifests}{$manifest_uuid}{manifest_note} = $manifest_note;
$anvil->data->{manifests}{name_to_uuid}{$manifest_name} = $manifest_uuid;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::${manifest_uuid}::manifest_name" => $anvil->data->{manifests}{$manifest_uuid}{manifest_name},
"manifests::${manifest_uuid}::manifest_last_ran" => $anvil->data->{manifests}{$manifest_uuid}{manifest_last_ran},
"manifests::${manifest_uuid}::manifest_xml" => $anvil->data->{manifests}{$manifest_uuid}{manifest_xml},
"manifests::${manifest_uuid}::manifest_note" => $anvil->data->{manifests}{$manifest_uuid}{manifest_note},
"manifests::name_to_uuid::${manifest_name}" => $anvil->data->{manifests}{name_to_uuid}{$manifest_name},
}});
* Added 'fence_delay' fence agent to handle the corner cases where an IPMI BMC had crashed until a power cycle, and PDU fencing was effected, but failed to report as such. * Updated Cluster->parse_cib() to take a CIB as a parameter. * Fixed a bug in Database->get_hosts() where loading the host_ipmi value was filtered through Log->is_secure. * Updated Striker->get_fence_data() to parse the switches to make it easier to map a fence agent's command line switches to STDIN arguments. * Created System->parse_arguments() that converts a series of command line switches and their values into a hash. It's similar to Get->switches(), but works on any string. * Continued work on anvil-join-anvil's fence configuration logic. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
# Whoever is calling us will want the fence data, so load it as well.
$anvil->Database->get_fences({debug => $debug});
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Parse the XML.
* Got server migration working using ocf:alteeve:server in a test environment! * Converted most 'eval { }' calls to localize $@ and test the output of the eval, instead of checking to see if $@ was set. * Converted all 'local' hash references to instead use the short host name of the local machine as a new standard. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
local $@;
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $parsed_xml = "";
my $xml = XML::Simple->new();
* Got server migration working using ocf:alteeve:server in a test environment! * Converted most 'eval { }' calls to localize $@ and test the output of the eval, instead of checking to see if $@ was set. * Converted all 'local' hash references to instead use the short host name of the local machine as a new standard. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
my $test = eval { $parsed_xml = $xml->XMLin($manifest_xml, KeyAttr => { key => 'name' }, ForceArray => []) };
if (not $test)
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
chomp $@;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0111", variables => {
xml_body => $manifest_xml,
eval_error => $@,
}});
return(1);
}
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{domain} = $parsed_xml->{domain};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{name} = $parsed_xml->{name};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::domain" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{domain},
"manifests::manifest_uuid::${manifest_uuid}::parsed::name" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{name},
}});
* Created Database->get_anvils() and ->insert_or_update_anvils(). * Updated the anvils database table to have columns for traching which hosts are used as node 1, node 2 and the DR host. * Updated Database->get_hosts() to check which, if any, Anvil! a given hosts is attached to. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my ($prefix, $sequence) = ($anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{name} =~ /^(.*?)-anvil-(\d+)$/);
$sequence = sprintf("%02d", $sequence);
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{prefix} = $prefix;
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{sequence} = $sequence;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::prefix" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{prefix},
"manifests::manifest_uuid::${manifest_uuid}::parsed::sequence" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{sequence},
}});
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
if (ref($parsed_xml->{upses}{ups}) eq "HASH")
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
# Only a single ups device
my $ups_name = $parsed_xml->{upses}{ups}{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{upses}{$ups_name}{uuid} = $parsed_xml->{upses}{ups}{uuid};
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::upses::${ups_name}::uuid" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{upses}{$ups_name}{uuid},
}});
}
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
elsif (ref($parsed_xml->{fences}{fence}) eq "ARRAY")
{
# Two or more UPSes
foreach my $hash_ref (@{$parsed_xml->{upses}{ups}})
{
my $ups_name = $hash_ref->{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{upses}{$ups_name}{uuid} = $hash_ref->{uuid};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::upses::${ups_name}::uuid" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{upses}{$ups_name}{uuid},
}});
}
}
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
if (ref($parsed_xml->{fences}{fence}) eq "HASH")
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
# Only a single fence device
my $fence_name = $parsed_xml->{fences}{fence}{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{fences}{$fence_name}{uuid} = $parsed_xml->{fences}{fence}{uuid};
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::fences::${fence_name}::uuid" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{fences}{$fence_name}{uuid},
}});
}
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
elsif (ref($parsed_xml->{fences}{fence}) eq "ARRAY")
{
# Two or more fence devices.
foreach my $hash_ref (@{$parsed_xml->{fences}{fence}})
{
my $fence_name = $hash_ref->{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{fences}{$fence_name}{uuid} = $hash_ref->{uuid};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::fences::${fence_name}::uuid" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{fences}{$fence_name}{uuid},
}});
}
}
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{dns} = $parsed_xml->{networks}{dns};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{ntp} = $parsed_xml->{networks}{ntp};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{mtu} = $parsed_xml->{networks}{mtu};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::dns" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{dns},
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::ntp" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{ntp},
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::mtu" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{mtu},
}});
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $bcn_count = 0;
my $sn_count = 0;
my $ifn_count = 0;
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $hash_ref (@{$parsed_xml->{networks}{network}})
{
my $network_name = $hash_ref->{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{name}{$network_name}{network} = $hash_ref->{network};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{name}{$network_name}{subnet} = $hash_ref->{subnet};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{name}{$network_name}{gateway} = $hash_ref->{gateway};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::name::${network_name}::network" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{name}{$network_name}{network},
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::name::${network_name}::subnet" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{name}{$network_name}{subnet},
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::name::${network_name}::gateway" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{name}{$network_name}{gateway},
}});
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if ($network_name =~ /^bcn/) { $bcn_count++; }
elsif ($network_name =~ /^sn/) { $sn_count++; }
elsif ($network_name =~ /^ifn/) { $ifn_count++; }
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
* Finished the "run manifest" form / page. Actually saving / pushing the job to nodes is not yet done though. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{count}{bcn} = $bcn_count;
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{count}{sn} = $sn_count;
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{count}{ifn} = $ifn_count;
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Finished the "run manifest" form / page. Actually saving / pushing the job to nodes is not yet done though. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::count::bcn" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{count}{bcn},
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::count::sn" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{count}{sn},
"manifests::manifest_uuid::${manifest_uuid}::parsed::networks::count::ifn" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{networks}{count}{ifn},
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $machine (sort {$a cmp $b} keys %{$parsed_xml->{machines}})
{
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{name} = $parsed_xml->{machines}{$machine}{name};
* Renamed the database table 'host_keys' to 'ssh_keys' to better represent what it stores. * Updated 'variables' -> 'variable_source_uuid' to type 'uuid' and removed the 'not null' constraint. * Updated Database->insert_or_update_variables() to check/update 'variables_source_table' and 'variables_source_uuid'. * Created the 'trusts' database table which will, when done, tell anvil-daemon which users@machines to trust (setup passwordkess SSH). * Created (but not finished) System->manage_authorized_keys() and moved the logic over to it from anvil-daemon. * Changed the host types "dashboard" to "striker". * Moved the following methods from 'System' to 'Get'; ** System->get_host_type to Get->host_type ** System->get_bridges to Get->bridges ** System->get_free_memory to Get->free_memory ** System->get_os_type to Get->os_type ** System->get_uptime to Get->uptime * Updated striker to include the host_uuid for the 'node1', 'node2' and (if chosen) 'dr1' when running a job manifest. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{ipmi_ip} = defined $parsed_xml->{machines}{$machine}{ipmi_ip} ? $parsed_xml->{machines}{$machine}{ipmi_ip} : "";
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Created Database->get_ip_addresses() that pulls the IPs out and stores them in a hash that allows for easy referencing to associated interfaces and networks. * Created Get->trusted_hosts() that finds the dashboards the host uses and, if the host is in an Anvil!, the peers in the same anvil. * Created (but not finished yet) System->update_hosts() that will add and edit entries for all IPs to trusted hosts. * Fixed a logging bug in Striker->load_manifest(). * Fixed a bug in System->call where, the the output from the shell call didn't end in a new-line, it would not parse the return code and lease the return code string appended to the shell output. * Fixed a big in System->change_shell_user_password() where a new-line (\n) meant for the shell call wasn't escaped properly. There was also a duplicate 'return_code' variable preventing the actual return code from being read. * Got more work done on anvil-join-anvil to update the hacluster password (when needed). Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::machine::${machine}::name" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{name},
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::machine::${machine}::ipmi_ip" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{ipmi_ip},
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
* Got anvil-safe-start to the point where is starts the cluster stack. Need to create the 'anvil-boot-server' and 'anvil-shutdown-server' before it can be completed, so those files have been added. * Created Cluster->parse_quorum() to check if a node is quorate as 'have-quorum' in the pacemaker CIB doesn't appear to be super accurate during startup. * Fixed a bug in striker-manage-install-target where if a node didn't have any registered IPs, it would break before generating the repo data. * Fixed a bug in anvil-join-anvil where if the database had to be reconnected, the job data was lost. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"ref(parsed_xml->{machines}{$machine}{upses}{ups})" => ref($parsed_xml->{machines}{$machine}{upses}{ups}),
}});
if (ref($parsed_xml->{machines}{$machine}{upses}{ups}) eq "HASH")
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
my $ups_name = $parsed_xml->{machines}{$machine}{upses}{ups}{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{ups}{$ups_name}{used} = $parsed_xml->{machines}{$machine}{upses}{ups}{used};
* Got anvil-safe-start to the point where is starts the cluster stack. Need to create the 'anvil-boot-server' and 'anvil-shutdown-server' before it can be completed, so those files have been added. * Created Cluster->parse_quorum() to check if a node is quorate as 'have-quorum' in the pacemaker CIB doesn't appear to be super accurate during startup. * Fixed a bug in striker-manage-install-target where if a node didn't have any registered IPs, it would break before generating the repo data. * Fixed a bug in anvil-join-anvil where if the database had to be reconnected, the job data was lost. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::machine::${machine}::ups::${ups_name}::used" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{ups}{$ups_name}{used},
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
elsif (ref($parsed_xml->{machines}{$machine}{upses}{ups}) eq "ARRAY")
{
foreach my $hash_ref (@{$parsed_xml->{machines}{$machine}{upses}{ups}})
{
my $ups_name = $hash_ref->{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{ups}{$ups_name}{used} = $hash_ref->{used};
* Got anvil-safe-start to the point where is starts the cluster stack. Need to create the 'anvil-boot-server' and 'anvil-shutdown-server' before it can be completed, so those files have been added. * Created Cluster->parse_quorum() to check if a node is quorate as 'have-quorum' in the pacemaker CIB doesn't appear to be super accurate during startup. * Fixed a bug in striker-manage-install-target where if a node didn't have any registered IPs, it would break before generating the repo data. * Fixed a bug in anvil-join-anvil where if the database had to be reconnected, the job data was lost. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::machine::${machine}::ups::${ups_name}::used" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{ups}{$ups_name}{used},
}});
}
}
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Got anvil-safe-start to the point where is starts the cluster stack. Need to create the 'anvil-boot-server' and 'anvil-shutdown-server' before it can be completed, so those files have been added. * Created Cluster->parse_quorum() to check if a node is quorate as 'have-quorum' in the pacemaker CIB doesn't appear to be super accurate during startup. * Fixed a bug in striker-manage-install-target where if a node didn't have any registered IPs, it would break before generating the repo data. * Fixed a bug in anvil-join-anvil where if the database had to be reconnected, the job data was lost. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"ref(parsed_xml->{machines}{$machine}{fences}{fence})" => ref($parsed_xml->{machines}{$machine}{fences}{fence}),
}});
if (ref($parsed_xml->{machines}{$machine}{fences}{fence}) eq "HASH")
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
my $fence_name = $parsed_xml->{machines}{$machine}{fences}{fence}{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{fence}{$fence_name}{port} = $parsed_xml->{machines}{$machine}{fences}{fence}{port};
* Got anvil-safe-start to the point where is starts the cluster stack. Need to create the 'anvil-boot-server' and 'anvil-shutdown-server' before it can be completed, so those files have been added. * Created Cluster->parse_quorum() to check if a node is quorate as 'have-quorum' in the pacemaker CIB doesn't appear to be super accurate during startup. * Fixed a bug in striker-manage-install-target where if a node didn't have any registered IPs, it would break before generating the repo data. * Fixed a bug in anvil-join-anvil where if the database had to be reconnected, the job data was lost. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::machine::${machine}::fence::${fence_name}::port" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{fence}{$fence_name}{port},
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
elsif (ref($parsed_xml->{machines}{$machine}{fences}{fence}) eq "ARRAY")
{
foreach my $hash_ref (@{$parsed_xml->{machines}{$machine}{fences}{fence}})
{
my $fence_name = $hash_ref->{name};
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{fence}{$fence_name}{port} = $hash_ref->{port};
* Got anvil-safe-start to the point where is starts the cluster stack. Need to create the 'anvil-boot-server' and 'anvil-shutdown-server' before it can be completed, so those files have been added. * Created Cluster->parse_quorum() to check if a node is quorate as 'have-quorum' in the pacemaker CIB doesn't appear to be super accurate during startup. * Fixed a bug in striker-manage-install-target where if a node didn't have any registered IPs, it would break before generating the repo data. * Fixed a bug in anvil-join-anvil where if the database had to be reconnected, the job data was lost. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed a bug in Striker->load_manifest where when a single fence device or UPS was defined, the XML would fail to parse. * Added a null entry when editing a manifest when no UPSes have been defined. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::machine::${machine}::fence::${fence_name}::port" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{fence}{$fence_name}{port},
}});
}
}
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $hash_ref (@{$parsed_xml->{machines}{$machine}{networks}{network}})
{
* Renamed the database table 'host_keys' to 'ssh_keys' to better represent what it stores. * Updated 'variables' -> 'variable_source_uuid' to type 'uuid' and removed the 'not null' constraint. * Updated Database->insert_or_update_variables() to check/update 'variables_source_table' and 'variables_source_uuid'. * Created the 'trusts' database table which will, when done, tell anvil-daemon which users@machines to trust (setup passwordkess SSH). * Created (but not finished) System->manage_authorized_keys() and moved the logic over to it from anvil-daemon. * Changed the host types "dashboard" to "striker". * Moved the following methods from 'System' to 'Get'; ** System->get_host_type to Get->host_type ** System->get_bridges to Get->bridges ** System->get_free_memory to Get->free_memory ** System->get_os_type to Get->os_type ** System->get_uptime to Get->uptime * Updated striker to include the host_uuid for the 'node1', 'node2' and (if chosen) 'dr1' when running a job manifest. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
my $network_name = $hash_ref->{name};
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{network}{$network_name}{ip} = $hash_ref->{ip};
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Finished the ability to load an install manifest to edit it. * Renamed to clarify the IP address field from ..._network to _ip. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"manifests::manifest_uuid::${manifest_uuid}::parsed::machine::${machine}::network::${network_name}::ip" => $anvil->data->{manifests}{manifest_uuid}{$manifest_uuid}{parsed}{machine}{$machine}{network}{$network_name}{ip},
* Created Striker->load_manifest() to load (and parse) install manifests. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
}
}
else
{
# Not found.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "warning_0042", variables => {
table => "manifests",
column => "manifest_uuid",
value => $manifest_uuid,
}});
return(1);
}
return(0);
}
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
=head2 parse_all_status_json
This parses the c<< all_status.json >> file is a way that Striker can more readily use. If the read or parse failes, C<< 1 >> is returned. Otherwise C<< 0 >> is returned.
This method doesn't take any parameters.
=cut
sub parse_all_status_json
{
my $self = shift;
my $parameter = shift;
my $anvil = $self->parent;
my $debug = defined $parameter->{debug} ? $parameter->{debug} : 3;
* Added the ability to store, edit and delete UPSes ** Created Database->get_upses() and ->insert_or_update_upses(). ** Created Striker->get_ups_data(). This parses the special 'ups_XXXX' strings. * Updated Validate->is_domain() and added ->is_host_name() to use the Data::Validate::Domain module (which is now required in the core RPM). * Started work on manifest handling. * Sorted the language keys alphabetically. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0125", variables => { method => "Striker->parse_all_status_json()" }});
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Read it in
my $json_file = $anvil->data->{path}{directories}{status}."/".$anvil->data->{path}{json}{all_status};
if (not -e $json_file)
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "error_0105", variables => { file => $json_file }});
return(1);
}
my $body = $anvil->Storage->read_file({debug => $debug, file => $json_file});
if ($body eq "!!error!!")
{
return(1);
}
my $json = JSON->new->allow_nonref;
my $data = $json->decode($body);
if (exists $anvil->data->{json}{all_status})
{
delete $anvil->data->{json}{all_status};
}
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# We're going to look for matches as we go, so look
$anvil->Network->load_ips({
debug => $debug,
* Moved the '_host_name', '_short_host_name', and '_domain_name' private methods in Tools.pm over to Get.pm (removing the leading '_' in the method names). * Created 'Cluster->which_node' that returns 'node1' or 'node2' to indicate which node a host is. * Continued working on scan_cluster; decided to make it not host-dependent. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
host => $anvil->Get->short_host_name(),
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
host_uuid => $anvil->data->{sys}{host_uuid},
});
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# We'll be adding data to this JSON file over time. So this will be an ever evolving method.
foreach my $host_hash (@{$data->{hosts}})
{
my $host_name = $host_hash->{name};
my $short_name = $host_hash->{short_name};
$anvil->data->{json}{all_status}{hosts}{$host_name}{host_uuid} = $host_hash->{host_uuid};
$anvil->data->{json}{all_status}{hosts}{$host_name}{type} = $host_hash->{type};
$anvil->data->{json}{all_status}{hosts}{$host_name}{short_host_name} = $host_hash->{short_name};
$anvil->data->{json}{all_status}{hosts}{$host_name}{configured} = $host_hash->{configured};
$anvil->data->{json}{all_status}{hosts}{$host_name}{ssh_fingerprint} = $host_hash->{ssh_fingerprint};
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{matched_interface} = $host_hash->{matched_interface};
$anvil->data->{json}{all_status}{hosts}{$host_name}{matched_ip_address} = $host_hash->{matched_ip_address};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"json::all_status::hosts::${host_name}::host_uuid" => $anvil->data->{json}{all_status}{hosts}{$host_name}{host_uuid},
"json::all_status::hosts::${host_name}::type" => $anvil->data->{json}{all_status}{hosts}{$host_name}{type},
"json::all_status::hosts::${host_name}::short_host_name" => $anvil->data->{json}{all_status}{hosts}{$host_name}{short_host_name},
"json::all_status::hosts::${host_name}::configured" => $anvil->data->{json}{all_status}{hosts}{$host_name}{configured},
"json::all_status::hosts::${host_name}::ssh_fingerprint" => $anvil->data->{json}{all_status}{hosts}{$host_name}{ssh_fingerprint},
"json::all_status::hosts::${host_name}::matched_interface" => $anvil->data->{json}{all_status}{hosts}{$host_name}{matched_interface},
"json::all_status::hosts::${host_name}::matched_ip_address" => $anvil->data->{json}{all_status}{hosts}{$host_name}{matched_ip_address},
}});
# Find what interface on this host we can use to talk to it (if we're not looking at ourselves).
my $matched_interface = "";
my $matched_ip_address = "";
* Moved the '_host_name', '_short_host_name', and '_domain_name' private methods in Tools.pm over to Get.pm (removing the leading '_' in the method names). * Created 'Cluster->which_node' that returns 'node1' or 'node2' to indicate which node a host is. * Continued working on scan_cluster; decided to make it not host-dependent. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
if ($host_name ne $anvil->Get->host_name)
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$anvil->Network->load_ips({
debug => $debug,
host => $short_name,
host_uuid => $anvil->data->{json}{all_status}{hosts}{$host_name}{host_uuid},
});
my ($match) = $anvil->Network->find_matches({
debug => 3,
* Moved the '_host_name', '_short_host_name', and '_domain_name' private methods in Tools.pm over to Get.pm (removing the leading '_' in the method names). * Created 'Cluster->which_node' that returns 'node1' or 'node2' to indicate which node a host is. * Continued working on scan_cluster; decided to make it not host-dependent. Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
first => $anvil->Get->short_host_name(),
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
second => $short_name,
* Fixed a bug where resync'ing the database was missing tables. * Updated Network->find_matches() to take 'source' and 'line' parameters to help identify the source of issues with missing hashes. Signed-off-by: Digimer <digimer@alteeve.ca>
3 years ago
source => $THIS_FILE,
line => __LINE__,
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
});
if ($match)
{
# Yup!
my $match_found = 0;
foreach my $interface (sort {$a cmp $b} keys %{$match->{$short_name}})
{
$matched_interface = $interface;
* Renamed 'ip' to 'ip_address' in Striker->parse_all_status_json() and related functions. * Got the menu for mapping a host's network displaying (much work still to be done). * Updated the anvil.js funtion to run dependent on the page being shown. For the main menu, the json is now properly reread and display updated as json content changes. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$matched_ip_address = $match->{$short_name}{$interface}{ip_address};
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
matched_interface => $matched_interface,
matched_ip_address => $matched_ip_address,
}});
last;
}
}
}
$anvil->data->{json}{all_status}{hosts}{$host_name}{matched_interface} = $matched_interface;
$anvil->data->{json}{all_status}{hosts}{$host_name}{matched_ip_address} = $matched_ip_address;
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Finished the jquery/css stuff for showing the list of hosts that can have their network configured. * Fixed unclear error logging in Network->find_matches(). * Updated System->generate_state_json() Striker->parse_all_status_json() to determine if another machine can be reached from the local dashboard. If it can be reached, the first matching interface and IP are recorded. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::matched_interface" => $anvil->data->{json}{all_status}{hosts}{$host_name}{matched_interface},
"json::all_status::hosts::${host_name}::matched_ip_address" => $anvil->data->{json}{all_status}{hosts}{$host_name}{matched_ip_address},
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
* Added a check in Striker->parse_all_status_json() to set the connected interface types. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $interface_hash (@{$host_hash->{network_interfaces}})
{
my $interface_name = $interface_hash->{name};
my $interface_type = $interface_hash->{type};
* Renamed 'ip' to 'ip_address' in Striker->parse_all_status_json() and related functions. * Got the menu for mapping a host's network displaying (much work still to be done). * Updated the anvil.js funtion to run dependent on the page being shown. For the main menu, the json is now properly reread and display updated as json content changes. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $mac_address = $interface_hash->{mac_address};
my $ip_address = $interface_hash->{ip_address};
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $subnet_mask = $interface_hash->{subnet_mask};
my $default_gateway = $interface_hash->{default_gateway};
my $gateway = $interface_hash->{gateway};
my $dns = $interface_hash->{dns};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
interface_name => $interface_name,
interface_type => $interface_type,
* Renamed 'ip' to 'ip_address' in Striker->parse_all_status_json() and related functions. * Got the menu for mapping a host's network displaying (much work still to be done). * Updated the anvil.js funtion to run dependent on the page being shown. For the main menu, the json is now properly reread and display updated as json content changes. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
mac_address => $mac_address,
ip_address => $ip_address,
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
subnet_mask => $subnet_mask,
default_gateway => $default_gateway,
gateway => $gateway,
dns => $dns,
}});
* Renamed 'primary_slave' to 'primary_interface' for the bond table. * Got more work done on parsing the all_status.json (and fixing related bugs). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# This lets us easily map interface names to types.
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface_name_to_type}{$interface_name} = $interface_type;
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"json::all_status::hosts::${host_name}::network_interface_name_to_type::${interface_name}" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface_name_to_type}{$interface_name},
}});
* Renamed 'primary_slave' to 'primary_interface' for the bond table. * Got more work done on parsing the all_status.json (and fixing related bugs). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Record the rest of the data.
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{uuid} = $interface_hash->{uuid};
* Renamed 'primary_slave' to 'primary_interface' for the bond table. * Got more work done on parsing the all_status.json (and fixing related bugs). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mtu} = $interface_hash->{mtu};
* Renamed 'ip' to 'ip_address' in Striker->parse_all_status_json() and related functions. * Got the menu for mapping a host's network displaying (much work still to be done). * Updated the anvil.js funtion to run dependent on the page being shown. For the main menu, the json is now properly reread and display updated as json content changes. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mac_address} = $interface_hash->{mac_address};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{ip_address} = $interface_hash->{ip_address};
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{subnet_mask} = $interface_hash->{subnet_mask};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{default_gateway} = $interface_hash->{default_gateway};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{gateway} = $interface_hash->{gateway};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{dns} = $interface_hash->{dns};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::uuid" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{uuid},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::mtu" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mtu},
* Renamed 'ip' to 'ip_address' in Striker->parse_all_status_json() and related functions. * Got the menu for mapping a host's network displaying (much work still to be done). * Updated the anvil.js funtion to run dependent on the page being shown. For the main menu, the json is now properly reread and display updated as json content changes. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::mac_address" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mac_address},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::ip_address" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{ip_address},
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::subnet_mask" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{subnet_mask},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::default_gateway" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{default_gateway},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::gateway" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{gateway},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::dns" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{dns},
}});
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if ((exists $interface_hash->{connected_interfaces}) && (ref($interface_hash->{connected_interfaces}) eq "ARRAY"))
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $connected_interfaces_count = @{$interface_hash->{connected_interfaces}};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { connected_interfaces_count => $connected_interfaces_count }});
foreach my $connected_interface_name (sort {$a cmp $b} @{$interface_hash->{connected_interfaces}})
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
# We'll sort out the types after
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{connected_interfaces}{$connected_interface_name}{type} = "";
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::connected_interfaces::${connected_interface_name}::type" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{connected_interfaces}{$connected_interface_name}{type},
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
}
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
if ($interface_type eq "bridge")
{
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_id} = $interface_hash->{bridge_id};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{stp_enabled} = $interface_hash->{stp_enabled};
my $say_stp_enabled = $interface_hash->{stp_enabled};
if (($say_stp_enabled eq "0") or ($say_stp_enabled eq "disabled"))
{
$say_stp_enabled = $anvil->Words->string({key => "unit_0020"});
}
elsif (($say_stp_enabled eq "1") or ($say_stp_enabled eq "enabled_kernel"))
{
$say_stp_enabled = $anvil->Words->string({key => "unit_0021"});
}
elsif (($say_stp_enabled eq "2") or ($say_stp_enabled eq "enabled_userland"))
{
$say_stp_enabled = $anvil->Words->string({key => "unit_0022"});
}
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_stp_enabled} = $interface_hash->{say_stp_enabled};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::bridge_id" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_id},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::stp_enabled" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{stp_enabled},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_stp_enabled" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_stp_enabled},
}});
}
elsif ($interface_type eq "bond")
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mode} = $interface_hash->{mode};
* Renamed bond_active_slave to bond_active_interface. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{active_interface} = $interface_hash->{active_interface};
* Renamed 'primary_slave' to 'primary_interface' for the bond table. * Got more work done on parsing the all_status.json (and fixing related bugs). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{primary_interface} = $interface_hash->{primary_interface};
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{primary_reselect} = $interface_hash->{primary_reselect};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{up_delay} = $interface_hash->{up_delay};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{down_delay} = $interface_hash->{down_delay};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{operational} = $interface_hash->{operational};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mii_polling_interval} = $interface_hash->{mii_polling_interval}." ".$anvil->Words->string({key => "suffix_0012"});
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_uuid} = $interface_hash->{bridge_uuid};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_name} = $interface_hash->{bridge_name};
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
# Translate some values
my $say_mode = $interface_hash->{mode};
if (($say_mode eq "0") or ($say_mode eq "balance-rr"))
{
$say_mode = $anvil->Words->string({key => "unit_0006"});
}
elsif (($say_mode eq "1") or ($say_mode eq "active-backup"))
{
$say_mode = $anvil->Words->string({key => "unit_0007"});
}
elsif (($say_mode eq "2") or ($say_mode eq "balanced-xor"))
{
$say_mode = $anvil->Words->string({key => "unit_0008"});
}
elsif (($say_mode eq "3") or ($say_mode eq "broadcast"))
{
$say_mode = $anvil->Words->string({key => "unit_0009"});
}
elsif (($say_mode eq "4") or ($say_mode eq "802.3ad"))
{
$say_mode = $anvil->Words->string({key => "unit_0010"});
}
elsif (($say_mode eq "5") or ($say_mode eq "balanced-tlb"))
{
$say_mode = $anvil->Words->string({key => "unit_0011"});
}
elsif (($say_mode eq "6") or ($say_mode eq "balanced-alb"))
{
$say_mode = $anvil->Words->string({key => "unit_0012"});
}
my $say_operational = $interface_hash->{operational};
if ($say_operational eq "up")
{
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$say_operational = $anvil->Words->string({key => "unit_0001"});
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
elsif ($say_operational eq "down")
{
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$say_operational = $anvil->Words->string({key => "unit_0002"});
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}
elsif ($say_operational eq "unknown")
{
$say_operational = $anvil->Words->string({key => "unit_0004"});
}
my $say_primary_reselect = $interface_hash->{primary_reselect};
if (($say_primary_reselect eq "always") or ($say_primary_reselect eq "0"))
{
$say_primary_reselect = $anvil->Words->string({key => "unit_0017"});
}
elsif (($say_primary_reselect eq "better") or ($say_primary_reselect eq "1"))
{
$say_primary_reselect = $anvil->Words->string({key => "unit_0018"});
}
elsif (($say_primary_reselect eq "failure") or ($say_primary_reselect eq "2"))
{
$say_primary_reselect = $anvil->Words->string({key => "unit_0019"});
}
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_up_delay} = $interface_hash->{up_delay}." ".$anvil->Words->string({key => "suffix_0012"});
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_down_delay} = $interface_hash->{say_down_delay}." ".$anvil->Words->string({key => "suffix_0012"});
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_mode} = $say_mode;
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_operational} = $say_operational;
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_primary_reselect} = $say_primary_reselect;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::mode" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mode},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::active_interface" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{active_interface},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::primary_interface" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{primary_interface},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::primary_reselect" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{primary_reselect},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::up_delay" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{up_delay},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::down_delay" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{down_delay},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::operational" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{operational},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::mii_polling_interval" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{mii_polling_interval},
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::bridge_uuid" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_uuid},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::bridge_name" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_name},
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_up_delay" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_up_delay},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_down_delay" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_down_delay},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_mode" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_mode},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_operational" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_operational},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_primary_reselect" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_primary_reselect},
}});
}
else
{
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{speed} = $interface_hash->{speed};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{link_state} = $interface_hash->{link_state};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{operational} = $interface_hash->{operational};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{duplex} = $interface_hash->{duplex};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{medium} = $interface_hash->{medium};
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bond_uuid} = $interface_hash->{bond_uuid};
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bond_name} = $interface_hash->{bond_name};
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_uuid} = $interface_hash->{bridge_uuid};
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_name} = $interface_hash->{bridge_name};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{changed_order} = $interface_hash->{changed_order};
my $say_speed = $anvil->Convert->add_commas({number => $interface_hash->{speed}})." ".$anvil->Words->string({key => "suffix_0050"});
if ($interface_hash->{speed} >= 1000)
{
# Report in Gbps
$say_speed = $anvil->Convert->add_commas({number => ($interface_hash->{speed} / 1000)})." ".$anvil->Words->string({key => "suffix_0051"});
}
my $say_duplex = $interface_hash->{duplex};
if ($say_duplex eq "full")
{
$say_duplex = $anvil->Words->string({key => "unit_0015"});
}
elsif ($say_duplex eq "half")
{
$say_duplex = $anvil->Words->string({key => "unit_0016"});
}
elsif ($say_duplex eq "unknown")
{
$say_duplex = $anvil->Words->string({key => "unit_0004"});
}
my $say_link_state = $interface_hash->{link_state};
if ($say_link_state eq "1")
{
$say_link_state = $anvil->Words->string({key => "unit_0013"});
}
elsif ($say_link_state eq "0")
{
$say_link_state = $anvil->Words->string({key => "unit_0014"});
}
my $say_operational = $interface_hash->{operational};
if ($say_operational eq "up")
{
$say_operational = $anvil->Words->string({key => "unit_0013"});
}
elsif ($say_operational eq "down")
{
$say_operational = $anvil->Words->string({key => "unit_0014"});
}
elsif ($say_operational eq "unknown")
{
$say_operational = $anvil->Words->string({key => "unit_0004"});
}
# This will be flushed out later. For now, we just send out what we've got.
my $say_medium = $interface_hash->{medium};
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_speed} = $say_speed;
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_duplex} = $say_duplex;
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_link_state} = $say_link_state;
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_operationa} = $say_operational;
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_medium} = $say_medium;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::speed" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{speed},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::link_state" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{link_state},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::operational" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{operational},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::duplex" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{duplex},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::medium" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{medium},
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::bond_uuid" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bond_uuid},
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::bond_name" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bond_name},
* Added bonds -> bond_bridge_uuid to track which bridge, if any, that a bond is connected to. Updated Network->load_interfces() to record this. * Added missing foreign key references to the SQL schema. * Added support to tools/anvil-update-states to connect bonds to bridges, as appropriate. * Finished the logic in test.pl to pull the network data (with connections between bridges, bonds and interfaces) needed for the WebUI. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::bridge_uuid" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_uuid},
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::bridge_name" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{bridge_name},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::changed_order" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{changed_order},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_speed" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_speed},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_duplex" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_duplex},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_link_state" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_link_state},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_operationa" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_operationa},
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::say_medium" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{say_medium},
}});
}
}
}
* Added a check in Striker->parse_all_status_json() to set the connected interface types. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $host_name (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}})
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { host_name => $host_name }});
foreach my $interface_type (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}})
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { interface_type => $interface_type }});
foreach my $interface_name (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}})
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { interface_name => $interface_name }});
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
foreach my $connected_interface_name (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{connected_interfaces}})
* Added a check in Striker->parse_all_status_json() to set the connected interface types. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { connected_interface_name => $connected_interface_name }});
if (defined $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface_name_to_type}{$connected_interface_name})
{
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{connected_interfaces}{$connected_interface_name}{type} = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface_name_to_type}{$connected_interface_name};
* Added a check in Striker->parse_all_status_json() to set the connected interface types. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
* Fixed bugs in Striker->parse_all_status_json() and System->generate_state_json() where the connected interfaces to bridges and bonds wasn't be stored properly. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
"json::all_status::hosts::${host_name}::network_interface::${interface_type}::${interface_name}::connected_interfaces::${connected_interface_name}::type" => $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$interface_type}{$interface_name}{connected_interfaces}{$connected_interface_name}{type},
* Added a check in Striker->parse_all_status_json() to set the connected interface types. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
}});
}
}
}
}
}
* Standardized 'subnet_mask' over 'subnet' naming throughout. * Created (and haven't finished yet) Striker->parse_all_status_json(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
return(0);
}
* Got the node/dr host initialization form to the point where it can test access and decide if it should show the Red Hat account form. Decided that for M3, node/dr host setup will now be a four-stage process; initial install (over PXE), initialization (install the proper anvil-{node,dr} RPM and connect to the database), setup/map the network, and then add to an Anvil! pair. * Updated striker to no longer try to SSH to a remote machine. To enable this, we'd have to give apache a shell and an SSH key, which is dumb and dangerous when considered. * Created tools/striker-get-peer-data which is meant to be invoked as the 'admin' user (via a setuid c-wrapper). It collects basic data about a target machine and reports what it finds on STDOUT. It gets the password for the target via the database. * Updated anvil-daemon to check/create/update setuid c-wrapper(s), which for now is limited to call_striker-initialize-host. * Created Anvil/Tools/Striker.pm to store Striker web-specific methods, including get_peer_data() which calls tools/striker-initialize-host via the setuid admin call_striker-initialize-host c-wrapper. * In order to allow striker via apache to read a peer's anvil.version, which it can no longer do over SSH, any connection to a peer where the anvil.version is read is cached as /etc/anvil/anvil.<peer>.version. When Get->anvil_version is called as 'apache', this file is read instead. * Updated Database->resync_databases() and ->_find_behind_databases() to ignore the 'states' table. * Created tools/striker-initialize-host which will be called as a job to initialize a node/dr host. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
1;