[Xen-API] [PATCH] CA-34034: add default_args to audit params

[Marcus Granado <marcus.granado@xxxxxxxxxx>]

1 file changed, 1 insertion(+), 1 deletion(-)
ocaml/idl/ocaml_backend/gen_server.ml |    2 +-


# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1258120865 0
# Node ID c2e75d891d3dd4542066384cf07331bf727500ca
# Parent  45ecc8475cf84872bda0571d2d451a6b8a099a2c
CA-34034: add default_args to audit params

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

diff -r 45ecc8475cf8 -r c2e75d891d3d ocaml/idl/ocaml_backend/gen_server.ml
--- a/ocaml/idl/ocaml_backend/gen_server.ml     Thu Nov 12 18:49:52 2009 +0000
+++ b/ocaml/idl/ocaml_backend/gen_server.ml     Fri Nov 13 14:01:05 2009 +0000
@@ -157,7 +157,7 @@
   in
   let rbac_check_begin = if has_session_arg
     then [
-                       "let arg_names = "^(List.fold_right (fun arg args -> 
"\""^arg^"\"::"^args) string_args "[]")^" in";
+                       "let arg_names = "^(List.fold_right (fun arg args -> 
"\""^arg^"\"::"^args) string_args (if is_non_constructor_with_defaults then 
"\"default_args\"::[]" else "[]"))^" in";
                        "Rbac.check session_id __call 
~args:(arg_names,__params) ~__context ~fn:(fun ()-> (*RBAC-BEGIN*)"]
     else []
   in

xen-api.hg.patch
Description: Text Data

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