[Xen-API] [PATCH] Expose PIF.tunnel_access_PIF_of and PIF.tunnel_transport_PIF_of in xe CLI

[Rob Hoes <rob.hoes@xxxxxxxxxx>]

# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
Expose PIF.tunnel_access_PIF_of and PIF.tunnel_transport_PIF_of in xe CLI

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

diff -r bdc1af7b84b1 ocaml/client_records/records.ml
--- a/ocaml/client_records/records.ml
+++ b/ocaml/client_records/records.ml
@@ -225,6 +225,8 @@
        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) ();

chin-expose-PIF-tunnel-fields-in-cli
Description: Text document

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api