yesBad/pve-storage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

plugin: add qemu_img_create

Browse Source 
Signed-off-by: Alexandre Derumier <alexandre.derumier@groupe-cyllene.com>
This commit is contained in:
Alexandre Derumier
2025-07-09 18:21:46 +02:00
committed by Wolfgang Bumiller
parent 8099a4639f
commit dd2bd851ca
1 changed files with 24 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/PVE/Storage/Plugin.pm
View File

@ -631,6 +631,29 @@ sub preallocation_cmd_option {
return;
}
=pod
=head3 qemu_img_create
qemu_img_create($scfg, $fmt, $size, $path)
Create a new qemu image with a specific format C<$format> and size C<$size> for a target C<$path>.
=cut
sub qemu_img_create {
my ($scfg, $fmt, $size, $path) = @_;
my $cmd = ['/usr/bin/qemu-img', 'create'];
my $prealloc_opt = preallocation_cmd_option($scfg, $fmt);
push @$cmd, '-o', $prealloc_opt if defined($prealloc_opt);
push @$cmd, '-f', $fmt, $path, "${size}K";
run_command($cmd, errmsg => "unable to create image");
}
# Storage implementation
# called during addition of storage (before the new storage config got written)
@ -969,14 +992,7 @@ sub alloc_image {
umask $old_umask;
die $err if $err;
} else {
my $cmd = ['/usr/bin/qemu-img', 'create'];
my $prealloc_opt = preallocation_cmd_option($scfg, $fmt);
push @$cmd, '-o', $prealloc_opt if defined($prealloc_opt);
push @$cmd, '-f', $fmt, $path, "${size}K";
eval { run_command($cmd, errmsg => "unable to create image"); };
eval { qemu_img_create($scfg, $fmt, $size, $path) };
if ($@) {
unlink $path;
rmdir $imagedir;