CP-1858: add new vmpp message types to api-messages

Signed-off-by: Marcus Granado <marcus.granado@eu.citrix.com>

diff --git a/ocaml/idl/api_messages.ml b/ocaml/idl/api_messages.ml
index caa19aef462d60b56ca3fa8e87b438e6fd3525d2..0ea53bdffffc734ae05ed656af9382f87399d081 100644 (file)
--- a/ocaml/idl/api_messages.ml
+++ b/ocaml/idl/api_messages.ml
@@ -85,3 +85,20 @@ let v6_license_expired = addMessage "LICENSE_EXPIRED"
 let v6_grace_license = addMessage "GRACE_LICENSE"
 let v6_rejected = addMessage "LICENSE_NOT_AVAILABLE"
 let v6_comm_error = addMessage "LICENSE_SERVER_UNREACHABLE"
+
+(* VMPP message types *)
+let vmpp_backup_lock_failed = addMessage "VMPP_BACKUP_LOCK_FAILED" (*'The backup sub-policy is already executing for this protection policy. Please try again later'*)
+let vmpp_backup_succeeded = addMessage "VMPP_BACKUP_SUCCEEDED" (*'Successfully performed the snapshot phase of the protection policy'*)
+let vmpp_archive_lock_failed = addMessage "VMPP_ARCHIVE_LOCK_FAILED" (*'The archive sub-policy is already executing for this protection policy.Please try again later'*)
+let vmpp_archive_failed_0 = addMessage "VMPP_ARCHIVE_FAILED_0" (*'The archive phase failed for this protection policy'*)
+let vmpp_archive_suceeded = addMessage "VMPP_ARCHIVE_SUCCEEDED" (*'Successfully performed the archive phase of the protection policy'*)
+let vmpp_archive_target_mount_failed = addMessage "VMPP_ARCHIVE_TARGET_MOUNT_FAILED" (*'Failed to mount the archive target. Please check the archive target configuration settings'*)
+let vmpp_archive_target_unmount_failed = addMessage "VMPP_ARCHIVE_TARGET_UNMOUNT_FAILED" (*'Failed to unmount the archive target. Please make sure than the local directory was mounted successfully and has no open handles'*)
+let vmpp_license_error = addMessage "VMPP_LICENSE_ERROR" (*'This operation is not allowed under your license.  Please contact your support representative'*)
+let vmpp_xapi_logon_failure = addMessage "VMPP_XAPI_LOGON_FAILURE" (*'Could not login to API session.'*)
+let vmpp_backup_missed_event = addMessage "VMPP_BACKUP_MISSED_EVENT" (*'A scheduled snapshot event was missed due to another on-going scheduled snapshot run. This is unexpected behaviour, please re-configure your backup sub-policy',*)
+let vmpp_archive_missed_event = addMessage "VMPP_ARCHIVE_MISSED_EVENT" (*'A scheduled archive event was missed due to another on-going scheduled archive run. This is unexpected behaviour, please re-configure your archive sub-policy'*)
+let vmpp_backup_failed = addMessage "VMPP_BACKUP_FAILED" (*'The snapshot phase of the protection policy failed.'*)
+let vmpp_snapshot_archive_already_exists = addMessage "VMPP_SNAPSHOT_ARCHIVE_ALREADY_EXISTS" (*'Failed to archive the snapshot, it has already been archived on the specified target'*)
+
+