Bumped logging for storage group management.

Signed-off-by: digimer <mkelly@alteeve.ca>
main
digimer 2 years ago
parent 0874ad571a
commit bd575c6a7d
  1. 2
      Anvil/Tools/Cluster.pm
  2. 25
      tools/anvil-provision-server

@ -502,7 +502,7 @@ ORDER BY
} }
} }
my $storage_group_member_uuid = $anvil->Database->insert_or_update_storage_group_members({ my $storage_group_member_uuid = $anvil->Database->insert_or_update_storage_group_members({
debug => $debug, debug => 2,
storage_group_member_storage_group_uuid => $storage_group_uuid, storage_group_member_storage_group_uuid => $storage_group_uuid,
storage_group_member_host_uuid => $host_uuid, storage_group_member_host_uuid => $host_uuid,
storage_group_member_vg_uuid => $storage_group_member_vg_uuid, storage_group_member_vg_uuid => $storage_group_member_vg_uuid,

@ -2136,7 +2136,10 @@ sub interactive_ask_server_cpu
{ {
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid}; my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$anvil->Database->get_anvils(); $anvil->Database->get_anvils();
$anvil->Get->available_resources({anvil_uuid => $anvil_uuid}); $anvil->Get->available_resources({
debug => 2,
anvil_uuid => $anvil_uuid,
});
my $default_cpu = $anvil->data->{switches}{cpu}; my $default_cpu = $anvil->data->{switches}{cpu};
if (not $default_cpu) if (not $default_cpu)
@ -2201,7 +2204,10 @@ sub interactive_ask_server_ram
{ {
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid}; my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$anvil->Database->get_anvils(); $anvil->Database->get_anvils();
$anvil->Get->available_resources({anvil_uuid => $anvil_uuid}); $anvil->Get->available_resources({
debug => 2,
anvil_uuid => $anvil_uuid,
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"anvil_resources::${anvil_uuid}::ram::available" => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}}).")", "anvil_resources::${anvil_uuid}::ram::available" => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}}).")",
}}); }});
@ -2299,7 +2305,10 @@ sub interactive_ask_server_storage_group
{ {
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid}; my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$anvil->Database->get_anvils(); $anvil->Database->get_anvils();
$anvil->Get->available_resources({debug => 2, anvil_uuid => $anvil_uuid}); $anvil->Get->available_resources({
debug => 2,
anvil_uuid => $anvil_uuid,
});
# I need a list of Storage groups, # I need a list of Storage groups,
my $say_ram = $anvil->Convert->bytes_to_human_readable({"bytes" => $anvil->data->{new_server}{ram}}); my $say_ram = $anvil->Convert->bytes_to_human_readable({"bytes" => $anvil->data->{new_server}{ram}});
@ -2409,7 +2418,10 @@ sub interactive_ask_server_storage_size
$anvil->Database->get_anvils(); $anvil->Database->get_anvils();
$anvil->Database->get_storage_group_data(); $anvil->Database->get_storage_group_data();
$anvil->Get->available_resources({debug => 2, anvil_uuid => $anvil_uuid}); $anvil->Get->available_resources({
debug => 2,
anvil_uuid => $anvil_uuid,
});
$vg_size = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{vg_size}; $vg_size = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{vg_size};
$vg_free = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{free_size}; $vg_free = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{free_size};
@ -2866,7 +2878,10 @@ sub interactive_ask_server_confirm
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid}; my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { anvil_uuid => $anvil_uuid }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { anvil_uuid => $anvil_uuid }});
$anvil->Get->available_resources({anvil_uuid => $anvil_uuid, debug => 2}); $anvil->Get->available_resources({
debug => 2,
anvil_uuid => $anvil_uuid,
});
$anvil->data->{new_server}{name} = ""; $anvil->data->{new_server}{name} = "";
$anvil->data->{new_server}{uuid} = ""; $anvil->data->{new_server}{uuid} = "";

Loading…
Cancel
Save