For the external backup API, it will be necessary to add a fleecing
image even for small disks like EFI and TPM, because there is no other
place the old data could be copied to when a new guest write comes in.

Signed-off-by: Fiona Ebner <f.eb...@proxmox.com>
---

Changes in v4:
* adapt to context change by patch 13/27

 PVE/VZDump/QemuServer.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/PVE/VZDump/QemuServer.pm b/PVE/VZDump/QemuServer.pm
index 2157d411..7882b74b 100644
--- a/PVE/VZDump/QemuServer.pm
+++ b/PVE/VZDump/QemuServer.pm
@@ -534,7 +534,7 @@ my sub cleanup_fleecing_images {
 }
 
 my sub allocate_fleecing_images {
-    my ($self, $disks, $vmid, $fleecing_storeid, $format) = @_;
+    my ($self, $disks, $vmid, $fleecing_storeid, $format, $all_images) = @_;
 
     die "internal error - no fleecing storage specified\n" if 
!$fleecing_storeid;
 
@@ -545,7 +545,8 @@ my sub allocate_fleecing_images {
        my $n = 0; # counter for fleecing image names
 
        for my $di ($disks->@*) {
-           next if $di->{virtdev} =~ m/^(?:tpmstate|efidisk)\d$/; # too small 
to be worth it
+           # EFI/TPM are usually too small to be worth it, but it's required 
for external providers
+           next if !$all_images && $di->{virtdev} =~ 
m/^(?:tpmstate|efidisk)\d$/;
            if ($di->{type} eq 'block' || $di->{type} eq 'file') {
                my $scfg = PVE::Storage::storage_config($self->{storecfg}, 
$fleecing_storeid);
                my $name = "vm-$vmid-fleece-$n";
@@ -609,7 +610,7 @@ my sub attach_fleecing_images {
 }
 
 my sub check_and_prepare_fleecing {
-    my ($self, $vmid, $fleecing_opts, $disks, $is_template, $qemu_support) = 
@_;
+    my ($self, $vmid, $fleecing_opts, $disks, $is_template, $qemu_support, 
$all_images) = @_;
 
     # Even if the VM was started specifically for fleecing, it's possible that 
the VM is resumed and
     # then starts doing IO. For VMs that are not resumed the fleecing images 
will just stay empty,
@@ -632,7 +633,8 @@ my sub check_and_prepare_fleecing {
            $self->{storecfg}, $fleecing_opts->{storage});
        my $format = scalar(grep { $_ eq 'qcow2' } $valid_formats->@*) ? 
'qcow2' : 'raw';
 
-       allocate_fleecing_images($self, $disks, $vmid, 
$fleecing_opts->{storage}, $format);
+       allocate_fleecing_images(
+           $self, $disks, $vmid, $fleecing_opts->{storage}, $format, 
$all_images);
        attach_fleecing_images($self, $disks, $vmid, $format);
     }
 
@@ -723,7 +725,7 @@ sub archive_pbs {
        my $is_template = 
PVE::QemuConfig->is_template($self->{vmlist}->{$vmid});
 
        $task->{'use-fleecing'} = check_and_prepare_fleecing(
-           $self, $vmid, $opts->{fleecing}, $task->{disks}, $is_template, 
$qemu_support);
+           $self, $vmid, $opts->{fleecing}, $task->{disks}, $is_template, 
$qemu_support, 0);
 
        my $fs_frozen = $self->qga_fs_freeze($task, $vmid);
 
@@ -907,7 +909,7 @@ sub archive_vma {
        $attach_tpmstate_drive->($self, $task, $vmid);
 
        $task->{'use-fleecing'} = check_and_prepare_fleecing(
-           $self, $vmid, $opts->{fleecing}, $task->{disks}, $is_template, 
$qemu_support);
+           $self, $vmid, $opts->{fleecing}, $task->{disks}, $is_template, 
$qemu_support, 0);
 
        my $outfh;
        if ($opts->{stdout}) {
-- 
2.39.5



_______________________________________________
pve-devel mailing list
pve-devel@lists.proxmox.com
https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel

Reply via email to