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

* Fixed a bug in Get->available_resources() where re-calling it caused the available space on storage groups kept dropping. Also added recordings in the hash for the space reserved for the host and allocated to existing servers.

Browse Source 
* Got tools/anvil-provision-server to the point where it askes up to the storage pool / size.
* Created the shell of 'tools/striker-sync-shared' that will sync /mnt/shared/files.

Signed-off-by: Digimer <digimer@alteeve.ca>
main
Digimer 4 years ago
parent f30cce3c5a
commit 7002c6f7cf
3 changed files with 396 additions and 20 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 18
      Anvil/Tools/Get.pm
  2. 357
      tools/anvil-provision-server
  3. 41
      tools/striker-sync-shared

18
Anvil/Tools/Get.pm
Unescape View File

@ -342,6 +342,11 @@ sub available_resources
return("!!error!!"); return("!!error!!");
} }
if (exists $anvil->data->{anvil_resources}{$anvil_uuid})
{
delete $anvil->data->{anvil_resources}{$anvil_uuid};
}
# Get the node UUIDs for this anvil. # Get the node UUIDs for this anvil.
my $query = " my $query = "
SELECT SELECT
@ -512,7 +517,8 @@ WHERE
} }
# Read in the amount of RAM allocated to servers and subtract it from the RAM available. # Read in the amount of RAM allocated to servers and subtract it from the RAM available.
$anvil->data->{anvil_resources}{$anvil_uuid}{ram}{hardware} = $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}; $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated} = 0;
$anvil->data->{anvil_resources}{$anvil_uuid}{ram}{hardware} = $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available};
$query = " $query = "
SELECT SELECT
@ -540,15 +546,19 @@ ORDER BY
"s2:ram_in_use" => $ram_in_use." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $ram_in_use}).")", "s2:ram_in_use" => $ram_in_use." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $ram_in_use}).")",
}}); }});
$anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available} -= $ram_in_use; $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated} += $ram_in_use;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, 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::allocated" => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated}." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated}}).")",
}}); }});
} }
# Take 4 GiB off the available RAM for the host # Take 4 GiB off the available RAM for the host
$anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available} -= (4*(2**30)); $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{reserved} = (4*(2**30)); # Reserve 4 GiB
$anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available} -= $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{reserved};
$anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available} -= $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"anvil_resources::${anvil_uuid}::ram::allocated" => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated}." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated}}).")",
"anvil_resources::${anvil_uuid}::ram::reserved" => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{reserved}." (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{reserved}}).")",
"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}}).")",
}}); }});

357
tools/anvil-provision-server
Unescape View File

@ -30,16 +30,22 @@ $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure =
# Read switches (target ([user@]host[:port]) and the file with the target's password. If the password is # Read switches (target ([user@]host[:port]) and the file with the target's password. If the password is
# passed directly, it will be used. Otherwise, the password will be read from the database. # passed directly, it will be used. Otherwise, the password will be read from the database.
$anvil->data->{switches}{'anvil-uuid'} = ""; $anvil->data->{switches}{'anvil-uuid'} = "";
$anvil->data->{switches}{cpu} = ""; $anvil->data->{switches}{cpu} = "";
$anvil->data->{switches}{'job-uuid'} = ""; $anvil->data->{switches}{'job-uuid'} = "";
$anvil->data->{switches}{name} = ""; $anvil->data->{switches}{name} = "";
$anvil->data->{switches}{ram} = "";
$anvil->data->{switches}{'storage-group'} = "";
$anvil->data->{switches}{'storage-size'} = "";
$anvil->Get->switches; $anvil->Get->switches;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
'switches::anvil-uuid' => $anvil->data->{switches}{'anvil-uuid'}, 'switches::anvil-uuid' => $anvil->data->{switches}{'anvil-uuid'},
'switches::cpu' => $anvil->data->{switches}{cpu}, 'switches::cpu' => $anvil->data->{switches}{cpu},
'switches::job-uuid' => $anvil->data->{switches}{'job-uuid'}, 'switches::job-uuid' => $anvil->data->{switches}{'job-uuid'},
'switches::name' => $anvil->data->{switches}{name}, 'switches::name' => $anvil->data->{switches}{name},
'switches::ram' => $anvil->data->{switches}{ram},
'switches::storage-group' => $anvil->data->{switches}{'storage-group'},
'switches::storage-size' => $anvil->data->{switches}{'storage-size'},
}}); }});
$anvil->Database->connect(); $anvil->Database->connect();
@ -138,7 +144,9 @@ sub interactive_question
interactive_ask_anvil_name($anvil, $terminal); interactive_ask_anvil_name($anvil, $terminal);
interactive_ask_server_name($anvil, $terminal); interactive_ask_server_name($anvil, $terminal);
interactive_ask_server_cpu($anvil, $terminal); interactive_ask_server_cpu($anvil, $terminal);
interactive_ask_server_ram($anvil, $terminal);
interactive_ask_server_storage_group($anvil, $terminal);
interactive_ask_server_storage_size($anvil, $terminal);
return(0); return(0);
} }
@ -174,7 +182,7 @@ sub interactive_ask_anvil_name
} }
print $terminal->Tputs('cl'); print $terminal->Tputs('cl');
print "Provision a new server menu:\n"; print "Provision a new server menu:\n";
print "Anvil name: [".$default_anvil."]\n\n\n"; print "Anvil name: .. [".$default_anvil."]\n\n\n";
# Show all the current server names. # Show all the current server names.
if ($retry) if ($retry)
@ -187,7 +195,7 @@ sub interactive_ask_anvil_name
print "- ".$anvil_name.": - ".$anvil->data->{anvils}{anvil_name}{$anvil_name}{anvil_description}."\n"; print "- ".$anvil_name.": - ".$anvil->data->{anvils}{anvil_name}{$anvil_name}{anvil_description}."\n";
} }
print $terminal->Tgoto('cm', 0, 2); print $terminal->Tgoto('cm', 0, 2)."? ";
my $answer = <STDIN>; my $answer = <STDIN>;
chomp $answer; chomp $answer;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { answer => $answer }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { answer => $answer }});
@ -224,6 +232,19 @@ sub interactive_ask_anvil_name
} }
} }
# Verify that the Anvil! has enough RAM and disk space.
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$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}}).")",
}});
if ($anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available} < (1**20))
{
print "There is not enough RAM available on this Anvil! to provision new servers.\n";
print " - Available RAM: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}})."]\n";
$anvil->nice_exit({exit_code => 2});
}
return(0); return(0);
} }
@ -259,7 +280,7 @@ sub interactive_ask_server_name
print "- ".$server_name."\n"; print "- ".$server_name."\n";
} }
print $terminal->Tgoto('cm', 0, 3); print $terminal->Tgoto('cm', 0, 3)."? ";
my $answer = <STDIN>; my $answer = <STDIN>;
chomp $answer; chomp $answer;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { answer => $answer }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { answer => $answer }});
@ -311,9 +332,9 @@ sub interactive_ask_server_cpu
print $terminal->Tputs('cl'); print $terminal->Tputs('cl');
print "Provision a new server menu:\n"; print "Provision a new server menu:\n";
print "Anvil name: [".$anvil->data->{new_server}{anvil_name}."]\n"; print "Anvil name: .. [".$anvil->data->{new_server}{anvil_name}."]\n";
print "Server name: [".$anvil->data->{new_server}{name}."]\n"; print "Server name: . [".$anvil->data->{new_server}{name}."]\n";
print "CPU Cores: . [".$default_cpu."]\n\n\n"; print "CPU Cores: ... [".$default_cpu."]\n\n\n";
if ($retry) if ($retry)
{ {
@ -322,11 +343,17 @@ sub interactive_ask_server_cpu
print "-=] Available cores / threads: [".$anvil->data->{anvil_resources}{$anvil_uuid}{cpu}{cores}." / ".$anvil->data->{anvil_resources}{$anvil_uuid}{cpu}{threads}."]\n"; print "-=] Available cores / threads: [".$anvil->data->{anvil_resources}{$anvil_uuid}{cpu}{cores}." / ".$anvil->data->{anvil_resources}{$anvil_uuid}{cpu}{threads}."]\n";
my $node1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid}; my $node1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid};
my $node2_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid}; my $node2_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid};
my $dr1_host_uuid = $anvil->data->{anvil_resources}{$anvil_uuid}{has_dr} ? $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_dr1_host_uuid} : "";
print " - Node 1 CPU Model: [".$anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node1_host_uuid}{cpu}{model}."]\n"; print " - Node 1 CPU Model: [".$anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node1_host_uuid}{cpu}{model}."]\n";
print " - Node 2 CPU Model: [".$anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node2_host_uuid}{cpu}{model}."]\n"; print " - Node 2 CPU Model: [".$anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node2_host_uuid}{cpu}{model}."]\n";
print $terminal->Tgoto('cm', 0, 4); if ($anvil->data->{anvil_resources}{$anvil_uuid}{has_dr})
{
print " - DR Host CPU: .... [".$anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node1_host_uuid}{cpu}{model}."], [".$anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$dr1_host_uuid}{cpu}{cores}."c]/[".$anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$dr1_host_uuid}{cpu}{threads}."t]\n";
}
print $terminal->Tgoto('cm', 0, 4)."? ";
my $answer = <STDIN>; my $answer = <STDIN>;
chomp $answer; chomp $answer;
@ -352,3 +379,301 @@ sub interactive_ask_server_cpu
return(0); return(0);
} }
sub interactive_ask_server_ram
{
my ($anvil, $terminal) = @_;
my $retry = 0;
while(1)
{
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$anvil->Database->get_anvils();
$anvil->Get->available_resources({anvil_uuid => $anvil_uuid});
$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}}).")",
}});
my $default_ram = $anvil->data->{switches}{ram};
if (not $default_ram)
{
# Default to 2, unless only one core is available.
my $say_2g = (2*(2**30));
if ($anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available} > $say_2g)
{
$default_ram = $anvil->Convert->bytes_to_human_readable({'bytes' => $say_2g});
}
else
{
$default_ram = $anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}});
}
}
print $terminal->Tputs('cl');
print "Provision a new server menu:\n";
print "Anvil name: .. [".$anvil->data->{new_server}{anvil_name}."]\n";
print "Server name: . [".$anvil->data->{new_server}{name}."]\n";
print "CPU Cores: ... [".$anvil->data->{new_server}{cpu}."]\n";
print "RAM: ......... [".$default_ram."]\n\n\n";
if ($retry)
{
print "* Please enter a valid amount up to: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{hardware}})." / ".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}})."].\n\n";
}
my $node1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid};
my $node2_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid};
my $dr1_host_uuid = $anvil->data->{anvil_resources}{$anvil_uuid}{has_dr} ? $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_dr1_host_uuid} : "";
print "-=] Available RAM: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}})."] (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}, unit => "M"}).")\n";
print " - Reserved by host: ... [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{reserved}})."]\n";
print " - Allocated to servers: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated}})."] (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{allocated}, unit => "M"}).")\n";
print " - Node 1 RAM (total): . [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node1_host_uuid}{ram}{hardware}})."] (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node1_host_uuid}{ram}{hardware}, unit => "M"}).")\n";
print " - Node 2 RAM (total): . [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node2_host_uuid}{ram}{hardware}})."] (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$node2_host_uuid}{ram}{hardware}, unit => "M"}).")\n";
if ($anvil->data->{anvil_resources}{$anvil_uuid}{has_dr})
{
print " - DR Host RAM (total): [".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$dr1_host_uuid}{ram}{hardware}})."] (".$anvil->Convert->bytes_to_human_readable({'bytes' => $anvil->data->{anvil_resources}{$anvil_uuid}{host_uuid}{$dr1_host_uuid}{ram}{hardware}, unit => "M"}).")\n";
}
print $terminal->Tgoto('cm', 0, 5)."? ";
my $answer = <STDIN>;
chomp $answer;
if ($answer eq "")
{
$answer = $default_ram;
}
if ($answer)
{
# Convert to bytes.
my $answer_bytes = $anvil->Convert->human_readable_to_bytes({
base2 => 1,
size => $answer,
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { answer_bytes => $answer_bytes }});
if (($answer_bytes eq "!!error!!") or
(not $answer_bytes) or
($answer_bytes < (640*1024)) or
($answer_bytes > $anvil->data->{anvil_resources}{$anvil_uuid}{ram}{available}))
{
# Invalid
$retry = 1;
}
else
{
# Valid.
$anvil->data->{new_server}{ram} = $answer_bytes;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"new_server::ram" => $anvil->data->{new_server}{ram},
}});
last;
}
}
else
{
$retry = 1;
}
}
return(0);
}
sub interactive_ask_server_storage_group
{
my ($anvil, $terminal) = @_;
my $retry = 0;
while(1)
{
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$anvil->Database->get_anvils();
$anvil->Get->available_resources({anvil_uuid => $anvil_uuid});
$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}}).")",
}});
# I need a list of Storage groups,
my $storage_groups = [""];
my $show_list = "";
my $position = 0;
my $default_storage_group = 1;
foreach my $storage_group_name (sort {$a cmp $b} keys %{$anvil->data->{anvil_resources}{$anvil_uuid}{storage_group_name}})
{
$position++;
my $storage_group_uuid = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group_name}{$storage_group_name}{storage_group_uuid};
my $vg_size = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{vg_size};
my $vg_free = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{free_size};
my $dr_size = 0;
my $dr_free = 0;
if ($anvil->data->{anvil_resources}{$anvil_uuid}{has_dr})
{
$dr_size = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{vg_size_on_dr};
$dr_free = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{available_on_dr};
}
if ($anvil->data->{switches}{'storage-group'})
{
if (($anvil->data->{switches}{'storage-group'} eq $storage_group_uuid) or
($anvil->data->{switches}{'storage-group'} eq $storage_group_name))
{
$default_storage_group = $position;
}
}
push @{$storage_groups}, $storage_group_uuid;
$show_list .= " - ".$position.") ".$storage_group_name." (".$storage_group_uuid.")\n";
$show_list .= " Available on Anvil!: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $vg_free})."], Total: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $vg_size})."]\n";
if ($anvil->data->{anvil_resources}{$anvil_uuid}{has_dr})
{
$show_list .= " Available on DR: ... [".$anvil->Convert->bytes_to_human_readable({'bytes' => $dr_free})."], Total: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $dr_size})."]\n";
}
else
{
$show_list .= " Available on DR: ... [--], Total: [--]\n";
}
}
if (not $default_storage_group)
{
# Default to 2, unless only one core is available.
$default_storage_group = 1;
}
print $terminal->Tputs('cl');
print "Provision a new server menu:\n";
print "Anvil name: .. [".$anvil->data->{new_server}{anvil_name}."]\n";
print "Server name: . [".$anvil->data->{new_server}{name}."]\n";
print "CPU Cores: ... [".$anvil->data->{new_server}{cpu}."]\n";
print "RAM: ......... [".$anvil->data->{new_server}{ram}."]\n";
print "Storage Group: [".$default_storage_group."]\n\n\n";
if ($retry)
{
print "* Please enter a number beside the storage group you want to use.\n\n";
}
my $node1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid};
my $node2_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid};
my $dr1_host_uuid = $anvil->data->{anvil_resources}{$anvil_uuid}{has_dr} ? $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_dr1_host_uuid} : "";
print "-=] Storage groups\n";
print $show_list."\n";
print $terminal->Tgoto('cm', 0, 6)."? ";
my $answer = <STDIN>;
chomp $answer;
if ($answer eq "")
{
$answer = $default_storage_group;
}
if (($answer) && ($answer =~ /^\d+$/) && (exists $storage_groups->[$answer]) && ($storage_groups->[$answer]))
{
# Valid.
$anvil->data->{new_server}{storage_group} = $storage_groups->[$answer];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"new_server::storage_group" => $anvil->data->{new_server}{storage_group},
}});
last;
}
else
{
$retry = 1;
}
}
return(0);
}
sub interactive_ask_server_storage_size
{
my ($anvil, $terminal) = @_;
my $retry = 0;
while(1)
{
my $anvil_uuid = $anvil->data->{new_server}{anvil_uuid};
$anvil->Database->get_anvils();
$anvil->Get->available_resources({anvil_uuid => $anvil_uuid});
# I need a list of Storage groups,
my $default_storage_size = 0;
my $storage_group_uuid = $anvil->data->{new_server}{storage_group};
my $vg_free = $anvil->data->{anvil_resources}{$anvil_uuid}{storage_group}{$storage_group_uuid}{free_size};
$default_storage_size = $anvil->data->{switches}{'storage-size'};
if (not $default_storage_size)
{
if ($vg_free < (80 * (2**30)))
{
# Too small for default
$default_storage_size = $anvil->Convert->bytes_to_human_readable({'bytes' => $vg_free});
}
else
{
$default_storage_size = "80 GiB";
}
}
my $say_storage_group = $anvil->data->{storage_groups}{anvil_uuid}{$anvil_uuid}{storage_group_uuid}{$storage_group_uuid}{group_name};
print $terminal->Tputs('cl');
print "Provision a new server menu:\n";
print "Anvil name: .. [".$anvil->data->{new_server}{anvil_name}."]\n";
print "Server name: . [".$anvil->data->{new_server}{name}."]\n";
print "CPU Cores: ... [".$anvil->data->{new_server}{cpu}."]\n";
print "RAM: ......... [".$anvil->data->{new_server}{ram}."]\n";
print "Storage Group: [".$say_storage_group."]\n";
print "Storage Size: [".$default_storage_size."]\n\n\n";
if ($retry)
{
print "* Please enter a size up to: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $vg_free})."].\n\n";
}
my $node1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid};
my $node2_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid};
my $dr1_host_uuid = $anvil->data->{anvil_resources}{$anvil_uuid}{has_dr} ? $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_dr1_host_uuid} : "";
print "-=] Storage group: [".$say_storage_group."], Available Space: [".$anvil->Convert->bytes_to_human_readable({'bytes' => $vg_free})."]\n";
print " - Note: You can add additional drives later.\n";
print $terminal->Tgoto('cm', 0, 7)."? ";
my $answer = <STDIN>;
chomp $answer;
if ($answer eq "")
{
$answer = $default_storage_size;
}
if ($answer)
{
# Is the size sensible?
my $answer_bytes = $anvil->Convert->human_readable_to_bytes({
base2 => 1,
size => $answer,
});
# Make sure they've asked for at least 10 MiB
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { answer_bytes => $answer_bytes }});
if (($answer_bytes eq "!!error!!") or
(not $answer_bytes) or
($answer_bytes < (10*(2**20))) or
($answer_bytes > $vg_free))
{
# Invalid
$retry = 1;
}
else
{
$anvil->data->{new_server}{storage_size} = $answer_bytes;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"new_server::storage_size" => $anvil->data->{new_server}{storage_size},
}});
last;
}
}
else
{
$retry = 1;
}
}
return(0);
}

41
tools/striker-sync-shared
Unescape View File

@ -0,0 +1,41 @@
#!/usr/bin/perl
#
# This runs on striker dashboards and syncs files under /mnt/shared on all known systems. It reaches out and
# pulls over any files under /mnt/shared/files/ to the same on the local system. It then pushes files out to
# all members of the same Anvil!.
#
# NOTE: This file is NOT responsible for sync'ing definition files! That is handles in scan-server.
#
# TODO:
# - Handle deleting files by user input, or if a given file that was on an Anvil! has been removed for both
# nodes and DR, where applicable.
# -
use strict;
use warnings;
use Anvil::Tools;
use Data::Dumper;
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->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0115", variables => { program => $THIS_FILE }});
# Read switches (target ([user@]host[:port]) and the file with the target's password.
$anvil->Get->switches;
# Connect to the database(s).
$anvil->Database->connect;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0132"});
$anvil->nice_exit({exit_code => 0});
Write Preview
Loading…
Cancel
Save