proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-05-03 01:29:13 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

PVE::QemuServer::foreach_volid - record snapshot references

Browse Source 
So that we can test if a volume is referenced in the main config, and/or
inside a snapshot config.
This commit is contained in:
Dietmar Maurer 2017-06-13 08:24:20 +02:00
parent f949eb7760
commit 39019f75c7
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
PVE/QemuServer.pm
View File

@ -2776,7 +2776,7 @@ sub foreach_volid {
my $volhash = {};
my $test_volid = sub {
my ($volid, $is_cdrom, $replicate) = @_;
my ($volid, $is_cdrom, $replicate, $snapname) = @_;
return if !$volid;
@ -2785,19 +2785,25 @@ sub foreach_volid {
$volhash->{$volid}->{replicate} //= 0;
$volhash->{$volid}->{replicate} = 1 if $replicate;
$volhash->{$volid}->{referenced_in_config} //= 0;
$volhash->{$volid}->{referenced_in_config} = 1 if !defined($snapname);
$volhash->{$volid}->{referenced_in_snapshot}->{$snapname} = 1
if defined($snapname);
};
foreach_drive($conf, sub {
my ($ds, $drive) = @_;
&$test_volid($drive->{file}, drive_is_cdrom($drive), $drive->{replicate} // 1);
$test_volid->($drive->{file}, drive_is_cdrom($drive), $drive->{replicate} // 1, undef);
});
foreach my $snapname (keys %{$conf->{snapshots}}) {
my $snap = $conf->{snapshots}->{$snapname};
&$test_volid($snap->{vmstate}, 0, 1);
$test_volid->($snap->{vmstate}, 0, 1, $snapname);
foreach_drive($snap, sub {
my ($ds, $drive) = @_;
&$test_volid($drive->{file}, drive_is_cdrom($drive), $drive->{replicate} // 1);
$test_volid->($drive->{file}, drive_is_cdrom($drive), $drive->{replicate} // 1, $snapname);
});
}