implement qemu-img convert command Signed-off-by: Alexandre Derumier <aderum...@odiso.com> --- PVE/QemuServer.pm | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+)
diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm index 2cb7deb..5c2b26b 100644 --- a/PVE/QemuServer.pm +++ b/PVE/QemuServer.pm @@ -4031,4 +4031,33 @@ sub snapshot_delete { lock_config($vmid, $updatefn); } +sub qemu_img_convert { + my ($src_volid, $dst_volid) = @_; + + my $storecfg = PVE::Storage::config(); + my ($src_storeid, $src_volname) = PVE::Storage::parse_volume_id($src_volid, 1); + my ($dst_storeid, $dst_volname) = PVE::Storage::parse_volume_id($dst_volid, 1); + + if ($src_storeid && $dst_storeid) { + my $src_scfg = PVE::Storage::storage_config($storecfg, $src_storeid); + my $dst_scfg = PVE::Storage::storage_config($storecfg, $dst_storeid); + + my $src_format = qemu_img_format($src_scfg, $src_volname); + my $dst_format = qemu_img_format($dst_scfg, $dst_volname); + + PVE::Storage::activate_volumes($storecfg, [ $dst_volid ]) if $dst_format =~ m/(host_device|iscsi)/; + + my $src_path = PVE::Storage::path($storecfg, $src_volid); + my $dst_path = PVE::Storage::path($storecfg, $dst_volid); + + my $cmd = ['/usr/bin/qemu-img', 'convert', '-p', '-f', $src_format, '-O', $dst_format, $src_path, $dst_path]; + #fixme, display progress percent while cmd is running + eval { run_command($cmd, timeout => undef); }; + my $err = $@; + die "copy failed: $err" if $err; + + } + +} + 1; -- 1.7.10.4 _______________________________________________ pve-devel mailing list pve-devel@pve.proxmox.com http://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel