diff --git a/ocaml/xe-cli/newcli.ml b/ocaml/xe-cli/newcli.ml index c33e32a2e0a..6d32834c524 100644 --- a/ocaml/xe-cli/newcli.ml +++ b/ocaml/xe-cli/newcli.ml @@ -67,13 +67,22 @@ exception Usage let usage () = error - "Usage: %s [-s server] [-p port] ([-u username] [-pw password] or \ - [-pwf ]) [--traceparent traceparent] \n" + "Usage:\n\ + \ %s \n\ + \ [ -s ] XenServer host \n\ + \ [ -p ] XenServer port number \n\ + \ [ -u -pw | -pwf ] \n\ + \ User authentication (password or file) \n\ + \ [ --nossl ] Disable SSL/TLS \n\ + \ [ --debug ] Enable debug output \n\ + \ [ --debug-on-fail ] Enable debug output only on failure \n\ + \ [ --traceparent ] Distributed tracing context \n\ + \ [ ... ] Command-specific options \n" Sys.argv.(0) ; error "\n\ A full list of commands can be obtained by running \n\ - \t%s help -s -p \n" + \ %s help -s -p \n" Sys.argv.(0) let is_localhost ip = ip = "127.0.0.1"