ocamldap 2.2 · OCaml Package

type op = string * string list

type op_lst = op list

type referral_policy = [

| `FOLLOW
| `RETURN

]

type changetype = [

| `ADD
| `DELETE
| `MODDN
| `MODIFY
| `MODRDN

]

class type ldapentry_t = object ... end

class ldapentry : object ... end

val format_entry : 
  < attributes : string list
    ; dn : string
    ; get_value : string -> string list.. > ->
  unit

val format_entries : 
  < attributes : string list
    ; dn : string
    ; get_value : string -> string list.. >
    list ->
  unit

type changerec = [

| `Addition of ldapentry
| `Delete of string
| `Modification of string * (Ldap_types.modify_optype * string * string list) list
| `Modrdn of string * int * string

]

val to_entry : 
  [< `Entry of Ldap_types.search_result_entry | `Referral of string list ] ->
  ldapentry

val of_entry : ldapentry -> Ldap_types.search_result_entry

class ldapcon : ?connect_timeout:int -> ?referral_policy:[> `RETURN ] -> ?version:
  int -> string list -> object ... end

val iter : (ldapentry -> unit) -> (?abandon:bool -> unit -> ldapentry) -> unit

val rev_map : 
  (ldapentry -> 'a) ->
  (?abandon:bool -> unit -> ldapentry) ->
  'a list

val map : (ldapentry -> 'a) -> (?abandon:bool -> unit -> ldapentry) -> 'a list

val fold : 
  (ldapentry -> 'a -> 'a) ->
  'a ->
  (?abandon:bool -> unit -> ldapentry) ->
  'a

module OrdOid : sig ... end

module Setstr : sig ... end

type scflavor =

| Optimistic
| Pessimistic

val attrToOid : 
  Ldap_schemaparser.schema ->
  Ldap_schemaparser.Lcstring.t ->
  Ldap_schemaparser.Oid.t

val oidToAttr : Ldap_schemaparser.schema -> Ldap_schemaparser.Oid.t -> string

val ocToOid : 
  Ldap_schemaparser.schema ->
  Ldap_schemaparser.Lcstring.t ->
  Ldap_schemaparser.Oid.t

val oidToOc : Ldap_schemaparser.schema -> Ldap_schemaparser.Oid.t -> string

val getOc : 
  Ldap_schemaparser.schema ->
  Ldap_schemaparser.Lcstring.t ->
  Ldap_schemaparser.objectclass

val getAttr : 
  Ldap_schemaparser.schema ->
  Ldap_schemaparser.Lcstring.t ->
  Ldap_schemaparser.attribute

val equateAttrs : 
  Ldap_schemaparser.schema ->
  Ldap_schemaparser.Lcstring.t ->
  Ldap_schemaparser.Lcstring.t ->
  bool

exception Invalid_objectclass of string

exception Invalid_attribute of string

exception Single_value of string

exception Objectclass_is_required

class scldapentry : Ldap_schemaparser.schema -> object ... end

type generator = {

gen_name : string;
required : string list;
genfun : ldapentry_t -> string list;

}

type service = {

svc_name : string;
static_attrs : (string * string list) list;
generate_attrs : string list;
depends : string list;

}

type generation_error =

| Missing_required of string list
| Generator_error of string

exception No_generator of string

exception Generation_failed of generation_error

exception No_service of string

exception Service_dep_unsatisfiable of string

exception Generator_dep_unsatisfiable of string * string

exception Cannot_sort_dependancies of string list

class ldapaccount : Ldap_schemaparser.schema -> (string, generator) Hashtbl.t -> (string,
                                                                  service)
                                                                  Hashtbl.t -> object ... end

package ocamldap