[Xen-API] [PATCH] Make Host.evacuate perform *live* migrations

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# 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))
1 file changed, 1 insertion(+), 1 deletion(-)
ocaml/xapi/xapi_host.ml |    2 +-

xen-api.hg.patch
Description: Text Data

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api