T7272: add commit processing of commitd response

1 files changed, 17 insertions, 0 deletions

diff --git a/src/session.ml b/src/session.ml
index 567f999..9e78be3 100644
--- a/src/session.ml
+++ b/src/session.ml
@@ -1,6 +1,8 @@
 module CT = Vyos1x.Config_tree
 module VT = Vyos1x.Vytree
 module RT = Vyos1x.Reference_tree
+module CC = Commitd_client.Commit
+module VC = Commitd_client.Vycall_client
 module D = Directories
 
 exception Session_error of string
@@ -88,6 +90,21 @@ let delete w s path =
     let config = apply_cfg_op op s.proposed_config in
     {s with proposed_config=config; changeset=(op :: s.changeset)}
 
+let commit w s t =
+    let at = w.running_config in
+    let wt = s.proposed_config in
+    let rt = w.reference_tree in
+    let commit_data = CC.make_commit_data rt at wt t in
+    let received_commit_data = VC.do_commit commit_data in
+    let result_commit_data =
+        try
+            CC.commit_update received_commit_data
+        with CC.Commit_error e ->
+            raise (Session_error (Printf.sprintf "Commit internal error: %s" e))
+    in
+    w.running_config <- result_commit_data.config_result;
+    result_commit_data.result.success, result_commit_data.result.out
+
 let get_value w s path =
     if not (VT.exists s.proposed_config path) then
         raise (Session_error ("Config path does not exist"))