Fix /run/chrony-dhcp does not exist

changlei-li · changlei-li · commit fac9043b8e49 · 2025-11-28T14:40:52.000+08:00
The `/run/chrony-dhcp` dir can be created when chrony.sh is
executable (i.e. DHCP mode) when host boot up. If host boots
up with other NTP mode, the dir may not be created.
Check the dir and create it if not exist.

Signed-off-by: Changlei Li &lt;changlei.li@cloud.com&gt;
diff --git a/ocaml/xapi/xapi_host_ntp.ml b/ocaml/xapi/xapi_host_ntp.ml
@@ -51,6 +51,9 @@ let get_dhcp_ntp_server interface =
      )
 
 let add_dhcp_ntp_servers () =
+  let ntp_dhcp_dir = !Xapi_globs.ntp_dhcp_dir in
+  if not (Sys.file_exists ntp_dhcp_dir && Sys.is_directory ntp_dhcp_dir) then
+    Xapi_stdext_unix.Unixext.mkdir_rec ntp_dhcp_dir 0o755 ;
   get_dhclient_interfaces ()
   |> List.iter (fun interface ->
          match get_dhcp_ntp_server interface with

Original file line number	Diff line number	Diff line change
`@@ -51,6 +51,9 @@ let get_dhcp_ntp_server interface =`
`51`	`51`	`)`
`52`	`52`
`53`	`53`	`let add_dhcp_ntp_servers () =`
	`54`	`+ let ntp_dhcp_dir = !Xapi_globs.ntp_dhcp_dir in`
	`55`	`+ if not (Sys.file_exists ntp_dhcp_dir && Sys.is_directory ntp_dhcp_dir) then`
	`56`	`+ Xapi_stdext_unix.Unixext.mkdir_rec ntp_dhcp_dir 0o755 ;`
`54`	`57`	`get_dhclient_interfaces ()`
`55`	`58`	`\|> List.iter (fun interface ->`
`56`	`59`	`match get_dhcp_ntp_server interface with`