[Xen-API] [PATCH] CA-35368: add support for string-value keys

[Marcus Granado <marcus.granado@xxxxxxxxxx>]

1 file changed, 3 insertions(+), 1 deletion(-)
ocaml/idl/ocaml_backend/rbac.ml |    4 +++-


# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1259669761 0
# Node ID 994723beb3142a90e7247ed5c4cd947bf6e77a83
# Parent  e6185002376e4dc22148b85b4e6c32d498fe67fd
CA-35368: add support for string-value keys

Signed-off-by: Marcus Granado <marcus.granado@xxxxxxxxxxxxx>

diff -r e6185002376e -r 994723beb314 ocaml/idl/ocaml_backend/rbac.ml
--- a/ocaml/idl/ocaml_backend/rbac.ml   Mon Nov 30 16:47:14 2009 +0000
+++ b/ocaml/idl/ocaml_backend/rbac.ml   Tue Dec 01 12:16:01 2009 +0000
@@ -139,7 +139,9 @@
                                        (get_permission_name_of_keys ks vs)
                                else (* found "key" in args *)
                                        match v with
-                                       | Xml.Element("value",_,(Xml.PCData 
key_name_in_args)::[]) ->
+                                       | Xml.Element("value",_,(Xml.PCData 
key_name_in_args)::[]) 
+                                       | 
Xml.Element("value",_,(Xml.Element("string",_,
+                                               (Xml.PCData 
key_name_in_args)::[]))::[]) ->
                                        begin
                                                (*debug "key_name_in_args=%s, 
keys=[%s]" key_name_in_args ((List.fold_left (fun ss s->ss^s^",") "" keys)) ;*)
                                                try

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

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