diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-04-02 21:41:13 -0500 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-04-04 12:36:50 -0500 |
| commit | eeb758f406f0cc27ab7863dc17eec00c24f2c0b6 (patch) | |
| tree | 47ccceb8e72c4a02ceb282a0c5db7e06c93baaf8 /src/vyconfd.ml | |
| parent | f389a749097d2a265d1ce1b757804af70a7199ba (diff) | |
| download | vyconf-eeb758f406f0cc27ab7863dc17eec00c24f2c0b6.tar.gz vyconf-eeb758f406f0cc27ab7863dc17eec00c24f2c0b6.zip | |
T7302: add dry_run field and update branch
Diffstat (limited to 'src/vyconfd.ml')
| -rw-r--r-- | src/vyconfd.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/vyconfd.ml b/src/vyconfd.ml index d3e4216..fc47bf6 100644 --- a/src/vyconfd.ml +++ b/src/vyconfd.ml @@ -163,7 +163,7 @@ let delete world token (req: request_delete) = response_tmpl with Session.Session_error msg -> {response_tmpl with status=Fail; error=(Some msg)} -let commit world token (_req: request_commit) = +let commit world token (req: request_commit) = let s = find_session token in let at = world.Session.running_config in let wt = s.proposed_config in @@ -172,7 +172,8 @@ let commit world token (_req: request_commit) = let () = IC.write_internal at (FP.concat vc.session_dir vc.running_cache) in let () = IC.write_internal wt (FP.concat vc.session_dir vc.session_cache) in - let commit_data = CC.make_commit_data rt at wt token in + let req_dry_run = Option.value req.dry_run ~default:false in + let commit_data = CC.make_commit_data ~dry_run:req_dry_run rt at wt token in let%lwt received_commit_data = VC.do_commit commit_data in let%lwt result_commit_data = Lwt.return (CC.commit_update received_commit_data) @@ -189,7 +190,9 @@ let commit world token (_req: request_commit) = | false -> Lwt.return {response_tmpl with status=Internal_error; error=(Some out)} | true -> - world.Session.running_config <- result_commit_data.config_result; + (* partial commit *) + if not req_dry_run then + world.Session.running_config <- result_commit_data.config_result; let success, msg_str = result_commit_data.result.success, result_commit_data.result.out in |