PVE/GuestHelpers.pm

   1 package PVE::GuestHelpers;
   2
   3 use strict;
   4 use warnings;
   5
   6 use PVE::Tools;
   7
   8 # We use a separate lock to block migration while a replication job
   9 # is running.
  10
  11 our $lockdir = '/var/lock/pve-manager';
  12
  13 sub guest_migration_lock {
  14     my ($vmid, $timeout, $func, @param) = @_;
  15
  16     my $lockid = "pve-migrate-$vmid";
  17
  18     mkdir $lockdir;
  19
  20     my $res = PVE::Tools::lock_file("$lockdir/$lockid", $timeout, $func, @param);
  21     die $@ if $@;
  22
  23     return $res;
  24 }
  25
  26 1;