proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-05-02 21:14:59 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

snapshot_delete: save changes after each drive snapshot removal

Browse Source
This commit is contained in:
Dietmar Maurer 2012-09-12 08:58:33 +02:00
parent 3ee28e388a
commit 2009f324ac
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
PVE/QemuServer.pm
View File

@ -3806,6 +3806,7 @@ sub snapshot_delete {
my $unused = [];
my $updatefn = sub {
my ($remove_drive) = @_;
my $conf = load_config($vmid);
@ -3828,6 +3829,13 @@ sub snapshot_delete {
}
}
if ($remove_drive) {
my $drive = parse_drive($remove_drive, $snap->{$remove_drive});
my $volid = $drive->{file};
delete $snap->{$remove_drive};
add_unused_volume($conf, $volid);
}
if ($prepare) {
$snap->{snapstate} = 'delete';
} else {
@ -3852,16 +3860,20 @@ sub snapshot_delete {
my ($ds, $drive) = @_;
return if drive_is_cdrom($drive);
return if $drivehash && !$drivehash->{$ds};
my $volid = $drive->{file};
my $device = "drive-$ds";
eval { qemu_volume_snapshot_delete($vmid, $device, $storecfg, $volid, $snapname); };
if (my $err = $@) {
die $err if !$force;
warn $err;
if (!$drivehash || $drivehash->{$ds}) {
eval { qemu_volume_snapshot_delete($vmid, $device, $storecfg, $volid, $snapname); };
if (my $err = $@) {
die $err if !$force;
warn $err;
}
}
# save changes (remove drive fron snapshot)
lock_config($vmid, $updatefn, $ds) if !$force;
push @$unused, $volid;
});