Update datamodel lifecycle and bump schema

Signed-off-by: Changlei Li <changlei.li@cloud.com>

Author: changlei-li

ocaml/idl/datamodel_common.ml

@@ -10,7 +10,7 @@ open Datamodel_roles
               to leave a gap for potential hotfixes needing to increment the schema version.*)
 let schema_major_vsn = 5
 
-let schema_minor_vsn = 791
+let schema_minor_vsn = 792
 
 (* Historical schema versions just in case this is useful later *)
 let rio_schema_major_vsn = 5

ocaml/idl/datamodel_lifecycle.ml

@@ -97,8 +97,16 @@ let prototyped_of_field = function
       Some "22.26.0"
   | "SM", "host_pending_features" ->
       Some "24.37.0"
+  | "host", "timezone" ->
+      Some "25.37.0-next"
+  | "host", "ntp_custom_servers" ->
+      Some "25.37.0-next"
+  | "host", "ntp_mode" ->
+      Some "25.37.0-next"
   | "host", "secure_boot" ->
       Some "25.31.0"
+  | "host", "max_cstate" ->
+      Some "25.37.0-next"
   | "host", "ssh_auto_mode" ->
       Some "25.27.0"
   | "host", "console_idle_timeout" ->
@@ -225,6 +233,22 @@ let prototyped_of_message = function
       Some "22.26.0"
   | "VTPM", "create" ->
       Some "22.26.0"
+  | "host", "set_servertime" ->
+      Some "25.37.0-next"
+  | "host", "get_ntp_synchronized" ->
+      Some "25.37.0-next"
+  | "host", "list_timezones" ->
+      Some "25.37.0-next"
+  | "host", "set_timezone" ->
+      Some "25.37.0-next"
+  | "host", "get_ntp_servers_status" ->
+      Some "25.37.0-next"
+  | "host", "set_ntp_custom_servers" ->
+      Some "25.37.0-next"
+  | "host", "set_ntp_mode" ->
+      Some "25.37.0-next"
+  | "host", "set_max_cstate" ->
+      Some "25.37.0-next"
   | "host", "update_firewalld_service_status" ->
       Some "25.34.0"
   | "host", "get_tracked_user_agents" ->

ocaml/idl/schematest.ml

@@ -3,7 +3,7 @@ let hash x = Digest.string x |> Digest.to_hex
 (* BEWARE: if this changes, check that schema has been bumped accordingly in
    ocaml/idl/datamodel_common.ml, usually schema_minor_vsn *)
 
-let last_known_schema_hash = "c72edb27945bceb074de3fa54381ddd4"
+let last_known_schema_hash = "a1fba7d2313940671df82c4d43b16b2e"
 
 let current_schema_hash : string =
   let open Datamodel_types in