# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1261420149 0
# Node ID 01d52ccfa972ec2ea7c7d26797b4b5b7a1f48d15
# Parent  d1df586f2ca41591d331cecf58a13dfacd609226
CA-36085: make Host.evacuate call *live* migrate.

We really ought to make this the default sometime.

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r d1df586f2ca4 -r 01d52ccfa972 ocaml/xapi/xapi_host.ml
--- a/ocaml/xapi/xapi_host.ml	Mon Dec 21 15:40:32 2009 +0000
+++ b/ocaml/xapi/xapi_host.ml	Mon Dec 21 18:29:09 2009 +0000
@@ -401,7 +401,7 @@
         let migrate_vm  vm plan = match plan with
 	      | Migrate host ->
 		      Helpers.call_api_functions ~__context
-                (fun rpc session_id -> Client.Client.VM.pool_migrate ~rpc ~session_id ~vm ~host ~options:[]);
+                (fun rpc session_id -> Client.Client.VM.pool_migrate ~rpc ~session_id ~vm ~host ~options:[ "live", "true" ]);
 		      let progress = Db.Task.get_progress ~__context ~self:task in
                 TaskHelper.set_progress ~__context (progress +. individual_progress)
 	      | Error(code, params) -> (* should never happen *) raise (Api_errors.Server_error(code, params))