[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 <thomas.sanders@xxxxxxxxxx>]

# 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