ocaml/idl/datamodel.ml | 2 +- ocaml/xapi/cli_operations.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-)
# HG changeset patch # User Marcus Granado <[email protected]> # Date 1283866374 -3600 # Node ID 938174aea51496d0bc24d52ac7b13a3c5a9356a4 # Parent cf1c91fb04c36e206c1728a05df50d2951ca3e2a PR-1031: use 7 as XAPI default for backup retention value Signed-off-by: Marcus Granado <[email protected]> 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
# HG changeset patch # User Marcus Granado <[email protected]> # Date 1283866374 -3600 # Node ID 938174aea51496d0bc24d52ac7b13a3c5a9356a4 # Parent cf1c91fb04c36e206c1728a05df50d2951ca3e2a PR-1031: use 7 as XAPI default for backup retention value Signed-off-by: Marcus Granado <[email protected]> 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 mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
