[Xen-API] [PATCH] PR-1031: use 7 as XAPI default for backup retention value

[Marcus Granado <marcus.granado@xxxxxxxxxx>]

 ocaml/idl/datamodel.ml       |  2 +-
 ocaml/xapi/cli_operations.ml |  2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)


# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1283866374 -3600
# Node ID 938174aea51496d0bc24d52ac7b13a3c5a9356a4
# Parent  cf1c91fb04c36e206c1728a05df50d2951ca3e2a
PR-1031: use 7 as XAPI default for backup retention value

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

diff -r cf1c91fb04c3 -r 938174aea514 ocaml/idl/datamodel.ml
--- a/ocaml/idl/datamodel.ml
+++ b/ocaml/idl/datamodel.ml
@@ -6293,7 +6293,7 @@
       namespace ~name:"name" ~contents:(names None RW) ();
       field ~qualifier:RW ~ty:Bool "is_policy_enabled" "enable or disable this 
policy" ~default_value:(Some (VBool true));
       field ~qualifier:RW ~ty:vmpp_backup_type "backup_type" "type of the 
backup sub-policy";
-      field ~qualifier:StaticRO ~ty:Int "backup_retention_value" "maximum 
number of backups that should be stored at any time" ~default_value:(Some (VInt 
1L));
+      field ~qualifier:StaticRO ~ty:Int "backup_retention_value" "maximum 
number of backups that should be stored at any time" ~default_value:(Some (VInt 
7L));
       field ~qualifier:StaticRO ~ty:vmpp_backup_frequency "backup_frequency" 
"frequency of the backup schedule";
       field ~qualifier:StaticRO ~ty:(Map (String,String)) "backup_schedule" 
"schedule of the backup containing 'hour', 'min', 'days'. Date/time-related 
information is in XenServer Local Timezone";
       field ~qualifier:DynamicRO ~ty:Bool "is_backup_running" "true if this 
protection policy's backup is running";
diff -r cf1c91fb04c3 -r 938174aea514 ocaml/xapi/cli_operations.ml
--- a/ocaml/xapi/cli_operations.ml
+++ b/ocaml/xapi/cli_operations.ml
@@ -3955,7 +3955,7 @@
   (* optional parameters with default values *)
        let name_description = get "name-description" ~default:"" in
        let is_policy_enabled = Record_util.bool_of_string(get 
"is-policy-enabled" ~default:"true") in
-  let backup_retention_value = map "backup-retention-value" ~default:"1" 
XMLRPC.To.string API.From.int64 in
+  let backup_retention_value = map "backup-retention-value" ~default:"7" 
XMLRPC.To.string API.From.int64 in
        let archive_frequency = map "archive-frequency" ~default:"never" 
XMLRPC.To.string API.From.vmpp_archive_frequency in
        let archive_target_type = map "archive-target-type" ~default:"none" 
XMLRPC.To.string API.From.vmpp_archive_target_type in
        let archive_target_config = read_map_params "archive-target-config" 
params in

xen-api.hg.patch
Description: Text Data

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