From 7338da86c671f3541e015a8258e572b21aab42bb Mon Sep 17 00:00:00 2001 From: Rob Hoes Date: Mon, 23 Aug 2010 13:20:42 +0100 Subject: [PATCH] Expose PIF.tunnel_access_PIF_of and PIF.tunnel_transport_PIF_of in xe CLI Signed-off-by: Rob Hoes --- ocaml/client_records/records.ml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ocaml/client_records/records.ml b/ocaml/client_records/records.ml index 9b8afbad..ed161840 100644 --- 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) (); -- 2.39.5