mirror of
https://git.proxmox.com/git/qemu-server
synced 2025-08-05 22:36:37 +00:00
vzdump: factor out _get_task_devlist
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
parent
09eb196b9e
commit
81dcd4799f
@ -380,14 +380,8 @@ sub archive_pbs {
|
|||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $devlist = '';
|
# get list early so we die on unkown drive types before doing anything
|
||||||
foreach my $di (@{$task->{disks}}) {
|
my $devlist = _get_task_devlist($task);
|
||||||
if ($di->{type} eq 'block' || $di->{type} eq 'file') {
|
|
||||||
$devlist .= $devlist ? ",$di->{qmdevice}" : $di->{qmdevice};
|
|
||||||
} else {
|
|
||||||
die "implement me";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
my $stop_after_backup;
|
my $stop_after_backup;
|
||||||
my $resume_on_backup;
|
my $resume_on_backup;
|
||||||
@ -563,15 +557,7 @@ sub archive_vma {
|
|||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
my $devlist = _get_task_devlist($task);
|
||||||
my $devlist = '';
|
|
||||||
foreach my $di (@{$task->{disks}}) {
|
|
||||||
if ($di->{type} eq 'block' || $di->{type} eq 'file') {
|
|
||||||
$devlist .= $devlist ? ",$di->{qmdevice}" : $di->{qmdevice};
|
|
||||||
} else {
|
|
||||||
die "implement me";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
my $stop_after_backup;
|
my $stop_after_backup;
|
||||||
my $resume_on_backup;
|
my $resume_on_backup;
|
||||||
@ -773,6 +759,21 @@ sub archive_vma {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub _get_task_devlist {
|
||||||
|
my ($task) = @_;
|
||||||
|
|
||||||
|
my $devlist = '';
|
||||||
|
foreach my $di (@{$task->{disks}}) {
|
||||||
|
if ($di->{type} eq 'block' || $di->{type} eq 'file') {
|
||||||
|
$devlist .= ',' if $devlist;
|
||||||
|
$devlist .= $di->{qmdevice};
|
||||||
|
} else {
|
||||||
|
die "implement me (type '$di->{type}')";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $devlist;
|
||||||
|
}
|
||||||
|
|
||||||
sub snapshot {
|
sub snapshot {
|
||||||
my ($self, $task, $vmid) = @_;
|
my ($self, $task, $vmid) = @_;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user