search for: eaf57dc

...r -> string option (** Return the last part of a string, after the specified separator. *) + +val read_first_line_from_file : string -> string +(** Read only the first line (i.e. until the first newline character) + of a file. *) diff --git a/v2v/cmdline.ml b/v2v/cmdline.ml index 705051f..eaf57dc 100644 --- a/v2v/cmdline.ml +++ b/v2v/cmdline.ml @@ -259,7 +259,7 @@ read the man page virt-v2v(1). match password_file with | None -> None | Some filename -> - let password = read_whole_file filename in + let password = read_first_line_from_file filename in So...

...the original one. - split out doc and test - put the new option in alphabetical order WRT others v2v/cmdline.ml | 7 ++++++- v2v/v2v.ml | 45 ++++++++++++++++++++++++++++++++++++--------- 2 files changed, 42 insertions(+), 10 deletions(-) diff --git a/v2v/cmdline.ml b/v2v/cmdline.ml index eaf57dc..8383ce8 100644 --- a/v2v/cmdline.ml +++ b/v2v/cmdline.ml @@ -32,6 +32,7 @@ let parse_cmdline () = let do_copy = ref true in let input_conn = ref "" in let input_format = ref "" in + let in_place = ref false in let machine_readable = ref false in let output_conn...

...h Array.to_list (g#inspect_os ()) with @@ -277,9 +275,6 @@ read the man page virt-sysprep(1). (* Finish off. *) g#shutdown (); - g#close (); - - if debug_gc then - Gc.compact () + g#close () let () = run_main_and_handle_errors main diff --git a/v2v/cmdline.ml b/v2v/cmdline.ml index eaf57dc..df65426 100644 --- a/v2v/cmdline.ml +++ b/v2v/cmdline.ml @@ -27,7 +27,6 @@ open Types open Utils let parse_cmdline () = - let debug_gc = ref false in let debug_overlays = ref false in let do_copy = ref true in let input_conn = ref "" in @@ -138,7 +137,7 @@ let parse_cmdline...

...kefile.am +++ b/v2v/Makefile.am @@ -232,6 +232,7 @@ TESTS += \ test-v2v-cdrom.sh \ test-v2v-i-ova.sh \ test-v2v-i-disk.sh \ + test-v2v-in-place.sh \ test-v2v-machine-readable.sh \ test-v2v-networks-and-bridges.sh \ test-v2v-no-copy.sh \ diff --git a/v2v/cmdline.ml b/v2v/cmdline.ml index eaf57dc..2a3224a 100644 --- a/v2v/cmdline.ml +++ b/v2v/cmdline.ml @@ -37,6 +37,7 @@ let parse_cmdline () = let output_format = ref "" in let output_name = ref "" in let output_storage = ref "" in + let in_place = ref false in let password_file = ref "" i...

Hi, this is the v2 of a series introducing basic support for registering/attaching/unregistering RHEL guests using subscription-manager, so it is possible to do for example: $ virt-customize -a rhel-guest.qcow2 \ --sm-credentials user:file:/path/to/password-file --sm-register \ --sm-attach file:/path/to/pool-file \ --install pkg1 --install pkg2 .. \ --sm-remove --sm-unregister

...2,7 @@ TESTS += \ > test-v2v-cdrom.sh \ > test-v2v-i-ova.sh \ > test-v2v-i-disk.sh \ > + test-v2v-in-place.sh \ > test-v2v-machine-readable.sh \ > test-v2v-networks-and-bridges.sh \ > test-v2v-no-copy.sh \ > diff --git a/v2v/cmdline.ml b/v2v/cmdline.ml > index eaf57dc..2a3224a 100644 > --- a/v2v/cmdline.ml > +++ b/v2v/cmdline.ml > @@ -37,6 +37,7 @@ let parse_cmdline () = > let output_format = ref "" in > let output_name = ref "" in > let output_storage = ref "" in > + let in_place = ref false in >...

This series is a second attempt to add a mode of virt-v2v operation where it leaves the config and disk image conversion, rollback on errors, registering with the destination hypervisor, etc. to a third-party toolset, and performs only tuning of the guest OS to run in the KVM-based hypervisor. The first 14 patches are just refactoring and rearrangement of the code, factoring the implementation