diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-04-11 13:25:36 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-04-11 13:50:53 +0100 |
| commit | b8fbbcf79147ee88c605726d74b2672b765e4d21 (patch) | |
| tree | 928e8efec893b4b852f8e3aac02abc5fe5c3b3a9 /sysprep/sysprep_operation.ml | |
| parent | b10a3d718e4ff8957e8af4afafcd1680c386ad33 (diff) | |
| download | libguestfs-b8fbbcf79147ee88c605726d74b2672b765e4d21.tar.gz libguestfs-b8fbbcf79147ee88c605726d74b2672b765e4d21.tar.xz libguestfs-b8fbbcf79147ee88c605726d74b2672b765e4d21.zip | |
sysprep: Print some logging by default.
It can be disabled using the --quiet option.
The logging looks like:
Examining the guest ...
Performing "cron-spool" ...
Performing "dhcp-client-state" ...
Performing "dhcp-server-state" ...
Performing "hostname" ...
Performing "logfiles" ...
Performing "mail-spool" ...
Performing "net-hwaddr" ...
Performing "random-seed" ...
Performing "rhn-systemid" ...
Performing "script" ...
Performing "smolt-uuid" ...
Performing "ssh-hostkeys" ...
Performing "udev-persistent-net" ...
Performing "utmp" ...
Performing "yum-uuid" ...
Reviewed-by: Wanlong Gao <gaowanlong@cn.fujitsu.com>
Diffstat (limited to 'sysprep/sysprep_operation.ml')
| -rw-r--r-- | sysprep/sysprep_operation.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml index 3fd8afc7..fedf9a04 100644 --- a/sysprep/sysprep_operation.ml +++ b/sysprep/sysprep_operation.ml @@ -169,7 +169,7 @@ let list_operations () = *) List.iter (fun op -> print_endline op.name ) !ops -let perform_operations ?operations g root = +let perform_operations ?operations ?(quiet = false) g root = assert !baked; let ops = @@ -181,7 +181,8 @@ let perform_operations ?operations g root = let flags = List.map ( fun op -> - (* eprintf "calling %S.perform g %S\n" op.name root; *) + if not quiet then + printf "Performing %S ...\n%!" op.name; op.perform g root ) ops in |