search for: created_files

...+++ b/sysprep/sysprep_operation.mli @@ -16,14 +16,16 @@ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *) -(** Structure used to describe sysprep operations. *) +(** Defines the interface between the main program and sysprep operations. *) val prog : string type flag = [ `Created_files ] type callback = Guestfs.guestfs -> string -> flag list +(** [callback g root] is called to do work. *) +(** Structure used to describe sysprep operations. *) type operation = { name : string; (** Operation name, also used to enable the operation on the command -- 1.8.4.2

...> diff --git a/sysprep/sysprep_operation_hostname.ml b/sysprep/sysprep_operation_hostname.ml index 3fc8800..363069b 100644 --- a/sysprep/sysprep_operation_hostname.ml +++ b/sysprep/sysprep_operation_hostname.ml @@ -45,6 +45,10 @@ let hostname_perform g root = g#write filename file; [ `Created_files ] + | "linux", ("opensuse"|"sles") -> + g#write "/etc/HOSTNAME" !hostname; + [ `Created_files ] + | "linux", ("debian"|"ubuntu") -> g#write "/etc/hostname" !hostname; [ `Created_files ] -- 1...

..._get_distro root in match typ, distro with @@ -42,10 +42,12 @@ let hostname_perform g root = String.concat "\n" lines ^ sprintf "\nHOSTNAME=%s\n" !hostname in g#write filename file; + logging show_log "Modified HOSTNAME to %s" !hostname [ `Created_files ] | "linux", ("debian"|"ubuntu") -> g#write "/etc/hostname" !hostname; + logging show_log "Modified HOSTNAME to %s" !hostname [ `Created_files ] | _ -> [] diff --git a/sysprep/sysprep_operation_logfiles.ml b/sysprep/sysp...

...ificlinux"|"redhat-based") -> + let files = g#glob_expand "/var/account/pacct*" in + Array.iter ( + fun file -> + try g#rm file with G.Error _ -> () + ) files; + (try g#touch "/var/account/pacct" with G.Error _ -> ()); + [ `Created_files ] + + | "linux", ("debian"|"ubuntu") -> + let files = g#glob_expand "/var/log/account/pacct*" in + Array.iter ( + fun file -> + try g#rm file with G.Error _ -> () + ) files; + (try g#touch "/var/log/account/pacct"...

In the TODO file there's a discussion of perhaps writing a new 'virt-customize' tool. I think it's probably better (or at any rate, easier) to just add this functionality into virt-sysprep. That is what this small series of patches aims to achieve. Note these are not very well tested at the moment. The first patch adds a generic and useful '--firstboot' flag. The

...name.ml +++ b/sysprep/sysprep_operation_hostname.ml @@ -42,10 +42,12 @@ let hostname_perform g root = String.concat "\n" lines ^ sprintf "\nHOSTNAME=%s\n" !hostname in g#write filename file; + eprintf "Modified HOSTNAME to %s\n" !hostname; [ `Created_files ] | "linux", ("debian"|"ubuntu") -> g#write "/etc/hostname" !hostname; + eprintf "Modified HOSTNAME to %s\n" !hostname; [ `Created_files ] | _ -> [] -- 1.7.10.rc3

Add a short paragraph about SELinux, mostly to point to the documentation about it provided in the documentation of virt-builder. --- customize/virt-customize.pod | 8 ++++++++ sysprep/virt-sysprep.pod | 8 ++++++++ 2 files changed, 16 insertions(+) diff --git a/customize/virt-customize.pod b/customize/virt-customize.pod index a666be7..8dbdfef 100644 --- a/customize/virt-customize.pod +++

...ion, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + *) + +open Sysprep_operation + +module G = Guestfs + +let flag_reconfiguration g root = + let typ = g#inspect_get_type root in + 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 +\"/.unconfigur...

...e) in + let lines = List.filter ( + fun line -> not (string_prefix line "HOSTNAME=") + ) lines in + let file = String.concat "\n" lines ^ "\n" in + 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 fro...

Read the information from os-release, and make it behave like a Debian distribution (i.e. using dpkg, and apt). --- daemon/inspect_fs.ml | 2 ++ daemon/inspect_fs_unix.ml | 1 + daemon/inspect_types.ml | 2 ++ daemon/inspect_types.mli | 1 + generator/actions_inspection.ml | 4 ++++ 5 files changed, 10 insertions(+) diff --git a/daemon/inspect_fs.ml

...s = [ "/etc/hosts.atm"; + "/etc/hosts.allow"; + "/etc/hosts.deny"; ] in + List.iter ( + fun path -> + (try g#rm path with G.Error _ -> ()); + (try g#touch path with G.Error _ -> ()); + ) paths; + [ `Created_files ] + ) + else [] + +let op = { + defaults with + name = "tcp-wrapper"; + enabled_by_default = false; + heading = s_"Remove the custom tcp wrappers"; + pod_description = Some (s_"\ +This removes the custom tcp wrappers by emptying C</etc/hosts.*>. + +Note...

...text + +module G = Guestfs + +let kdump_config_perform g root = + let typ = g#inspect_get_type root in + if typ <> "windows" then ( + let path = "/etc/kdump.conf" in + (try g#rm path with G.Error _ -> ()); + (try g#touch path with G.Error _ -> ()); + [ `Created_files ] + ) + else [] + +let op = { + defaults with + name = "kdump-config"; + enabled_by_default = false; + heading = s_"Remove the kdump configurations"; + pod_description = Some (s_"\ +This removes the kdump configurations by emptying C</etc/kdump.conf>.&q...

Attaching the patch to this email. Note we don't do github pull requests: http://libguestfs.org/guestfs-faq.1.html#where-do-i-send-patches Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones virt-top is 'top' for virtual machines. Tiny program with many powerful monitoring features, net stats, disk stats, logging, etc.

This removes tmp files under /tmp and /var/tmp. Signed-off-by: Wanlong Gao <gaowanlong@cn.fujitsu.com> --- sysprep/Makefile.am | 1 + sysprep/sysprep_operation_tmp_files.ml | 52 ++++++++++++++++++++++++++++++++++ 2 files changed, 53 insertions(+) create mode 100644 sysprep/sysprep_operation_tmp_files.ml diff --git a/sysprep/Makefile.am b/sysprep/Makefile.am index

This patch is incomplete but it illustrates the idea. virt-sysprep is rewritten as a modular tool in OCaml. Only the 'utmp' and 'hostname' operations are implemented at the moment. Rich.

Instead of rm + touch, just truncate the file if existing. In case there was no file previously, now nothing is created, as most probably the system was fine even without it. Also, turn the single path into a list, so more machine-id files can be handled at once. --- sysprep/sysprep_operation_machine_id.ml | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git

...or roll it back back before creating ". - "a new snapshot.", guest => $name)); - return -1; - } - - # Keep a list files and volumes created by the snapshot process. We need to - # clean all of these up in the event of an error. - my @created_files = (); - my @created_volumes = (); - - my $ret = eval { - # Write the backup - my $xmlbackup; - open($xmlbackup, '>', $xmlpath) - or die(__x("Unable to write to {path}: {error}", - path => $xmlpath, error => $!));...

Kali Linux is a Debian derivative, so add basic support for it by using most of the Debian code paths. The only exception is the crypto algorithm for passwords in passwd, which is always assumed as SHA512 (as Kali Linux is relatively new). --- customize/firstboot.ml | 2 +- customize/hostname.ml | 2 +- customize/password.ml | 2 +-

This patch series adds a new virt-sysprep operation to offline unenroll a guest from FreeIPA. It does so by removing some configuration files and certificates. It requires a change in libguestfs-common before the series is applied. Pino Toscano (4): customize: port do_run to run_in_guest_command sysprep: add a update_system_ca_store side effect sysprep: ca-certificates: request system CA

Setting timezone is easy. It turns out to be almost impossible to set keyboard layout in virt-builder sanely, so I have added some examples instead. Coming up next, setting languages in virt-builder (clue: very very very hard). Rich.