search for: pod_description

...e.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/sysprep/sysprep_operation_delete.ml b/sysprep/sysprep_operation_delete.ml index 59d5485..a08d4d0 100644 --- a/sysprep/sysprep_operation_delete.ml +++ b/sysprep/sysprep_operation_delete.ml @@ -40,7 +40,10 @@ let op = { pod_description = Some (s_"\ Delete specified files or directories. -Use the I<--delete> option to specify a path to remove."); +Use the I<--delete> option to specify a path to remove. + +You can use shell glob characters in the specified path, i.e. +C</some/dir/prefix*>.");...

In the kernel and qemu communities it is routine for patches that will be backported to stable branches to be posted for review. I'm proposing we do the same for libguestfs stable branches. All of the attached have been tested with 'make check-release'. Rich.

Version 1 of the patch, for discussion, but not to be applied. It does work, but needs a lot more testing. This removes all the psychopathic gettextify cruft, and replaces it with a 99 line Makefile.am. A large win, I think. The third patch implements gettext support in the OCaml tools. The fourth patch is just for illustration. It shows the consequent changes to libguestfs.pot and the po

...ion.ml index af2004e..057c8c5 100644 --- a/sysprep/sysprep_operation.ml +++ b/sysprep/sysprep_operation.ml @@ -186,10 +186,7 @@ let dump_pod () = if op.enabled_by_default then printf "*\n"; printf "\n"; printf "%s.\n\n" op.heading; - (match op.pod_description with - | None -> () - | Some description -> printf "%s\n\n" description - ); + may (printf "%s\n\n") op.pod_description; (match op.pod_notes with | None -> () | Some notes -> -- 2.5.0

...#glob_expand "/var/crash/*" in + Array.iter ( + fun path -> g#rm_rf path; + ) paths; + [] + ) + else [] + +let crash_data_op = { + name = "crash-data"; + enabled_by_default = true; + heading = s_"Remove the crash data generated by kexec-tools"; + pod_description = Some (s_"\ +Remove the automatically generated kdump kernel crash data in +C</var/crash/>."); + extra_args = []; + perform_on_filesystems = Some crash_data_perform; + perform_on_devices = None; +} + +let () = register_operation crash_data_op -- 1.8.0

...ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/sysprep/sysprep_operation_delete.ml b/sysprep/sysprep_operation_delete.ml index 59d5485..3db3f57 100644 --- a/sysprep/sysprep_operation_delete.ml +++ b/sysprep/sysprep_operation_delete.ml @@ -40,7 +40,12 @@ let op = { pod_description = Some (s_"\ Delete specified files or directories. -Use the I<--delete> option to specify a path to remove."); +Use the I<--delete> option to specify a path to remove. + +You can use shell glob characters in the specified path; note that such +metacharacters might require...

...pand path in + Array.iter ( + fun file -> + g#rm_rf file; + ) files; + ) paths; + + [] + ) + else [] + +let op = { + defaults with + name = "tmp-files"; + enabled_by_default = true; + heading = s_"Remove the tmp files"; + pod_description = Some (s_"\ +This removes the temporary files under C</tmp> and C</var/tmp>."); + perform_on_filesystems = Some tmp_files_perform; +} + +let () = register_operation op -- 1.8.4.27.g0a41de8

...hives/*" in + Array.iter ( + fun dir -> + g#rm_rf dir + ) cache; [] + | _ -> (); [] + +let package_manager_cache_op = { + name = "package-manager-cache"; + enabled_by_default = true; + heading = "Remove the cache of package manager"; + pod_description = None; + extra_args = []; + perform = package_manager_cache_perform; +} + +let () = register_operation package_manager_cache_op -- 1.7.10

...n + StringSet.iter ( + fun filename -> + try g#rm filename with G.Error _ -> () + ) set; + + [] + ) + else [] + +let kerberos_data_op = { + name = "kerberos-data"; + enabled_by_default = false; + heading = s_"Remove Kerberos data in the guest"; + pod_description = None; + extra_args = []; + perform = kerberos_data_perform; +} + +let () = register_operation kerberos_data_op -- 1.7.10

...l -o sysprep_operation.cmx File "sysprep_operation.ml", line 1, characters 0-1: Error: The implementation sysprep_operation.ml does not match the interface sysprep_operation.cmi: Type declarations do not match: type operation = { name : string; pod_description : string; extra_args : ((Arg.key * Arg.spec * Arg.doc) * string) list; perform : Guestfs.guestfs -> string -> bool -> flag list; } is not included in type operation = { name : string; pod_description : string;...

...fun file -> + try g#rm file with G.Error _ -> () + ) files; + ) paths; + + [] + ) + else [] + +let puppet_data_log_op = { + name = "puppet-data-log"; + enabled_by_default = false; + heading = s_"Remove the data and log files of puppet"; + pod_description = None; + extra_args = []; + perform = puppet_data_log_perform; +} + +let () = register_operation puppet_data_log_op -- 1.7.10

...if typ <> "windows" then ( + g#touch "/.unconfigured"; + [ `Created_files ] + ) + else [] + +let flag_reconfiguration_op = { + name = "flag-reconfiguration"; + enabled_by_default = true; + heading = "Flag the system for reconfiguration"; + pod_description = Some "\ +Flag the system for reconfiguration by touching a file +\"/.unconfigured\"."; + extra_args = []; + perform = flag_reconfiguration; +} + +let () = register_operation flag_reconfiguration_op; -- 1.7.10

...t/*" in + Array.iter ( + fun path -> g#rm_rf path; + ) paths; + g#rm_rf "/root/.ssh"; + [] + ) + else [] + +let abrt_data_op = { + name = "abrt-data"; + enabled_by_default = true; + heading = s_"Remove the crash data generated by ABRT"; + pod_description = Some (s_"\ +Remove the automatically generated crash data in /var/spool/abrt/ +by ABRT."); + extra_args = []; + perform = abrt_data_perform; +} + +let () = register_operation abrt_data_op -- 1.7.12.rc0

...g#rm_f path > + ) > + ) > + ) > + ) fses > + > +let op = { > + defaults with > + name = "backup-files"; > + enabled_by_default = true; > + heading = s_"Remove editor backup files from the guest"; > + pod_description = Some ( > + sprintf (f_"\ > +The following files are removed from anywhere in the guest > +filesystem: > + > +%s > + > +On Linux and Unix operating systems, only the following filesystems > +will be examined: > + > +%s") globs_as_pod unix_whitelist_as_p...

...g#write filename file + ) filenames; + + if filenames <> [||] then [ `Created_files ] else [] + + | _ -> [] + +let net_hostname_op = { + name = "net-hostname"; + enabled_by_default = true; + heading = s_"Remove HOSTNAME in network interface configuration"; + pod_description = Some (s_"\ +For Fedora and Red Hat Enterprise Linux, +this is removed from C<ifcfg-*> files."); + extra_args = []; + perform_on_filesystems = Some net_hostname_perform; + perform_on_devices = None; +} + +let () = register_operation net_hostname_op -- 1.7.12

...Array.iter ( + fun file -> + try g#rm file with G.Error _ -> () + ) files; + ) paths; + + [] + ) + else [] + +let sssd_db_log_op = { + name = "sssd-db-log"; + enabled_by_default = true; + heading = "Remove the db and log of sssd"; + pod_description = None; + extra_args = []; + perform = sssd_db_log_perform; +} + +let () = register_operation sssd_db_log_op -- 1.7.10

audit.log is already included in /var/log/audit/*. Signed-off-by: Wanlong Gao <gaowanlong@cn.fujitsu.com> --- sysprep/sysprep_operation_logfiles.ml | 1 - 1 file changed, 1 deletion(-) diff --git a/sysprep/sysprep_operation_logfiles.ml b/sysprep/sysprep_operation_logfiles.ml index 842b855..cdfe8fc 100644 --- a/sysprep/sysprep_operation_logfiles.ml +++

...; () + ) files; + (try g#touch "/var/log/account/pacct" with G.Error _ -> ()); + [ `Created_files ] + + | _ -> [] + +let pacct_log_op = { + name = "pacct-log"; + enabled_by_default = true; + heading = s_"Remove the process accounting log files"; + pod_description = Some (s_"\ +The system wide process accounting will store to the pacct +log files if the process accounting is on."); + extra_args = []; + perform_on_filesystems = Some pacct_log_perform; + perform_on_devices = None; +} + +let () = register_operation pacct_log_op -- 1.7.12.rc1

...m file with G.Error _ -> () + ) + ) excepts; + ) files; + ) paths; + + [] + ) + else [] + +let ca_certificates_op = { + name = "ca-certificates"; + enabled_by_default = true; + heading = s_"Remove CA certificates in the guest"; + pod_description = None; + extra_args = []; + perform = ca_certificates_perform; +} + +let () = register_operation ca_certificates_op -- 1.7.10

...ide_effects = + let typ = g#inspect_get_type root in + if typ = "linux" then + List.iter g#rm_f files + +let op = { + defaults with + name = "passwd-backups"; + enabled_by_default = true; + heading = s_"Remove /etc/passwd- and similar backup files"; + pod_description = Some ( + sprintf (f_"\ +On Linux the following files are removed: + +%s") files_as_pod); + perform_on_filesystems = Some passwd_backups_perform; +} + +let () = register_operation op -- 2.10.2