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

fix(cgi-bin): stop servers when shutting down the whole anvil

Browse Source
main
Tsu-ba-me 4 years ago
parent 9a483b5d55
commit 5c7d9d9e82
1 changed files with 7 additions and 6 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. 13
      cgi-bin/set_power

13
cgi-bin/set_power
Unescape View File

@ -43,7 +43,7 @@ sub set_anvil_power
# Expects the first element of @_ (argument array) to be a hash. # Expects the first element of @_ (argument array) to be a hash.
my $parameters = shift; my $parameters = shift;
my $anvil_uuid = $parameters->{anvil_uuid}; my $anvil_uuid = $parameters->{anvil_uuid};
my $on = $parameters->{on}; my $on = $parameters->{on};
# Get all mandatory hosts inside the anvil identified by the given UUID. # Get all mandatory hosts inside the anvil identified by the given UUID.
my @host_uuids = ( my @host_uuids = (
@ -59,16 +59,17 @@ sub set_anvil_power
foreach (@host_uuids) foreach (@host_uuids)
{ {
set_host_power({ host_uuid => $_, on => $on }); set_host_power({ host_uuid => $_, on => $on, stop_servers => 1 });
} }
} }
sub set_host_power sub set_host_power
{ {
# Expects the first element of @_ (argument array) to be a hash. # Expects the first element of @_ (argument array) to be a hash.
my $parameters = shift; my $parameters = shift;
my $host_uuid = $parameters->{host_uuid}; my $host_uuid = $parameters->{host_uuid};
my $on = $parameters->{on}; my $on = $parameters->{on};
my $stop_servers = exists $parameters->{stop_servers} ? "--stop-servers" : "";
# Check the host's status before trying to power it up/down. # Check the host's status before trying to power it up/down.
my $is_host_on = $anvil->data->{hosts}{host_uuid}{$host_uuid}{host_status} eq "online" ? 1 : 0; my $is_host_on = $anvil->data->{hosts}{host_uuid}{$host_uuid}{host_status} eq "online" ? 1 : 0;
@ -90,7 +91,7 @@ sub set_host_power
if ($is_host_on && not $on) if ($is_host_on && not $on)
{ {
$anvil->Database->insert_or_update_jobs({ $anvil->Database->insert_or_update_jobs({
job_command => $anvil->data->{path}{exe}{'anvil-safe-stop'}." --power-off", job_command => $anvil->data->{path}{exe}{'anvil-safe-stop'}." --power-off ".$stop_servers,
job_host_uuid => $host_uuid, job_host_uuid => $host_uuid,
job_description => "job_0333", job_description => "job_0333",
job_name => "cgi-bin::set_power::off", job_name => "cgi-bin::set_power::off",

Write Preview
Loading…
Cancel
Save