CP-54382 Set Different Auto-Mode Default Values for XS8 and XS9

- For XS8, a configuration file (/etc/xapi.conf.d/ssh-auto-mode.conf) will be loaded, and auto_mode will be set to false.
- For XS9, no configuration file exists, so the default value will be set to true.

Signed-off-by: Lunfan Zhang[Lunfan.Zhang] <[email protected]>

Author: LunfanZhang

ocaml/xapi/dbsync_slave.ml

@@ -64,7 +64,7 @@ let create_localhost ~__context info =
         ~ssh_enabled_timeout:Constants.default_ssh_enabled_timeout
         ~ssh_expiry:Date.epoch
         ~console_idle_timeout:Constants.default_console_idle_timeout
-        ~ssh_auto_mode:Constants.default_ssh_auto_mode
+        ~ssh_auto_mode:!Xapi_globs.ssh_auto_mode_default
     in
     ()
 
@@ -384,7 +384,19 @@ let update_env __context sync_keys =
   switched_sync Xapi_globs.sync_ssh_status (fun () ->
       let ssh_service = !Xapi_globs.ssh_service in
       let status = Fe_systemctl.is_active ~service:ssh_service in
-      Db.Host.set_ssh_enabled ~__context ~self:localhost ~value:status
+      Db.Host.set_ssh_enabled ~__context ~self:localhost ~value:status ;
+      let auto_mode_in_db =
+        Db.Host.get_ssh_auto_mode ~__context ~self:localhost
+      in
+      let ssh_monitor_enabled =
+        Fe_systemctl.is_active ~service:!Xapi_globs.ssh_monitor_service
+      in
+      (* For xs9 when fresh install, the ssh_monitor service is not enabled by default.
+         If the auto_mode is enabled, we need to enable the ssh_monitor service.
+         and user may have disabled monitor service by mistake as well, so we need to check the status. *)
+      if auto_mode_in_db <> ssh_monitor_enabled then
+        Xapi_host.set_ssh_auto_mode ~__context ~self:localhost
+          ~value:auto_mode_in_db
   ) ;
 
   remove_pending_guidances ~__context

ocaml/xapi/xapi_globs.ml

@@ -1299,6 +1299,8 @@ let ssh_service = ref "sshd"
 
 let ssh_monitor_service = ref "xapi-ssh-monitor"
 
+let ssh_auto_mode_default = ref true
+
 (* Fingerprint of default patch key *)
 let citrix_patch_key =
   "NERDNTUzMDMwRUMwNDFFNDI4N0M4OEVCRUFEMzlGOTJEOEE5REUyNg=="
@@ -1743,6 +1745,12 @@ let other_options =
     , (fun () -> string_of_bool !validate_reusable_pool_session)
     , "Enable validation of reusable pool sessions before use"
     )
+  ; ( "ssh-auto-mode"
+    , Arg.Bool (fun b -> ssh_auto_mode_default := b)
+    , (fun () -> string_of_bool !ssh_auto_mode_default)
+    , "Defaults to true; overridden to false via \
+       /etc/xapi.conf.d/ssh-auto-mode.conf(e.g., in XenServer 8)"
+    )
   ]
 
 (* The options can be set with the variable xapiflags in /etc/sysconfig/xapi.