search for: flag_pod_longdesc

...bel. You should only use this option for guests which support SELinux."; }; + + { flag_name = "sm-config"; + flag_type = FlagSMConfig "config"; + flag_ml_var = "sm_config"; + flag_shortdesc = "configuration for subscription-manager"; + flag_pod_longdesc = "\ +Defines a configuration for subscription-manager operations. +This file has a simple text like the following: + + [general] + username=user + password=secret + + [attach-0] + pool=0123... + +Different subscription-manager commands may require different sections."; + }; + ] let...

.../generator/customize.ml b/generator/customize.ml index 36d185c..b146325 100644 --- a/generator/customize.ml +++ b/generator/customize.ml @@ -522,6 +522,9 @@ C</etc/pam.d/common-password> (Debian, Ubuntu)."; flag_shortdesc = "Relabel files with correct SELinux labels"; flag_pod_longdesc = "\ Relabel files in the guest so that they have the correct SELinux label. +This will attempt to relabel files immediately, but if the operation fails +this will instead touch C</.autorelabel> on the image to schedule a +relabel operation for the next time the image boots. You shou...

...uld only use this option for guests which support SELinux."; }; + + { flag_name = "sm-credentials"; + flag_type = FlagSMCredentials "SELECTOR"; + flag_ml_var = "sm_credentials"; + flag_shortdesc = "credentials for subscription-manager"; + flag_pod_longdesc = "\ +Set the credentials for C<subscription-manager>. + +See L<virt-builder(1)/SUBSCRIPTION-MANAGER> for the format of +the C<SELECTOR> field."; + }; + ] let rec generate_customize_cmdline_mli () = @@ -532,6 +584,8 @@ let rec argspec () = pr " let %s =...

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

...rator/customize.ml > index 36d185c..b146325 100644 > --- a/generator/customize.ml > +++ b/generator/customize.ml > @@ -522,6 +522,9 @@ C</etc/pam.d/common-password> (Debian, Ubuntu)."; > flag_shortdesc = "Relabel files with correct SELinux labels"; > flag_pod_longdesc = "\ > Relabel files in the guest so that they have the correct SELinux label. > +This will attempt to relabel files immediately, but if the operation fails > +this will instead touch C</.autorelabel> on the image to schedule a > +relabel operation for the next time the imag...

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

...SELinux_relabel.relabel g ); (* Clean up the log file: diff --git a/generator/customize.ml b/generator/customize.ml index 8caf2b5..d212c82 100644 --- a/generator/customize.ml +++ b/generator/customize.ml @@ -536,10 +536,6 @@ C</etc/pam.d/common-password> (Debian, Ubuntu)."; flag_pod_longdesc = "\ Relabel files in the guest so that they have the correct SELinux label. -This will attempt to relabel files immediately, but if the operation fails -this will instead touch F</.autorelabel> on the image to schedule a -relabel operation for the next time the image boots. - You sh...

...pr " Getopt.String (\n"; pr " s_\"%s\",\n" v; pr " fun s ->\n"; @@ -778,7 +779,7 @@ let rec argspec () = | { flag_type = FlagBool default; flag_ml_var = var; flag_name = name; flag_shortdesc = shortdesc; flag_pod_longdesc = longdesc } -> pr " (\n"; - pr " [ \"--%s\" ],\n" name; + pr " [ L\"%s\" ],\n" name; if default (* is true *) then pr " Getopt.Clear %s,\n" var else @@ -790,7 +791,7 @@ let rec...

Hi, this series introduces a basic support for registering/attaching/unregistering RHEL guests using subscription-manager, so it is possible to do for example: $ cat <<EOF > sm.conf [general] username=user password=pass [attach-0] pool=ID EOF $ virt-customize -a rhel-guest.qcow2 \ --sm-config sm.conf --sm-register --sm-attach 0 \ --install pkg1 --install pkg2

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.

...\n" shortdesc; > pr " ),\n"; > pr " Some %S, %S;\n" v longdesc > ) ops; > @@ -770,37 +778,39 @@ let rec argspec () = > | { flag_type = FlagBool default; flag_ml_var = var; flag_name = name; > flag_shortdesc = shortdesc; flag_pod_longdesc = longdesc } -> > pr " (\n"; > - pr " \"--%s\",\n" name; > + pr " [ \"--%s\" ],\n" name; > if default (* is true *) then > - pr " Arg.Clear %s,\n" var > + pr &quo...

..." s_\"%s\"\n" shortdesc; pr " ),\n"; pr " Some %S, %S;\n" v longdesc ) ops; @@ -770,37 +778,39 @@ let rec argspec () = | { flag_type = FlagBool default; flag_ml_var = var; flag_name = name; flag_shortdesc = shortdesc; flag_pod_longdesc = longdesc } -> pr " (\n"; - pr " \"--%s\",\n" name; + pr " [ \"--%s\" ],\n" name; if default (* is true *) then - pr " Arg.Clear %s,\n" var + pr " Getopt.Clear %s,\n&quo...

..." s_\"%s\"\n" shortdesc; pr " ),\n"; pr " Some %S, %S;\n" v longdesc ) ops; @@ -770,37 +778,39 @@ let rec argspec () = | { flag_type = FlagBool default; flag_ml_var = var; flag_name = name; flag_shortdesc = shortdesc; flag_pod_longdesc = longdesc } -> pr " (\n"; - pr " \"--%s\",\n" name; + pr " [ \"--%s\" ],\n" name; if default (* is true *) then - pr " Arg.Clear %s,\n" var + pr " Getopt.Clear %s,\n&quo...

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

..." s_\"%s\"\n" shortdesc; pr " ),\n"; pr " Some %S, %S;\n" v longdesc ) ops; @@ -770,37 +778,39 @@ let rec argspec () = | { flag_type = FlagBool default; flag_ml_var = var; flag_name = name; flag_shortdesc = shortdesc; flag_pod_longdesc = longdesc } -> pr " (\n"; - pr " \"--%s\",\n" name; + pr " [ \"--%s\" ],\n" name; if default (* is true *) then - pr " Arg.Clear %s,\n" var + pr " Getopt.Clear %s,\n&quo...

v1 -> v2: - Add simple test of the setfiles API. - Use SELinux_relabel module in virt-v2v (instead of touch /.autorelabel). - Small fixes. Rich.