Invoke ordering temporarily

This is an example of the usage on the new Network_device_order module.
It will be removed or updated in upcoming pull requests.

Signed-off-by: Ming Lu <[email protected]>

Author: minglumlu

ocaml/networkd/bin/network_server.ml

@@ -1561,6 +1561,22 @@ let on_startup () =
       try
         (* the following is best-effort *)
         read_config () ;
+        let _new_order =
+          let last_order =
+            match !config.interface_order with
+            | None ->
+                (* Support backwards compatibility *)
+                Some []
+            | Some [] ->
+                (* Reset network by removing networkd db *)
+                Some []
+            | last_order ->
+                (* The order generated last time *)
+                last_order
+          in
+          Network_device_order.generate last_order
+        in
+        (*TODO: upadte config with the [_new_order] *)
         remove_centos_config () ;
         if !backend_kind = Openvswitch then
           Ovs.set_max_idle 5000 ;