seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WIP - Working a tool to manually load updated server definition files.

Browse Source 
Signed-off-by: Digimer <digimer@alteeve.ca>
main
Digimer 3 years ago
parent c449e2edf0
commit 3674a47179
2 changed files with 193 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 13
      share/words.xml
  2. 180
      tools/anvil-update-definition

13
share/words.xml
Unescape View File

@ -434,6 +434,19 @@ The attempt to start the servers appears to have failed. The return code '0' was
<key name="error_0320">The Anvil! UUID: [#!variable!anvil_uuid!#] is not valid or was not found in the database.</key>
<key name="error_0321">There are no Anvil! systems yet in the database, nothing to do.</key>
<key name="error_0322">There are no servers yet in the database, nothing to do.</key>
<key name="error_0323">You need to specify the updated definition file with '--file /path/to/definition.xml'.</key>
<key name="error_0324">You definition file: [#!variable!file!#] doesn't exist or couldn't be read.</key>
<key name="error_0325">The server name was not found in the new definition file.</key>
<key name="error_0326">The server UUID was not found (or is not valid) in the new definition file.</key>
<key name="error_0327">
Failed to parse the XML in the new definition file. The error was:
====
#!variable!error!#
====
</key>
<key name="error_0328"><![CDATA[Failed to parse the assigned memory from the definition file. Expected the memory defined as '<memory unit='XiB'>Y</memory>'.]]></key>
<key name="error_0329">The server UUID: [#!variable!server_uuid!#] in the definition file wasn't found in the database, unable to update.</key>
<key name="error_0330">The new definition has changed the server's name from: [#!variable!current_name!#] to: [#!variable!new_name!#]. Changing the server's name must be done with the 'anvil-rename-server' tool.</key>
<!-- Files templates -->
<!-- NOTE: Translating these files requires an understanding of which lines are translatable -->

180
tools/anvil-update-definition
Unescape View File

@ -0,0 +1,180 @@
#!/usr/bin/perl
#
# This program will manage servers; Changing RAM, CPU cores, Growing virtual disks, adding virtual disks,
# inserting and ejecting ISO images into virtual optical media.
#
# Exit codes;
# 0 = Normal exit.
# 1 = No database connection.
#
# TODO:
#
use strict;
use warnings;
use Anvil::Tools;
require POSIX;
use Term::Cap;
my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0];
my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0];
if (($running_directory =~ /^\./) && ($ENV{PWD}))
{
$running_directory =~ s/^\./$ENV{PWD}/;
}
# Turn off buffering so that the pinwheel will display while waiting for the SSH call(s) to complete.
$| = 1;
my $anvil = Anvil::Tools->new();
$anvil->data->{switches}{file} = "";
$anvil->Get->switches;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 1, secure => 0, key => "log_0115", variables => { program => $THIS_FILE }});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
'switches::file' => $anvil->data->{switches}{file},
}});
# Connect to the database(s). If we have no connections, we'll proceed anyway as one of the 'run_once' tasks
# is to setup the database server.
$anvil->Database->connect();
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, secure => 0, key => "log_0132"});
if (not $anvil->data->{sys}{database}{connections})
{
# No databases, update the job, sleep for a bit and then exit. The daemon will pick it up and try
# again after we exit.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0305"});
$anvil->nice_exit({exit_code => 1});
}
# Does the file exist?
if (not $anvil->data->{switches}{file})
{
# Not defined.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0323"});
$anvil->nice_exit({exit_code => 1});
}
elsif ((not -e $anvil->data->{switches}{file}) or (not -r $anvil->data->{switches}{file}))
{
# Not found or can't be read.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0324", variables => {
file => $anvil->data->{switches}{file},
}});
$anvil->nice_exit({exit_code => 1});
}
validate_and_update($anvil);
$anvil->nice_exit({exit_code => 0});
#############################################################################################################
# Functions #
#############################################################################################################
sub validate_and_update
{
my ($anvil) = @_;
# Can we parse the definition?
my $new_definition = $anvil->Storage->read_file({file => $anvil->data->{switches}{file}});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { new_definition => $new_definition }});
# Pull the server name and uuid out.
my $server_name = "";
my $server_uuid = "";
foreach my $line (split/\n/, $new_definition)
{
if ($line =~ /<name>(.*?)<\/name>/)
{
$server_name = $1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { server_name => $server_name }});
}
if ($line =~ /<uuid>(.*?)<\/uuid>/)
{
$server_uuid = $1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { server_uuid => $server_uuid }});
}
}
# If I didn't find the server name or UUID, there's a problem.
if ($server_name eq "")
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0325"});
$anvil->nice_exit({exit_code => 1});
}
if (($server_uuid eq "") or (not $anvil->Validate->uuid({uuid => $server_uuid})))
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0326"});
$anvil->nice_exit({exit_code => 1});
}
local $@;
my $dom = eval { XML::LibXML->load_xml(string => $new_definition); };
if ($@)
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0327", variables => { error => $@ }});
$anvil->nice_exit({exit_code => 1});
}
# Find out how much memory being allocated.
my $memory = 0;
foreach my $memory ($dom->findnodes('/domain/memory'))
{
my $units = $memory->{unit};
my $value = $memory->to_literal();
$memory = $anvil->Convert->human_readable_to_bytes({size => $value, type => $units});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
units => $units,
value => $value,
memory => $memory." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $memory}).")",
}});
}
if (not $memory)
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0328"});
$anvil->nice_exit({exit_code => 1});
}
# Do we know about this server yet?
$anvil->Database->get_servers();
if (not exists $anvil->data->{servers}{server_uuid}{$server_uuid})
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0329", variables => { server_uuid => $server_uuid }});
$anvil->nice_exit({exit_code => 1});
}
# We can't update the server name with this tool.
if ($server_name ne $anvil->data->{servers}{server_uuid}{$server_uuid}{server_name})
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, priority => "err", key => "error_0330", variables => {
current_name => $current_name.
new_name => $anvil->data->{servers}{server_uuid}{$server_uuid}{server_name},
}});
$anvil->nice_exit({exit_code => 1});
}
# Still here? Update! Has the assigned RAM changed?
my $configured_ram = $anvil->data->{servers}{server_uuid}{$server_uuid}{server_configured_ram};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
configured_ram => $configured_ram." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $configured_ram}).")",
}});
if ($memory != $configured_ram)
{
# Update the configured RAM value.
my $query = "
UPDATE
servers
SET
server_configured_ram = ".$anvil->Database->quote($memory).",
modified_date = ".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
WHERE
server_uuid = ".$anvil->Database->quote($server_uuid).",
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
}
return(0);
}
Write Preview
Loading…
Cancel
Save