From: Marcus Granado Date: Tue, 12 Oct 2010 09:43:02 +0000 (+0100) Subject: PR-1031: use 7 as XAPI default for backup retention value X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=30ee0097d881a0f79b2940a3ad2961ee30082a72;p=xcp%2Fxen-api.git PR-1031: use 7 as XAPI default for backup retention value Signed-off-by: Marcus Granado --- diff --git a/ocaml/idl/datamodel.ml b/ocaml/idl/datamodel.ml index e474ceff..9c69b6f1 100644 --- a/ocaml/idl/datamodel.ml +++ b/ocaml/idl/datamodel.ml @@ -6278,7 +6278,7 @@ let vmpp = 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 --git a/ocaml/xapi/cli_operations.ml b/ocaml/xapi/cli_operations.ml index a9c592a7..639abcab 100644 --- a/ocaml/xapi/cli_operations.ml +++ b/ocaml/xapi/cli_operations.ml @@ -3941,7 +3941,7 @@ let vmpp_create printer rpc session_id params = (* 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