# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1282322886 -3600
# Node ID 80f7b258edfb52f34e2caa0bfb00e32ea208bc99
# Parent  e4c575199627ef88a921a25ffe706868cfc8b5ab
CP-1704: vmpp.archive-now

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

diff -r e4c575199627 -r 80f7b258edfb ocaml/idl/datamodel.ml
--- a/ocaml/idl/datamodel.ml
+++ b/ocaml/idl/datamodel.ml
@@ -5894,6 +5894,12 @@
     "cifs", "CIFS target config";
     "nfs", "NFS target config";
   ])
+let vmpp_schedule_min = "min"
+let vmpp_schedule_hour = "hour"
+let vmpp_schedule_days = "days"
+let vmpp_archive_target_config_location = "location"
+let vmpp_archive_target_config_username = "username"
+let vmpp_archive_target_config_password = "password"
 let vmpp_set_is_backup_running = call ~flags:[`Session]
   ~name:"set_is_backup_running"
   ~in_oss_since:None
diff -r e4c575199627 -r 80f7b258edfb ocaml/xapi/xapi_vmpp.ml
--- a/ocaml/xapi/xapi_vmpp.ml
+++ b/ocaml/xapi/xapi_vmpp.ml
@@ -69,22 +69,15 @@
     "protect_now"
     args
 
-let archive_now ~__context ~snapshot = ""
-(*
-  let archive_target_config 
+let archive_now ~__context ~snapshot = 
+  let snapshot_uuid = Db.VM.get_uuid ~__context ~self:snapshot in
+  let args = [ "snapshot_uuid", snapshot_uuid ] in
   Xapi_plugins.call_plugin
     (Context.get_session_id __context)
     vmpr_plugin
-    "mount_archive_target"
+    "archive_now"
     args
 
-  Xapi_plugins.call_plugin
-    (Context.get_session_id __context)
-    vmpr_plugin
-    "unmount_archive_target"
-    args
-*)
-
 let set_is_backup_running ~__context ~self ~value =
   Db.VMPP.set_is_backup_running ~__context ~self ~value
 let set_is_archive_running ~__context ~self ~value =