use warnings;
use Digest::MD5 qw(md5_base64);
-use Data::Dumper;
use PVE::Tools;
use PVE::HA::Tools ':exit_codes';
use PVE::HA::NodeStatus;
+## Variable Name & Abbreviations Convention
+#
+# The HA stack has some variables it uses frequently and thus abbreviates it such that it may be
+# confusing for new readers. Here's a short list of the most common used.
+#
+# NOTE: variables should be assumed to be read only if not otherwise stated, only use the specific
+# methods to re-compute/read/alter them.
+#
+# - $haenv -> HA environment, the main interface to the simulator/test/real world
+# - $sid -> Service ID, unique identifier for a service, `type:vmid` is common
+#
+# - $ms -> Master/Manager Status, contains runtime info from the current active manager
+# - $ns -> Node Status, hash holding online/offline status about all nodes
+#
+# - $ss -> Service Status, hash holding the current state (last LRM cmd result, failed starts
+# or migrates, maintenance fallback node, for *all* services ...
+# - $sd -> Service Data, the service status of a *single* service, iow. $ss->{$sid}
+#
+# - $sc -> Service Configuration, hash for all services including target state, group, ...
+# - $cd -> Configuration Data, the service config of a *single* service, iow. $sc->{$sid}
+#
+# Try to avoid adding new two letter (or similar over abbreviated) names, but also don't send
+# patches for changing above, as that set is mostly sensible and should be easy to remember once
+# spending a bit time in the HA code base.
+
sub new {
my ($this, $haenv) = @_;
$ms->{node_status} = $ns->{status};
$ms->{service_status} = $ss;
$ms->{timestamp} = $haenv->get_time();
-
+
$haenv->write_manager_status($ms);
-}
+}
sub get_service_group {
my ($groups, $online_node_usage, $service_conf) = @_;
}
# overwrite default if service is bound to a specific group
- $group = $groups->{ids}->{$service_conf->{group}} if $service_conf->{group} &&
- $groups->{ids}->{$service_conf->{group}};
+ if (my $group_id = $service_conf->{group}) {
+ $group = $groups->{ids}->{$group_id} if $groups->{ids}->{$group_id};
+ }
return $group;
}
}
sub select_service_node {
- my ($groups, $online_node_usage, $service_conf, $current_node, $try_next, $tried_nodes) = @_;
+ my ($groups, $online_node_usage, $sid, $service_conf, $current_node, $try_next, $tried_nodes, $maintenance_fallback) = @_;
my $group = get_service_group($groups, $online_node_usage, $service_conf);
}
}
- my @nodes = sort {
+ my @nodes = sort {
$online_node_usage->{$a} <=> $online_node_usage->{$b} || $a cmp $b
} keys %{$pri_groups->{$top_pri}};
my $found;
+ my $found_maintenance_fallback;
for (my $i = scalar(@nodes) - 1; $i >= 0; $i--) {
my $node = $nodes[$i];
if ($node eq $current_node) {
$found = $i;
- last;
+ }
+ if (defined($maintenance_fallback) && $node eq $maintenance_fallback) {
+ $found_maintenance_fallback = $i;
}
}
- if ($try_next) {
+ if (defined($found_maintenance_fallback)) {
+ return $nodes[$found_maintenance_fallback];
+ }
+ if ($try_next) {
if (defined($found) && ($found < (scalar(@nodes) - 1))) {
return $nodes[$found + 1];
} else {
return $nodes[0];
}
-
+ } elsif (defined($found)) {
+ return $nodes[$found];
} else {
-
- return $nodes[$found] if defined($found);
-
return $nodes[0];
-
}
}
sub compute_new_uuid {
my ($state) = @_;
-
+
$uid_counter++;
return md5_base64($state . $$ . time() . $uid_counter);
}
request_stop => 1,
started => 1,
fence => 1,
+ recovery => 1,
migrate => 1,
relocate => 1,
freeze => 1,
foreach my $sid (keys %{$self->{ss}}) {
my $sd = $self->{ss}->{$sid};
my $state = $sd->{state};
+ my $target = $sd->{target}; # optional
if (defined($online_node_usage->{$sd->{node}})) {
- if (($state eq 'started') || ($state eq 'request_stop') ||
- ($state eq 'fence') || ($state eq 'freeze') || ($state eq 'error')) {
+ if (
+ $state eq 'started' || $state eq 'request_stop' || $state eq 'fence' ||
+ $state eq 'freeze' || $state eq 'error' || $state eq 'recovery'
+ ) {
$online_node_usage->{$sd->{node}}++;
} elsif (($state eq 'migrate') || ($state eq 'relocate')) {
- $online_node_usage->{$sd->{target}}++;
+ # count it for both, source and target as load is put on both
+ $online_node_usage->{$sd->{node}}++;
+ $online_node_usage->{$target}++;
} elsif ($state eq 'stopped') {
# do nothing
} else {
- die "should not be reached";
+ die "should not be reached (sid = '$sid', state = '$state')";
+ }
+ } elsif (defined($target) && defined($online_node_usage->{$target})) {
+ if ($state eq 'migrate' || $state eq 'relocate') {
+ # to correctly track maintenance modi and also consider the target as used for the
+ # case a node dies, as we cannot really know if the to-be-aborted incoming migration
+ # has already cleaned up all used resources
+ $online_node_usage->{$target}++;
}
}
}
my $old_state = $sd->{state};
my $old_node = $sd->{node};
my $old_failed_nodes = $sd->{failed_nodes};
+ my $old_maintenance_node = $sd->{maintenance_node};
die "no state change" if $old_state eq $new_state; # just to be sure
$sd->{state} = $new_state;
$sd->{node} = $old_node;
- $sd->{failed_nodes} = $old_failed_nodes;
+ $sd->{failed_nodes} = $old_failed_nodes if defined($old_failed_nodes);
+ $sd->{maintenance_node} = $old_maintenance_node if defined($old_maintenance_node);
my $text_state = '';
foreach my $k (sort keys %params) {
" to '${new_state}'$text_state");
};
-# after a node was fenced this recovers the service to a new node
-my $recover_fenced_service = sub {
- my ($self, $sid, $cd) = @_;
+# clean up a possible bad state from a recovered service to allow its start
+my $fence_recovery_cleanup = sub {
+ my ($self, $sid, $fenced_node) = @_;
- my ($haenv, $ss) = ($self->{haenv}, $self->{ss});
-
- my $sd = $ss->{$sid};
-
- if ($sd->{state} ne 'fence') { # should not happen
- $haenv->log('err', "cannot recover service '$sid' from fencing," .
- " wrong state '$sd->{state}'");
- return;
- }
-
- my $fenced_node = $sd->{node}; # for logging purpose
-
- $self->recompute_online_node_usage(); # we want the most current node state
-
- my $recovery_node = select_service_node($self->{groups},
- $self->{online_node_usage},
- $cd, $sd->{node});
-
- if ($recovery_node) {
- $haenv->log('info', "recover service '$sid' from fenced node " .
- "'$fenced_node' to node '$recovery_node'");
-
- $haenv->steal_service($sid, $sd->{node}, $recovery_node);
+ my $haenv = $self->{haenv};
- # $sd *is normally read-only*, fencing is the exception
- $cd->{node} = $sd->{node} = $recovery_node;
- &$change_service_state($self, $sid, 'started', node => $recovery_node);
- } else {
- # no node found, let the service in 'fence' state and try again
- $haenv->log('err', "recovering service '$sid' from fenced node " .
- "'$fenced_node' failed, no recovery node found");
+ my (undef, $type, $id) = $haenv->parse_sid($sid);
+ my $plugin = PVE::HA::Resources->lookup($type);
+
+ # should not happen
+ die "unknown resource type '$type'" if !$plugin;
+
+ # locks may block recovery, cleanup those which are safe to remove after fencing,
+ # i.e., after the original node was reset and thus all it's state
+ my $removable_locks = [
+ 'backup',
+ 'mounted',
+ 'migrate',
+ 'clone',
+ 'rollback',
+ 'snapshot',
+ 'snapshot-delete',
+ 'suspending',
+ 'suspended',
+ ];
+ if (my $removed_lock = $plugin->remove_locks($haenv, $id, $removable_locks, $fenced_node)) {
+ $haenv->log('warning', "removed leftover lock '$removed_lock' from recovered " .
+ "service '$sid' to allow its start.");
}
};
-# read LRM status for all nodes
+# read LRM status for all nodes
sub read_lrm_status {
my ($self) = @_;
}
}
-
return ($results, $modes);
}
my ($haenv, $ms, $ns, $ss) = ($self->{haenv}, $self->{ms}, $self->{ns}, $self->{ss});
my $cmdlist = $haenv->read_crm_commands();
-
+
foreach my $cmd (split(/\n/, $cmdlist)) {
chomp $cmd;
if ($cmd =~ m/^(migrate|relocate)\s+(\S+)\s+(\S+)$/) {
- my ($task, $sid, $node) = ($1, $2, $3);
+ my ($task, $sid, $node) = ($1, $2, $3);
if (my $sd = $ss->{$sid}) {
if (!$ns->node_is_online($node)) {
$haenv->log('err', "crm command error - node not online: $cmd");
} else {
if ($node eq $sd->{node}) {
$haenv->log('info', "ignore crm command - service already on target node: $cmd");
- } else {
+ } else {
$haenv->log('info', "got crm command: $cmd");
- $ss->{$sid}->{cmd} = [ $task, $node];
+ $ss->{$sid}->{cmd} = [ $task, $node ];
}
}
} else {
$haenv->log('err', "crm command error - no such service: $cmd");
}
+ } elsif ($cmd =~ m/^stop\s+(\S+)\s+(\S+)$/) {
+ my ($sid, $timeout) = ($1, $2);
+ if (my $sd = $ss->{$sid}) {
+ $haenv->log('info', "got crm command: $cmd");
+ $ss->{$sid}->{cmd} = [ 'stop', $timeout ];
+ } else {
+ $haenv->log('err', "crm command error - no such service: $cmd");
+ }
} else {
$haenv->log('err', "unable to parse crm command: $cmd");
}
my ($haenv, $ms, $ns, $ss) = ($self->{haenv}, $self->{ms}, $self->{ns}, $self->{ss});
- $ns->update($haenv->get_node_info());
+ my ($node_info) = $haenv->get_node_info();
+ my ($lrm_results, $lrm_modes) = $self->read_lrm_status();
+
+ $ns->update($node_info, $lrm_modes);
- if (!$ns->node_is_online($haenv->nodename())) {
+ if (!$ns->node_is_operational($haenv->nodename())) {
$haenv->log('info', "master seems offline");
return;
}
- my ($lrm_results, $lrm_modes) = $self->read_lrm_status();
-
my $sc = $haenv->read_service_config();
$self->{groups} = $haenv->read_group_config(); # update
# add new service
foreach my $sid (sort keys %$sc) {
next if $ss->{$sid}; # already there
- $haenv->log('info', "adding new service '$sid' on node '$sc->{$sid}->{node}'");
+ my $cd = $sc->{$sid};
+ next if $cd->{state} eq 'ignored';
+
+ $haenv->log('info', "adding new service '$sid' on node '$cd->{node}'");
# assume we are running to avoid relocate running service at add
- $ss->{$sid} = { state => 'started', node => $sc->{$sid}->{node},
+ my $state = ($cd->{state} eq 'started') ? 'started' : 'request_stop';
+ $ss->{$sid} = { state => $state, node => $cd->{node},
uid => compute_new_uuid('started') };
}
- # remove stale service from manager state
+ # remove stale or ignored services from manager state
foreach my $sid (keys %$ss) {
- next if $sc->{$sid};
- $haenv->log('info', "removing stale service '$sid' (no config)");
+ next if $sc->{$sid} && $sc->{$sid}->{state} ne 'ignored';
+
+ my $reason = defined($sc->{$sid}) ? 'ignored state requested' : 'no config';
+ $haenv->log('info', "removing stale service '$sid' ($reason)");
+
# remove all service related state information
delete $ss->{$sid};
}
for (;;) {
my $repeat = 0;
-
+
$self->recompute_online_node_usage();
foreach my $sid (sort keys %$ss) {
# do nothing here - wait until fenced
+ } elsif ($last_state eq 'recovery') {
+
+ $self->next_state_recovery($sid, $cd, $sd, $lrm_res);
+
} elsif ($last_state eq 'request_stop') {
$self->next_state_request_stop($sid, $cd, $sd, $lrm_res);
my $lrm_mode = $sd->{node} ? $lrm_modes->{$sd->{node}} : undef;
# unfreeze
- &$change_service_state($self, $sid, 'started')
+ my $state = ($cd->{state} eq 'started') ? 'started' : 'request_stop';
+ &$change_service_state($self, $sid, $state)
if $lrm_mode && $lrm_mode eq 'active';
} elsif ($last_state eq 'error') {
# handle fencing
my $fenced_nodes = {};
foreach my $sid (sort keys %$ss) {
- my $sd = $ss->{$sid};
- next if $sd->{state} ne 'fence';
+ my ($service_state, $service_node) = $ss->{$sid}->@{'state', 'node'};
+ next if $service_state ne 'fence';
- if (!defined($fenced_nodes->{$sd->{node}})) {
- $fenced_nodes->{$sd->{node}} = $ns->fence_node($sd->{node}) || 0;
+ if (!defined($fenced_nodes->{$service_node})) {
+ $fenced_nodes->{$service_node} = $ns->fence_node($service_node) || 0;
}
- next if !$fenced_nodes->{$sd->{node}};
+ next if !$fenced_nodes->{$service_node};
# node fence was successful - recover service
- &$recover_fenced_service($self, $sid, $sc->{$sid});
+ $change_service_state->($self, $sid, 'recovery');
+ $repeat = 1; # for faster recovery execution
+ }
+
+ # Avoid that a node without services in 'fence' state (e.g., removed
+ # manually by admin) is stuck with the 'fence' node state.
+ for my $node (sort grep { !defined($fenced_nodes->{$_}) } keys $ns->{status}->%*) {
+ next if $ns->get_node_state($node) ne 'fence';
+
+ $haenv->log('notice', "node '$node' in fence state but no services to-fence! admin interference?!");
+ $repeat = 1 if $ns->fence_node($node);
}
last if !$repeat;
# check result from LRM daemon
if ($lrm_res) {
my $exit_code = $lrm_res->{exit_code};
- my $req_state = $cd->{state} eq 'enabled' ? 'started' : 'request_stop';
+ my $req_state = $cd->{state} eq 'started' ? 'started' : 'request_stop';
if ($exit_code == SUCCESS) {
&$change_service_state($self, $sid, $req_state, node => $sd->{target});
return;
}
}
-
sub next_state_stopped {
my ($self, $sid, $cd, $sd, $lrm_res) = @_;
# this can happen if we fence a node with active migrations
# hack: modify $sd (normally this should be considered read-only)
$haenv->log('info', "fixup service '$sid' location ($sd->{node} => $cd->{node})");
- $sd->{node} = $cd->{node};
+ $sd->{node} = $cd->{node};
}
if ($sd->{cmd}) {
- my ($cmd, $target) = @{$sd->{cmd}};
- delete $sd->{cmd};
+ my $cmd = shift @{$sd->{cmd}};
if ($cmd eq 'migrate' || $cmd eq 'relocate') {
+ my $target = shift @{$sd->{cmd}};
if (!$ns->node_is_online($target)) {
$haenv->log('err', "ignore service '$sid' $cmd request - node '$target' not online");
} elsif ($sd->{node} eq $target) {
target => $target);
return;
}
+ } elsif ($cmd eq 'stop') {
+ $haenv->log('info', "ignore service '$sid' $cmd request - service already stopped");
} else {
- $haenv->log('err', "unknown command '$cmd' for service '$sid'");
+ $haenv->log('err', "unknown command '$cmd' for service '$sid'");
}
+ delete $sd->{cmd};
}
if ($cd->{state} eq 'disabled') {
return;
}
- if ($cd->{state} eq 'enabled') {
+ if ($ns->node_is_offline_delayed($sd->{node}) && $ns->get_node_state($sd->{node}) ne 'maintenance') {
+ &$change_service_state($self, $sid, 'fence');
+ return;
+ }
+
+ if ($cd->{state} eq 'stopped') {
+ # almost the same as 'disabled' state but the service will also get recovered
+ return;
+ }
+
+ if ($cd->{state} eq 'started') {
# simply mark it started, if it's on the wrong node
# next_state_started will fix that for us
&$change_service_state($self, $sid, 'started', node => $sd->{node});
if ($ns->node_is_offline_delayed($sd->{node})) {
&$change_service_state($self, $sid, 'fence');
}
- return;
+ if ($ns->get_node_state($sd->{node}) ne 'maintenance') {
+ return;
+ } else {
+ # save current node as fallback for when it comes out of
+ # maintenance
+ $sd->{maintenance_node} = $sd->{node};
+ }
}
-
- if ($cd->{state} eq 'disabled') {
+
+ if ($cd->{state} eq 'disabled' || $cd->{state} eq 'stopped') {
&$change_service_state($self, $sid, 'request_stop');
return;
}
- if ($cd->{state} eq 'enabled') {
+ if ($cd->{state} eq 'started') {
if ($sd->{cmd}) {
- my ($cmd, $target) = @{$sd->{cmd}};
- delete $sd->{cmd};
+ my $cmd = shift @{$sd->{cmd}};
if ($cmd eq 'migrate' || $cmd eq 'relocate') {
+ my $target = shift @{$sd->{cmd}};
if (!$ns->node_is_online($target)) {
$haenv->log('err', "ignore service '$sid' $cmd request - node '$target' not online");
} elsif ($sd->{node} eq $target) {
$haenv->log('info', "$cmd service '$sid' to node '$target'");
&$change_service_state($self, $sid, $cmd, node => $sd->{node}, target => $target);
}
+ } elsif ($cmd eq 'stop') {
+ my $timeout = shift @{$sd->{cmd}};
+ if ($timeout == 0) {
+ $haenv->log('info', "request immediate service hard-stop for service '$sid'");
+ } else {
+ $haenv->log('info', "request graceful stop with timeout '$timeout' for service '$sid'");
+ }
+ &$change_service_state($self, $sid, 'request_stop', timeout => $timeout);
+ $haenv->update_service_config($sid, {'state' => 'stopped'});
} else {
- $haenv->log('err', "unknown command '$cmd' for service '$sid'");
+ $haenv->log('err', "unknown command '$cmd' for service '$sid'");
}
+
+ delete $sd->{cmd};
+
} else {
my $try_next = 0;
delete $sd->{failed_nodes};
+ # store flag to indicate successful start - only valid while state == 'started'
+ $sd->{running} = 1;
+
} elsif ($ec == ERROR) {
+
+ delete $sd->{running};
+
# apply our relocate policy if we got ERROR from the LRM
$self->record_service_failed_on_node($sid, $sd->{node});
}
}
- my $node = select_service_node($self->{groups}, $self->{online_node_usage},
- $cd, $sd->{node}, $try_next, $sd->{failed_nodes});
+ my $node = select_service_node(
+ $self->{groups},
+ $self->{online_node_usage},
+ $sid,
+ $cd,
+ $sd->{node},
+ $try_next,
+ $sd->{failed_nodes},
+ $sd->{maintenance_node},
+ );
if ($node && ($sd->{node} ne $node)) {
+ $self->{online_node_usage}->{$node}++;
+
+ if (defined(my $fallback = $sd->{maintenance_node})) {
+ if ($node eq $fallback) {
+ $haenv->log('info', "moving service '$sid' back to '$fallback', node came back from maintenance.");
+ delete $sd->{maintenance_node};
+ } elsif ($sd->{node} ne $fallback) {
+ $haenv->log('info', "dropping maintenance fallback node '$fallback' for '$sid'");
+ delete $sd->{maintenance_node};
+ }
+ }
+
if ($cd->{type} eq 'vm') {
$haenv->log('info', "migrate service '$sid' to node '$node' (running)");
&$change_service_state($self, $sid, 'migrate', node => $sd->{node}, target => $node);
}
+# after a node was fenced this recovers the service to a new node
+sub next_state_recovery {
+ my ($self, $sid, $cd, $sd, $lrm_res) = @_;
+
+ my ($haenv, $ss) = ($self->{haenv}, $self->{ss});
+ my $ns = $self->{ns};
+ my $ms = $self->{ms};
+
+ if ($sd->{state} ne 'recovery') { # should not happen
+ $haenv->log('err', "cannot recover service '$sid' from fencing, wrong state '$sd->{state}'");
+ return;
+ }
+
+ my $fenced_node = $sd->{node}; # for logging purpose
+
+ $self->recompute_online_node_usage(); # we want the most current node state
+
+ my $recovery_node = select_service_node(
+ $self->{groups},
+ $self->{online_node_usage},
+ $sid,
+ $cd,
+ $sd->{node},
+ );
+
+ if ($recovery_node) {
+ my $msg = "recover service '$sid' from fenced node '$fenced_node' to node '$recovery_node'";
+ if ($recovery_node eq $fenced_node) {
+ # can happen if restriced groups and the node came up again OK
+ $msg = "recover service '$sid' to previous failed and fenced node '$fenced_node' again";
+ }
+ $haenv->log('info', "$msg");
+
+ $fence_recovery_cleanup->($self, $sid, $fenced_node);
+
+ $haenv->steal_service($sid, $sd->{node}, $recovery_node);
+ $self->{online_node_usage}->{$recovery_node}++;
+
+ # NOTE: $sd *is normally read-only*, fencing is the exception
+ $cd->{node} = $sd->{node} = $recovery_node;
+ my $new_state = ($cd->{state} eq 'started') ? 'started' : 'request_stop';
+ $change_service_state->($self, $sid, $new_state, node => $recovery_node);
+ } else {
+ # no possible node found, cannot recover - but retry later, as we always try to make it available
+ $haenv->log('err', "recovering service '$sid' from fenced node '$fenced_node' failed, no recovery node found");
+
+ if ($cd->{state} eq 'disabled') {
+ # allow getting a service out of recovery manually if an admin disables it.
+ delete $sd->{failed_nodes}; # clean up on recovery to stopped
+ $change_service_state->($self, $sid, 'stopped'); # must NOT go through request_stop
+ return;
+ }
+ }
+}
+
1;