Module User_services

module User_services : sig..end

Author(s): Piero Furiesi, Jaap Boender, Boris Yakobowski


type user_creation =  | NoUserCreation | UserCreation of User_data.user_creation
val default_data : bool
val (>>=) : 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.t
val force_secure : bool
val basicusercreation : unit -> user_creation Lwt.t
val action_login : 
  (unit, User_data.Throttle.key * string,
   [> `Nonattached of [> `Post ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit,
   [ `One of string ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val action_logout : 
  (unit, unit, [> `Nonattached of [> `Post ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val action_logout_get : 
  (unit, unit, [> `Nonattached of [> `Get ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.non_ocaml_service ])
  Eliom_service.service
val action_edit_user_data : 
  (unit,
   User_sql.Types.userid * (string * (string * (string * string))),
   [> `Nonattached of [> `Post ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit,
   [ `One of User_sql.Types.userid ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name))),
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

Groups-related services

val action_add_user_from_group : 
  (unit, string * string,
   [> `Nonattached of [> `Post ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit,
   [ `One of string ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ],
   bool Eliom_service.ocaml_service)
  Eliom_service.service
val action_remove_user_from_group : 
  (unit, string * string,
   [> `Nonattached of [> `Post ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit,
   [ `One of string ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ],
   bool Eliom_service.ocaml_service)
  Eliom_service.service
val service_view_group : 
  (string, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], [ `One of string ] Eliom_parameter.param_name,
   unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val service_view_groups : 
  (unit, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val service_view_users : 
  (unit, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val service_view_roles : 
  (unit, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val service_login : 
  (unit, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val service_create_new_group : 
  (unit, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val action_create_new_group : 
  (unit, string * string,
   [> `Attached of
   ([> `Internal of [> `Coservice ] ], [> `Post ])
   Eliom_service.a_s ],
   [ `WithoutSuffix ], unit,
   [ `One of string ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service

User creation.

val service_create_new_user : 
  (unit, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val action_create_new_user : 
  (unit, string * (string * (string * (string * string))),
   [> `Attached of
   ([> `Internal of [> `Coservice ] ], [> `Post ])
   Eliom_service.a_s ],
   [ `WithoutSuffix ], unit,
   [ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name))),
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val service_users_settings : 
  (unit, unit,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val action_users_settings : 
  (unit, bool * (string * (string * (string * (string * bool)))),
   [> `Attached of
   ([> `Internal of [> `Coservice ] ], [> `Post ])
   Eliom_service.a_s ],
   [ `WithoutSuffix ], unit,
   [ `One of bool ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   [ `One of bool ] Eliom_parameter.param_name)))),
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val mail_user_creation : 
  name:string ->
  email:string ->
  from_name:string ->
  from_addr:string -> subject:string -> uri:string -> bool Lwt.t
val create_user : 
  name:string ->
  fullname:string ->
  email:string ->
  ?pwd:string -> options:User_data.user_creation -> unit -> unit Lwt.t