From 4c273d579a6e8bb92b85820d07194c54f8c41b8f Mon Sep 17 00:00:00 2001 From: James Bulpin Date: Tue, 9 Nov 2010 18:44:19 +0000 Subject: [PATCH] CA-48062 xapi hook "vm-pre-start" Signed-off-by: James Bulpin --- ocaml/xapi/xapi_hooks.ml | 3 +++ ocaml/xapi/xapi_vm.ml | 3 +++ 2 files changed, 6 insertions(+) diff --git a/ocaml/xapi/xapi_hooks.ml b/ocaml/xapi/xapi_hooks.ml index 89901a68..bfb6d96b 100644 --- a/ocaml/xapi/xapi_hooks.ml +++ b/ocaml/xapi/xapi_hooks.ml @@ -17,6 +17,7 @@ open D (* Names of VM script hooks *) let scriptname__vm_pre_destroy = "vm-pre-shutdown" let scriptname__vm_pre_migrate = "vm-pre-migrate" +let scriptname__vm_pre_start = "vm-pre-start" (* VM Script hook reason codes *) let reason__clean_shutdown = "clean-shutdown" @@ -91,6 +92,8 @@ let vm_pre_destroy ~__context ~reason ~vm = execute_vm_hook ~__context ~script_name:scriptname__vm_pre_destroy ~reason ~vm let vm_pre_migrate ~__context ~reason ~vm = execute_vm_hook ~__context ~script_name:scriptname__vm_pre_migrate ~reason ~vm +let vm_pre_start ~__context ~reason ~vm = + execute_vm_hook ~__context ~script_name:scriptname__vm_pre_start ~reason ~vm let host_pre_declare_dead ~__context ~host ~reason = execute_host_hook ~__context ~script_name:scriptname__host_pre_declare_dead ~reason ~host diff --git a/ocaml/xapi/xapi_vm.ml b/ocaml/xapi/xapi_vm.ml index b0bf819e..077beda8 100644 --- a/ocaml/xapi/xapi_vm.ml +++ b/ocaml/xapi/xapi_vm.ml @@ -535,6 +535,9 @@ module Shutdown = struct ) end; + (* Invoke pre-start hook *) + Xapi_hooks.vm_pre_start ~__context ~reason:Xapi_hooks.reason__none ~vm; + if Db.VM.get_power_state ~__context ~self:vm = `Suspended then begin debug "hard_shutdown: destroying any suspend VDI"; -- 2.39.5