CA-NNNNN: avoid calling DB functions when in emergency mode

This breaks emergency mode commands.

Signed-off-by: Edwin Török <[email protected]>

Author: edwintorok

ocaml/xapi/server_helpers.ml

@@ -150,7 +150,17 @@ let do_dispatch ?session_id ?forward_op ?self:_ supports_async called_fn_name
             in
             Tgroup.Group.Identity.make ?user_agent:http_req.user_agent subject
           )
-          session_id
+          ( if
+              !Xapi_globs.tgroups_enabled
+              && not !Xapi_globs.slave_emergency_mode
+            then
+              session_id
+            else
+              (* in emergency mode we cannot reach the coordinator,
+                 and we must not attempt to make Db calls
+              *)
+              None
+          )
       with _ -> None
     in
     Tgroup.of_creator (Tgroup.Group.Creator.make ?identity ()) ;