search for: stringpair

...d customize_read_from_file filename = + let forbidden_commands = [ +"; + + List.iter ( + function + | { op_type = StringFn (_, _); op_name = name; } -> + pr " \"%s\";\n" name + | { op_type = Unit; } + | { op_type = String _; } + | { op_type = StringPair _; } + | { op_type = StringList _; } + | { op_type = TargetLinks _; } + | { op_type = PasswordSelector _; } + | { op_type = UserPasswordSelector _; } + | { op_type = SSHKeySelector _; } -> () + ) ops; + +pr " ] in + let lines = read_whole_file filename in + let line...

...4 --- a/generator/customize.ml +++ b/generator/customize.ml @@ -95,6 +95,34 @@ I<Note>: C<PERMISSIONS> by default would be decimal, unless you prefix it with C<0> to get octal, ie. use C<0700> not C<700>."; }; + { op_name = "chown"; + op_type = StringPair "UID.GID:PATH"; + op_discrim = "`Chown"; + op_shortdesc = "Change the owner user and group ID of a file or directory"; + op_pod_longdesc = "\ +Change the owner user and group ID of a file or directory in the guest. +Note: + +=over 4 + +=item * + +Only num...

From: Maros Zatko <hacxman@gmail.com> This adds --copy SOURCE:DEST, equivalent of calling g#cp_a src dst. RFE: RHBZ#1203817 Maros Zatko (1): customize: add --copy builder/cmdline.ml | 2 +- customize/customize_run.ml | 4 ++++ generator/customize.ml | 10 ++++++++++ 3 files changed, 15 insertions(+), 1 deletion(-) -- 1.9.3

...enerator/customize.ml b/generator/customize.ml index c041f82..1c9092b 100644 --- a/generator/customize.ml +++ b/generator/customize.ml @@ -85,6 +85,19 @@ as if they were specified as I<--delete /some/file> on the command line."; }; + { op_name = "copy-in"; + op_type = StringPair "LOCALPATH:REMOTEDIR"; + op_discrim = "`CopyIn"; + op_shortdesc = "Copy local files or directories into image"; + op_pod_longdesc = "\ +Copy local files or directories recursively into the disk image, +placing them in the directory C<REMOTEDIR> (whi...

From: Maros Zatko <hacxman@gmail.com> This adds --move SOURCE:DEST, equivalent of calling g#mv src dst. RFE: RHBZ#1203817 Maros Zatko (1): customize: add --move builder/cmdline.ml | 2 +- customize/customize_run.ml | 4 ++++ generator/customize.ml | 10 ++++++++++ 3 files changed, 15 insertions(+), 1 deletion(-) -- 1.9.3

...96c4c48..99ff4b9 100644 --- a/generator/customize.ml +++ b/generator/customize.ml @@ -222,6 +222,16 @@ This uses S<C<mkdir -p>> so any intermediate directories are created, and it also works if the directory already exists."; }; + { op_name = "move"; + op_type = StringPair "SOURCE:DEST"; + op_discrim = "`Move"; + op_shortdesc = "Move files in disk image"; + op_pod_longdesc = "\ +Move files or directories inside the guest. + +Wildcards cannot be used."; + }; + { op_name = "password"; op_type = UserPas...

...generator/customize.ml b/generator/customize.ml index 259cd26..d3a1946 100644 --- a/generator/customize.ml +++ b/generator/customize.ml @@ -49,6 +49,40 @@ and op_type = | SMPoolSelector of string (* pool selector *) let ops = [ + { op_name = "append-line"; + op_type = StringPair "FILE:LINE"; + op_discrim = "`AppendLine"; + op_shortdesc = "Append line(s) to the file"; + op_pod_longdesc = "\ +Append a single line of text to the C<FILE>. If the file does not already +end with a newline, then one is added before the appended +...

...name } -> + pr " %s : Subscription_manager.sm_credentials option;\n (* --%s %s *)\n" + var name v ) flags; pr "}\n" @@ -822,7 +910,7 @@ let generate_customize_synopsis_pod () = n, sprintf "[--%s]" n | { op_type = String v | StringPair v | StringList v | TargetLinks v | PasswordSelector v | UserPasswordSelector v | SSHKeySelector v - | StringFn (v, _); + | StringFn (v, _) | SMPoolSelector v; op_name = n } -> n, sprintf "[--%s %s]" n v ) ops @ @@ -832,6 +920,...

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

...ing * Ssh_key.ssh_key_selector\n (* --%s %s *)\n" + discrim name v ) ops; pr "]\n"; @@ -631,7 +665,7 @@ let generate_customize_synopsis_pod () = | { op_type = Unit; op_name = n } -> n, sprintf "[--%s]" n | { op_type = String v | StringPair v | StringList v | TargetLinks v - | PasswordSelector v | UserPasswordSelector v; + | PasswordSelector v | UserPasswordSelector v | SSHKeySelector v; op_name = n } -> n, sprintf "[--%s %s]" n v ) ops @ @@ -671,7 +705,7 @@ let generate_cust...

This adds a customize option: virt-customize --ssh-inject USER[=KEY] virt-builder --ssh-inject USER[=KEY] virt-sysprep --ssh-inject USER[=KEY] In each case this either injects the current (host) user's ssh pubkey into the guest user USER (adding it to ~USER/.ssh/authorized_keys in the guest), or you can specify a particular key. For example: virt-builder fedora-20 --ssh-inject root

Hi, attached there is the second version of the patch series adding copy_in and copy_out in the library, mostly moving them from guestfish. It also adds the copy_in usage in virt-customize, as aid in a new image building. Thanks, Pino Toscano (7): cmd: add a way to run (and wait) asynchronously commands cmd: add a child-setup callback cmd: add the possibility to get a fd to the process

There's not going to be an easy way to present this patch. It's huge and interconnected. Anyway, what it does is lay the groundwork for a new tool which I'm calling 'virt-customize'. virt-customize is virt-builder, but without the part where it downloads a template from a respository. Just the part where it customizes the template, that is, installing packages, editing

The second patch is obviously not complete yet - for discussion only. Rich.

...L\"%s\" ],\n" name; pr " Getopt.String (s_\"%s\", fun s -> push_front (%s s) ops),\n" v discrim; pr " s_\"%s\"\n" shortdesc; pr " ),\n"; @@ -668,7 +669,7 @@ let rec argspec () = | { op_type = StringPair v; op_name = name; op_discrim = discrim; op_shortdesc = shortdesc; op_pod_longdesc = longdesc } -> pr " (\n"; - pr " [ \"--%s\" ],\n" name; + pr " [ L\"%s\" ],\n" name; pr " Getopt.String (\...

v1 -> v2: - Further fixes to Getopt int parsing. - Completed the L/S changes. - Fixed the test suite so it passes now. Also we don't need the special-case tests for 64 bit arch. Rich.

v3 -> v4: - Pushed the first patch upstream since it was ACKed. - Prevent use of M except for the special virt-v2v options. - Sort the options after added --help etc. - Make corresponding fixes to the tests. Rich.

v2 -> v3: - Add M variant and test it. Rich.

...; > + pr " Getopt.String (s_\"%s\", fun s -> ops := %s s :: !ops),\n" v discrim; > + pr " s_\"%s\"\n" shortdesc; > pr " ),\n"; > pr " Some %S, %S;\n" v longdesc > | { op_type = StringPair v; op_name = name; op_discrim = discrim; > op_shortdesc = shortdesc; op_pod_longdesc = longdesc } -> > pr " (\n"; > - pr " \"--%s\",\n" name; > - pr " Arg.String (\n"; > + pr " [ \"-...

...%s\" ],\n" name; + pr " Getopt.String (s_\"%s\", fun s -> ops := %s s :: !ops),\n" v discrim; + pr " s_\"%s\"\n" shortdesc; pr " ),\n"; pr " Some %S, %S;\n" v longdesc | { op_type = StringPair v; op_name = name; op_discrim = discrim; op_shortdesc = shortdesc; op_pod_longdesc = longdesc } -> pr " (\n"; - pr " \"--%s\",\n" name; - pr " Arg.String (\n"; + pr " [ \"--%s\" ],\n" nam...