# HG changeset patch # User Rob Hoes <[email protected]> CP-1589: Expose Pool.restrictions in CLI
Signed-off-by: Rob Hoes <[email protected]> diff -r 05bae5ed3a81 ocaml/client_records/records.ml --- a/ocaml/client_records/records.ml Fri Feb 05 11:08:59 2010 +0000 +++ b/ocaml/client_records/records.ml Fri Feb 05 16:38:54 2010 +0000 @@ -411,7 +411,8 @@ ~remove_from_map:(fun k -> Client.Pool.remove_from_gui_config rpc session_id pool k) ~get_map:(fun () -> (x ()).API.pool_gui_config) ~expensive:true (); - make_field ~name:"vswitch-controller" ~hidden:true ~get:(fun () -> let r = (x ()).API.pool_vswitch_controller in if r = "" then "<not set>" else r) () + make_field ~name:"vswitch-controller" ~hidden:true ~get:(fun () -> let r = (x ()).API.pool_vswitch_controller in if r = "" then "<not set>" else r) (); + make_field ~name:"restrictions" ~get:(fun () -> Record_util.s2sm_to_string "; " (x ()).API.pool_restrictions) (); ]} let subject_record rpc session_id subject =
# HG changeset patch # User Rob Hoes <[email protected]> CP-1589: Expose Pool.restrictions in CLI Signed-off-by: Rob Hoes <[email protected]> diff -r 05bae5ed3a81 ocaml/client_records/records.ml --- a/ocaml/client_records/records.ml Fri Feb 05 11:08:59 2010 +0000 +++ b/ocaml/client_records/records.ml Fri Feb 05 16:38:54 2010 +0000 @@ -411,7 +411,8 @@ ~remove_from_map:(fun k -> Client.Pool.remove_from_gui_config rpc session_id pool k) ~get_map:(fun () -> (x ()).API.pool_gui_config) ~expensive:true (); - make_field ~name:"vswitch-controller" ~hidden:true ~get:(fun () -> let r = (x ()).API.pool_vswitch_controller in if r = "" then "<not set>" else r) () + make_field ~name:"vswitch-controller" ~hidden:true ~get:(fun () -> let r = (x ()).API.pool_vswitch_controller in if r = "" then "<not set>" else r) (); + make_field ~name:"restrictions" ~get:(fun () -> Record_util.s2sm_to_string "; " (x ()).API.pool_restrictions) (); ]} let subject_record rpc session_id subject =
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
