return $conf;
}
+sub add_service {
+ my ($self, $sid, $opts) = @_;
+
+ my $conf = $self->read_service_config();
+ die "resource ID '$sid' already defined\n" if $conf->{$sid};
+
+ $conf->{$sid} = $opts;
+
+ $self->write_service_config($conf);
+
+ return $conf;
+}
+
+sub delete_service {
+ my ($self, $sid) = @_;
+
+ my $conf = $self->read_service_config();
+
+ die "no such service '$sid'" if !$conf->{$sid};
+
+ delete $conf->{$sid};
+
+ $self->write_service_config($conf);
+
+ return $conf;
+}
+
sub change_service_location {
my ($self, $sid, $current_node, $new_node) = @_;
$self->queue_crm_commands_nolock("$action $sid $target");
+ } elsif ($action eq 'add') {
+
+ $self->add_service($sid, {state => 'enabled', node => $target});
+
+ } elsif ($action eq 'delete') {
+
+ $self->delete_service($sid);
+
} else {
die "sim_hardware_cmd: unknown service action '$action' " .
"- not implemented\n"
--- /dev/null
+Test user triggered service deletion.
--- /dev/null
+[
+ [ "power node1 on", "power node2 on", "power node3 on"],
+ [ "service vm:103 delete" ]
+]
--- /dev/null
+{
+ "node1": { "power": "off", "network": "off" },
+ "node2": { "power": "off", "network": "off" },
+ "node3": { "power": "off", "network": "off" }
+}
--- /dev/null
+info 0 hardware: starting simulation
+info 20 cmdlist: execute power node1 on
+info 20 node1/crm: status change startup => wait_for_quorum
+info 20 node1/lrm: status change startup => wait_for_agent_lock
+info 20 cmdlist: execute power node2 on
+info 20 node2/crm: status change startup => wait_for_quorum
+info 20 node2/lrm: status change startup => wait_for_agent_lock
+info 20 cmdlist: execute power node3 on
+info 20 node3/crm: status change startup => wait_for_quorum
+info 20 node3/lrm: status change startup => wait_for_agent_lock
+info 20 node1/crm: got lock 'ha_manager_lock'
+info 20 node1/crm: status change wait_for_quorum => master
+info 20 node1/crm: node 'node1': state changed from 'unknown' => 'online'
+info 20 node1/crm: node 'node2': state changed from 'unknown' => 'online'
+info 20 node1/crm: node 'node3': state changed from 'unknown' => 'online'
+info 20 node1/crm: adding new service 'vm:103' on node 'node3'
+info 22 node2/crm: status change wait_for_quorum => slave
+info 24 node3/crm: status change wait_for_quorum => slave
+info 25 node3/lrm: got lock 'ha_agent_node3_lock'
+info 25 node3/lrm: status change wait_for_agent_lock => active
+info 25 node3/lrm: starting service vm:103
+info 25 node3/lrm: service status vm:103 started
+info 120 cmdlist: execute service vm:103 delete
+info 120 node1/crm: removing stale service 'vm:103' (no config)
+info 720 hardware: exit simulation - done
--- /dev/null
+{
+ "vm:103": { "node": "node3", "state": "enabled" }
+}
--- /dev/null
+Test user triggered service addition.
--- /dev/null
+[
+ [ "power node1 on", "power node2 on", "power node3 on"],
+ [ "service vm:103 add node1" ]
+]
--- /dev/null
+{
+ "node1": { "power": "off", "network": "off" },
+ "node2": { "power": "off", "network": "off" },
+ "node3": { "power": "off", "network": "off" }
+}
--- /dev/null
+info 0 hardware: starting simulation
+info 20 cmdlist: execute power node1 on
+info 20 node1/crm: status change startup => wait_for_quorum
+info 20 node1/lrm: status change startup => wait_for_agent_lock
+info 20 cmdlist: execute power node2 on
+info 20 node2/crm: status change startup => wait_for_quorum
+info 20 node2/lrm: status change startup => wait_for_agent_lock
+info 20 cmdlist: execute power node3 on
+info 20 node3/crm: status change startup => wait_for_quorum
+info 20 node3/lrm: status change startup => wait_for_agent_lock
+info 20 node1/crm: got lock 'ha_manager_lock'
+info 20 node1/crm: status change wait_for_quorum => master
+info 20 node1/crm: node 'node1': state changed from 'unknown' => 'online'
+info 20 node1/crm: node 'node2': state changed from 'unknown' => 'online'
+info 20 node1/crm: node 'node3': state changed from 'unknown' => 'online'
+info 22 node2/crm: status change wait_for_quorum => slave
+info 24 node3/crm: status change wait_for_quorum => slave
+info 120 cmdlist: execute service vm:103 add node1
+info 120 node1/crm: adding new service 'vm:103' on node 'node1'
+info 121 node1/lrm: got lock 'ha_agent_node1_lock'
+info 121 node1/lrm: status change wait_for_agent_lock => active
+info 121 node1/lrm: starting service vm:103
+info 121 node1/lrm: service status vm:103 started
+info 720 hardware: exit simulation - done