|
|
|
|
|
|
|
|
|
|
xen-api
[Xen-API] [PATCH] CA-46656: A ha-restart-priority of any valid value mea
# HG changeset patch
# User Thomas Sanders <thomas.sanders@xxxxxxxxxx>
# Date 1288798450 0
# Node ID cdbe193253c8684adf9fd5a8edf4823c4fbc20b3
# Parent fa3a7ba9c89bc875a845aacf1cf362b2369e1b41
CA-46656: A ha-restart-priority of any valid value means ha-always-run should
be set to true when the VM starts.
Signed-off-by: Thomas Sanders <thomas.sanders@xxxxxxxxxx>
Acked-by: Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>
diff --git a/ocaml/xapi/xapi_vm.ml b/ocaml/xapi/xapi_vm.ml
--- a/ocaml/xapi/xapi_vm.ml
+++ b/ocaml/xapi/xapi_vm.ml
@@ -1,5 +1,5 @@
(*
- * Copyright (C) 2006-2009 Citrix Systems Inc.
+ * Copyright (C) 2006-2010 Citrix Systems Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published
@@ -99,7 +99,7 @@ let set_ha_always_run ~__context ~self ~
(* GUI not calling this anymore, now used internally in vm.start and vm.resume
*)
let assert_ha_always_run_is_true ~__context ~vm =
let rp = Db.VM.get_ha_restart_priority ~__context ~self:vm in
- if (rp = "1" or rp = Constants.ha_restart_best_effort)
+ if (List.mem rp (Constants.ha_valid_restart_priorities))
then set_ha_always_run ~__context ~self:vm ~value:true
(* GUI not calling this anymore, now used internally in vm.shutdown and
vm.suspend *)
let assert_ha_always_run_is_false ~__context ~vm =
xen-api.hg.patch
Description: Text Data
_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api
|
<Prev in Thread] |
Current Thread |
[Next in Thread>
|
- [Xen-API] [PATCH] CA-46656: A ha-restart-priority of any valid value means ha-always-run should be set to true when the VM starts,
Thomas Sanders <=
|
|
|
|
|