1 file changed, 6 insertions(+), 6 deletions(-)
ocaml/idl/datamodel.ml | 12 ++++++------
# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1259255339 0
# Node ID 010c679953d34ed3b0f5e9977be0d44807349901
# Parent c9fd958b25ee2e4334558024f64bf0659410e756
CA-35370: vm-ops+ should be able to write to tags
Signed-off-by: Marcus Granado <marcus.granado@xxxxxxxxxxxxx>
diff -r c9fd958b25ee -r 010c679953d3 ocaml/idl/datamodel.ml
--- a/ocaml/idl/datamodel.ml Thu Nov 26 17:08:59 2009 +0000
+++ b/ocaml/idl/datamodel.ml Thu Nov 26 17:08:59 2009 +0000
@@ -3508,7 +3508,7 @@
field ~in_oss_since:None ~qualifier:DynamicRO
~in_product_since:rel_orlando ~ty:(Set String) ~default_value:(Some (VSet []))
"ha_statefiles" "The set of statefiles accessible from this host";
field ~in_oss_since:None ~qualifier:DynamicRO
~in_product_since:rel_orlando ~ty:(Set String) ~default_value:(Some (VSet []))
"ha_network_peers" "The set of hosts visible via the network from this host";
field ~qualifier:DynamicRO ~in_product_since:rel_orlando
~ty:(Map(String,Ref _blob)) ~default_value:(Some (VMap [])) "blobs" "Binary
blobs associated with this host";
- field ~qualifier:RW ~in_product_since:rel_orlando ~default_value:(Some
(VSet [])) ~ty:(Set String) "tags" "user-specified tags for categorization
purposes";
+ field ~writer_roles:_R_VM_OP ~qualifier:RW
~in_product_since:rel_orlando ~default_value:(Some (VSet [])) ~ty:(Set String)
"tags" "user-specified tags for categorization purposes";
field ~qualifier:DynamicRO ~in_product_since:rel_george
~default_value:(Some (VString "")) ~ty:String "external_auth_type" "type of
external authentication service configured; empty if none configured.";
field ~qualifier:DynamicRO ~in_product_since:rel_george
~default_value:(Some (VString "")) ~ty:String "external_auth_service_name"
"name of external authentication service configured; empty if none configured.";
field ~qualifier:DynamicRO ~in_product_since:rel_george
~default_value:(Some (VMap [])) ~ty:(Map (String,String))
"external_auth_configuration" "configuration specific to external
authentication service";
@@ -3626,7 +3626,7 @@
field ~writer_roles:_R_POOL_OP ~ty:(Map(String, String)) "other_config"
"additional configuration"
~map_keys_roles:[("folder",(_R_VM_OP));("XenCenter.CustomFields.*",(_R_VM_OP));("XenCenterCreateInProgress",(_R_VM_OP))];
field ~in_oss_since:None ~qualifier:DynamicRO "bridge" "name of the
bridge corresponding to this network on the local host";
field ~qualifier:DynamicRO ~in_product_since:rel_orlando
~ty:(Map(String, Ref _blob)) ~default_value:(Some (VMap [])) "blobs" "Binary
blobs associated with this network";
- field ~writer_roles:_R_POOL_OP ~in_product_since:rel_orlando
~default_value:(Some (VSet [])) ~ty:(Set String) "tags" "user-specified tags
for categorization purposes"
+ field ~writer_roles:_R_VM_OP ~in_product_since:rel_orlando
~default_value:(Some (VSet [])) ~ty:(Set String) "tags" "user-specified tags
for categorization purposes"
])
()
@@ -4118,7 +4118,7 @@
field ~qualifier:StaticRO "content_type" "the type of the SR's content,
if required (e.g. ISOs)";
field ~qualifier:DynamicRO "shared" ~ty:Bool "true if this SR is
(capable of being) shared between multiple hosts";
field ~ty:(Map(String, String)) "other_config" "additional
configuration"
~map_keys_roles:[("folder",(_R_VM_OP));("XenCenter.CustomFields.*",(_R_VM_OP))];
- field ~in_product_since:rel_orlando ~default_value:(Some (VSet []))
~ty:(Set String) "tags" "user-specified tags for categorization purposes";
+ field ~writer_roles:_R_VM_OP ~in_product_since:rel_orlando
~default_value:(Some (VSet [])) ~ty:(Set String) "tags" "user-specified tags
for categorization purposes";
field ~ty:Bool ~qualifier:DynamicRO ~in_oss_since:None
~internal_only:true "default_vdi_visibility" "";
field ~in_oss_since:None ~ty:(Map(String, String))
~in_product_since:rel_miami ~qualifier:RW "sm_config" "SM dependent data"
~default_value:(Some (VMap []));
field ~qualifier:DynamicRO ~in_product_since:rel_orlando
~ty:(Map(String, Ref _blob)) ~default_value:(Some (VMap [])) "blobs" "Binary
blobs associated with this SR";
@@ -4404,7 +4404,7 @@
field ~in_product_since:rel_orlando ~default_value:(Some (VRef ""))
~qualifier:DynamicRO ~ty:(Ref _vdi) "snapshot_of" "Ref pointing
to the VDI this snapshot is of.";
field ~in_product_since:rel_orlando
~qualifier:DynamicRO ~ty:(Set (Ref _vdi)) "snapshots" "List pointing
to all the VDIs snapshots.";
field ~in_product_since:rel_orlando ~default_value:(Some (VDateTime
Date.never)) ~qualifier:DynamicRO ~ty:DateTime "snapshot_time"
"Date/time when this snapshot was created.";
- field ~in_product_since:rel_orlando ~default_value:(Some (VSet []))
~ty:(Set String) "tags" "user-specified tags for categorization purposes";
+ field ~writer_roles:_R_VM_OP ~in_product_since:rel_orlando
~default_value:(Some (VSet [])) ~ty:(Set String) "tags" "user-specified tags
for categorization purposes";
])
()
@@ -5040,7 +5040,7 @@
; field ~in_oss_since:None
~in_product_since:rel_orlando ~qualifier:RW ~ty:Bool ~default_value:(Some
(VBool false)) "ha_allow_overcommit" "If set to false then operations which
would cause the Pool to become overcommitted will be blocked."
; field ~in_oss_since:None
~in_product_since:rel_orlando ~qualifier:DynamicRO ~ty:Bool
~default_value:(Some (VBool false)) "ha_overcommitted" "True if the Pool is
considered to be overcommitted i.e. if there exist insufficient physical
resources to tolerate the configured number of host failures"
; field ~qualifier:DynamicRO
~in_product_since:rel_orlando ~ty:(Map(String, Ref _blob)) ~default_value:(Some
(VMap [])) "blobs" "Binary blobs associated with this pool"
- ; field ~in_product_since:rel_orlando
~default_value:(Some (VSet [])) ~ty:(Set String) "tags" "user-specified tags
for categorization purposes"
+ ; field ~writer_roles:_R_VM_OP
~in_product_since:rel_orlando ~default_value:(Some (VSet [])) ~ty:(Set String)
"tags" "user-specified tags for categorization purposes"
; field ~writer_roles:_R_VM_OP
~in_product_since:rel_orlando ~default_value:(Some (VMap [])) ~ty:(Map(String,
String)) "gui_config" "gui-specific configuration for pool"
; field ~in_product_since:rel_george
~qualifier:DynamicRO ~ty:String ~default_value:(Some (VString "")) "wlb_url"
"Url for the configured workload balancing host"
; field ~in_product_since:rel_george
~qualifier:DynamicRO ~ty:String ~default_value:(Some (VString ""))
"wlb_username" "Username for accessing the workload balancing host"
@@ -5463,7 +5463,7 @@
field ~writer_roles:_R_VM_POWER_ADMIN ~qualifier:DynamicRO
~in_product_since:rel_orlando ~default_value:(Some (VDateTime Date.never))
~ty:DateTime "snapshot_time" "Date/time when this snapshot was created.";
field ~writer_roles:_R_VM_POWER_ADMIN ~qualifier:DynamicRO
~in_product_since:rel_orlando ~default_value:(Some (VString ""))
~ty:String "transportable_snapshot_id" "Transportable ID of the
snapshot VM";
field ~qualifier:DynamicRO ~in_product_since:rel_orlando
~ty:(Map(String, Ref _blob)) ~default_value:(Some (VMap [])) "blobs" "Binary
blobs associated with this VM";
- field ~in_product_since:rel_orlando ~default_value:(Some (VSet []))
~ty:(Set String) "tags" "user-specified tags for categorization purposes";
+ field ~writer_roles:_R_VM_OP ~in_product_since:rel_orlando
~default_value:(Some (VSet [])) ~ty:(Set String) "tags" "user-specified tags
for categorization purposes";
field ~in_product_since:rel_orlando ~default_value:(Some (VMap []))
~qualifier:RW ~ty:(Map(vm_operations, String)) "blocked_operations" "List of
operations which have been explicitly blocked and an error code";
field ~writer_roles:_R_VM_POWER_ADMIN ~qualifier:DynamicRO
~in_product_since:rel_midnight_ride ~default_value:(Some (VMap [])) ~ty:(Map
(String, String)) "snapshot_info" "Human-readable information concerning
this snapshot";
xen-api.hg.patch
Description: Text Data
_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api
|
Home