allow to simulate container resources

diff --git a/src/PVE/HA/Sim/Env.pm b/src/PVE/HA/Sim/Env.pm
index 56b8bda5e92639919eb3f6c6d7745557716a575e..d7b81225d449d71ea7f383dec2fbe8f0b6d6f103 100644 (file)
--- a/src/PVE/HA/Sim/Env.pm
+++ b/src/PVE/HA/Sim/Env.pm
@@ -335,6 +335,11 @@ sub exec_resource_agent {
 
     } elsif ($cmd eq 'migrate' || $cmd eq 'relocate') {
 
+       if ($cd->{type} eq 'ct' && $cmd eq 'migrate' && $ss->{$sid}) {
+           $self->log('err', "unable to live migrate running container");
+           return 1;
+       }
+
        my $target = $params[0];
        die "$cmd '$sid' failed - missing target\n" if !defined($target);
 

diff --git a/src/PVE/HA/Sim/Hardware.pm b/src/PVE/HA/Sim/Hardware.pm
index cfeba7efde97c9d7affe856bcb3f1be3ed88bb62..f7ad5563bb197c5c0226696467bae282ee4c9366 100644 (file)
--- a/src/PVE/HA/Sim/Hardware.pm
+++ b/src/PVE/HA/Sim/Hardware.pm
@@ -93,9 +93,9 @@ sub read_service_config {
 
        die "service '$sid' without assigned node!" if !$d->{node};
 
-       if ($sid =~ m/^vm:(\d+)$/) {
-           $d->{type} = 'vm'; 
-           $d->{name} = $1;
+       if ($sid =~ m/^(vm|ct):(\d+)$/) {
+           $d->{type} = $1;
+           $d->{name} = $2;
        } else {
            die "implement me";
        }