From bd17726d30991619eca09bfe478659915bc12fe4 Mon Sep 17 00:00:00 2001
From: John Estabrook <jestabro@vyos.io>
Date: Wed, 23 Oct 2024 18:50:46 -0500
Subject: T6718: add independent validate field and methods

---
 src/vycli.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/vycli.ml')

diff --git a/src/vycli.ml b/src/vycli.ml
index 4310cbd..83c5eb1 100644
--- a/src/vycli.ml
+++ b/src/vycli.ml
@@ -10,6 +10,7 @@ type op_t =
     | OpGetValue
     | OpGetValues
     | OpListChildren
+    | OpValidate
 
 let token : string option ref = ref None
 let conf_format_opt = ref "curly"
@@ -34,6 +35,7 @@ let args = [
     ("--list-children", Arg.Unit (fun () -> op := Some OpListChildren), "List children of the node at the specified path");
     ("--show-config", Arg.Unit (fun () -> op := Some OpShowConfig), "Show the configuration at the specified path");
     ("--status", Arg.Unit (fun () -> op := Some OpStatus), "Send a status/keepalive message");
+    ("--validate", Arg.Unit (fun () -> op := Some OpValidate), "Validate path");
    ]
 
 let config_format_of_string s =
@@ -74,6 +76,7 @@ let main socket op path out_format config_format =
             | OpGetValues -> get_values client path
             | OpListChildren -> list_children client path
             | OpShowConfig -> show_config client path
+            | OpValidate -> validate client path
             | _ -> Error "Unimplemented" |> Lwt.return
         end
     in match result with
-- 
cgit v1.2.3