[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Xen-API] [PATCH] CA-35370: vm-ops+ should be able to write to tags



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";

Attachment: xen-api.hg.patch
Description: Text Data

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

 


Rackspace

Lists.xenproject.org is hosted with RackSpace, monitoring our
servers 24x7x365 and backed by RackSpace's Fanatical Support®.