do not allow destroy if there are replication jobs

This commit is contained in:
Dietmar Maurer 2017-05-23 18:01:13 +02:00
parent 3ab7663a91
commit 628bb7f231

View File

@ -15,6 +15,7 @@ use PVE::Exception qw(raise raise_param_exc raise_perm_exc);
use PVE::Storage; use PVE::Storage;
use PVE::JSONSchema qw(get_standard_option); use PVE::JSONSchema qw(get_standard_option);
use PVE::RESTHandler; use PVE::RESTHandler;
use PVE::ReplicationConfig;
use PVE::QemuConfig; use PVE::QemuConfig;
use PVE::QemuServer; use PVE::QemuServer;
use PVE::QemuMigrate; use PVE::QemuMigrate;
@ -1279,6 +1280,10 @@ __PACKAGE__->register_method({
die "unable to remove VM $vmid - used in HA resources\n" die "unable to remove VM $vmid - used in HA resources\n"
if PVE::HA::Config::vm_is_ha_managed($vmid); if PVE::HA::Config::vm_is_ha_managed($vmid);
# do not allow destroy if there are replication jobs
my $repl_conf = PVE::ReplicationConfig->new();
$repl_conf->check_for_existing_jobs($vmid);
# early tests (repeat after locking) # early tests (repeat after locking)
die "VM $vmid is running - destroy failed\n" die "VM $vmid is running - destroy failed\n"
if PVE::QemuServer::check_running($vmid); if PVE::QemuServer::check_running($vmid);