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 User_services.​default_data : bool

val User_services.​(=)

: 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.t>>

val User_services.​force_secure : bool

val User_services.​basicusercreation : unit -> user_creation Lwt.t

val User_services.​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 ],
   Eliom_registration.http_service)
  Eliom_service.service

val User_services.​action_logout : 
  (unit, unit, [> `Nonattached of [> `Post ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​action_logout_get : 
  (unit, unit, [> `Nonattached of [> `Get ] Eliom_service.na_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​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 ],
   Eliom_registration.http_service)
  Eliom_service.service

Groups-related services

val User_services.​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_parameter.caml)
  Eliom_service.service

val User_services.​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_parameter.caml)
  Eliom_service.service

val User_services.​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 ], 'a)
  Eliom_service.service

val User_services.​service_view_groups : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​service_view_users : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​service_view_roles : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​service_login : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​service_create_new_group : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​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 ], 'a)
  Eliom_service.service

User creation.

val User_services.​service_create_new_user : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​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 ], 'a)
  Eliom_service.service

val User_services.​service_users_settings : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val User_services.​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 ], 'a)
  Eliom_service.service

val User_services.​mail_user_creation : 
  name:string ->
  email:string ->
  from_name:string ->
  from_addr:string -> subject:string -> uri:string -> bool Lwt.t

val User_services.​create_user : 
  name:string ->
  fullname:string ->
  email:string ->
  ?pwd:string -> options:User_data.user_creation -> unit -> unit Lwt.t