[pve-guest-common.git] / PVE / GuestHelpers.pm

package PVE::GuestHelpers;

use strict;
use warnings;

use PVE::Tools;

# We use a separate lock to block migration while a replication job
# is running.

our $lockdir = '/var/lock/pve-manager';

sub guest_migration_lock {
    my ($vmid, $timeout, $func, @param) = @_;

    my $lockid = "pve-migrate-$vmid";

    mkdir $lockdir;

    my $res = PVE::Tools::lock_file("$lockdir/$lockid", $timeout, $func, @param);
    die $@ if $@;

    return $res;
}

1;
Commit	Line	Data
94d526d7 DM	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
7919c482 WB	11	our $lockdir = '/var/lock/pve-manager';
7919c482 WB	12
94d526d7 DM	13	sub guest_migration_lock {
	14	my ($vmid, $timeout, $func, @param) = @_;
	15
	16	my $lockid = "pve-migrate-$vmid";
94d526d7 DM	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;