# HG changeset patch
# User David Scott <[email protected]>
# 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 <[email protected]>

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 +-


# HG changeset patch
# User David Scott <[email protected]>
# 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 <[email protected]>

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))
_______________________________________________
xen-api mailing list
[email protected]
http://lists.xensource.com/mailman/listinfo/xen-api

Reply via email to