return $self->{plug}->nodename();
}
+sub hardware {
+ my ($self) = @_;
+
+ return $self->{plug}->hardware();
+}
+
# manager status is stored on cluster, protected by ha_manager_lock
sub read_manager_status {
my ($self) = @_;
return $self->{plug}->read_crm_commands();
}
-sub service_config_exists {
+sub read_service_config {
my ($self) = @_;
- return $self->{plug}->service_config_exists();
+ return $self->{plug}->read_service_config();
}
-sub read_service_config {
+sub parse_sid {
+ my ($self, $sid) = @_;
+
+ return $self->{plug}->parse_sid($sid);
+}
+
+sub read_fence_config {
my ($self) = @_;
- return $self->{plug}->read_service_config();
+ return $self->{plug}->read_fence_config();
+}
+
+sub fencing_mode {
+ my ($self) = @_;
+
+ return $self->{plug}->fencing_mode();
}
-sub change_service_location {
+sub exec_fence_agent {
+ my ($self, $agent, $node, @param) = @_;
+
+ return $self->{plug}->exec_fence_agent($agent, $node, @param);
+}
+
+# this is normally only allowed by the master to recover a _fenced_ service
+sub steal_service {
my ($self, $sid, $current_node, $new_node) = @_;
- return $self->{plug}->change_service_location($sid, $current_node, $new_node);
+ return $self->{plug}->steal_service($sid, $current_node, $new_node);
}
sub read_group_config {
return $self->{plug}->log($level, @args);
}
+sub sendmail {
+ my ($self, $subject, $text) = @_;
+
+ return $self->{plug}->sendmail($subject, $text);
+}
+
# acquire a cluster wide manager lock
sub get_ha_manager_lock {
my ($self) = @_;
return $self->{plug}->loop_end_hook(@args);
}
+sub cluster_state_update {
+ my ($self) = @_;
+
+ return $self->{plug}->cluster_state_update();
+}
+
sub watchdog_open {
my ($self) = @_;
return $self->{plug}->watchdog_close($wfh);
}
-sub exec_resource_agent {
- my ($self, $sid, $service_config, $cmd, @params) = @_;
+sub after_fork {
+ my ($self) = @_;
+
+ return $self->{plug}->after_fork();
+}
+
+# maximal number of workers to fork,
+# return 0 as a hack to support regression tests
+sub get_max_workers {
+ my ($self) = @_;
- return $self->{plug}->exec_resource_agent($sid, $service_config, $cmd, @params)
+ return $self->{plug}->get_max_workers();
}
-# hack to support regression tests
-sub can_fork {
+# return cluster wide enforced HA settings
+sub get_ha_settings {
my ($self) = @_;
- return $self->{plug}->can_fork();
+ return $self->{plug}->get_ha_settings();
}
1;