PVE::ReplicationConfig::check_for_existing_jobs - new helper

We want to use that before removing a guest.

diff --git a/PVE/ReplicationConfig.pm b/PVE/ReplicationConfig.pm
index a15b599a1f58c552675493a48912ce62c41e52d9..7b437f8dd5815ccaa8c29403c1dbb29480e6dd12 100644 (file)
--- a/PVE/ReplicationConfig.pm
+++ b/PVE/ReplicationConfig.pm
@@ -164,6 +164,21 @@ sub lock {
     }
 }
 
+sub check_for_existing_jobs {
+    my ($cfg, $vmid, $noerr) = @_;
+
+    foreach my $id (keys %{$cfg->{ids}}) {
+       my $data = $cfg->{ids}->{$id};
+
+       if ($data->{guest} == $vmid) {
+           return 1 if $noerr;
+           die "There is a replication job '$id' for guest '$vmid' - " .
+               "Please remove that first.\n"
+       }
+    }
+
+    return undef;
+}
 
 package PVE::ReplicationConfig::Cluster;