Merge pull request #5701 from GabrielBuica/private/dbuica/CA-394444

CA-394444: `hard_shutdown` stuck behind a `pending` `shutdown`

Author: edwintorok

ocaml/xapi-cli-server/record_util.ml

@@ -118,6 +118,7 @@ let vm_operation_table =
   ; (`changing_NVRAM, "changing_NVRAM")
   ; (`start, "start")
   ; (`start_on, "start_on")
+  ; (`shutdown, "shutdown")
   ; (`suspend, "suspend")
   ; (`unpause, "unpause")
   ; (`update_allowed_operations, "update_allowed_operations")

ocaml/xapi/message_forwarding.ml

@@ -2126,6 +2126,7 @@ functor
                 ; `hard_reboot
                 ; `pool_migrate
                 ; `call_plugin
+                ; `shutdown
                 ; `suspend
                 ] ;
             (* If VM is actually suspended and we ask to hard_shutdown, we need to