Add drive mappings and Windows current control set to inspection data.

[guestfs-browser.git] / slave.ml

diff --git a/slave.ml b/slave.ml
index f72a5aa..412d183 100644 (file)
--- a/slave.ml
+++ b/slave.ml
@@ -531,6 +531,12 @@ and open_disk_images images cb =
   let oses = List.map (
     fun root ->
       let typ = g#inspect_get_type root in
+      let windows_current_control_set =
+        if typ <> "windows" then None
+        else (
+          try Some (g#inspect_get_windows_current_control_set root)
+          with G.Error _ -> None
+        ) in
       let windows_systemroot =
         if typ <> "windows" then None
         else (
@@ -546,6 +552,7 @@ and open_disk_images images cb =
         insp_root = root;
         insp_arch = g#inspect_get_arch root;
         insp_distro = g#inspect_get_distro root;
+        insp_drive_mappings = g#inspect_get_drive_mappings root;
         insp_filesystems = g#inspect_get_filesystems root;
         insp_hostname = g#inspect_get_hostname root;
         insp_major_version = g#inspect_get_major_version root;
@@ -555,6 +562,7 @@ and open_disk_images images cb =
         insp_package_management = g#inspect_get_package_management root;
         insp_product_name = g#inspect_get_product_name root;
         insp_type = typ;
+        insp_windows_current_control_set = windows_current_control_set;
         insp_windows_systemroot = windows_systemroot;
         insp_winreg_DEFAULT = None; (* incomplete, see below *)
         insp_winreg_SAM = None;