CP-53614: Use get_all to get net interfaces

Some devices like ibft may not be in networkd sort result but need
to build pif, network for it. So the devices need be got by
`get_all`.

Signed-off-by: Changlei Li <[email protected]>

Author: changlei-li

ocaml/xapi/xapi_pif.ml

@@ -370,9 +370,14 @@ let make_tables ~__context ~host =
   let dbg = Context.string_of_task __context in
   let device_to_position_table = Net.Interface.get_interface_positions dbg () in
   let device_to_mac_table =
-    List.map
-      (fun (name, _) -> (name, Net.Interface.get_mac dbg name))
-      device_to_position_table
+    List.filter_map
+      (fun name ->
+        if Net.Interface.is_physical dbg name then
+          Some (name, Net.Interface.get_mac dbg name)
+        else
+          None
+      )
+      (Net.Interface.get_all dbg ())
   in
   (* Get all PIFs on this host *)
   let pif_to_device_table =