summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c5cd2cc)
This way it is possible to connect to URIs that require some kind of
authentication.
Some (Sys.argv.(1))
else
None in
Some (Sys.argv.(1))
else
None in
- let conn = C.connect_readonly ?name () in
+ let conn = C.connect_auth_readonly ?name (C.get_auth_default ()) in
let spinner = [| '|'; '/'; '-'; '\\' |] in
let spinner = [| '|'; '/'; '-'; '\\' |] in
- let conn = C.connect_readonly () in
+ let conn = C.connect_auth_readonly (C.get_auth_default ()) in
let what = [
D.StatsState;
let what = [
D.StatsState;
);
let domname = Sys.argv.(1) in
);
let domname = Sys.argv.(1) in
- let conn = C.connect_readonly () in
+ let conn = C.connect_auth_readonly (C.get_auth_default ()) in
Some (Sys.argv.(1))
else
None in
Some (Sys.argv.(1))
else
None in
- let conn = C.connect_readonly ?name () in
+ let conn = C.connect_auth_readonly ?name (C.get_auth_default ()) in
(* List all domains (running and inactive). *)
let domains = D.get_domains_and_infos conn [D.ListAll] in
(* List all domains (running and inactive). *)
let domains = D.get_domains_and_infos conn [D.ListAll] in
Some (Sys.argv.(1))
else
None in
Some (Sys.argv.(1))
else
None in
- let conn = C.connect_readonly ?name () in
+ let conn = C.connect_auth_readonly ?name (C.get_auth_default ()) in
(* Get node_info, hostname, etc. *)
let node_info = C.get_node_info conn in
(* Get node_info, hostname, etc. *)
let node_info = C.get_node_info conn in