[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]

[Libguestfs] [PATCH 2/2] Use -v and -x flags consistently across OCaml virt-* tools.



virt-customize:
virt-sparsify:
virt-sysprep:
virt-v2v:
  - These tools consistently used -v to mean verbose/debugging
    and -x to mean enable libguestfs tracing.

virt-builder:
virt-resize:
  - These two tools did not recognize -x at all, and used -v
    to enable libguestfs tracing and general debugging.
  - This commit changes these two tools to consume -v/-x
    consistently with the other tools.

Unfortunately this has a cascade of effects through the code.
---
 builder/builder.ml                                 | 45 +++++++++----------
 builder/cache.ml                                   |  6 +--
 builder/cache.mli                                  |  2 +-
 builder/cmdline.ml                                 | 16 ++++---
 builder/downloader.ml                              | 16 +++----
 builder/downloader.mli                             |  4 +-
 builder/get_kernel.ml                              |  5 ++-
 builder/get_kernel.mli                             |  2 +-
 builder/index_parser.ml                            |  4 +-
 builder/index_parser.mli                           |  2 +-
 builder/sigchecker.ml                              | 30 ++++++-------
 builder/sigchecker.mli                             |  2 +-
 builder/sources.ml                                 | 18 ++++----
 builder/sources.mli                                |  2 +-
 builder/virt-builder.pod                           |  4 ++
 customize/customize_main.ml                        |  2 +-
 customize/customize_run.ml                         | 10 ++---
 customize/customize_run.mli                        |  2 +-
 customize/perl_edit.ml                             |  8 ++--
 customize/perl_edit.mli                            |  2 +-
 mllib/common_utils.ml                              |  2 +-
 resize/resize.ml                                   | 51 ++++++++++++----------
 resize/virt-resize.pod                             |  4 ++
 sysprep/main.ml                                    |  4 +-
 sysprep/sysprep_operation.ml                       | 10 ++---
 sysprep/sysprep_operation.mli                      |  8 ++--
 sysprep/sysprep_operation_abrt_data.ml             |  2 +-
 sysprep/sysprep_operation_bash_history.ml          |  2 +-
 sysprep/sysprep_operation_blkid_tab.ml             |  2 +-
 sysprep/sysprep_operation_ca_certificates.ml       |  2 +-
 sysprep/sysprep_operation_crash_data.ml            |  2 +-
 sysprep/sysprep_operation_cron_spool.ml            |  2 +-
 sysprep/sysprep_operation_customize.ml             |  4 +-
 sysprep/sysprep_operation_dhcp_client_state.ml     |  2 +-
 sysprep/sysprep_operation_dhcp_server_state.ml     |  2 +-
 sysprep/sysprep_operation_dovecot_data.ml          |  2 +-
 sysprep/sysprep_operation_firewall_rules.ml        |  2 +-
 sysprep/sysprep_operation_flag_reconfiguration.ml  |  2 +-
 sysprep/sysprep_operation_fs_uuids.ml              |  2 +-
 sysprep/sysprep_operation_kerberos_data.ml         |  2 +-
 sysprep/sysprep_operation_logfiles.ml              |  2 +-
 sysprep/sysprep_operation_lvm_uuids.ml             |  2 +-
 sysprep/sysprep_operation_machine_id.ml            |  2 +-
 sysprep/sysprep_operation_mail_spool.ml            |  2 +-
 sysprep/sysprep_operation_net_hostname.ml          |  2 +-
 sysprep/sysprep_operation_net_hwaddr.ml            |  2 +-
 sysprep/sysprep_operation_pacct_log.ml             |  2 +-
 sysprep/sysprep_operation_package_manager_cache.ml |  2 +-
 sysprep/sysprep_operation_pam_data.ml              |  2 +-
 sysprep/sysprep_operation_puppet_data_log.ml       |  2 +-
 .../sysprep_operation_rh_subscription_manager.ml   |  2 +-
 sysprep/sysprep_operation_rhn_systemid.ml          |  2 +-
 sysprep/sysprep_operation_rpm_db.ml                |  2 +-
 sysprep/sysprep_operation_samba_db_log.ml          |  2 +-
 sysprep/sysprep_operation_script.ml                |  2 +-
 sysprep/sysprep_operation_smolt_uuid.ml            |  2 +-
 sysprep/sysprep_operation_ssh_hostkeys.ml          |  2 +-
 sysprep/sysprep_operation_ssh_userdir.ml           |  2 +-
 sysprep/sysprep_operation_sssd_db_log.ml           |  2 +-
 sysprep/sysprep_operation_tmp_files.ml             |  2 +-
 sysprep/sysprep_operation_udev_persistent_net.ml   |  2 +-
 sysprep/sysprep_operation_user_account.ml          |  2 +-
 sysprep/sysprep_operation_utmp.ml                  |  2 +-
 sysprep/sysprep_operation_yum_uuid.ml              |  2 +-
 64 files changed, 179 insertions(+), 160 deletions(-)

diff --git a/builder/builder.ml b/builder/builder.ml
index 70c9430..213e93e 100644
--- a/builder/builder.ml
+++ b/builder/builder.ml
@@ -74,16 +74,17 @@ let remove_duplicates index =
 let main () =
   (* Command line argument parsing - see cmdline.ml. *)
   let mode, arg,
-    arch, attach, cache, check_signature, curl, debug,
+    arch, attach, cache, check_signature, curl,
     delete_on_failure, format, gpg, list_format, memsize,
-    network, ops, output, quiet, size, smp, sources, sync =
+    network, ops, output, quiet, size, smp, sources, sync,
+    trace, verbose =
     parse_cmdline () in
 
   (* Timestamped messages in ordinary, non-debug non-quiet mode. *)
   let msg fs = make_message_function ~quiet fs in
 
   (* If debugging, echo the command line arguments and the sources. *)
-  if debug then (
+  if verbose then (
     eprintf "command line:";
     List.iter (eprintf " %s") (Array.to_list Sys.argv);
     prerr_newline ();
@@ -97,7 +98,7 @@ let main () =
   let mode =
     match mode with
     | `Get_kernel -> (* --get-kernel is really a different program ... *)
-      Get_kernel.get_kernel ~debug ?format ?output arg;
+      Get_kernel.get_kernel ~trace ~verbose ?format ?output arg;
       exit 0
 
     | `Delete_cache ->                  (* --delete-cache *)
@@ -125,7 +126,7 @@ let main () =
       eprintf (f_"%s: gpg is not installed (or does not work)\nYou should install gpg, or use --gpg option, or use --no-check-signature.\n") prog;
       exit 1
     )
-    else if debug then
+    else if verbose then
       warning ~prog (f_"gpg program is not available")
   );
 
@@ -148,7 +149,7 @@ let main () =
     match cache with
     | None -> None
     | Some dir ->
-      try Some (Cache.create ~debug ~directory:dir)
+      try Some (Cache.create ~verbose ~directory:dir)
       with exn ->
         warning ~prog (f_"cache %s: %s") dir (Printexc.to_string exn);
         warning ~prog (f_"disabling the cache");
@@ -156,8 +157,8 @@ let main () =
   in
 
   (* Download the sources. *)
-  let downloader = Downloader.create ~debug ~curl ~cache in
-  let repos = Sources.read_sources ~prog ~debug in
+  let downloader = Downloader.create ~verbose ~curl ~cache in
+  let repos = Sources.read_sources ~prog ~verbose in
   let repos = List.map (
     fun { Sources.uri = uri; Sources.gpgkey = gpgkey; Sources.proxy = proxy } ->
       let gpgkey =
@@ -176,8 +177,8 @@ let main () =
       List.map (
         fun (source, key, proxy) ->
           let sigchecker =
-            Sigchecker.create ~debug ~gpg ~check_signature ~gpgkey:key in
-          Index_parser.get_index ~prog ~debug ~downloader ~sigchecker ~proxy source
+            Sigchecker.create ~verbose ~gpg ~check_signature ~gpgkey:key in
+          Index_parser.get_index ~prog ~verbose ~downloader ~sigchecker ~proxy source
       ) sources
     ) in
   let index = remove_duplicates index in
@@ -487,7 +488,7 @@ let main () =
   in
 
   (* Print out the plan. *)
-  if debug then (
+  if verbose then (
     let print_tags tags =
       (try
          let v = List.assoc `Filename tags in eprintf " +filename=%s" v
@@ -543,14 +544,14 @@ let main () =
       let ofile = List.assoc `Filename otags in
       msg (f_"Copying");
       let cmd = sprintf "cp %s %s" (quote ifile) (quote ofile) in
-      if debug then eprintf "%s\n%!" cmd;
+      if verbose then eprintf "%s\n%!" cmd;
       if Sys.command cmd <> 0 then exit 1
 
     | itags, `Rename, otags ->
       let ifile = List.assoc `Filename itags in
       let ofile = List.assoc `Filename otags in
       let cmd = sprintf "mv %s %s" (quote ifile) (quote ofile) in
-      if debug then eprintf "%s\n%!" cmd;
+      if verbose then eprintf "%s\n%!" cmd;
       if Sys.command cmd <> 0 then exit 1
 
     | itags, `Pxzcat, otags ->
@@ -573,11 +574,11 @@ let main () =
       let preallocation = if oformat = "qcow2" then Some "metadata" else None in
       let () =
         let g = new G.guestfs () in
-        if debug then ( g#set_trace true; g#set_verbose true );
+        if verbose then ( g#set_trace true; g#set_verbose true );
         g#disk_create ?preallocation ofile oformat osize in
       let cmd =
         sprintf "virt-resize%s%s%s --output-format %s%s%s %s %s"
-          (if debug then " --verbose" else " --quiet")
+          (if verbose then " --verbose" else " --quiet")
           (if is_block_device ofile then " --no-sparse" else "")
           (match iformat with
           | None -> ""
@@ -590,7 +591,7 @@ let main () =
           | None -> ""
           | Some lvexpand -> sprintf " --lv-expand %s" (quote lvexpand))
           (quote ifile) (quote ofile) in
-      if debug then eprintf "%s\n%!" cmd;
+      if verbose then eprintf "%s\n%!" cmd;
       if Sys.command cmd <> 0 then exit 1
 
     | itags, `Disk_resize, otags ->
@@ -600,8 +601,8 @@ let main () =
       msg (f_"Resizing container (but not filesystems) to expand the disk to %s")
         (human_size osize);
       let cmd = sprintf "qemu-img resize %s %Ld%s"
-        (quote ofile) osize (if debug then "" else " >/dev/null") in
-      if debug then eprintf "%s\n%!" cmd;
+        (quote ofile) osize (if verbose then "" else " >/dev/null") in
+      if verbose then eprintf "%s\n%!" cmd;
       if Sys.command cmd <> 0 then exit 1
 
     | itags, `Convert, otags ->
@@ -617,8 +618,8 @@ let main () =
         | None -> ""
         | Some iformat -> sprintf " -f %s" (quote iformat))
         (quote ifile) (quote oformat) (quote ofile)
-        (if debug then "" else " >/dev/null 2>&1") in
-      if debug then eprintf "%s\n%!" cmd;
+        (if verbose then "" else " >/dev/null 2>&1") in
+      if verbose then eprintf "%s\n%!" cmd;
       if Sys.command cmd <> 0 then exit 1
   ) plan;
 
@@ -626,7 +627,7 @@ let main () =
   msg (f_"Opening the new disk");
   let g =
     let g = new G.guestfs () in
-    if debug then g#set_trace true;
+    if verbose then g#set_trace true;
 
     (match memsize with None -> () | Some memsize -> g#set_memsize memsize);
     (match smp with None -> () | Some smp -> g#set_smp smp);
@@ -665,7 +666,7 @@ let main () =
       eprintf (f_"%s: no guest operating systems or multiboot OS found in this disk image\nThis is a failure of the source repository.  Use -v for more information.\n") prog;
       exit 1 in
 
-  Customize_run.run ~prog ~debug ~quiet g root ops;
+  Customize_run.run ~prog ~verbose ~quiet g root ops;
 
   (* Collect some stats about the final output file.
    * Notes:
diff --git a/builder/cache.ml b/builder/cache.ml
index 683cd35..5471d49 100644
--- a/builder/cache.ml
+++ b/builder/cache.ml
@@ -29,15 +29,15 @@ let clean_cachedir dir =
   ignore (Sys.command cmd);
 
 type t = {
-  debug : bool;
+  verbose : bool;
   directory : string;
 }
 
-let create ~debug ~directory =
+let create ~verbose ~directory =
   if not (is_directory directory) then
     mkdir directory 0o755;
   {
-    debug = debug;
+    verbose = verbose;
     directory = directory;
   }
 
diff --git a/builder/cache.mli b/builder/cache.mli
index 220ebcb..465e58b 100644
--- a/builder/cache.mli
+++ b/builder/cache.mli
@@ -24,7 +24,7 @@ val clean_cachedir : string -> unit
 type t
 (** The abstract data type. *)
 
-val create : debug:bool -> directory:string -> t
+val create : verbose:bool -> directory:string -> t
 (** Create the abstract type. *)
 
 val cache_of_name : t -> string -> string -> int -> string
diff --git a/builder/cmdline.ml b/builder/cmdline.ml
index 45c87fc..122c62b 100644
--- a/builder/cmdline.ml
+++ b/builder/cmdline.ml
@@ -60,7 +60,6 @@ let parse_cmdline () =
 
   let check_signature = ref true in
   let curl = ref "curl" in
-  let debug = ref false in
 
   let delete_on_failure = ref true in
 
@@ -101,6 +100,8 @@ let parse_cmdline () =
   let add_source arg = sources := arg :: !sources in
 
   let sync = ref true in
+  let trace = ref false in
+  let verbose = ref false in
 
   let argspec = [
     "--arch",    Arg.Set_string arch,       "arch" ^ " " ^ s_"Set the output architecture";
@@ -151,10 +152,11 @@ let parse_cmdline () =
     "--smp",     Arg.Int set_smp,           "vcpus" ^ " " ^ s_"Set number of vCPUs";
     "--source",  Arg.String add_source,     "URL" ^ " " ^ s_"Set source URL";
     "--no-sync", Arg.Clear sync,            " " ^ s_"Do not fsync output file on exit";
-    "-v",        Arg.Set debug,             " " ^ s_"Enable debugging messages";
-    "--verbose", Arg.Set debug,             " " ^ s_"Enable debugging messages";
+    "-v",        Arg.Set verbose,           " " ^ s_"Enable debugging messages";
+    "--verbose", Arg.Set verbose,           " " ^ s_"Enable debugging messages";
     "-V",        Arg.Unit display_version,  " " ^ s_"Display version and exit";
     "--version", Arg.Unit display_version,  " " ^ s_"Display version and exit";
+    "-x",        Arg.Set trace,             " " ^ s_"Enable tracing of libguestfs calls";
   ] in
   let customize_argspec, get_customize_ops =
     Customize_cmdline.argspec ~prog () in
@@ -198,7 +200,6 @@ read the man page virt-builder(1).
   let cache = !cache in
   let check_signature = !check_signature in
   let curl = !curl in
-  let debug = !debug in
   let delete_on_failure = !delete_on_failure in
   let fingerprints = List.rev !fingerprints in
   let format = match !format with "" -> None | s -> Some s in
@@ -214,6 +215,8 @@ read the man page virt-builder(1).
   let smp = !smp in
   let sources = List.rev !sources in
   let sync = !sync in
+  let trace = !trace in
+  let verbose = !verbose in
 
   (* No arguments and machine-readable mode?  Print some facts. *)
   if args = [] && machine_readable then (
@@ -339,6 +342,7 @@ read the man page virt-builder(1).
     ) in
 
   mode, arg,
-  arch, attach, cache, check_signature, curl, debug,
+  arch, attach, cache, check_signature, curl,
   delete_on_failure, format, gpg, list_format, memsize,
-  network, ops, output, quiet, size, smp, sources, sync
+  network, ops, output, quiet, size, smp, sources, sync,
+  trace, verbose
diff --git a/builder/downloader.ml b/builder/downloader.ml
index 9fed774..011ed1c 100644
--- a/builder/downloader.ml
+++ b/builder/downloader.ml
@@ -28,7 +28,7 @@ type uri = string
 type filename = string
 
 type t = {
-  debug : bool;
+  verbose : bool;
   curl : string;
   cache : Cache.t option;               (* cache for templates *)
 }
@@ -38,8 +38,8 @@ type proxy_mode =
   | SystemProxy
   | ForcedProxy of string
 
-let create ~debug ~curl ~cache = {
-  debug = debug;
+let create ~verbose ~curl ~cache = {
+  verbose = verbose;
   curl = curl;
   cache = cache;
 }
@@ -88,7 +88,7 @@ and download_to ~prog t ?(progress_bar = false) ~proxy uri filename =
   | "file" ->
     let path = parseduri.URI.path in
     let cmd = sprintf "cp%s %s %s"
-      (if t.debug then " -v" else "")
+      (if t.verbose then " -v" else "")
       (quote path) (quote filename_new) in
     let r = Sys.command cmd in
     if r <> 0 then (
@@ -102,9 +102,9 @@ and download_to ~prog t ?(progress_bar = false) ~proxy uri filename =
     let cmd = sprintf "%s%s%s -g -o /dev/null -I -w '%%{http_code}' %s"
       outenv
       t.curl
-      (if t.debug then "" else " -s -S")
+      (if t.verbose then "" else " -s -S")
       (quote uri) in
-    if t.debug then eprintf "%s\n%!" cmd;
+    if t.verbose then eprintf "%s\n%!" cmd;
     let lines = external_command ~prog cmd in
     if List.length lines < 1 then (
       eprintf (f_"%s: unexpected output from curl command, enable debug and look at previous messages\n")
@@ -128,9 +128,9 @@ and download_to ~prog t ?(progress_bar = false) ~proxy uri filename =
     let cmd = sprintf "%s%s%s -g -o %s %s"
       outenv
       t.curl
-      (if t.debug then "" else if progress_bar then " -#" else " -s -S")
+      (if t.verbose then "" else if progress_bar then " -#" else " -s -S")
       (quote filename_new) (quote uri) in
-    if t.debug then eprintf "%s\n%!" cmd;
+    if t.verbose then eprintf "%s\n%!" cmd;
     let r = Sys.command cmd in
     if r <> 0 then (
       eprintf (f_"%s: curl (download) command failed downloading '%s'\n")
diff --git a/builder/downloader.mli b/builder/downloader.mli
index a10cdca..2721f79 100644
--- a/builder/downloader.mli
+++ b/builder/downloader.mli
@@ -32,7 +32,7 @@ type proxy_mode =
                                 *)
   | ForcedProxy of string      (* The proxy is forced to the specified URL. *)
 
-val create : debug:bool -> curl:string -> cache:Cache.t option -> t
+val create : verbose:bool -> curl:string -> cache:Cache.t option -> t
 (** Create the abstract type. *)
 
 val download : prog:string -> t -> ?template:(string*string*int) -> ?progress_bar:bool -> ?proxy:proxy_mode -> uri -> (filename * bool)
@@ -46,7 +46,7 @@ val download : prog:string -> t -> ?template:(string*string*int) -> ?progress_ba
     and revision are used for cache control (see the man page for details).
 
     If [~progress_bar:true] then display a progress bar if the file
-    doesn't come from the cache.  In debug mode, progress messages
+    doesn't come from the cache.  In verbose mode, progress messages
     are always displayed.
 
     [proxy] specifies the type of proxy to be used in the transfer,
diff --git a/builder/get_kernel.ml b/builder/get_kernel.ml
index 7f93728..47518d4 100644
--- a/builder/get_kernel.ml
+++ b/builder/get_kernel.ml
@@ -26,9 +26,10 @@ open Printf
 (* Originally:
  * http://rwmj.wordpress.com/2013/09/13/get-kernel-and-initramfs-from-a-disk-image/
  *)
-let rec get_kernel ~debug ?format ?output disk =
+let rec get_kernel ~trace ~verbose ?format ?output disk =
   let g = new G.guestfs () in
-  if debug then g#set_trace true;
+  if trace then g#set_trace true;
+  if verbose then g#set_verbose true;
   g#add_drive_opts ?format ~readonly:true disk;
   g#launch ();
 
diff --git a/builder/get_kernel.mli b/builder/get_kernel.mli
index 7c48f25..20f9ddd 100644
--- a/builder/get_kernel.mli
+++ b/builder/get_kernel.mli
@@ -16,4 +16,4 @@
  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  *)
 
-val get_kernel : debug:bool -> ?format:string -> ?output:string -> string -> unit
+val get_kernel : trace:bool -> verbose:bool -> ?format:string -> ?output:string -> string -> unit
diff --git a/builder/index_parser.ml b/builder/index_parser.ml
index 7ccbece..0c8bf1a 100644
--- a/builder/index_parser.ml
+++ b/builder/index_parser.ml
@@ -109,7 +109,7 @@ let print_entry chan (name, { printable_name = printable_name;
   );
   if hidden then fp "hidden=true\n"
 
-let get_index ~prog ~debug ~downloader ~sigchecker ~proxy source =
+let get_index ~prog ~verbose ~downloader ~sigchecker ~proxy source =
   let corrupt_file () =
     eprintf (f_"\nThe index file downloaded from '%s' is corrupt.\nYou need to ask the supplier of this file to fix it and upload a fixed version.\n")
       source;
@@ -279,7 +279,7 @@ let get_index ~prog ~debug ~downloader ~sigchecker ~proxy source =
           n, entry
       ) sections in
 
-    if debug then (
+    if verbose then (
       eprintf "index file (%s) after parsing (C parser):\n" source;
       List.iter (print_entry Pervasives.stderr) entries
     );
diff --git a/builder/index_parser.mli b/builder/index_parser.mli
index ccf38e8..e25fcc7 100644
--- a/builder/index_parser.mli
+++ b/builder/index_parser.mli
@@ -38,4 +38,4 @@ and entry = {
   proxy : Downloader.proxy_mode;
 }
 
-val get_index : prog:string -> debug:bool -> downloader:Downloader.t -> sigchecker:Sigchecker.t -> proxy:Downloader.proxy_mode -> string -> index
+val get_index : prog:string -> verbose:bool -> downloader:Downloader.t -> sigchecker:Sigchecker.t -> proxy:Downloader.proxy_mode -> string -> index
diff --git a/builder/sigchecker.ml b/builder/sigchecker.ml
index ae8e413..c35d2da 100644
--- a/builder/sigchecker.ml
+++ b/builder/sigchecker.ml
@@ -30,7 +30,7 @@ type gpgkey_type =
   | KeyFile of string
 
 type t = {
-  debug : bool;
+  verbose : bool;
   gpg : string;
   fingerprint : string;
   check_signature : bool;
@@ -38,13 +38,13 @@ type t = {
 }
 
 (* Import the specified key file. *)
-let import_keyfile ~gpg ~gpghome ~debug keyfile =
+let import_keyfile ~gpg ~gpghome ~verbose keyfile =
   let status_file = Filename.temp_file "vbstat" ".txt" in
   unlink_on_exit status_file;
   let cmd = sprintf "%s --homedir %s --status-file %s --import %s%s"
     gpg gpghome (quote status_file) (quote keyfile)
-    (if debug then "" else " >/dev/null 2>&1") in
-  if debug then eprintf "%s\n%!" cmd;
+    (if verbose then "" else " >/dev/null 2>&1") in
+  if verbose then eprintf "%s\n%!" cmd;
   let r = Sys.command cmd in
   if r <> 0 then (
     eprintf (f_"virt-builder: error: could not import public key\nUse the '-v' option and look for earlier error messages.\n");
@@ -52,7 +52,7 @@ let import_keyfile ~gpg ~gpghome ~debug keyfile =
   );
   status_file
 
-let rec create ~debug ~gpg ~gpgkey ~check_signature =
+let rec create ~verbose ~gpg ~gpgkey ~check_signature =
   (* Create a temporary directory for gnupg. *)
   let tmpdir = Mkdtemp.mkdtemp (Filename.temp_dir_name // "vb.gpghome.XXXXXX") in
   rmdir_on_exit tmpdir;
@@ -67,8 +67,8 @@ let rec create ~debug ~gpg ~gpgkey ~check_signature =
        * cannot.
        *)
       let cmd = sprintf "%s --homedir %s --list-keys%s"
-        gpg tmpdir (if debug then "" else " >/dev/null 2>&1") in
-      if debug then eprintf "%s\n%!" cmd;
+        gpg tmpdir (if verbose then "" else " >/dev/null 2>&1") in
+      if verbose then eprintf "%s\n%!" cmd;
       let r = Sys.command cmd in
       if r <> 0 then (
         eprintf (f_"virt-builder: error: GPG failure: could not run GPG the first time\nUse the '-v' option and look for earlier error messages.\n");
@@ -78,7 +78,7 @@ let rec create ~debug ~gpg ~gpgkey ~check_signature =
       | No_Key ->
         assert false
       | KeyFile kf ->
-        let status_file = import_keyfile gpg tmpdir debug kf in
+        let status_file = import_keyfile gpg tmpdir verbose kf in
         let status = read_whole_file status_file in
         let status = string_nsplit "\n" status in
         let fingerprint = ref "" in
@@ -95,19 +95,19 @@ let rec create ~debug ~gpg ~gpgkey ~check_signature =
         unlink_on_exit filename;
         let cmd = sprintf "%s --yes --armor --output %s --export %s%s"
           gpg (quote filename) (quote fp)
-          (if debug then "" else " >/dev/null 2>&1") in
-        if debug then eprintf "%s\n%!" cmd;
+          (if verbose then "" else " >/dev/null 2>&1") in
+        if verbose then eprintf "%s\n%!" cmd;
         let r = Sys.command cmd in
         if r <> 0 then (
           eprintf (f_"virt-builder: error: could not export public key\nUse the '-v' option and look for earlier error messages.\n");
           exit 1
         );
-        ignore (import_keyfile gpg tmpdir debug filename);
+        ignore (import_keyfile gpg tmpdir verbose filename);
         fp
     ) else
       "" in
   {
-    debug = debug;
+    verbose = verbose;
     gpg = gpg;
     fingerprint = fingerprint;
     check_signature = check_signature;
@@ -161,9 +161,9 @@ and do_verify t args =
   let cmd =
     sprintf "%s --homedir %s --verify%s --status-file %s %s"
         t.gpg t.gpghome
-        (if t.debug then "" else " -q --logger-file /dev/null")
+        (if t.verbose then "" else " -q --logger-file /dev/null")
         (quote status_file) args in
-  if t.debug then eprintf "%s\n%!" cmd;
+  if t.verbose then eprintf "%s\n%!" cmd;
   let r = Sys.command cmd in
   if r <> 0 then (
     eprintf (f_"virt-builder: error: GPG failure: could not verify digital signature of file\nTry:\n - Use the '-v' option and look for earlier error messages.\n - Delete the cache: virt-builder --delete-cache\n - Check no one has tampered with the website or your network!\n");
@@ -196,7 +196,7 @@ let verify_checksum t (SHA512 csum) filename =
   unlink_on_exit csum_file;
   let cmd = sprintf "sha512sum %s | awk '{print $1}' > %s"
     (quote filename) (quote csum_file) in
-  if t.debug then eprintf "%s\n%!" cmd;
+  if t.verbose then eprintf "%s\n%!" cmd;
   let r = Sys.command cmd in
   if r <> 0 then (
     eprintf (f_"virt-builder: error: could not run sha512sum command to verify checksum\n");
diff --git a/builder/sigchecker.mli b/builder/sigchecker.mli
index 8c6ba7f..5b1885b 100644
--- a/builder/sigchecker.mli
+++ b/builder/sigchecker.mli
@@ -23,7 +23,7 @@ type gpgkey_type =
   | Fingerprint of string
   | KeyFile of string
 
-val create : debug:bool -> gpg:string -> gpgkey:gpgkey_type -> check_signature:bool -> t
+val create : verbose:bool -> gpg:string -> gpgkey:gpgkey_type -> check_signature:bool -> t
 
 val verify : t -> string -> unit
 (** Verify the file is signed (if check_signature is true). *)
diff --git a/builder/sources.ml b/builder/sources.ml
index be1c27d..a752edc 100644
--- a/builder/sources.ml
+++ b/builder/sources.ml
@@ -31,8 +31,8 @@ type source = {
 
 module StringSet = Set.Make (String)
 
-let parse_conf ~prog ~debug file =
-  if debug then (
+let parse_conf ~prog ~verbose file =
+  if verbose then (
     eprintf (f_"%s: trying to read %s\n") prog file;
   );
   let sections = Ini_reader.read_ini ~prog ~error_suffix:"[ignored]" file in
@@ -51,7 +51,7 @@ let parse_conf ~prog ~debug file =
             try Some (URI.parse_uri (List.assoc ("gpgkey", None) fields)) with
             | Not_found -> None
             | Invalid_argument "URI.parse_uri" as ex ->
-              if debug then (
+              if verbose then (
                 eprintf (f_"%s: '%s' has invalid gpgkey URI\n") prog n;
               );
               raise ex in
@@ -61,7 +61,7 @@ let parse_conf ~prog ~debug file =
             (match uri.URI.protocol with
             | "file" -> Some uri.URI.path
             | _ ->
-              if debug then (
+              if verbose then (
                 eprintf (f_"%s: '%s' has non-local gpgkey URI\n") prog n;
               );
               None
@@ -83,7 +83,7 @@ let parse_conf ~prog ~debug file =
       with Not_found | Invalid_argument _ -> acc
   ) sections [] in
 
-  if debug then (
+  if verbose then (
     eprintf (f_"%s: ... read %d sources\n") prog (List.length sources);
   );
 
@@ -101,7 +101,7 @@ let merge_sources current_sources new_sources =
 let filter_filenames filename =
   Filename.check_suffix filename ".conf"
 
-let read_sources ~prog ~debug =
+let read_sources ~prog ~verbose =
   let dirs = Paths.xdg_config_dirs ~prog in
   let dirs =
     match Paths.xdg_config_home ~prog with
@@ -118,7 +118,7 @@ let read_sources ~prog ~debug =
       List.fold_left (
         fun acc file ->
           try (
-            let s = merge_sources acc (parse_conf ~prog ~debug (dir // file)) in
+            let s = merge_sources acc (parse_conf ~prog ~verbose (dir // file)) in
             (* Add the current file name to the set only if its parsing
              * was successful.
              *)
@@ -126,12 +126,12 @@ let read_sources ~prog ~debug =
             s
           ) with
           | Unix_error (code, fname, _) ->
-            if debug then (
+            if verbose then (
               eprintf (f_"%s: file error: %s: %s\n") prog fname (error_message code)
             );
             acc
           | Invalid_argument msg ->
-            if debug then (
+            if verbose then (
               eprintf (f_"%s: internal error: invalid argument: %s\n") prog msg
             );
             acc
diff --git a/builder/sources.mli b/builder/sources.mli
index 0ade536..3e31d35 100644
--- a/builder/sources.mli
+++ b/builder/sources.mli
@@ -23,4 +23,4 @@ type source = {
   proxy : Downloader.proxy_mode;
 }
 
-val read_sources : prog:string -> debug:bool -> source list
+val read_sources : prog:string -> verbose:bool -> source list
diff --git a/builder/virt-builder.pod b/builder/virt-builder.pod
index a70767f..323016c 100644
--- a/builder/virt-builder.pod
+++ b/builder/virt-builder.pod
@@ -500,6 +500,10 @@ your bug report.
 
 Display version number and exit.
 
+=item B<-x>
+
+Enable tracing of libguestfs API calls.
+
 =back
 
 =head2 Customization options
diff --git a/customize/customize_main.ml b/customize/customize_main.ml
index 00d5bae..7229943 100644
--- a/customize/customize_main.ml
+++ b/customize/customize_main.ml
@@ -228,7 +228,7 @@ read the man page virt-customize(1).
         ) mps;
 
         (* Do the customization. *)
-        Customize_run.run ~prog ~debug:verbose ~quiet g root ops;
+        Customize_run.run ~prog ~verbose ~quiet g root ops;
 
         g#umount_all ();
     ) roots;
diff --git a/customize/customize_run.ml b/customize/customize_run.ml
index 57b888f..af1bf86 100644
--- a/customize/customize_run.ml
+++ b/customize/customize_run.ml
@@ -27,7 +27,7 @@ open Password
 
 let quote = Filename.quote
 
-let run ~prog ~debug ~quiet (g : Guestfs.guestfs) root (ops : ops) =
+let run ~prog ~verbose ~quiet (g : Guestfs.guestfs) root (ops : ops) =
   (* Timestamped messages in ordinary, non-debug non-quiet mode. *)
   let msg fs = make_message_function ~quiet fs in
 
@@ -75,7 +75,7 @@ exec >>%s 2>&1
 %s
 " (quote logfile) env_vars cmd in
 
-    if debug then eprintf "running command:\n%s\n%!" cmd;
+    if verbose then eprintf "running command:\n%s\n%!" cmd;
     try ignore (g#sh cmd)
     with
       Guestfs.Error msg ->
@@ -193,7 +193,7 @@ exec >>%s 2>&1
         exit 1
       );
 
-      Perl_edit.edit_file ~debug g path expr
+      Perl_edit.edit_file ~verbose g path expr
 
     | `FirstbootCommand cmd ->
       incr i;
@@ -313,7 +313,7 @@ exec >>%s 2>&1
    * If debugging, dump out the log file.
    * Then if asked, scrub the log file.
    *)
-  if debug then debug_logfile ();
+  if verbose then debug_logfile ();
   if ops.flags.scrub_logfile && g#exists logfile then (
     msg (f_"Scrubbing the log file");
 
@@ -330,7 +330,7 @@ exec >>%s 2>&1
    *)
   (try ignore (g#debug "sh" [| "fuser"; "-k"; "/sysroot" |])
    with exn ->
-     if debug then
+     if verbose then
        eprintf (f_"%s: %s (ignored)\n") prog (Printexc.to_string exn)
   );
   g#ping_daemon () (* tiny delay after kill *)
diff --git a/customize/customize_run.mli b/customize/customize_run.mli
index 0fa7683..0b375eb 100644
--- a/customize/customize_run.mli
+++ b/customize/customize_run.mli
@@ -23,4 +23,4 @@
  * filesystems must be mounted up.
  *)
 
-val run : prog:string -> debug:bool -> quiet:bool -> Guestfs.guestfs -> string -> Customize_cmdline.ops -> unit
+val run : prog:string -> verbose:bool -> quiet:bool -> Guestfs.guestfs -> string -> Customize_cmdline.ops -> unit
diff --git a/customize/perl_edit.ml b/customize/perl_edit.ml
index 28e5dea..e44ff69 100644
--- a/customize/perl_edit.ml
+++ b/customize/perl_edit.ml
@@ -25,7 +25,7 @@ open Printf
  *
  * Code copied from virt-edit.
  *)
-let rec edit_file ~debug (g : Guestfs.guestfs) file expr =
+let rec edit_file ~verbose (g : Guestfs.guestfs) file expr =
   let file_old = file ^ "~" in
   g#rename file file_old;
 
@@ -34,7 +34,7 @@ let rec edit_file ~debug (g : Guestfs.guestfs) file expr =
   unlink_on_exit tmpfile;
   g#download file_old tmpfile;
 
-  do_perl_edit ~debug g tmpfile expr;
+  do_perl_edit ~verbose g tmpfile expr;
 
   (* Upload the file.  Unlike virt-edit we can afford to fail here
    * so we don't need the temporary upload file.
@@ -45,7 +45,7 @@ let rec edit_file ~debug (g : Guestfs.guestfs) file expr =
   g#copy_attributes ~all:true file_old file;
   g#rm file_old
 
-and do_perl_edit ~debug g file expr =
+and do_perl_edit ~verbose g file expr =
   (* Pass the expression to Perl via the environment.  This sidesteps
    * any quoting problems with the already complex Perl command line.
    *)
@@ -65,7 +65,7 @@ and do_perl_edit ~debug g file expr =
       close STDOUT or die \"close: $!\";
     ' < %s > %s.out" file file in
 
-  if debug then
+  if verbose then
     eprintf "%s\n%!" cmd;
 
   let r = Sys.command cmd in
diff --git a/customize/perl_edit.mli b/customize/perl_edit.mli
index fd30dcc..e84ac08 100644
--- a/customize/perl_edit.mli
+++ b/customize/perl_edit.mli
@@ -16,4 +16,4 @@
  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  *)
 
-val edit_file : debug:bool -> Guestfs.guestfs -> string -> string -> unit
+val edit_file : verbose:bool -> Guestfs.guestfs -> string -> string -> unit
diff --git a/mllib/common_utils.ml b/mllib/common_utils.ml
index e500ea4..6c7ac34 100644
--- a/mllib/common_utils.ml
+++ b/mllib/common_utils.ml
@@ -217,7 +217,7 @@ let error ~prog ?(exit_code = 1) fs =
     prerr_newline ();
     prerr_newline ();
     wrap ~chan:stderr
-      (sprintf (f_"%s: If reporting bugs, run %s with debugging enabled (-v) and include the complete output.")
+      (sprintf (f_"%s: If reporting bugs, run %s with debugging enabled (-v -x) and include the complete output.")
          prog prog);
     prerr_newline ();
     exit exit_code
diff --git a/resize/resize.ml b/resize/resize.ml
index 7ae8c37..9614ec7 100644
--- a/resize/resize.ml
+++ b/resize/resize.ml
@@ -132,10 +132,10 @@ let string_of_expand_content_method = function
 (* Main program. *)
 let main () =
   let infile, outfile, align_first, alignment, copy_boot_loader,
-    debug, debug_gc, deletes,
+    debug_gc, deletes,
     dryrun, expand, expand_content, extra_partition, format, ignores,
     lv_expands, machine_readable, ntfsresize_force, output_format,
-    quiet, resizes, resizes_force, shrink, sparse =
+    quiet, resizes, resizes_force, shrink, sparse, trace, verbose =
     let display_version () =
       printf "virt-resize %s\n" Config.package_version;
       exit 0
@@ -146,7 +146,6 @@ let main () =
     let align_first = ref "auto" in
     let alignment = ref 128 in
     let copy_boot_loader = ref true in
-    let debug = ref false in
     let debug_gc = ref false in
     let deletes = ref [] in
     let dryrun = ref false in
@@ -174,14 +173,16 @@ let main () =
       else shrink := s
     in
     let sparse = ref true in
+    let trace = ref false in
+    let verbose = ref false in
 
     let ditto = " -\"-" in
     let argspec = Arg.align [
       "--align-first", Arg.Set_string align_first, s_"never|always|auto" ^ " " ^ s_"Align first partition (default: auto)";
       "--alignment", Arg.Set_int alignment,   s_"sectors" ^ " " ^ s_"Set partition alignment (default: 128 sectors)";
       "--no-copy-boot-loader", Arg.Clear copy_boot_loader, " " ^ s_"Don't copy boot loader";
-      "-d",        Arg.Set debug,             " " ^ s_"Enable debugging messages";
-      "--debug",   Arg.Set debug,             ditto;
+      "-d",        Arg.Set verbose,           " " ^ s_"Enable debugging messages";
+      "--debug",   Arg.Set verbose,           ditto;
       "--debug-gc",Arg.Set debug_gc,          " " ^ s_"Debug GC and memory allocations";
       "--delete",  Arg.String (add deletes),  s_"part" ^ " " ^ s_"Delete partition";
       "--expand",  Arg.String set_expand,     s_"part" ^ " " ^ s_"Expand partition";
@@ -206,10 +207,11 @@ let main () =
       "--resize-force", Arg.String (add resizes_force), s_"part=size" ^ " " ^ s_"Forcefully resize partition";
       "--shrink",  Arg.String set_shrink,     s_"part" ^ " " ^ s_"Shrink partition";
       "--no-sparse", Arg.Clear sparse,        " " ^ s_"Turn off sparse copying";
-      "-v",        Arg.Set debug,             " " ^ s_"Enable debugging messages";
-      "--verbose", Arg.Set debug,             ditto;
+      "-v",        Arg.Set verbose,           " " ^ s_"Enable debugging messages";
+      "--verbose", Arg.Set verbose,           ditto;
       "-V",        Arg.Unit display_version,  " " ^ s_"Display version and exit";
       "--version", Arg.Unit display_version,  ditto;
+      "-x",        Arg.Set trace,             " " ^ s_"Enable tracing of libguestfs calls";
     ] in
     long_options := argspec;
     let disks = ref [] in
@@ -224,8 +226,8 @@ read the man page virt-resize(1).
         prog in
     Arg.parse argspec anon_fun usage_msg;
 
-    let debug = !debug in
-    if debug then (
+    let verbose = !verbose in
+    if verbose then (
       eprintf "command line:";
       List.iter (eprintf " %s") (Array.to_list Sys.argv);
       prerr_newline ()
@@ -251,6 +253,7 @@ read the man page virt-resize(1).
     let resizes_force = List.rev !resizes_force in
     let shrink = match !shrink with "" -> None | str -> Some str in
     let sparse = !sparse in
+    let trace = !trace in
 
     if alignment < 1 then
       error (f_"alignment cannot be < 1");
@@ -308,10 +311,10 @@ read the man page virt-resize(1).
           infile in
 
     infile, outfile, align_first, alignment, copy_boot_loader,
-    debug, debug_gc, deletes,
+    debug_gc, deletes,
     dryrun, expand, expand_content, extra_partition, format, ignores,
     lv_expands, machine_readable, ntfsresize_force, output_format,
-    quiet, resizes, resizes_force, shrink, sparse in
+    quiet, resizes, resizes_force, shrink, sparse, trace, verbose in
 
   (* Default to true, since NTFS and btrfs support are usually available. *)
   let ntfs_available = ref true in
@@ -320,7 +323,8 @@ read the man page virt-resize(1).
   (* Add in and out disks to the handle and launch. *)
   let connect_both_disks () =
     let g = new G.guestfs () in
-    if debug then g#set_trace true;
+    if trace then g#set_trace true;
+    if verbose then g#set_verbose true;
     let _, { URI.path = path; protocol = protocol;
              server = server; username = username;
              password = password } = infile in
@@ -361,7 +365,7 @@ read the man page virt-resize(1).
     let sectsize = g#blockdev_getss "/dev/sdb" in
     let insize = g#blockdev_getsize64 "/dev/sda" in
     let outsize = g#blockdev_getsize64 "/dev/sdb" in
-    if debug then (
+    if verbose then (
       eprintf "%s size %Ld bytes\n" (fst infile) insize;
       eprintf "%s size %Ld bytes\n" outfile outsize
     );
@@ -391,7 +395,7 @@ read the man page virt-resize(1).
   (* Get the source partition type. *)
   let parttype, parttype_string =
     let pt = g#part_get_parttype "/dev/sda" in
-    if debug then eprintf "partition table type: %s\n%!" pt;
+    if verbose then eprintf "partition table type: %s\n%!" pt;
 
     match pt with
     | "msdos" -> MBR, "msdos"
@@ -477,7 +481,7 @@ read the man page virt-resize(1).
             p_target_start = 0L; p_target_end = 0L }
       ) parts in
 
-    if debug then (
+    if verbose then (
       eprintf "%d partitions found\n" (List.length partitions);
       List.iter debug_partition partitions
     );
@@ -529,7 +533,7 @@ read the man page virt-resize(1).
         { lv_name = name; lv_type = typ; lv_operation = LVOpNone }
     ) lvs in
 
-    if debug then (
+    if verbose then (
       eprintf "%d logical volumes found\n" (List.length lvs);
       List.iter debug_logvol lvs
     );
@@ -735,7 +739,7 @@ read the man page virt-resize(1).
 
     let surplus = outsize -^ (required +^ overhead) in
 
-    if debug then
+    if verbose then
       eprintf "calculate surplus: outsize=%Ld required=%Ld overhead=%Ld surplus=%Ld\n%!"
         outsize required overhead surplus;
 
@@ -749,7 +753,7 @@ read the man page virt-resize(1).
   if expand <> None || shrink <> None then (
     let surplus = calculate_surplus () in
 
-    if debug then
+    if verbose then
       eprintf "surplus before --expand or --shrink: %Ld\n" surplus;
 
     (match expand with
@@ -991,7 +995,7 @@ read the man page virt-resize(1).
     | `Always, _
     | `Auto, true -> true in
 
-  if debug then
+  if verbose then
     eprintf "align_first_partition_and_fix_bootloader = %b\n%!"
       align_first_partition_and_fix_bootloader;
 
@@ -1017,7 +1021,7 @@ read the man page virt-resize(1).
           let end_ = start +^ size in
           let next = roundup64 end_ alignment in
 
-          if debug then
+          if verbose then
             eprintf "target partition %d: ignore or copy: start=%Ld end=%Ld\n%!"
               partnum start (end_ -^ 1L);
 
@@ -1031,7 +1035,7 @@ read the man page virt-resize(1).
           let next = start +^ size in
           let next = roundup64 next alignment in
 
-          if debug then
+          if verbose then
             eprintf "target partition %d: resize: newsize=%Ld start=%Ld end=%Ld\n%!"
               partnum newsize start (next -^ 1L);
 
@@ -1165,7 +1169,7 @@ read the man page virt-resize(1).
         if not quiet then
           printf (f_"Fixing first NTFS partition boot record ...\n%!");
 
-        if debug then (
+        if verbose then (
           let old_hidden = int_of_le32 (g#pread_device target 4 0x1c_L) in
           eprintf "old hidden sectors value: 0x%Lx\n%!" old_hidden
         );
@@ -1207,7 +1211,8 @@ read the man page virt-resize(1).
       g#close ();
 
       let g = new G.guestfs () in
-      if debug then g#set_trace true;
+      if trace then g#set_trace true;
+      if verbose then g#set_verbose true;
       (* The output disk is being created, so use cache=unsafe here. *)
       g#add_drive ?format:output_format ~readonly:false ~cachemode:"unsafe"
         outfile;
diff --git a/resize/virt-resize.pod b/resize/virt-resize.pod
index 0fd7e9e..2c1f901 100644
--- a/resize/virt-resize.pod
+++ b/resize/virt-resize.pod
@@ -586,6 +586,10 @@ Enable debugging messages.
 
 Display version number and exit.
 
+=item B<-x>
+
+Enable tracing of libguestfs API calls.
+
 =back
 
 =head1 MACHINE READABLE OUTPUT
diff --git a/sysprep/main.ml b/sysprep/main.ml
index 37e4dc8..ef5d8c9 100644
--- a/sysprep/main.ml
+++ b/sysprep/main.ml
@@ -270,7 +270,7 @@ let do_sysprep () =
 
         (* Perform the filesystem operations. *)
         Sysprep_operation.perform_operations_on_filesystems
-          ?operations ~debug:verbose ~quiet g root side_effects;
+          ?operations ~verbose ~quiet g root side_effects;
 
         (* Unmount everything in this guest. *)
         g#umount_all ();
@@ -279,7 +279,7 @@ let do_sysprep () =
 
         (* Perform the block device operations. *)
         Sysprep_operation.perform_operations_on_devices
-          ?operations ~debug:verbose ~quiet g root side_effects;
+          ?operations ~verbose ~quiet g root side_effects;
     ) roots
 
 (* Finished. *)
diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml
index 4914a97..19ccfe0 100644
--- a/sysprep/sysprep_operation.ml
+++ b/sysprep/sysprep_operation.ml
@@ -33,7 +33,7 @@ end
 
 class device_side_effects = object end
 
-type 'a callback = debug:bool -> quiet:bool -> Guestfs.guestfs -> string -> 'a -> unit
+type 'a callback = verbose:bool -> quiet:bool -> Guestfs.guestfs -> string -> 'a -> unit
 
 type operation = {
   order : int;
@@ -276,7 +276,7 @@ let compare_operations { order = o1; name = n1 } { order = o2; name = n2 } =
   let i = compare o1 o2 in
   if i <> 0 then i else compare n1 n2
 
-let perform_operations_on_filesystems ?operations ~debug ~quiet g root
+let perform_operations_on_filesystems ?operations ~verbose ~quiet g root
     side_effects =
   assert !baked;
 
@@ -295,11 +295,11 @@ let perform_operations_on_filesystems ?operations ~debug ~quiet g root
     function
     | { name = name; perform_on_filesystems = Some fn } ->
       msg "Performing %S ..." name;
-      fn ~debug ~quiet g root side_effects
+      fn ~verbose ~quiet g root side_effects
     | { perform_on_filesystems = None } -> ()
   ) ops
 
-let perform_operations_on_devices ?operations ~debug ~quiet g root
+let perform_operations_on_devices ?operations ~verbose ~quiet g root
     side_effects =
   assert !baked;
 
@@ -318,6 +318,6 @@ let perform_operations_on_devices ?operations ~debug ~quiet g root
     function
     | { name = name; perform_on_devices = Some fn } ->
       msg "Performing %S ..." name;
-      fn ~debug ~quiet g root side_effects
+      fn ~verbose ~quiet g root side_effects
     | { perform_on_devices = None } -> ()
   ) ops
diff --git a/sysprep/sysprep_operation.mli b/sysprep/sysprep_operation.mli
index 03859ae..c2057ed 100644
--- a/sysprep/sysprep_operation.mli
+++ b/sysprep/sysprep_operation.mli
@@ -30,8 +30,8 @@ end
 class device_side_effects : object end
 (** There are currently no device side-effects.  For future use. *)
 
-type 'side_effects callback = debug:bool -> quiet:bool -> Guestfs.guestfs -> string -> 'side_effects -> unit
-(** [callback ~debug ~quiet g root side_effects] is called to do work.
+type 'side_effects callback = verbose:bool -> quiet:bool -> Guestfs.guestfs -> string -> 'side_effects -> unit
+(** [callback ~verbose ~quiet g root side_effects] is called to do work.
 
     If the operation has side effects such as creating files, it
     should indicate that by calling the [side_effects] object. *)
@@ -169,8 +169,8 @@ val remove_all_from_set : set -> set
 (** [remove_all_from_set set] removes from [set] all the available
     operations. *)
 
-val perform_operations_on_filesystems : ?operations:set -> debug:bool -> quiet:bool -> Guestfs.guestfs -> string -> filesystem_side_effects -> unit
+val perform_operations_on_filesystems : ?operations:set -> verbose:bool -> quiet:bool -> Guestfs.guestfs -> string -> filesystem_side_effects -> unit
 (** Perform all operations, or the subset listed in the [operations] set. *)
 
-val perform_operations_on_devices : ?operations:set -> debug:bool -> quiet:bool -> Guestfs.guestfs -> string -> device_side_effects -> unit
+val perform_operations_on_devices : ?operations:set -> verbose:bool -> quiet:bool -> Guestfs.guestfs -> string -> device_side_effects -> unit
 (** Perform all operations, or the subset listed in the [operations] set. *)
diff --git a/sysprep/sysprep_operation_abrt_data.ml b/sysprep/sysprep_operation_abrt_data.ml
index 94d8dd7..fb16ea2 100644
--- a/sysprep/sysprep_operation_abrt_data.ml
+++ b/sysprep/sysprep_operation_abrt_data.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let abrt_data_perform ~debug ~quiet g root side_effects =
+let abrt_data_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = g#glob_expand "/var/spool/abrt/*" in
diff --git a/sysprep/sysprep_operation_bash_history.ml b/sysprep/sysprep_operation_bash_history.ml
index fdc0786..01f9962 100644
--- a/sysprep/sysprep_operation_bash_history.ml
+++ b/sysprep/sysprep_operation_bash_history.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let bash_history_perform ~debug ~quiet g root side_effects =
+let bash_history_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let files = g#glob_expand "/home/*/.bash_history" in
diff --git a/sysprep/sysprep_operation_blkid_tab.ml b/sysprep/sysprep_operation_blkid_tab.ml
index f85e987..54d066f 100644
--- a/sysprep/sysprep_operation_blkid_tab.ml
+++ b/sysprep/sysprep_operation_blkid_tab.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let blkid_tab_perform ~debug ~quiet g root side_effects =
+let blkid_tab_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let files = [ "/var/run/blkid.tab";
diff --git a/sysprep/sysprep_operation_ca_certificates.ml b/sysprep/sysprep_operation_ca_certificates.ml
index c846b25..aa2e115 100644
--- a/sysprep/sysprep_operation_ca_certificates.ml
+++ b/sysprep/sysprep_operation_ca_certificates.ml
@@ -22,7 +22,7 @@ open Common_gettext.Gettext
 module StringSet = Set.Make (String)
 module G = Guestfs
 
-let ca_certificates_perform ~debug ~quiet g root side_effects =
+let ca_certificates_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = [ "/etc/pki/CA/certs/*.crt";
diff --git a/sysprep/sysprep_operation_crash_data.ml b/sysprep/sysprep_operation_crash_data.ml
index 3fb865e..370f695 100644
--- a/sysprep/sysprep_operation_crash_data.ml
+++ b/sysprep/sysprep_operation_crash_data.ml
@@ -26,7 +26,7 @@ let globs = [
   "/var/log/dump/*";
 ]
 
-let crash_data_perform ~debug ~quiet g root side_effects =
+let crash_data_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ = "linux" then (
     List.iter (fun glob -> Array.iter g#rm_rf (g#glob_expand glob)) globs
diff --git a/sysprep/sysprep_operation_cron_spool.ml b/sysprep/sysprep_operation_cron_spool.ml
index 0f11f91..9a78e85 100644
--- a/sysprep/sysprep_operation_cron_spool.ml
+++ b/sysprep/sysprep_operation_cron_spool.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let cron_spool_perform ~debug ~quiet (g : Guestfs.guestfs) root side_effects =
+let cron_spool_perform ~verbose ~quiet (g : Guestfs.guestfs) root side_effects =
   Array.iter g#rm_rf (g#glob_expand "/var/spool/cron/*");
   Array.iter g#rm (g#glob_expand "/var/spool/atjobs/*");
   Array.iter g#rm (g#glob_expand "/var/spool/atjobs/.SEQ");
diff --git a/sysprep/sysprep_operation_customize.ml b/sysprep/sysprep_operation_customize.ml
index 145c29f..668c25a 100644
--- a/sysprep/sysprep_operation_customize.ml
+++ b/sysprep/sysprep_operation_customize.ml
@@ -30,9 +30,9 @@ let customize_args, get_ops =
   ) args in
   args, get_ops
 
-let customize_perform ~debug ~quiet g root side_effects =
+let customize_perform ~verbose ~quiet g root side_effects =
   let ops = get_ops () in
-  Customize_run.run ~prog ~debug ~quiet g root ops;
+  Customize_run.run ~prog ~verbose ~quiet g root ops;
   side_effects#created_file () (* XXX Did we? *)
 
 let op = {
diff --git a/sysprep/sysprep_operation_dhcp_client_state.ml b/sysprep/sysprep_operation_dhcp_client_state.ml
index 803c3ce..9bc320c 100644
--- a/sysprep/sysprep_operation_dhcp_client_state.ml
+++ b/sysprep/sysprep_operation_dhcp_client_state.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let dhcp_client_state_perform ~debug ~quiet g root side_effects =
+let dhcp_client_state_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ = "linux" then (
     List.iter (
diff --git a/sysprep/sysprep_operation_dhcp_server_state.ml b/sysprep/sysprep_operation_dhcp_server_state.ml
index 3bf13d3..ea42b38 100644
--- a/sysprep/sysprep_operation_dhcp_server_state.ml
+++ b/sysprep/sysprep_operation_dhcp_server_state.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let dhcp_server_state_perform ~debug ~quiet g root side_effects =
+let dhcp_server_state_perform ~verbose ~quiet g root side_effects =
   Array.iter g#rm_rf (g#glob_expand "/var/lib/dhcpd/*")
 
 let op = {
diff --git a/sysprep/sysprep_operation_dovecot_data.ml b/sysprep/sysprep_operation_dovecot_data.ml
index e9d6dc5..e000ab0 100644
--- a/sysprep/sysprep_operation_dovecot_data.ml
+++ b/sysprep/sysprep_operation_dovecot_data.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let dovecot_data_perform ~debug ~quiet g root side_effects =
+let dovecot_data_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let files = g#glob_expand "/var/lib/dovecot/*" in
diff --git a/sysprep/sysprep_operation_firewall_rules.ml b/sysprep/sysprep_operation_firewall_rules.ml
index 558aca3..22dd5e8 100644
--- a/sysprep/sysprep_operation_firewall_rules.ml
+++ b/sysprep/sysprep_operation_firewall_rules.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let firewall_rules_perform ~debug ~quiet g root side_effects =
+let firewall_rules_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = [ "/etc/sysconfig/iptables";
diff --git a/sysprep/sysprep_operation_flag_reconfiguration.ml b/sysprep/sysprep_operation_flag_reconfiguration.ml
index 69ea377..b556deb 100644
--- a/sysprep/sysprep_operation_flag_reconfiguration.ml
+++ b/sysprep/sysprep_operation_flag_reconfiguration.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let flag_reconfiguration ~debug ~quiet g root side_effects =
+let flag_reconfiguration ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     g#touch "/.unconfigured";
diff --git a/sysprep/sysprep_operation_fs_uuids.ml b/sysprep/sysprep_operation_fs_uuids.ml
index 57ccd68..af168c2 100644
--- a/sysprep/sysprep_operation_fs_uuids.ml
+++ b/sysprep/sysprep_operation_fs_uuids.ml
@@ -27,7 +27,7 @@ module G = Guestfs
 
 let prog = "virt-sysprep"
 
-let rec fs_uuids_perform ~debug ~quiet g root side_effects =
+let rec fs_uuids_perform ~verbose ~quiet g root side_effects =
   let fses = g#list_filesystems () in
   List.iter (function
   | _, "unknown" -> ()
diff --git a/sysprep/sysprep_operation_kerberos_data.ml b/sysprep/sysprep_operation_kerberos_data.ml
index 1e7d436..063f967 100644
--- a/sysprep/sysprep_operation_kerberos_data.ml
+++ b/sysprep/sysprep_operation_kerberos_data.ml
@@ -22,7 +22,7 @@ open Common_gettext.Gettext
 module StringSet = Set.Make (String)
 module G = Guestfs
 
-let kerberos_data_perform ~debug ~quiet g root side_effects =
+let kerberos_data_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let excepts = [ "/var/kerberos/krb5kdc/kadm5.acl";
diff --git a/sysprep/sysprep_operation_logfiles.ml b/sysprep/sysprep_operation_logfiles.ml
index 2c5dd68..1b90d9f 100644
--- a/sysprep/sysprep_operation_logfiles.ml
+++ b/sysprep/sysprep_operation_logfiles.ml
@@ -128,7 +128,7 @@ let globs = List.sort compare [
 ]
 let globs_as_pod = String.concat "\n" (List.map ((^) " ") globs)
 
-let logfiles_perform ~debug ~quiet g root side_effects =
+let logfiles_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ = "linux" then (
     List.iter (fun glob -> Array.iter g#rm_rf (g#glob_expand glob)) globs
diff --git a/sysprep/sysprep_operation_lvm_uuids.ml b/sysprep/sysprep_operation_lvm_uuids.ml
index 85cd9ee..6771a22 100644
--- a/sysprep/sysprep_operation_lvm_uuids.ml
+++ b/sysprep/sysprep_operation_lvm_uuids.ml
@@ -23,7 +23,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let rec lvm_uuids_perform ~debug ~quiet g root side_effects =
+let rec lvm_uuids_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ = "linux" then (
     let has_lvm2_feature =
diff --git a/sysprep/sysprep_operation_machine_id.ml b/sysprep/sysprep_operation_machine_id.ml
index 68770f8..acf8757 100644
--- a/sysprep/sysprep_operation_machine_id.ml
+++ b/sysprep/sysprep_operation_machine_id.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let machine_id_perform ~debug ~quiet g root side_effects =
+let machine_id_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let path = "/etc/machine-id" in
diff --git a/sysprep/sysprep_operation_mail_spool.ml b/sysprep/sysprep_operation_mail_spool.ml
index 8e59f33..3b56184 100644
--- a/sysprep/sysprep_operation_mail_spool.ml
+++ b/sysprep/sysprep_operation_mail_spool.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let mail_spool_perform ~debug ~quiet g root side_effects =
+let mail_spool_perform ~verbose ~quiet g root side_effects =
   List.iter (
     fun glob -> Array.iter g#rm_rf (g#glob_expand glob)
   ) [
diff --git a/sysprep/sysprep_operation_net_hostname.ml b/sysprep/sysprep_operation_net_hostname.ml
index c0491ab..5bf4b07 100644
--- a/sysprep/sysprep_operation_net_hostname.ml
+++ b/sysprep/sysprep_operation_net_hostname.ml
@@ -22,7 +22,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let net_hostname_perform ~debug ~quiet g root side_effects =
+let net_hostname_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   let distro = g#inspect_get_distro root in
   match typ, distro with
diff --git a/sysprep/sysprep_operation_net_hwaddr.ml b/sysprep/sysprep_operation_net_hwaddr.ml
index da3c2b3..ea24997 100644
--- a/sysprep/sysprep_operation_net_hwaddr.ml
+++ b/sysprep/sysprep_operation_net_hwaddr.ml
@@ -22,7 +22,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let net_hwaddr_perform ~debug ~quiet g root side_effects =
+let net_hwaddr_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   let distro = g#inspect_get_distro root in
   match typ, distro with
diff --git a/sysprep/sysprep_operation_pacct_log.ml b/sysprep/sysprep_operation_pacct_log.ml
index 41a6cad..0abd349 100644
--- a/sysprep/sysprep_operation_pacct_log.ml
+++ b/sysprep/sysprep_operation_pacct_log.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let pacct_log_perform ~debug ~quiet g root side_effects =
+let pacct_log_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   let distro = g#inspect_get_distro root in
   match typ, distro with
diff --git a/sysprep/sysprep_operation_package_manager_cache.ml b/sysprep/sysprep_operation_package_manager_cache.ml
index 0c86eca..835153b 100644
--- a/sysprep/sysprep_operation_package_manager_cache.ml
+++ b/sysprep/sysprep_operation_package_manager_cache.ml
@@ -22,7 +22,7 @@ open Common_utils
 
 module G = Guestfs
 
-let package_manager_cache_perform ~debug ~quiet g root side_effects =
+let package_manager_cache_perform ~verbose ~quiet g root side_effects =
   let packager = g#inspect_get_package_management root in
   let cache_dirs =
     match packager with
diff --git a/sysprep/sysprep_operation_pam_data.ml b/sysprep/sysprep_operation_pam_data.ml
index a8e93e3..16b073a 100644
--- a/sysprep/sysprep_operation_pam_data.ml
+++ b/sysprep/sysprep_operation_pam_data.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let pam_data_perform ~debug ~quiet g root side_effects =
+let pam_data_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = [ "/var/run/console/*";
diff --git a/sysprep/sysprep_operation_puppet_data_log.ml b/sysprep/sysprep_operation_puppet_data_log.ml
index af1d8ba..6bc14f5 100644
--- a/sysprep/sysprep_operation_puppet_data_log.ml
+++ b/sysprep/sysprep_operation_puppet_data_log.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let puppet_data_log_perform ~debug ~quiet g root side_effects =
+let puppet_data_log_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = [ "/var/log/puppet/*";
diff --git a/sysprep/sysprep_operation_rh_subscription_manager.ml b/sysprep/sysprep_operation_rh_subscription_manager.ml
index 1cf8a9b..3c1ca09 100644
--- a/sysprep/sysprep_operation_rh_subscription_manager.ml
+++ b/sysprep/sysprep_operation_rh_subscription_manager.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let rh_subscription_manager_perform ~debug ~quiet g root side_effects =
+let rh_subscription_manager_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   let distro = g#inspect_get_distro root in
 
diff --git a/sysprep/sysprep_operation_rhn_systemid.ml b/sysprep/sysprep_operation_rhn_systemid.ml
index 59a80b1..5f32537 100644
--- a/sysprep/sysprep_operation_rhn_systemid.ml
+++ b/sysprep/sysprep_operation_rhn_systemid.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let rhn_systemid_perform ~debug ~quiet g root side_effects =
+let rhn_systemid_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   let distro = g#inspect_get_distro root in
 
diff --git a/sysprep/sysprep_operation_rpm_db.ml b/sysprep/sysprep_operation_rpm_db.ml
index 8f5e63b..e15bf97 100644
--- a/sysprep/sysprep_operation_rpm_db.ml
+++ b/sysprep/sysprep_operation_rpm_db.ml
@@ -22,7 +22,7 @@ open Common_gettext.Gettext
 module StringSet = Set.Make (String)
 module G = Guestfs
 
-let rpm_db_perform ~debug ~quiet g root side_effects =
+let rpm_db_perform ~verbose ~quiet g root side_effects =
   let pf = g#inspect_get_package_format root in
   if pf = "rpm" then (
     let paths = g#glob_expand "/var/lib/rpm/__db.*" in
diff --git a/sysprep/sysprep_operation_samba_db_log.ml b/sysprep/sysprep_operation_samba_db_log.ml
index a8dd0d3..6ad9068 100644
--- a/sysprep/sysprep_operation_samba_db_log.ml
+++ b/sysprep/sysprep_operation_samba_db_log.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let samba_db_log_perform ~debug ~quiet g root side_effects =
+let samba_db_log_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = [ "/var/log/samba/old/*";
diff --git a/sysprep/sysprep_operation_script.ml b/sysprep/sysprep_operation_script.ml
index b9641e7..d486a88 100644
--- a/sysprep/sysprep_operation_script.ml
+++ b/sysprep/sysprep_operation_script.ml
@@ -36,7 +36,7 @@ let set_scriptdir dir =
 let scripts = ref []
 let add_script script = scripts := script :: !scripts
 
-let rec script_perform ~debug ~quiet (g : Guestfs.guestfs) root side_effects =
+let rec script_perform ~verbose ~quiet (g : Guestfs.guestfs) root side_effects =
   let scripts = List.rev !scripts in
   if scripts <> [] then (
     (* Create a temporary directory? *)
diff --git a/sysprep/sysprep_operation_smolt_uuid.ml b/sysprep/sysprep_operation_smolt_uuid.ml
index 55b9447..8096c4f 100644
--- a/sysprep/sysprep_operation_smolt_uuid.ml
+++ b/sysprep/sysprep_operation_smolt_uuid.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let smolt_uuid_perform ~debug ~quiet g root side_effects =
+let smolt_uuid_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ = "linux" then (
     let files = [ "/etc/sysconfig/hw-uuid";
diff --git a/sysprep/sysprep_operation_ssh_hostkeys.ml b/sysprep/sysprep_operation_ssh_hostkeys.ml
index 1f31051..15a4fd6 100644
--- a/sysprep/sysprep_operation_ssh_hostkeys.ml
+++ b/sysprep/sysprep_operation_ssh_hostkeys.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let ssh_hostkeys_perform ~debug ~quiet g root side_effects =
+let ssh_hostkeys_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let files = g#glob_expand "/etc/ssh/*_host_*" in
diff --git a/sysprep/sysprep_operation_ssh_userdir.ml b/sysprep/sysprep_operation_ssh_userdir.ml
index 3b6d553..60cf778 100644
--- a/sysprep/sysprep_operation_ssh_userdir.ml
+++ b/sysprep/sysprep_operation_ssh_userdir.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let ssh_userdir_perform ~debug ~quiet g root side_effects =
+let ssh_userdir_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let dirs = g#glob_expand "/home/*/.ssh" in
diff --git a/sysprep/sysprep_operation_sssd_db_log.ml b/sysprep/sysprep_operation_sssd_db_log.ml
index 644c105..654e733 100644
--- a/sysprep/sysprep_operation_sssd_db_log.ml
+++ b/sysprep/sysprep_operation_sssd_db_log.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let sssd_db_log_perform ~debug ~quiet g root side_effects =
+let sssd_db_log_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = [ "/var/log/sssd/*";
diff --git a/sysprep/sysprep_operation_tmp_files.ml b/sysprep/sysprep_operation_tmp_files.ml
index d5a52f3..593acbf 100644
--- a/sysprep/sysprep_operation_tmp_files.ml
+++ b/sysprep/sysprep_operation_tmp_files.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let tmp_files_perform ~debug ~quiet g root side_effects =
+let tmp_files_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     let paths = [ "/tmp";
diff --git a/sysprep/sysprep_operation_udev_persistent_net.ml b/sysprep/sysprep_operation_udev_persistent_net.ml
index 764f8a3..9cf74c8 100644
--- a/sysprep/sysprep_operation_udev_persistent_net.ml
+++ b/sysprep/sysprep_operation_udev_persistent_net.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let udev_persistent_net_perform ~debug ~quiet g root side_effects =
+let udev_persistent_net_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ = "linux" then (
     try g#rm "/etc/udev/rules.d/70-persistent-net.rules"
diff --git a/sysprep/sysprep_operation_user_account.ml b/sysprep/sysprep_operation_user_account.ml
index 14b3b44..fa93769 100644
--- a/sysprep/sysprep_operation_user_account.ml
+++ b/sysprep/sysprep_operation_user_account.ml
@@ -25,7 +25,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let user_account_perform ~debug ~quiet g root side_effects =
+let user_account_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     g#aug_init "/" 0;
diff --git a/sysprep/sysprep_operation_utmp.ml b/sysprep/sysprep_operation_utmp.ml
index c559a03..b306b99 100644
--- a/sysprep/sysprep_operation_utmp.ml
+++ b/sysprep/sysprep_operation_utmp.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let utmp_perform ~debug ~quiet g root side_effects =
+let utmp_perform ~verbose ~quiet g root side_effects =
   let typ = g#inspect_get_type root in
   if typ <> "windows" then (
     try g#rm "/var/run/utmp"
diff --git a/sysprep/sysprep_operation_yum_uuid.ml b/sysprep/sysprep_operation_yum_uuid.ml
index c775d85..77f30fb 100644
--- a/sysprep/sysprep_operation_yum_uuid.ml
+++ b/sysprep/sysprep_operation_yum_uuid.ml
@@ -21,7 +21,7 @@ open Common_gettext.Gettext
 
 module G = Guestfs
 
-let yum_uuid_perform ~debug ~quiet g root side_effects =
+let yum_uuid_perform ~verbose ~quiet g root side_effects =
   let packager = g#inspect_get_package_management root in
   if packager = "yum" then (
     try g#rm "/var/lib/yum/uuid" with G.Error _ -> ()
-- 
1.9.0


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]