search for: qemu_img_version

On Mon, Feb 06, 2017 at 11:06:46AM +0300, Roman Kagan wrote: > On Sat, Feb 04, 2017 at 03:10:44PM +0100, Tomáš Golembiovský wrote: > > The function returns version of qemu-img as a tuple (major, minor), or > > the value (0,9) in case there was an error detecting the version. > > Depending on QEMU version is extremly unreliable. Vendors often stick > with fairly old

On Mon, 6 Feb 2017 15:25:53 +0000 "Richard W.M. Jones" <rjones@redhat.com> wrote: > On Mon, Feb 06, 2017 at 11:06:46AM +0300, Roman Kagan wrote: > > On Sat, Feb 04, 2017 at 03:10:44PM +0100, Tomáš Golembiovský wrote: > > > The function returns version of qemu-img as a tuple (major, minor), or > > > the value (0,9) in case there was an error detecting

Not tested yet, am running the tests now. Rich.

...--git a/v2v/input_ova.ml b/v2v/input_ova.ml index 3c11cd0..3beaffc 100644 --- a/v2v/input_ova.ml +++ b/v2v/input_ova.ml @@ -90,9 +90,8 @@ object match detect_file_type ova with | `Tar -> (* Normal ovas are tar file (not compressed). *) - let qmajor, qminor = qemu_img_version () in - if qmajor > 2 || (qmajor == 2 && qminor >= 8) then ( - (* If QEMU is 2.8 or newer we don't have to extract everything. + if qemu_img_supports_offset_and_size () then ( + (* In newe QEMU we don't have to extract everything....

v1 -> v2: - Use 'qemu-img info' which avoids one of the temporary files (thanks Tomáš). - Add a unit test. Unfortunately when I run 'make -C v2v check' I don't think this code is being run at all, so there may be something else going on here which I don't understand. Rich.

...command (sprintf "tar -tf %s" (Filename.quote file)) in + List.iter (fun f -> + if Filename.check_suffix f ".ovf" || + Filename.check_suffix f ".mf" then + untar ~path:f file outdir + ) files in + + let qemu_img_version () = + let cmd = "qemu-img --version" in + let lines = external_command cmd in + match lines with + | [] -> error ("'qemu-img --version' returned no output") + | line :: _ -> + let rex = Str.regexp "qem...

.... i.e. here: this can be changed to: let files = filter_map ( fun f -> if Filename.check_suffix f ".ovf" || Filename.check_suffix f ".mf" then Some f else None ) files in untar ~paths:files file outdir > + let qemu_img_version () = > + let cmd = "qemu-img --version" in > + let lines = external_command cmd in > + match lines with > + | [] -> error ("'qemu-img --version' returned no output") > + | line :: _ -> > +...

...le-time check or runtime > check? - yes, we have version checks for qemu, but only internally in the library (and it does not make sense to export) - runtime check indeed -- for example something like the following (taken & simplified from virt-sysprep in the rhel-6.x branches): let qemu_img_version () = let cmd = "qemu-img --version" in let lines = external_command cmd in match lines with | [] -> error ("'qemu-img --version' returned no output") | line :: _ -> try sscanf line "qemu-img version %d.%d" ( fun...

...; tmpfile in > > > > + (* Untar only ovf and manifest from the archive *) > > + let untar_partial file outdir = > > I'd rename this as "untar_metadata", as it seems a better fitting name. > YMMV. Agreed. > > + let qemu_img_version () = > > + let cmd = "qemu-img --version" in > > + let lines = external_command cmd in > > + match lines with > > + | [] -> error ("'qemu-img --version' returned no output") > > + | line :: _ -...

...inside tar. But this can be done in a separate patch. As pointed out before I didn't find a way how to detect that by using the tar tool only and would probably require use of some external library. Tomáš Golembiovský (4): mllib: add subdirectory function to common_utils v2v: add function qemu_img_version to utils v2v: add function find_file_in_tar to utils v2v: ova: don't extract files from OVA if it's not needed mllib/common_utils.ml | 9 +++ mllib/common_utils.mli | 10 +++ mllib/common_utils_tests.ml | 7 ++ test-data/test-utils.s...

v7: - rebased because patch 1/3 has been pushed - changes to nsplit have been dropped (2/3) - addressed Richard's comments, notably the subfolder function was moved to mllib and renamed to subdirectory v6: - just rebase v5: - rebase, patches 1,3,5 were merged - 1/3: we still need to discuss whether to detect compressed discs - 2/3: - renamed argument noempty to keep_empty - tests were

...else None + ) files in + untar ~paths:files ova outdir + in + match detect_file_type ova with | `Tar -> (* Normal ovas are tar file (not compressed). *) - untar ova tmpdir; - tmpdir + let qmajor, qminor = qemu_img_version () in + if qmajor > 2 || (qmajor == 2 && qminor >= 8) then ( + (* If QEMU is 2.8 or newer we don't have to extract everything. + * We can access disks inside the tar archive directly. + *) + untar_metadata ova tmpdir; +...

...t;) ?paths file outdir = > + let cmd = > + [ "tar"; sprintf "-x%sf" format; file; "-C"; outdir ] > + @ (match paths with None -> [] | Some p -> p) I don't think you need parens around the match statement here(?) > + let qemu_img_version () = > + let lines = external_command "qemu-img --version" in > + match lines with > + | [] -> error ("'qemu-img --version' returned no output") > + | line :: _ -> > + let rex = Str.regexp > +...

This series is related to the problem of inefficient import of OVA files. The needed enhancements of QEMU were merged into the codebase and should be available in QEMU 2.8. From there we can use 'size' and 'offset' options in raw driver to tell QEMU to use only subset of a file as an image. The patch set is more or less complete. The only outstanding issue is the missing detection

v6: - just rebase v5: - rebase, patches 1,3,5 were merged - 1/3: we still need to discuss whether to detect compressed discs - 2/3: - renamed argument noempty to keep_empty - tests were not run - 3/3: - using JSON module to generate JSON (as suggested by Pino) - all the other comments raised by Pino v4: - rebase to more recent master - 1/6: using just "quote" instead of

...es = + filter_map (fun f -> + if Filename.check_suffix f ".ovf" || + Filename.check_suffix f ".mf" then + Some f + else None + ) files in + untar ~paths:files ova outdir in + + let qemu_img_version () = + let cmd = "qemu-img --version" in + let lines = external_command cmd in + match lines with + | [] -> error ("'qemu-img --version' returned no output") + | line :: _ -> + let rex = Str.regexp "qem...

...es = + filter_map (fun f -> + if Filename.check_suffix f ".ovf" || + Filename.check_suffix f ".mf" then + Some f + else None + ) files in + untar ~paths:files ova outdir in + + let qemu_img_version () = + let lines = external_command "qemu-img --version" in + match lines with + | [] -> error ("'qemu-img --version' returned no output") + | line :: _ -> + let rex = Str.regexp + "qemu-img versi...

v4: - rebase to more recent master - 1/6: using just "quote" instead of "Filename.quote" - 2/6: reformated block of code according to Richards suggestion - 4/6: added tests for nsplit v3: Addressed Pino's comments, namely: - input_ova.ml - untar takes list of paths - renamed untar_partial to untar_metadata - replaced uggly regex with nsplit - tests - test changes

v5: - rebase, patches 1,3,5 were merged - 1/3: we still need to discuss whether to detect compressed discs - 2/3: - renamed argument noempty to keep_empty - tests were not run - 3/3: - using JSON module to generate JSON (as suggested by Pino) - all the other comments raised by Pino v4: - rebase to more recent master - 1/6: using just "quote" instead of

This is still a draft, not ready for commit yet. But feedback is welcomed. This series is related to the problem of inefficient import of OVA files. The needed enhancements of QEMU was merged into the codebase and should be available in QEMU 2.8. From there we can use 'size' and 'offset' options in raw driver to tell QEMU to use only subset of a file as an image. The first three