Expose PIF.tunnel_access_PIF_of and PIF.tunnel_transport_PIF_of in xe CLI

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>

diff --git a/ocaml/client_records/records.ml b/ocaml/client_records/records.ml
index 9b8afbadad7324f1055e7752c8fbbbf158906f8f..ed161840d90a37115339ab8439b92521acf7586a 100644 (file)
--- a/ocaml/client_records/records.ml
+++ b/ocaml/client_records/records.ml
@@ -225,6 +225,8 @@ let pif_record rpc session_id pif =
        make_field ~name:"VLAN"         ~get:(fun () -> (Int64.to_string (x ()).API.pIF_VLAN)) ();
        make_field ~name:"bond-master-of" ~get:(fun () -> String.concat "; " (List.map (fun pif -> get_uuid_from_ref pif) (x ()).API.pIF_bond_master_of)) ();
        make_field ~name:"bond-slave-of"  ~get:(fun () -> get_uuid_from_ref (x ()).API.pIF_bond_slave_of) ();
+       make_field ~name:"tunnel-access-PIF-of" ~get:(fun () -> String.concat "; " (List.map (fun pif -> get_uuid_from_ref pif) (x ()).API.pIF_tunnel_access_PIF_of)) ();
+       make_field ~name:"tunnel-transport-PIF-of"  ~get:(fun () -> String.concat "; " (List.map (fun pif -> get_uuid_from_ref pif) (x ()).API.pIF_tunnel_transport_PIF_of)) ();
        make_field ~name:"management"   ~get:(fun () -> string_of_bool ((x ()).API.pIF_management)) ();
        make_field ~name:"network-uuid" ~get:(fun () -> try get_uuid_from_ref (x ()).API.pIF_network with _ -> nid) ();
        make_field ~name:"network-name-label" ~get:(fun () -> try get_name_from_ref (x ()).API.pIF_network with _ -> nid) ();