ocamlnet 4.1.9-2 · OCaml Package

type result_code = [

| `AdminLimitExceeded
| `AffectsMultipleDSAs
| `AliasDereferencingProblem
| `AliasProblem
| `AttributeOrValueExists
| `AuthMethodNotSupported
| `Busy
| `CompareFalse
| `CompareTrue
| `ConfidentialityRequired
| `ConstraintViolation
| `EntryAlreadyExists
| `InappropriateAuthentication
| `InappropriateMatching
| `InsufficientAccessRights
| `InvalidAttributeSyntax
| `InvalidCredentials
| `InvalidDNSyntax
| `LoopDetect
| `NamingViolation
| `NoSuchAttribute
| `NoSuchObject
| `NotAllowedOnNonLeaf
| `NotAllowedOnRDN
| `ObjectClassModsProhibited
| `ObjectClassViolation
| `OperationsError
| `Other
| `ProtocolError
| `Referral
| `SaslBindInProgress
| `SizeLimitExceeded
| `StrongAuthRequired
| `Success
| `TimeLimitExceeded
| `Unavailable
| `UnavailableCriticalExtension
| `UndefinedAttributeType
| `Unknown_code of int
| `UnwillingToPerform

]

exception Timeout

exception LDAP_error of result_code * string

exception Auth_error of string

type tls_mode = [

| `Disabled
| `Immediate
| `StartTLS
| `StartTLS_if_possible

]

class type ldap_server = object ... end

val ldap_server : 
  ?timeout:float ->
  ?peer_name:string ->
  ?tls_config:(module Netsys_crypto_types.TLS_CONFIG) ->
  ?tls_mode:tls_mode ->
  Netsockaddr.socksymbol ->
  ldap_server

val ldap_server_of_url : 
  ?timeout:float ->
  ?tls_config:(module Netsys_crypto_types.TLS_CONFIG) ->
  ?tls_mode:tls_mode ->
  Neturl.url ->
  ldap_server

type bind_creds

val anon_bind_creds : bind_creds

val simple_bind_creds : dn:string -> pw:string -> bind_creds

val sasl_bind_creds : 
  dn:string ->
  user:string ->
  authz:string ->
  creds:(string * string * (string * string) list) list ->
  params:(string * string * bool) list ->
  (module Netsys_sasl_types.SASL_MECHANISM) ->
  bind_creds

type ldap_connection

val connect_e : 
  ?proxy:Uq_engines.client_endpoint_connector ->
  ldap_server ->
  Unixqueue.event_system ->
  ldap_connection Uq_engines.engine

val connect : 
  ?proxy:Uq_engines.client_endpoint_connector ->
  ldap_server ->
  ldap_connection

val close_e : ldap_connection -> unit Uq_engines.engine

val close : ldap_connection -> unit

val abort : ldap_connection -> unit

val conn_bind_e : ldap_connection -> bind_creds -> unit Uq_engines.engine

val conn_bind : ldap_connection -> bind_creds -> unit

val tls_session_props : 
  ldap_connection ->
  Nettls_support.tls_session_props option

class type !'a ldap_result = object ... end

exception Notification of string ldap_result

type scope = [

| `Base
| `One
| `Sub

]

type deref_aliases = [

| `Always
| `Finding_base_obj
| `In_searching
| `Never

]

type filter = [

| `And of filter list
| `Approx_match of string * string
| `Equality_match of string * string
| `Extensible_match of string option * string option * string * bool
| `Greater_or_equal of string * string
| `Less_or_equal of string * string
| `Not of filter
| `Or of filter list
| `Present of string
| `Substrings of string * string option * string list * string option

]

type search_result = [

| `Entry of string * (string * string list) list
| `Reference of string list

]

val search_e : 
  ldap_connection ->
  base:string ->
  scope:scope ->
  deref_aliases:deref_aliases ->
  size_limit:int ->
  time_limit:int ->
  types_only:bool ->
  filter:filter ->
  attributes:string list ->
  unit ->
  search_result list ldap_result Uq_engines.engine

val search : 
  ldap_connection ->
  base:string ->
  scope:scope ->
  deref_aliases:deref_aliases ->
  size_limit:int ->
  time_limit:int ->
  types_only:bool ->
  filter:filter ->
  attributes:string list ->
  unit ->
  search_result list ldap_result

val compare_e : 
  ldap_connection ->
  dn:string ->
  attr:string ->
  value:string ->
  unit ->
  bool ldap_result Uq_engines.engine

val compare : 
  ldap_connection ->
  dn:string ->
  attr:string ->
  value:string ->
  unit ->
  bool ldap_result

val add_e : 
  ldap_connection ->
  dn:string ->
  attributes:(string * string list) list ->
  unit ->
  unit ldap_result Uq_engines.engine

val add : 
  ldap_connection ->
  dn:string ->
  attributes:(string * string list) list ->
  unit ->
  unit ldap_result

val delete_e : 
  ldap_connection ->
  dn:string ->
  unit ->
  unit ldap_result Uq_engines.engine

val delete : ldap_connection -> dn:string -> unit -> unit ldap_result

type operation = [

| `Add
| `Delete
| `Replace

]

val modify_e : 
  ldap_connection ->
  dn:string ->
  changes:(operation * (string * string list)) list ->
  unit ->
  unit ldap_result Uq_engines.engine

val modify : 
  ldap_connection ->
  dn:string ->
  changes:(operation * (string * string list)) list ->
  unit ->
  unit ldap_result

val modify_dn_e : 
  ldap_connection ->
  dn:string ->
  new_rdn:string ->
  delete_old_rdn:bool ->
  new_superior:string option ->
  unit ->
  unit ldap_result Uq_engines.engine

val modify_dn : 
  ldap_connection ->
  dn:string ->
  new_rdn:string ->
  delete_old_rdn:bool ->
  new_superior:string option ->
  unit ->
  unit ldap_result

val modify_password_e : 
  ldap_connection ->
  uid:string option ->
  old_pw:string option ->
  new_pw:string option ->
  unit ->
  string option ldap_result Uq_engines.engine

val modify_password : 
  ldap_connection ->
  uid:string option ->
  old_pw:string option ->
  new_pw:string option ->
  unit ->
  string option ldap_result

val test_bind_e : 
  ?proxy:Uq_engines.client_endpoint_connector ->
  ldap_server ->
  bind_creds ->
  Unixqueue.event_system ->
  bool Uq_engines.engine

val test_bind : 
  ?proxy:Uq_engines.client_endpoint_connector ->
  ldap_server ->
  bind_creds ->
  bool

val retr_password_e : 
  dn:string ->
  ldap_server ->
  bind_creds ->
  Unixqueue.event_system ->
  (string * string * (string * string) list) list Uq_engines.engine

val retr_password : 
  dn:string ->
  ldap_server ->
  bind_creds ->
  (string * string * (string * string) list) list

module Debug : sig ... end

package ocamlnet