1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
open Awso_wickr
open Awso_async
module Io = Http.Io
let eval ?endpoint_url ?cfg endpoint input =
Io.bind (Io.resolve_cfg cfg)
(fun cfg ->
let meth = Endpoints.method_of_endpoint endpoint in
let uri = Endpoints.uri_of_endpoint endpoint input in
Io.map
(Io.call ?endpoint_url ~cfg ~service:Values.service meth
(Endpoints.to_request endpoint input) uri)
(fun resp_result -> Endpoints.of_response endpoint resp_result))
let batch_create_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchCreateUser input
let batch_delete_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteUser input
let batch_lookup_user_uname ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchLookupUserUname input
let batch_reinvite_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchReinviteUser input
let batch_reset_devices_for_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchResetDevicesForUser input
let batch_toggle_user_suspend_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchToggleUserSuspendStatus input
let create_bot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBot input
let create_data_retention_bot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDataRetentionBot input
let create_data_retention_bot_challenge ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDataRetentionBotChallenge input
let create_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateNetwork input
let create_security_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSecurityGroup input
let delete_bot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBot input
let delete_data_retention_bot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDataRetentionBot input
let delete_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteNetwork input
let delete_security_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSecurityGroup input
let get_bot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBot input
let get_bots_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBotsCount input
let get_data_retention_bot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDataRetentionBot input
let get_guest_user_history_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGuestUserHistoryCount input
let get_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetwork input
let get_network_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkSettings input
let get_oidc_info ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetOidcInfo input
let get_opentdf_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetOpentdfConfig input
let get_security_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSecurityGroup input
let get_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUser input
let get_users_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsersCount input
let list_blocked_guest_users ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBlockedGuestUsers input
let list_bots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBots input
let list_devices_for_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevicesForUser input
let list_guest_users ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGuestUsers input
let list_networks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListNetworks input
let list_security_group_users ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSecurityGroupUsers input
let list_security_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSecurityGroups input
let list_users ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListUsers input
let register_oidc_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterOidcConfig input
let register_oidc_config_test ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterOidcConfigTest input
let register_opentdf_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterOpentdfConfig input
let update_bot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBot input
let update_data_retention ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDataRetention input
let update_guest_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGuestUser input
let update_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateNetwork input
let update_network_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateNetworkSettings input
let update_security_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSecurityGroup input
let update_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateUser input