* 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>main
Digimer
5 years ago
parent
b82051cb37
commit
f636e399d7
10 changed files with 958 additions and 12 deletions
@ -0,0 +1,165 @@ |
||||
#!/usr/bin/perl |
||||
# |
||||
# This walks through all installed fence agents, parses their man page, and records their description and STDIN parameters. |
||||
# |
||||
# TODO: |
||||
# |
||||
|
||||
use strict; |
||||
use warnings; |
||||
use Anvil::Tools; |
||||
use Data::Dumper; |
||||
|
||||
# Turn off buffering so that the pinwheel will display while waiting for the SSH call(s) to complete. |
||||
$| = 1; |
||||
|
||||
my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0]; |
||||
my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0]; |
||||
if (($running_directory =~ /^\./) && ($ENV{PWD})) |
||||
{ |
||||
$running_directory =~ s/^\./$ENV{PWD}/; |
||||
} |
||||
|
||||
my $anvil = Anvil::Tools->new(); |
||||
$anvil->Log->level({set => 2}); |
||||
$anvil->Log->secure({set => 0}); |
||||
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, secure => 0, key => "log_0115", variables => { program => $THIS_FILE }}); |
||||
|
||||
$anvil->data->{switches}{refresh} = 0; |
||||
$anvil->Get->switches; |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { |
||||
"switches::refresh" => $anvil->data->{switches}{refresh}, |
||||
}}); |
||||
|
||||
refresh_unified_metadata($anvil); |
||||
$anvil->Striker->get_fence_data({debug => 2}); |
||||
|
||||
$anvil->nice_exit({exit_code => 0}); |
||||
|
||||
|
||||
|
||||
############################################################################################################# |
||||
# Functions # |
||||
############################################################################################################# |
||||
|
||||
# See if the unified fence metadata need to be (re)generated. |
||||
sub refresh_unified_metadata |
||||
{ |
||||
my ($anvil) = @_; |
||||
|
||||
my $refresh = 0; |
||||
if (not -e $anvil->data->{path}{data}{fences_unified_metadata}) |
||||
{ |
||||
$refresh = 1; |
||||
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "log_0472"}); |
||||
} |
||||
elsif ($anvil->data->{switches}{refresh}) |
||||
{ |
||||
$refresh = 1; |
||||
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "log_0473"}); |
||||
} |
||||
else |
||||
{ |
||||
# How old is the file? |
||||
my $modified_time = (stat($anvil->data->{path}{data}{fences_unified_metadata}))[9]; |
||||
my $age = time - $modified_time; |
||||
my $maximum_age = ((60 * 60) * 24); |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||
modified_time => $modified_time, |
||||
age => $age, |
||||
maximum_age => $maximum_age, |
||||
}}); |
||||
if ($age > $maximum_age) |
||||
{ |
||||
$refresh = 1; |
||||
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "log_0474"}); |
||||
} |
||||
} |
||||
|
||||
if ($refresh) |
||||
{ |
||||
# This will store the new unified XML, when regenerating the output. |
||||
$anvil->data->{fences}{unified_xml} = "<\?xml version=\"1.0\" \?>\n\n"; |
||||
$anvil->data->{fences}{unified_xml} .= "<unified>\n"; |
||||
|
||||
# Get a list of fence agents on this system. |
||||
get_fences_metadata($anvil); |
||||
|
||||
$anvil->data->{fences}{unified_xml} .= "</unified>\n"; |
||||
|
||||
$anvil->Storage->write_file({ |
||||
overwrite => 1, |
||||
backup => 0, |
||||
file => $anvil->data->{path}{data}{fences_unified_metadata}, |
||||
body => $anvil->data->{fences}{unified_xml}, |
||||
user => "apache", |
||||
group => "apache", |
||||
mode => "0666", |
||||
}); |
||||
} |
||||
|
||||
if (not -e $anvil->data->{path}{data}{fences_unified_metadata}) |
||||
{ |
||||
# Failed... |
||||
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, 'print' => 1, priority => "err", key => "error_0113"}); |
||||
$anvil->nice_exit({exit_code => 1}); |
||||
} |
||||
|
||||
return(0); |
||||
} |
||||
|
||||
# The walks through the found fence_X files and reads their metadata. |
||||
sub get_fences_metadata |
||||
{ |
||||
my ($anvil) = @_; |
||||
|
||||
my ($ethtool, $return_code) = $anvil->System->call({shell_call => $anvil->data->{path}{exe}{ls}." ".$anvil->data->{path}{directories}{fence_agents}."/fence_*"}); |
||||
foreach my $line (split/\n/, $ethtool) |
||||
{ |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { line => $line }}); |
||||
|
||||
# fence_pacemaker is out fence handler for DRBD 9 and it isn't a fence agent, skip it. |
||||
next if $line eq $anvil->data->{path}{directories}{fence_agents}."/fence_pacemaker"; |
||||
|
||||
# fence_virtd is the host daemon component of 'fence_virt', ignore it |
||||
next if $line eq $anvil->data->{path}{directories}{fence_agents}."/fence_virtd"; |
||||
|
||||
my $fence_agent_path = $line; |
||||
my $fence_agent_file = ($fence_agent_path =~ /^.*\/(.*)$/)[0]; |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { |
||||
fence_agent_path => $fence_agent_path, |
||||
fence_agent_file => $fence_agent_file, |
||||
}}); |
||||
|
||||
# Add it's metadata to the unify XML. |
||||
unify_metadata($anvil, $fence_agent_path, $fence_agent_file); |
||||
} |
||||
|
||||
return(0); |
||||
} |
||||
|
||||
# This does the actual call to collect the agent's metadata. |
||||
sub unify_metadata |
||||
{ |
||||
my ($anvil, $fence_agent_path, $fence_agent_file) = @_; |
||||
|
||||
my ($metadata, $return_code) = $anvil->System->call({debug => 3, shell_call => $fence_agent_path." -o metadata"}); |
||||
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { |
||||
metadata => $metadata, |
||||
return_code => $return_code, |
||||
}}); |
||||
if ($metadata =~ /<\?xml version="1.0" \?>/gs) |
||||
{ |
||||
$metadata =~ s/<\?xml version="1.0" \?>/<agent name="$fence_agent_file">/gs; |
||||
$anvil->data->{fences}{unified_xml} .= $metadata."\n"; |
||||
$anvil->data->{fences}{unified_xml} .= "</agent>\n"; |
||||
} |
||||
else |
||||
{ |
||||
# Bad, ignore it. |
||||
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, priority => "alert", key => "warning_0028", variables => { agent => $fence_agent_file }}); |
||||
return(1); |
||||
} |
||||
|
||||
return(0); |
||||
} |
||||
Loading…
Reference in new issue